### enable telegram notification, change from 0 to 1 if you want to enable telegram

:local enableTelegram 0;

###replace telegram token

:local telegramToken "2021159313:AAHEBoOLogYjLCpSwVeKPVmKKO4TIxa02vQ";

###replace telegram chat id / group id

:local chatId "----";

### enable JuanFi online monitoring 0 = DoNotSend, 1=send data to api

:local apiSend 0;

### derive from the JuanFi online monitoring, create account in genman.projectdorsu.com

:local URLvendoID 5;

### enable Random MAC synchronizer

:local enableRandomMacSyncFix 1;

### hotspot folder for HEX put flash/hotspot for haplite put hotspot only

:local hotspotFolder "JuanfiPortal";

:local com [/ip hotspot user get [find name=$user] comment];

/ip hotspot user set comment="" $user;

:local mac $"mac-address";

:local macNoCol;

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

:local char [:pick $mac $i]

:if ($char = ":") do={

:set $char ""

:set macNoCol ($macNoCol . $char)

:local validity [:pick $com 0 [:find $com ","]];

:if ( $validity!="0m" ) do={

:local sc [/sys scheduler find name=$user]; :if ($sc="") do={ :local a [/ip hotspot user get [find name=$user] limit-uptime]; :local c
($validity); :local date [ /system clock get date]; /sys sch add name="$user" disable=no start-date=$date interval=$c on-event="/ip hotspot user
remove [find name=$user]; /ip hotspot active remove [find user=$user]; /ip hotspot cookie remove [find user=$user]; /system sche remove [find
name=$user]; /file remove \"$hotspotFolder/data/$macNoCol.txt\";"
policy=ftp,reboot,read,write,policy,test,password,sniff,sensitive,romon; :delay 2s; } else={ :local sint [/sys scheduler get $user interval]; :if
( $validity!="" ) do={ /sys scheduler set $user interval ($sint+$validity); } };

}
:local infoArray [:toarray [:pick $com ([:find $com ","]+1) [:len $com]]];

:local totaltime [/ip hotspot user get [find name="$user"] limit-uptime];

:local amt [:pick $infoArray 0];

:local ext [:pick $infoArray 1];

:local vendo [:pick $infoArray 2];

:local uactive [/ip hotspot active print count-only];

#api tracking

#BOF

{ /do {

:local URLamount "$amt";

:local URLcomment "ScriptOnLoginFINAL";

:local URLip [:put [:tostr $address]];

:local URLusr [$user];

:local URLmac [$"mac-address"];

:local URLipmac "$URLusr_$URLip_$URLmac";

:local URLactive [/ip hotspot active print count-only];

:if ($apiSend!=0) do={

/do {

:local fixUrl [("https://juanfiapi.projectdorsu.com/serve.js\?s=stats&i=OE-IBX-12345&m=direct&payload=$URLvendoID")];

:local apiUrl "$fixUrl_$URLamount_$URLipmac_$URLactive_$URLcomment";

:log debug "API SendInfo: $apiUrl ";

/tool fetch mode=https http-method=get url=$apiUrl keep-result=no

:delay 1s;

} on-error={:log error "API Vendo ERROR: $apiUrl ";} }

} on-error={:log error "APIvendoRoutineError";} }

#EOF

#end of api tracking

:local getIncome [:put ([/system script get [find name=todayincome] source])];

/system script set source="$getIncome" todayincome;

:local getSales ($amt + $getIncome);

/system script set source="$getSales" todayincome;

/system script set source="$getMonthlyIncome" monthlyincome;

:local getMonthlySales ($amt + $getMonthlyIncome);

/system script set source="$getMonthlySales" monthlyincome;

:local validUntil [/sys scheduler get $user next-run];

/file print file="$hotspotFolder/data/$macNoCol" where name="dummyfile";

:delay 1s;

/file set "$hotspotFolder/data/$macNoCol" contents="$user#$validUntil";

:if ($enableTelegram=1) do={

:local vendoNew;

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

:local char [:pick $vendo $i]

:if ($char = " ") do={

:set $char "%20"

:set vendoNew ($vendoNew . $char)

}
 /tool fetch url="https://api.telegram.org/bot$telegramToken/sendmessage?chat_id=$chatId&text=<<======New
Sales======>> %0A Vendo: $vendoNew %0A Voucher: $user %0A IP: $address %0A MAC: $mac %0A Amount: $amt %0A Extended: $ext %0A
Total Time: $totaltime %0A %0AToday Sales: $getSales %0AMonthly Sales : $getMonthlySales %0AActive Users: $uactive%0A
<<=====================>>" keep-result=no;

};

:if ($enableRandomMacSyncFix=1) do={

:local cmac $"mac-address"

:foreach AU in=[/ip hotspot active find user="$username"] do={

:local amac [/ip hotspot active get $AU mac-address];

:if ($cmac!=$amac) do={ /ip hotspot active remove [/ip hotspot active find mac-address="$amac"]; }

}
### hotspot folder for HEX put flash/hotspot for haplite put hotspot only

:local hotspotFolder "flash/hotspot";

:local mac $"mac-address";

:local macNoCol;

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

:local char [:pick $mac $i]

:if ($char = ":") do={

:set $char ""

:set macNoCol ($macNoCol . $char)

:if ([/ip hotspot user get [/ip hotspot user find where name="$user"] limit-uptime] <= [/ip hotspot user get [/ip hotspot user find where
name="$user"] uptime]) do={

/ip hotspot user remove $user;

/file remove "$hotspotFolder/data/$macNoCol.txt";

/system sche remove [find name=$user];