From ce2628e3139bffb19a605169322b23c4f9aab9d2 Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Sun, 17 Mar 2024 13:15:25 -0600
Subject: [PATCH] - Algunos logs deshabilitados en release mode.

---
 FLP_2.0.b4a      | 2 +-
 FLP_2.0.b4a.meta | 2 +-
 Subs.bas         | 2 +-
 Tracker.bas      | 8 ++++----
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/FLP_2.0.b4a b/FLP_2.0.b4a
index a206e48..eaa7776 100644
--- a/FLP_2.0.b4a
+++ b/FLP_2.0.b4a
@@ -187,7 +187,7 @@ End Sub
 Sub chkPermisosEstadoTelefono
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
 	wait for Activity_PermissionResult(permission As String, result As Boolean)
-	Log("READ_PHONE_STATE: " & result)
+	if starter.logger then Log("READ_PHONE_STATE: " & result)
 End Sub
 
 Sub getSSID
diff --git a/FLP_2.0.b4a.meta b/FLP_2.0.b4a.meta
index f33e72f..8c597c8 100644
--- a/FLP_2.0.b4a.meta
+++ b/FLP_2.0.b4a.meta
@@ -28,6 +28,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,traeUltimaUbicacionGuardada,245,0,Starter,Service_Start,54,0,FirebaseMessaging,SendMessage,127,0,FirebaseMessaging,mandaLocFM,150,0,Subs,mandaLoc2,197,0,NotificationService,NotiMon_NotificationPosted,85,0,FirebaseMessaging,fm_MessageArrived,94,0,Tracker,CreateLocationRequest,116,0,Tracker,CreateLocationRequest2,128,0,Tracker,flp_LocationChanged,158,6
+NavigationStack=Tracker,CreateLocationRequest2,128,0,Starter,Process_Globals,19,0,Main,chkPermisosLeerLlamadas,145,0,Starter,Service_Start,52,0,Subs,revisaYmandaUUC,259,2,Tracker,flp_ConnectionSuccess,77,0,Tracker,StartFLP,102,0,NotificationService,NotiMon_NotificationPosted,68,0,Tracker,flp_LocationChanged,147,6,Main,chkPermisosEstadoTelefono,150,0
 SelectedBuild=0
 VisibleModules=7,3,9,4,8,5,6,2
diff --git a/Subs.bas b/Subs.bas
index 98b2d14..15ecf65 100644
--- a/Subs.bas
+++ b/Subs.bas
@@ -263,7 +263,7 @@ Sub revisaYmandaUUC
 	If ultimaLoc.IsInitialized Then
 		Starter.UUC = ultimaLoc
 		Private minsTranscurridos As String = ticksAMins(DateTime.Now - ultimaLoc.Time) 'Minutos transcurridos desde la ultima ubicacion guardada.
-		Log($"Ultima ubicacion guardada hace ${minsTranscurridos} mins."$)
+		if starter.logger then Log($"Ultima ubicacion guardada hace ${minsTranscurridos} mins."$)
 		If minsTranscurridos > 10 And minsTranscurridos < 20 Then
 			bitacora("Mas de 10 mins - REQ-UPDATE")
 			LogColor($"Ubicacion vieja (mas de 10 mins.)"$, Colors.Red)
diff --git a/Tracker.bas b/Tracker.bas
index fa68c41..6768c0f 100644
--- a/Tracker.bas
+++ b/Tracker.bas
@@ -81,7 +81,7 @@ Sub flpReConnect
 End Sub
 
 Sub flp_ConnectionSuccess
-	Log("FLP - Connected to location provider")
+	If Starter.logger Then Log("FLP - Connected to location provider")
 	Subs.bitacora("FLP - Connection Success")
 End Sub
 
@@ -106,7 +106,7 @@ Public Sub StartFLP
 	Private cont As Int = 0
 	Do While flp.IsConnected = False
 		Sleep(500)
-		Log($"FLP Sleeping - ${cont}"$)
+		if starter.logger then Log($"FLP Sleeping - ${cont}"$)
 		Subs.bitacora($"Sleeping - ${cont}"$)
 		cont = cont + 1
 		If cont > 70 Then
@@ -151,9 +151,9 @@ Public Sub StopFLP
 End Sub
 
 Sub flp_LocationChanged (Location1 As Location)
-	LogColor($"Location Changed - Acc: ${Location1.Accuracy}"$, Colors.blue)
+	if starter.logger then LogColor($"Location Changed - Acc: ${Location1.Accuracy}"$, Colors.blue)
 	Private minsTranscurridos As String = Subs.ticksAMins(DateTime.Now - Subs.traeUltimaUbicacionGuardada.Time) 'Minutos transcurridos desde la ultima ubicacion guardada.
-	LogColor(">>>>>>>>>>>>>>>>>>>>>>>    " & minsTranscurridos, Colors.red)
+	If Starter.logger Then LogColor(">>>>>>>>>>>>>>>>>>>>>>>    " & minsTranscurridos, Colors.red)
 	If Not(IsPaused(Main)) Then
 		Main.laUbicacion = Location1
 		If Starter.logger Then Log("Main.laubicacion actializada")