mirror of
https://github.com/KeymonSoft/Monitor-Keymon.git
synced 2026-04-17 21:06:19 +00:00
232 lines
9.0 KiB
QBasic
232 lines
9.0 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Service
|
|
Version=12.2
|
|
@EndOfDesignText@
|
|
#Region Service Attributes
|
|
#StartAtBoot: true
|
|
#End Region
|
|
|
|
Sub Process_Globals
|
|
'These global variables will be declared once when the application starts.
|
|
'These variables can be accessed from all modules.
|
|
Dim reqManager As DBRequestManager
|
|
' Dim DBReqServer As String = "http://keymon.lat:1782"
|
|
' Dim skmt As SQL
|
|
' Dim ph As Phone
|
|
Dim Timer1 As Timer
|
|
Private lock As PhoneWakeState
|
|
Dim Interval As Int
|
|
Dim s As C_Subs
|
|
Dim nid As Int = 51043
|
|
' Dim monitorActivo As Boolean = True
|
|
Dim InternetOk As Boolean = True
|
|
Dim DBReqServerOk As Boolean = True
|
|
Dim DBOk As Boolean = True
|
|
Dim logger As Boolean = True
|
|
Dim timeout As Int
|
|
Dim cs As CSBuilder
|
|
Dim rp As RuntimePermissions
|
|
End Sub
|
|
|
|
Sub Service_Create
|
|
s.Initialize
|
|
Interval = s.traeIntervaloDeBD
|
|
timeout = s.traeTimeoutDeBD
|
|
Timer1.Initialize("Timer1", Interval * 1000)
|
|
Timer1.Enabled = True
|
|
#if not(DEBUG)
|
|
logger = False
|
|
#end if
|
|
lock.PartialLock
|
|
' probamosConexion
|
|
End Sub
|
|
|
|
Sub Service_Start (StartingIntent As Intent)
|
|
Log("Monitor Start")
|
|
Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
|
|
Service.StartForeground(nid, s.CreateNotification("..."))
|
|
StartServiceAt(Me, DateTime.Now + 10 * DateTime.TicksPerMinute, True)
|
|
Timer1_Tick
|
|
If logger Then LogColor("*************** Monitor Iniciado 👍🏽 **********", Colors.red)
|
|
End Sub
|
|
|
|
Sub Service_Destroy
|
|
|
|
End Sub
|
|
|
|
Sub Timer1_Tick
|
|
' Log("Next run " & DateTime.Time(DateTime.Now + Interval * 1000))
|
|
' Log("Monitor Timer_Tick")
|
|
If Starter.monitorActivo Then
|
|
DateTime.DateFormat = "dd/MM HH:mm:ss"
|
|
If B4XPages.IsInitialized Then B4XPages.MainPage.l_ultimoPing.Text = $"Último ping: ${DateTime.Date(DateTime.now)}"$
|
|
probamosConexion
|
|
End If
|
|
End Sub
|
|
|
|
Sub probamosConexion
|
|
If logger Then Log("###################### "& CRLF& " probamos probamosConexion"& CRLF& " ############")
|
|
If B4XPages.IsInitialized Then
|
|
B4XPages.MainPage.lv_servidores.Clear
|
|
B4XPages.MainPage.lv_dbs.Clear
|
|
B4XPages.MainPage.cb_conexion.Checked = False
|
|
B4XPages.MainPage.cb_internet.Checked = False
|
|
' B4XPages.MainPage.cb_dbreqserver.Checked = False
|
|
' B4XPages.MainPage.cb_db.Checked = False
|
|
End If
|
|
If IsConnectedToInternet Then
|
|
s.ping
|
|
InternetOk = True
|
|
If B4XPages.IsInitialized Then
|
|
B4XPages.MainPage.cb_conexion.Checked = True
|
|
B4XPages.MainPage.cb_internet.Checked = Starter.ping
|
|
Dim cd1 As ColorDrawable
|
|
cd1.Initialize(Colors.RGB(16, 141, 0), 10dip)
|
|
B4XPages.MainPage.b_ping.Background = cd1
|
|
B4XPages.MainPage.b_ping.Text = "Internet Ok"
|
|
End If
|
|
Dim cmd As DBCommand
|
|
s.notiLowReturn("Hay conexion a internet ✅️", "Revisando servidor ...", nid)
|
|
If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = "Hay conexion a internet!!"
|
|
Dim cmd As DBCommand
|
|
For i = 0 To Starter.servidores.Size - 1
|
|
Private esteServidor As Map = Starter.servidores.Get(i).As(Map)
|
|
Log(esteServidor.Get("servidor"))
|
|
reqManager.Initialize(Me, esteServidor.Get("servidor"))
|
|
cmd.Initialize
|
|
cmd.Name = "select_conexion"
|
|
reqManager.ExecuteQuery(cmd, 0, "select_conexion_" & i, esteServidor.get("timeout"))
|
|
Next
|
|
Private sa As Cursor = Starter.skmt.ExecQuery("select * from cat_servidores")
|
|
If sa.RowCount > 0 Then
|
|
For i = 0 To sa.RowCount - 1
|
|
sa.Position = i
|
|
reqManager.Initialize(Me, sa.GetString("url"))
|
|
cmd.Initialize
|
|
cmd.Name = "select_conexion"
|
|
reqManager.ExecuteQuery(cmd, 0, "select_conexion_" & sa.GetString("id"), sa.GetString("timeout"))
|
|
Next
|
|
End If
|
|
|
|
|
|
|
|
'Reiniciamos el timer para cuando llamamos el Sub desde "seleccion"
|
|
Timer1.Enabled = False
|
|
Timer1.Interval = Interval * 1000
|
|
Timer1.Enabled = True
|
|
Else
|
|
If logger Then Log("Sin conexión a internet!!!")
|
|
s.notiLowReturn("SIN INTERNET ❌", "NO hay conexion a internet.", nid)
|
|
cs.Initialize
|
|
If B4XPages.IsInitialized Then B4XPages.MainPage.l_status.Text = cs.Color(Colors.red).append("NO hay conexión a internet!!").PopAll
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub reinicializaReqManager 'ignore
|
|
reqManager.Initialize(Me, Starter.DBReqServer)
|
|
If logger Then Log("Inicializamos con: " & Starter.DBReqServer)
|
|
End Sub
|
|
|
|
Sub JobDone(Job As HttpJob)
|
|
' Log("JOBDONE -- " & Job.Success)
|
|
' Log(Job)
|
|
If Job.Success = False Then
|
|
If Job.JobName = "DBRequest" Then DBReqServerOk = False
|
|
Dim cd1 As ColorDrawable
|
|
cd1.Initialize(Colors.Red, 10dip)
|
|
If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Background = cd1
|
|
If B4XPages.IsInitialized Then B4XPages.MainPage.b_ping.Text = "DBReqServer KO"
|
|
Log("Guardamos error en BD")
|
|
If Job.Tag.As(String).StartsWith("select_conexion_") Then
|
|
Private idServidorX() As String = Regex.Split("_", Job.Tag)
|
|
' Log("|" & idServidorX(2) & "|")
|
|
Private idServidor As String = idServidorX(2)
|
|
Private m As Map = s.traeServidorDesdeBD(idServidor)
|
|
s.notiHigh("ERROR ❌", $"El servidor ${m.Get("url").As(String).Replace("http://", "")} NO responde!!"$, nid, Main)
|
|
cs.Initialize
|
|
B4XPages.MainPage.lv_servidores.AddSingleLine(cs.Color(Colors.red).append($"${m.Get("url").As(String).Replace("http://", "")} - ERROR"$).PopAll)
|
|
B4XPages.MainPage.lv_servidores.SetSelection(B4XPages.MainPage.lv_servidores.Size - 1)
|
|
' B4XPages.MainPage.lv_servidores.AddSingleLine($"${m.Get("url").As(String).Replace("http://", "")} - ERROR"$)
|
|
End If
|
|
|
|
Starter.skmt.ExecNonQuery($"insert into error_log(error, fecha) values ('El servidor ${Starter.DBReqServer} NO responde!!', '${s.fechaKMT(DateTime.Now)}')"$)
|
|
If Job.ErrorMessage.Contains("failed to connect") Or Job.ErrorMessage.Contains("Failed to connect") Then
|
|
' ToastMessageShow("¡Hubo un error contactando al servidor, por favor revise su conexión!", True)
|
|
End If
|
|
Else
|
|
If Job.JobName = "DBRequest" Then DBReqServerOk = True
|
|
If logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
|
|
If Job.JobName = "DBRequest" Then
|
|
Dim resultado As DBResult = reqManager.HandleJob(Job)
|
|
If resultado.Tag.As(String).StartsWith("select_conexion_") Then
|
|
Log("select_conexion")
|
|
Private idServidorX() As String = Regex.Split("_", resultado.Tag)
|
|
Private idServidor As String = idServidorX(2)
|
|
Private m As Map = s.traeServidorDesdeBD(idServidor)
|
|
B4XPages.MainPage.lbl.TextColor = Colors.black
|
|
B4XPages.MainPage.lv_servidores.AddSingleLine($"${m.Get("url").As(String).Replace("http://", "")} - OK"$)
|
|
For Each records() As Object In resultado.Rows
|
|
Private valor As String = records(resultado.Columns.Get("VALOR"))
|
|
If valor = "OK" Then
|
|
DBOk = True
|
|
s.notiLowReturn($"El servidor esta respondiendo ✅"$, "Servidor OK ✅", nid)
|
|
If B4XPages.IsInitialized Then
|
|
B4XPages.MainPage.l_status.Text = "El servidor esta respondiendo!!"
|
|
B4XPages.MainPage.lv_dbs.AddSingleLine($"${m.Get("url").As(String).Replace("http://", "")} - OK"$)
|
|
Dim cd1 As ColorDrawable
|
|
cd1.Initialize(Colors.RGB(16, 141, 0), 10dip)
|
|
B4XPages.MainPage.b_ping.Background = cd1
|
|
B4XPages.MainPage.b_ping.Text = "Servidor Ok"
|
|
End If
|
|
Else
|
|
s.notiHigh("ERROR ❌", $"La base de datos ${m.Get("url").As(String).Replace("http://", "")} NO responde!!"$, nid, Main)
|
|
If B4XPages.IsInitialized Then
|
|
B4XPages.MainPage.l_status.Text = "La base de datos NO esta respondiendo!!"
|
|
Log("Guardamos error en BD")
|
|
' B4XPages.MainPage.lbl.TextColor = Colors.red
|
|
' Sleep(200)
|
|
cs.Initialize
|
|
B4XPages.MainPage.lv_dbs.AddSingleLine(cs.Color(Colors.red).append($"${m.Get("url").As(String).Replace("http://", "")} - ERROR"$).PopAll)
|
|
B4XPages.MainPage.lv_servidores.SetSelection(B4XPages.MainPage.lv_servidores.Size - 1)
|
|
' B4XPages.MainPage.lv_dbs.AddSingleLine($"${m.Get("url").As(String).Replace("http://", "")} - ERROR"$)
|
|
Starter.skmt.ExecNonQuery($"insert into error_log(error, fecha) values ('La BD NO esta respondiendo!!', '${s.fechaKMT(DateTime.Now)}')"$)
|
|
Dim cd1 As ColorDrawable
|
|
cd1.Initialize(Colors.Red, 10dip)
|
|
B4XPages.MainPage.b_ping.Background = cd1
|
|
B4XPages.MainPage.b_ping.Text = "Servidor KO"
|
|
End If
|
|
End If
|
|
Next
|
|
End If
|
|
' s.logJobDoneResultados(resultado)
|
|
If resultado.Rows.Size = 0 Then DBOk = False
|
|
' Log(resultado.Rows.Size)
|
|
End If
|
|
If B4XPages.IsInitialized Then
|
|
B4XPages.MainPage.cb_conexion.Checked = InternetOk
|
|
B4XPages.MainPage.cb_internet.Checked = Starter.ping
|
|
If DBReqServerOk Then B4XPages.MainPage.cb_internet.Checked = True
|
|
' B4XPages.MainPage.cb_dbreqserver.Checked = DBReqServerOk
|
|
' B4XPages.MainPage.cb_db.Checked = DBOk
|
|
End If
|
|
Job.Release
|
|
End If
|
|
End Sub
|
|
|
|
Sub IsConnectedToInternet As Boolean 'ignore
|
|
Dim r As Reflector
|
|
r.Target = r.GetContext
|
|
r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
|
|
r.Target = r.RunMethod("getActiveNetworkInfo")
|
|
If r.Target <> Null Then
|
|
If logger Then LogColor("isConnectedOrConnecting", Colors.green)
|
|
Return r.RunMethod("isConnectedOrConnecting")
|
|
End If
|
|
If logger Then LogColor("Not connected", Colors.red)
|
|
Return False
|
|
End Sub
|
|
|