# Convert date/time to timestamp. Original source code by ( https://forum.mikrotik.com/viewtopic.php?p=994844#p994849 ).
:global datetime2epoch do={
    :local inputDateTime "$[/system clock get date] $[/system clock get time]"
    if ([:len $1]>0) do={
        :set inputDateTime $1
    }
    :local vdate [:pick $inputDateTime  0 [:find $inputDateTime  " " -1]]
    :local vtime [:pick $inputDateTime  ([:find $inputDateTime  " " -1] + 1) [:len $inputDateTime ]]
    :local vgmt  [/system clock get gmt-offset]; :if ($vgmt > 0x7FFFFFFF) do={:set vgmt ($vgmt - 0x100000000)}
    :if ($vgmt < 0) do={:set vgmt ($vgmt * -1)}
    :local arrm  [:toarray "0,0,31,59,90,120,151,181,212,243,273,304,334"]
    :local yyyy  [:pick $vdate 7 11] ; :if ((($yyyy - 1972) % 4) = 0) do={:set ($arrm->1) -1; :set ($arrm->2) 30}
    :local M     ([:find "xxanebarprayunulugepctovecANEBARPRAYUNULUGEPCTOVEC" [:pick $vdate 1 3] -1] / 2); :if ($M>12) do={:set M ($M - 12)}
    :local totd  ((($yyyy - 1970) * 365) + (($yyyy - 1972) / 4) + ($arrm->$M) + [:pick $vdate 4 6])
    :return      (((((($totd * 24) + [:pick $vtime 0 2]) * 60) + [:pick $vtime 3 5]) * 60) + [:pick $vtime 6 8] - $vgmt)
}
# end function ---------------------------------


:local username
:local logtime
:local logtimeTs
# number of seconds for hotspot user's log timeout
:local logTimeout 7200
# current log's timeout timestamp.
:local curLogTimeoutTs
# current timestamp.
:local currentTs

:foreach i in [/tool user-manager log find] do={
    :set username [/tool user-manager log get $i user-orig];
    :set logtime [/tool user-manager log get $i time];
    :set logtimeTs [$datetime2epoch [/tool user-manager log get $i time]];
    :set curLogTimeoutTs ($logtimeTs + $sessionTimeout)
    :set currentTs [$datetime2epoch]
    if ($curLogTimeoutTs <= $currentTs) do={
        #:put "$username has timedout at $logtime."; # for testing only.
        [/tool user-manager log remove numbers=$i]
    }
};