This is the script:
Code: Select all
:global stopRouterRun false
:do {
:local file "electric-cut.txt"
:local data [/system clock get date]
:global arrMonths
:local day [:pick $data 4 6]
:local mon ($arrMonths->[:pick $data 0 3])
:local year [:pick $data 7 11]
:local date "$day-$mon-$year"
:local itime [/system clock get time]
:local hours [:pick $itime 0 2]
:local minsec [:pick $itime 2 8]
:local mhours [:tonum $hours]
:local msymbl "AM"
:if ($mhours > 11) do={:set msymbl "PM"}
:set mhours ($mhours % 12)
:if ($mhours = 0) do={:set mhours 12}
:if ($mhours < 10) do={:set mhours "0$mhours"}
:local mtime "$mhours$minsec $msymbl"
:local data1 "****************************\r\n COURT:$date\r\n AT: $mtime\r\n****************************"
/file
:if ([:len [find where name=$file]] = 0) do={print file=$file; :delay 5; set $file contents=""}
set $file contents=$data1
:delay 60
} while=(!$stopRouterRun)
EL DONCITO