-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathsend_stat.rsc
33 lines (26 loc) · 1.23 KB
/
send_stat.rsc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
:local info [/interface lte info lte1 once as-value]
:log info $info
:local at ($info->"access-technology")
:local operator ($info->"current-operator")
:local rssi ($info->"rssi")
:local signal
:local lac ($info->"lac")
:local cid ($info->"current-cellid");
:if ($rssi = nil) do={
:set signal ($info->"rsrp")
} else={
:set signal ($info->"rssi")
}
##:set operator "external";
:log info $at
:log info $operator
:log info $signal
:log info $cid
:log info $lac
:local gps [/system gps monitor once as-value]
:local lat ($gps->"latitude")
:local long ($gps->"longitude")
:local speed ($gps->"speed")
:local stat [/tool fetch mode=http url="http://inwhite.com.ua/matrisa.php" port=80 http-method=post http-data=("{\"lac\":\"" . $lac . "\",\"cid\":\"" . $cid . "\",\"at\":\"" . $at . "\",\"operator\":\"" . $operator . "\", \"signal\":\"" . $signal . "\", \"lat\":\"" . $lat . "\",\"long\":\"" . $long . "\", \"speed\":\"" . $speed . "\"}") http-header-field="Content-Type: application/json" output=none]
:put ("{\"lac\":\"" . $lac . "\",\"cid\":\"" . $cid . "\",\"at\":\"" . $at . "\",\"operator\":\"" . $operator . "\", \"signal\":\"" . $signal . "\", \"lat\":\"" . $lat . "\", \"long\":\"" . $long . "\", \"speed\":\"" . $speed . "\"}")
}