Scripting • Adaptation to RouterOS 7.13.3

Hi guys,

I need you to please help me adapt the following code to OS 7.13.3

:local tminutos 0
:local thoras 0
:local tdias 0
:local atime [ /system clock get time ];
:local adate [ /system clock get date ];
:local temp1 [:pick $adate 0 3];
:local temp2 [:pick $adate 4 6];
:local temp3 [:pick $atime 0 5];
:local folio [/ip hotspot user get $user comment];
:local comentario1 "El Usuario $user Ha Iniciado Session";
:local comentario2 "El Usuario $user Se Eliminara Automáticamente";
:if ([ /ip hotspot user get $user comment ]="") do={ [ /ip hotspot user set $user comment="$comentario1" ]}

: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 4 6];
:local monthtxt [:pick $adate 0 3];
:local year [:pick $adate 7 11];
:local months ([:find $mesarray $monthtxt])
:local dia ([:pick $diaarray $months])
: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) ;
}
#si fhoras + thoras(1) es mayor que 23
:if (($fhora+$thoras)>23) do={
#seteo la variable atime por
:set atime ("0".$mayorhora.":".$fminutos.":".fsegundos);
:set $tdias ($tdias+1);
} else={
:set atime (($fhora+$thoras).":".$fminutos.":".fsegundos) ;
}
#si day + tdias es mayo que los dias del mes
:if (($day+$tdias)>$dia) do={
:if ($months=11) do={
:set months 0;
:set year ($year+1);
:set day (($day+$tdias)-$dia);
:local mes ([:pick $mesarray $months]);
:set adate ($mes."/".$day."/".$year);
} else={

:set months ($months+1);
:set day (($day+$tdias)-$dia);
:local mes ([:pick $mesarray $months]);
:set adate ($mes."/".$day."/".$year);
}

} else={

:set day ($day+$tdias);
:local mes ([:pick $mesarray $months]);
:set adate ($mes."/".$day."/".$year);
}

[/system scheduler add interval=1m comment="$comentario2" name=$user on-event="/ip hotspot user disable [find name=$user] \r\
\n/ip hotspot active remove [find user=$user] \r\
\n/ip hotspot cookie remove [find user=$user] \r\
\n/system scheduler remove [find name=$user] \r\
\n/\r\
" start-date=$adate start-time=$atime]

I would be very grateful to you.

Greetings

Statistics: Posted by jose300792 — Sat Feb 03, 2024 2:44 am

---