Scribd
Upload
2K views

Juanfi Coding Mikrotik

This document contains code to: 1. Configure Telegram notifications and API tracking for a WiFi hotspot. 2. Summarize hotspot user data like sales amounts and update scripts. 3. Apply fixes like synchronizing the user's MAC address and removing the user if the limit uptime is reached.

Uploaded by

Abelardo Llenes Talitod
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
2K views

Juanfi Coding Mikrotik

This document contains code to: 1. Configure Telegram notifications and API tracking for a WiFi hotspot. 2. Summarize hotspot user data like sales amounts and update scripts. 3. Apply fixes like synchronizing the user's MAC address and removing the user if the limit uptime is reached.

Uploaded by

Abelardo Llenes Talitod
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 27

### 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;


:if ($com!="") do={

: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];


#fixed declaration

: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;


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

/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];

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy