Sub PE_ConnectivityChanged (NetworkType As String, State As String, Intent As Intent)
If State="CONNECTED" Then
Else
StartServiceAt("", DateTime.Now+10*1000, True)
End If
End Sub
Sub Service_Start (StartingIntent As Intent)
say ("service started, wait 10 sec then partial lock")
WS.PartialLock
Timer2.Initialize("timer2", 10000)
End Sub
Sub timer2_tick
say("timer 2 tick")
WS.ReleasePartialLock
InvokeDefSettings
Timer2.Enabled=False
End Sub
Sub InvokeDefSettings
Dim s As String
say("invoke settings")
'PREPARE URL
s="http://..." 'this is cut now on purpose
'INVOKE POST
Log(" INVOKE: InvokeDefSettings")
Dim request As HttpRequest
request.InitializeGet(s)
request.Timeout=30*1000
If HttpClient1.Execute(request, 2) = False Then Return
End Sub
Sub Http_ResponseSuccess (Response As HttpResponse, TaskId As Int)
say("HTTP RESPONSE")
Timer1.Enabled=False
End Sub