Scripting • Re: Adaptation to RouterOS 7.13.3

:local tminutos 1:local thoras 0 :local tdias 0:local atime [ /system clock get time ]:local adate [ /system clock get date ]:local task ($atime . "_" . $adate):local temp1 [:pick $adate 0 4]:local temp2 [:pick $adate 5 7]:local temp3 [:pick $adate 8 10]:local temp4 [:pick $atime 0 9]:local temp5 ($temp3."/".$temp2."/".$temp1." - ".$temp4."  Dias: ".$tdias):local comentario1 "El usuario $user ha iniciado sesion el: $temp5":if ([/ip hotspot user find name="$user"] != "") do={    :if ([/ip hotspot user get "$user" comment] = "") do={         /ip hotspot user set "$user" comment="$comentario1"    }} else={    :log error "El usuario $user no existe"    :error "El usuario $user no existe"}:local mesarray ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"):local diaarray ("31","28","31","30","31","30","31","31","30","31","30","31"):local day [:pick $adate 8 10]:local monthtxt [:pick $adate 5 7]:local year [:pick $adate 0 4]:local monthnum (([:find $mesarray $monthtxt]) + 1):local months ([:pick $mesarray $monthnum]):local dia ([:pick $diaarray $monthnum]):local fhora [:pick $atime 0 2]:local fminutos [:pick $atime 3 5]:local fsegundos [:pick $atime 6 9]:local mayormin (($fminutos+$tminutos)-60):local mayorhora (($fhora+$thoras)-24):if (($fminutos+$tminutos)>59) do={    :set thoras ($thoras+1)    :set fminutos ($mayormin)} else={    :set fminutos ($fminutos+$tminutos)}:if (($fhora+$thoras)>23) do={    :set atime ("0".$mayorhora.":".$fminutos.":".fsegundos)    :set tdias ($tdias+1)} else={    :set atime (($fhora+$thoras).":".$fminutos.":".fsegundos)}:if (($day+$tdias)>$dia) do={    :if ($monthnum=11) do={        :set monthnum 0        :set year ($year+1)        :set day (($day+$tdias)-$dia)        :local mes ([:pick $mesarray $monthnum])        :set adate ($mes."/".$day."/".$year)    } else={        :set monthnum ($monthnum+1)        :set day (($day+$tdias)-$dia)        :local mes ([:pick $mesarray $monthnum])        :set adate ($mes."/".$day."/".$year):log info "else monts $adate"    }} else={    :set day ($day+$tdias)    :local mes ([:pick $mesarray $monthnum])    :set adate ($mes."/".$day."/".$year)}:local comentario2 "El usuario $user se deshabilitara automáticamente el: $adate $atime":local comentario3 "Se ha cumplido el tiempo solicitado desde:$temp5 hasta: $adate $atime"/system scheduler add interval=1s comment="$comentario2" name="$task" on-event="        /ip hotspot user disable [find name=\"$user\"] \r        /ip hotspot active remove [find user=\"$user\"] \r        /ip hotspot cookie remove [find user=\"$user\"] \r        /ip hotspot user reset-counter [find name=\"$user\"] \r:if ([/ip hotspot user get [find name=\"$user\"] comment] = \"$comentario1\") do={            /ip hotspot user set [find name=\"$user\"] comment=\"$comentario3\"        } \r        /system scheduler remove [find name=\"$task\"] \r" start-date=$adate start-time=$atime