user log

:local low ("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
:local upp ("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z");

:local result;
:local new;

:for i from=0 to=([:len $user] - 1) do={
:local char [:pick $user $i];

:if ($char = " ") do={
:set $char " ";
:set $new ($new . $char)
}

:for a from=0 to=([:len $low] - 1) do={

:local l [:pick $low $a];


:if ( $char = $l) do={
:local u [:pick $upp $a];
:set new ($new .$u);
}
}
}
:log error "The New String in Upper case is: $new";
#yang diatas adalah string ubah huruf kecil jadi besar
:local CurDate [/system clock get time]
:local sisa [/ip hotspot user get [find name=$user] uptime]
:local out [/ip hotspot user get [find name=$user] bytes-out]
:local in [/ip hotspot user get [find name=$user] bytes-in]
:local kuota [/ip hotspot user get [find name=$user] limit-bytes-total]
:local put [(($in+$out)/1048576)]
:local putall [(($kuota)/1048576)]
:local sisall [(($putall)-($put))]
/tool fetch url="https://api.telegram.org/bot351384033:AAHzoCQ4VcdV71ZHfI59LCjOCdf_wD_5VQs/sendMessage\?chat_id=130513473&text=$new Login WIFI = Nama: $user <=> IP: $address <=> Pd Jam: $CurDate Lama-OL $sisa Total Kuota $putall MB kuota terpakai $put MB dan Sisa Kuota $sisall MB
" keep-result=no