mirror of
https://github.com/eworm-de/routeros-scripts
synced 2024-05-14 08:04:19 +00:00
gps-track: move code into function
This commit is contained in:
parent
480ad0c196
commit
a0fc6c30ef
|
@ -8,38 +8,43 @@
|
|||
# track gps data by sending json data to http server
|
||||
# https://git.eworm.de/cgit/routeros-scripts/about/doc/gps-track.md
|
||||
|
||||
:local 0 [ :jobname ];
|
||||
:global GlobalFunctionsReady;
|
||||
:while ($GlobalFunctionsReady != true) do={ :delay 500ms; }
|
||||
|
||||
:global GpsTrackUrl;
|
||||
:global Identity;
|
||||
:local Main do={
|
||||
:local ScriptName [ :tostr $1 ];
|
||||
|
||||
:global LogPrintExit2;
|
||||
:global ScriptLock;
|
||||
:global WaitFullyConnected;
|
||||
:global GpsTrackUrl;
|
||||
:global Identity;
|
||||
|
||||
$ScriptLock $0;
|
||||
$WaitFullyConnected;
|
||||
:global LogPrintExit2;
|
||||
:global ScriptLock;
|
||||
:global WaitFullyConnected;
|
||||
|
||||
:local CoordinateFormat [ /system/gps/get coordinate-format ];
|
||||
:local Gps [ /system/gps/monitor once as-value ];
|
||||
$ScriptLock $ScriptName;
|
||||
$WaitFullyConnected;
|
||||
|
||||
:if ($Gps->"valid" = true) do={
|
||||
:do {
|
||||
/tool/fetch check-certificate=yes-without-crl $GpsTrackUrl output=none \
|
||||
http-method=post http-header-field=({ "Content-Type: application/json" }) \
|
||||
http-data=("{" . \
|
||||
"\"lat\":\"" . ($Gps->"latitude") . "\"," . \
|
||||
"\"lon\":\"" . ($Gps->"longitude") . "\"," . \
|
||||
"\"identity\":\"" . $Identity . "\"" . \
|
||||
"}") as-value;
|
||||
$LogPrintExit2 debug $0 ("Sending GPS data in " . $CoordinateFormat . " format: " . \
|
||||
"lat: " . ($Gps->"latitude") . " " . \
|
||||
"lon: " . ($Gps->"longitude")) false;
|
||||
} on-error={
|
||||
$LogPrintExit2 warning $0 ("Failed sending GPS data!") false;
|
||||
:local CoordinateFormat [ /system/gps/get coordinate-format ];
|
||||
:local Gps [ /system/gps/monitor once as-value ];
|
||||
|
||||
:if ($Gps->"valid" = true) do={
|
||||
:do {
|
||||
/tool/fetch check-certificate=yes-without-crl $GpsTrackUrl output=none \
|
||||
http-method=post http-header-field=({ "Content-Type: application/json" }) \
|
||||
http-data=("{" . \
|
||||
"\"lat\":\"" . ($Gps->"latitude") . "\"," . \
|
||||
"\"lon\":\"" . ($Gps->"longitude") . "\"," . \
|
||||
"\"identity\":\"" . $Identity . "\"" . \
|
||||
"}") as-value;
|
||||
$LogPrintExit2 debug $ScriptName ("Sending GPS data in " . $CoordinateFormat . " format: " . \
|
||||
"lat: " . ($Gps->"latitude") . " " . \
|
||||
"lon: " . ($Gps->"longitude")) false;
|
||||
} on-error={
|
||||
$LogPrintExit2 warning $ScriptName ("Failed sending GPS data!") false;
|
||||
}
|
||||
} else={
|
||||
$LogPrintExit2 debug $ScriptName ("GPS data not valid.") false;
|
||||
}
|
||||
} else={
|
||||
$LogPrintExit2 debug $0 ("GPS data not valid.") false;
|
||||
}
|
||||
|
||||
$Main [ :jobname ];
|
||||
|
|
Loading…
Reference in a new issue