Current version: v1.5
If you have any questions you can also email me: admin ( at ) mikrotik-routeros ( dot ) com
Summary
I wrote a usage tracking script based on the original Automated Billing Script
The way I run it is using a routed Mikrotik box setup to pass everything through transparently then I generated a Queue per IP address to keep track of the usage. On my test box (A PowerRouter 732) I currently have 3 class C blocks passing through with only 3% cpu (Multi CPU enabled).
This system is built for download-based billing only and will report the amount of downloads used by an IP address (or group if you setup a queue with multiple IP’s) each month. (This could easily be switched around thou)
If you use the alternate version of the monthend script you can set the scheduler to run overseer every 1hour without having to worry about multiple reports coming through.
Additional, I’ve since written a smaller manual script for accounts so they can run this at any time and have the usage reports emailed through (see the manual usage report script)
I also have a couple of modified versions of this, including one that works with on-peak and off-peak usage encountered on some Australian ISP’s.
Todo
– ability to backup all usage. This can be done by doing an export seeing as the data is saved on the comment of each queue.
– modify the usage and monthly report scripts to use kbyte variables instead of bytes (this shouldn’t be any major issue thou, as the integer variables mikroik have allowed are 64bit, so a number can be as high as 9223372036854775807.
– allow sending to a client email address AND local support crew. Done: now you can specify a default email address in the usagereport (for sending to your support/accounts people) and the address in the queue becomes the client address to email, if you leave it blank eg: Client!50#!00#0000 instead of Client!50#client@example.com!00#0000 it will just skip sending the report email to the client but still send one to the support/accounts email address
– make the script more user friendly and provide an “easy installer” option.
Known Bugs
Currently the only known bug is that, if you use a mail server that isn’t able to be resolved the script will stop dead.
Although this is a current mikrotik bug (failed :resolve halts script) it’s also a blessing in that it will stop the monthlyreport script from running and clearing all values without being able to send out emails etc.
Install Process
Script Installation
If you want to jump right to it and install all the required scripts I’ve compiled a 5 step guide to setting up the whole thing.
1. Open winbox, go to system -> scripts, and create a new script named “install-usage-manager”
2. paste the following into the script and save then run it.
add name=overseer policy=ftp,reboot,read,write,policy,test,winbox,password,sniff,sensitive,api source=":global found\r\
\n:global mailserver\r\
\n:global adminaddress\r\
\n:global fromaddress\r\
\n:local isfqdn\r\
\n\r\
\n##################\r\
\n# User editable Variables #\r\
\n##################\r\
\n\r\
\n# Set all mail variables each time script is run - you should update these details from this script only\r\
\n# Note you can use a dns name for the mailserver however if for any reason this name does not resolve the script will terminate. This is a known bug in 3.X and 4.X\r\
\n\r\
\n:set mailserver \"your-mail-server.domain.tld\"\r\
\n\r\
\n# Is the value above a valid domain name ( change to \"no\" if IP address, \"yes\" if it's a name the mikrotik can resolve)\r\
\n:set isfqdn \"yes\"\r\
\n\r\
\n:set adminaddress \"email-address-to-send-admin-reports-to @ yourdomain dot tld"\r\
\n:set fromaddress \"email-address-reports-come-from @ yourdomain dot tld"\r\
\n\r\
\n######################\r\
\n# End of user editible variables #\r\
\n######################\r\
\n\r\
\n:if ([\$isfqdn] = \"yes\") do={:set mailserver [:resolve \$mailserver]}\r\
\n\r\
\n/system script run monthend\r\
\n\r\
\n:if ([\$found] = \"true\") do={/system script run monthlyreport; :log info \"--Completed Monthly Report--\"} else={ /system script run usagereport; :log info \"--Completed Usage Report--\"}"
add name=monthend policy=ftp,reboot,read,write,policy,test,winbox,password,sniff,sensitive,api source=":local date\r\
\n:local time\r\
\n:local day\r\
\n:local month\r\
\n:local year\r\
\n:local hour\r\
\n:global found \"\"\r\
\n\r\
\n:set date [/system clock get date]\r\
\n:set time [/system clock get time]\r\
\n:set day [:pick \$date 4 6]\r\
\n:set hour [:pick \$time 0 2]\r\
\n\r\
\n:if ([\$day] = \"01\" ) do={ :if ([\$hour] = \"00\" ) do={:set found \"true\" } else={ :set found \"false\" } } else={ :set found \"false\" }"
add name=usagereport policy=ftp,reboot,read,write,policy,test,winbox,password,sniff,sensitive,api source=":global mailserver\r\
\n:global adminaddress\r\
\n:global fromaddress\r\
\n:local content\r\
\n:local i\r\
\n:local sitename\r\
\n:local gigs\r\
\n:local email\r\
\n:local megstotal\r\
\n:local totalcurrent\r\
\n:local bytesdowncurrent\r\
\n:local bytesupcurrent\r\
\n:local megsdowncurrent\r\
\n:local megsupcurrent\r\
\n:local percentage\r\
\n:local lastwarning\r\
\n:local warninglevel\r\
\n:local warn\r\
\n:local update\r\
\n:local newwarning\r\
\n:local bytesdownsaved\r\
\n:local bytestotal\r\
\n\r\
\n#Script based on Automated billing script at http://wiki.mikrotik.com/wiki/AutomatedBilling\r\
\n#Details:\r\
\n#This script checks all current simple queues and using values stored in the queue comment will allow you keep track of usage by each site\r\
\n#The details stored in the queue are broken down and used to determine when a user should be sent a usage warning at 50 75 90 and 100%\r\
\n#You can create/modify a new entry as long as you follow this format\r\
\n#1) If you just want to name an entry you may do so like \"XYZ Router\" in the queue name\r\
\n#2) If you want to determine a data limit, enter it like \"sitename!gigabytelimit#emailaddress!00#0000\" into the comment.\r\
\n#3) If you just want to enter a comment on its own, you can do this so long as you don't have an \"!\" in the field\r\
\n#Breaking it down: sitename is a descriptive name, gigabyte limit is the monthy limit, email address is the address you want notified\r\
\n#00 is the last percentage warning level for this user, 0000 is the default value for a new data store\r\
\n#This version created by Andrew Cox - www.accessplus.com.au\r\
\n#v1.4 Updated 15/June/2009\r\
\n:log info \"------ Begining Daily Usage Reports -------\"\r\
\n\r\
\n#For each queue in the list\r\
\n:foreach i in=[/queue simple find comment !=\"\"] do={\r\
\n\r\
\n#Pull comment out of queue and divide up accordingly\r\
\n:set content [/queue simple get \$i comment]\r\
\n\r\
\n#Determine variables from comment\r\
\n#Format is: sitename ! gigsallowed # who-to-email ! last warning level(0-50-75-90-99)\r\
\n:if ([:find \$content \"!\"] != \"\") do={\r\
\n :local pos1 [:find \$content \"!\"]\r\
\n :local pos4 [:len \$content]\r\
\n :local pos2 ([:find [:pick \$content (\$pos1+1) \$pos4] \"#\"]+\$pos1+1)\r\
\n :local pos3 ([:find [:pick \$content (\$pos2+1) \$pos4] \"!\"]+\$pos2)\r\
\n :set sitename [:pick \$content 0 (\$pos1)]\r\
\n :set gigs [:pick \$content (\$pos1+1) \$pos2]\r\
\n :set email [:pick \$content (\$pos2+1) (\$pos3+1)]\r\
\n :set totalcurrent [/queue simple get \$i bytes]\r\
\n :set lastwarning [:pick \$content (\$pos3+2) (\$pos3+4)]\r\
\n :local pos5 [:find \$totalcurrent \"/\"]\r\
\n :local pos6 [:len \$totalcurrent]\r\
\n :set bytesupcurrent ([:pick \$totalcurrent 0 (\$pos5)])\r\
\n :set bytesdowncurrent ([:pick \$totalcurrent (\$pos5+1) \$pos6])\r\
\n :set megsupcurrent (\$bytesupcurrent / 1048576)\r\
\n :set bytesdownsaved ([:pick \$content (\$pos3+5) \$pos4])\r\
\n :set bytestotal (\$bytesdowncurrent + \$bytesdownsaved)\r\
\n :set megsdowncurrent (\$bytestotal / 1048576)\r\
\n\r\
\n#Begin calculating usage percentage\r\
\n :set percentage ( ( \$bytestotal * 100) / (\$gigs * 1073741824 ) )\r\
\n :log info \"\$sitename: \$percentage%\"\r\
\n :if ([\$percentage] < 50) do={ :set warninglevel \"00\" }\r\
\n :if ([\$percentage] > 50) do={\r\
\n :if ([\$percentage] < 75) do={ :set warninglevel \"50\" }\r\
\n :if ([\$percentage] > 75) do={ :set warninglevel \"75\" }\r\
\n }\r\
\n :if ([\$percentage] > 75) do={\r\
\n :if ([\$percentage] < 90) do={ :set warninglevel \"75\" }\r\
\n :if ([\$percentage] > 90) do={ :set warninglevel \"90\" }\r\
\n }\r\
\n :if ([\$percentage] > 90) do={\r\
\n :if ([\$percentage] < 100) do={ :set warninglevel \"90\" }\r\
\n :if ([\$percentage] > 100) do={ :set warninglevel \"99\" }\r\
\n }\r\
\n\r\
\n# Parse warning necessity\r\
\n :if ([\$warninglevel] > \$lastwarning ) do={ :set warn \"true\" ; :set update \"true\" }\r\
\n :if ([\$warninglevel] = \$lastwarning ) do={ :set warn \"false\" ; :set update \"false\" }\r\
\n :if ([\$warninglevel] < \$lastwarning ) do={ :set warn \"false\" ; :set update \"true\" }\r\
\n\r\
\n#Update Warning Levels\r\
\n :if ([\$update] = true ) do={ :set newwarning \$warninglevel } else={ :set newwarning \$lastwarning }\r\
\n :if ([\$warn] = true ) do={\r\
\n#Check for email address in queue comment\r\
\n :if ([\$email] != \"\" ) do={\r\
\n /tool e-mail send server=\$mailserver from=\$fromaddress to=\"\$email\" subject=\"\$sitename: Usage at \$percentage\" body=\"This message is to inform you of the current usage for \$sitename\r\
\nThe current warning trigger is \$warninglevel%.\r\
\n\r\
\nThis site has downloaded \$megsdowncurrent MB, which is over \$percentage% of the \$gigs GB monthly download allowance.\r\
\n\r\
\nThis is an Automatically generated E-mail that is sent out when users reach 50%, 75%, 90% and 100% of their cap.\r\
\n\r\
\nTraffic Monitor System,\r\
\n\$fromaddress\"\r\
\n}\r\
\n#Send email to support/accounts also\r\
\n /tool e-mail send server=\$mailserver from=\$fromaddress to=\$adminaddress subject=\"\$sitename: Usage at \$percentage\" body=\"Current usage for \$sitename - trigger is \$warninglevel%.\r\
\n\$megsdowncurrent MB, which is over \$percentage% of the \$gigs GB monthly download allowance.\r\
\nTraffic Monitor System\""
add name=monthlyreport policy=ftp,reboot,read,write,policy,test,winbox,password,sniff,sensitive,api source=":global mailserver\r\
\n:global adminaddress\r\
\n:global fromaddress\r\
\n:local content\r\
\n:local i\r\
\n:local sitename\r\
\n:local gigs\r\
\n:local email\r\
\n:local megstotal\r\
\n:local totalcurrent\r\
\n:local bytesdowncurrent\r\
\n:local bytesupcurrent\r\
\n:local megsdowncurrent\r\
\n:local megsupcurrent\r\
\n:local percentage\r\
\n:local bytesdownsaved\r\
\n:local bytesdowntotal\r\
\n\r\
\n#Script based on Automated billing script at http://wiki.mikrotik.com/wiki/AutomatedBilling\r\
\n#This version created by Andrew Cox - www.accessplus.com.au\r\
\n#v1.4 Updated 15th June 2009\r\
\n:log info \"------ Begining Monthly Reports -------\"\r\
\n#For each queue in the list\r\
\n:foreach i in=[/queue simple find comment !=\"\"] do={\r\
\n\r\
\n#Pull comment out of queue and divide up accordingly\r\
\n:set content [/queue simple get \$i comment] \r\
\n\r\
\n#Determine variables from comment\r\
\n#Format is: sitename ! gigsallowed # who-to-email ! last warning level(0-50-75-90-100)\r\
\n:if ( [ :find \$content \"!\" ] != \"\" ) do={\r\
\n :local pos1 [:find \$content \"!\"]\r\
\n :local pos4 [:len \$content]\r\
\n :local pos2 ([:find [:pick \$content (\$pos1+1) \$pos4] \"#\"]+\$pos1+1)\r\
\n :local pos3 ([:find [:pick \$content (\$pos2+1) \$pos4] \"!\"]+\$pos2)\r\
\n :set sitename [:pick \$content 0 (\$pos1)]\r\
\n :set gigs [:pick \$content (\$pos1+1) \$pos2]\r\
\n :set email [:pick \$content (\$pos2+1) (\$pos3+1)]\r\
\n :set totalcurrent [/queue simple get \$i bytes]\r\
\n :local pos5 [:find \$totalcurrent \"/\"]\r\
\n :local pos6 [:len \$totalcurrent]\r\
\n :set bytesupcurrent ([:pick \$totalcurrent 0 (\$pos5)])\r\
\n :set bytesdowncurrent ([:pick \$totalcurrent (\$pos5+1) \$pos6])\r\
\n :set megsupcurrent (\$bytesupcurrent / 1048576)\r\
\n :set bytesdownsaved ([:pick \$content (\$pos3+5) \$pos4])\r\
\n :set bytesdowntotal (\$bytesdowncurrent + \$bytesdownsaved)\r\
\n :set megsdowncurrent (\$bytesdowntotal / 1048576)\r\
\n\r\
\n#Begin calculating usage percentage\r\
\n :set percentage ( ( \$bytesdowntotal * 100 ) / ( \$gigs * 1073741824 ) )\r\
\n :log info \"\$sitename: \$percentage%\"\r\
\n:if ([\$email] != \"\" ) do={\r\
\n/tool e-mail send server=\$mailserver from=\$fromaddress to=\$email subject=\"\$sitename: Monthly Report\" body=\"This message is to inform you of the full monthly usage for \$sitename\r\
\n\r\
\nIn this month this site has downloaded \$megsdowncurrent MB, which is \$percentage% of the \$gigs GB monthly download allowance.\r\
\n\r\
\nThis is an Automatically generated E-mail that is sent out at the end of each month.\r\
\n\r\
\nTraffic Monitor System,\r\
\n\$fromaddress\"\r\
\n}\r\
\n#Send email to support/accounts also\r\
\n /tool e-mail send server=\$mailserver from=\$fromaddress to=\$adminaddress subject=\"\$sitename: Monthly Report\" body=\"Full monthly usage for \$sitename\r\
\nIn this month this site has downloaded \$megsdowncurrent MB, which is \$percentage% of the \$gigs GB monthly download allowance.\r\
\n\r\
\nTraffic Monitor System,\r\
\nPlease report any errors in this message to \$fromaddress\"\r\
\n:log info \"Sent monthly report for \$sitename to \$email\"\r\
\n#Set warning level on queue comment back to 00 and reset counters\r\
\n/queue simple set \$i comment=\"\$sitename!\$gigs#\$email!00#0000\"\r\
\n/queue simple reset-counters \$i\r\
\n}\r\
\n}"
add name=manualusagereport policy=ftp,reboot,read,write,policy,test,winbox,password,sniff,sensitive,api source=":global mailserver\r\
\n:global adminaddress\r\
\n:global fromaddress\r\
\n:local content\r\
\n:local i\r\
\n:local sitename\r\
\n:local gigs\r\
\n:local email\r\
\n:local megstotal\r\
\n:local totalcurrent\r\
\n:local bytesdowncurrent\r\
\n:local bytesupcurrent\r\
\n:local megsdowncurrent\r\
\n:local megsupcurrent\r\
\n:local percentage\r\
\n:local lastwarning\r\
\n:local warninglevel\r\
\n:local warn\r\
\n:local update\r\
\n:local newwarning\r\
\n:local bytesdownsaved\r\
\n:local bytestotal\r\
\n:local text\r\
\n:local combinedtext\r\
\n:set combinedtext \"\"\r\
\n#Scripts based on Automated billing script at http://wiki.mikrotik.com/wiki/AutomatedBilling\r\
\n# This version created by Andrew Cox - www.accessplus.com.au\r\
\n#v1.4 Updated 15th June 2009\r\
\n:log info \"------ Begining Manual Usage Reports -------\"\r\
\n#For each queue in the list\r\
\n:foreach i in=[/queue simple find comment !=\"\"] do={\r\
\n#Pull comment out of queue and divide up accordingly\r\
\n:set content [/queue simple get \$i comment]\r\
\n#Determine variables from comment\r\
\n#Format is: sitename ! gigsallowed # who-to-email ! last warning level(0-50-75-90-99) # data-used (0000)\r\
\n:if ([:find \$content \"!\"] != \"\") do={\r\
\n:local pos1 [:find \$content \"!\"]\r\
\n:local pos4 [:len \$content]\r\
\n:local pos2 ([:find [:pick \$content (\$pos1+1) \$pos4] \"#\"]+\$pos1+1)\r\
\n:local pos3 ([:find [:pick \$content (\$pos2+1) \$pos4] \"!\"]+\$pos2)\r\
\n:set sitename [:pick \$content 0 (\$pos1)]\r\
\n:set gigs [:pick \$content (\$pos1+1) \$pos2]\r\
\n:set email [:pick \$content (\$pos2+1) (\$pos3+1)]\r\
\n:set totalcurrent [/queue simple get \$i bytes]\r\
\n:set lastwarning [:pick \$content (\$pos3+2) (\$pos3+4)]\r\
\n:local pos5 [:find \$totalcurrent \"/\"]\r\
\n:local pos6 [:len \$totalcurrent]\r\
\n:set bytesupcurrent ([:pick \$totalcurrent 0 (\$pos5)])\r\
\n:set bytesdowncurrent ([:pick \$totalcurrent (\$pos5+1) \$pos6])\r\
\n:set megsupcurrent (\$bytesupcurrent / 1048576)\r\
\n:set bytesdownsaved ([:pick \$content (\$pos3+5) \$pos4])\r\
\n:set bytestotal (\$bytesdowncurrent + \$bytesdownsaved)\r\
\n:set megsdowncurrent (\$bytestotal / 1048576)\r\
\n#Begin calculating usage percentage\r\
\n:set percentage ( ( \$bytestotal * 100) / (\$gigs * 1073741824 ) )\r\
\n:log info \"\$sitename: \$percentage% - \$megsdowncurrent MB used - Allowance is \$gigs GB\"\r\
\n:set text \"\$combinedtext \\n \$sitename: \$percentage% - \$megsdowncurrent MB used - Allowance is \$gigs GB\"\r\
\n:set combinedtext \"\$text\"\r\
\n}\r\
\n}\r\
\n:log info \"------ Ending Manual Usage Reports -------\"\r\
\n:local time [/system clock get time]\r\
\n/tool e-mail send server=\$mailserver from=\$fromaddress to=\$adminaddress subject=\"Manual usage report\" body=\"Site Usage report - Runtime: \$time\r\
\n\$text\r\
\nRegards,\r\
\n\$fromaddress\""
3. Open the script named “overseer” and change the user-editable values (mail server, from address, to address)
4. Delete the “install-usage-manager” script
5. Optional: if you want a pre-generated set of queues, open the script called “gen-usage-queues” and change the target-address to match the range you’re running your clients on then run it. By default it’s set to 192.168.0 which generates queues for 192.168.0.1-254.
Then you’re all done with the install!
Client Setup
I’ll assume if you’ve reached here you’re all done with the script setup and have generated your own block of queues.
You now need to add comments to the relevant queues to assign a name, email address and quota to the users you want to monitor.
The format for this is as follows: Name!GB of download allowed per month#Address to email usage alerts!Last percentage warning level#Data used in bytes
So a typical NEW entry would read: BobGreen!100#bob@green.com!00#0000
While a entry that’s had some notifications sent out might read: BobGreen!100#bob@green.com!50#53687091231
The email address section is NOT required so if you don’t want to use it simply leave the section blank like so: BobGreen!100#!00#0000
That way only the admin will receive usage updates.
The Scheduler
Hourly
If you wish to poll hourly ensure that firstly you are using the new short version of the monthend script and also ensure that your start time isn’t 00:00:00 (setting it to 30m is ok like below) This ensures that the monthend time (being before >1:00am on the 1st of each month) is correctly matched and generates reports at the end of the month.
/system scheduler add comment="" disabled=no interval=1h name=Overseer on-event="/system script run overseer" start-date=jan/01/1970 start-time=00:30:00
The Scripts in depth
Script: overseer
Like the automated billing, this also has a calling script “overseer”
:global found
:global mailserver
:global adminaddress
:global fromaddress
:local isfqdn
##################
# User editable Variables #
##################
# Set all mail variables each time script is run - you should update these details from this script only
# Note you can use a dns name for the mailserver however if for any reason this name does not resolve the script will terminate. This is a known bug in 3.X and 4.X
:set mailserver "your-mail-server.domain.tld"
# Is the value above a valid domain name ( change to "no" if IP address, "yes" if it's a name the mikrotik can resolve)
:set isfqdn "yes"
:set adminaddress "email-address-to-send-admin-reports-to@domain.tld"
:set fromaddress "email-address-reports-come-from@domain.tld"
######################
# End of user editible variables #
######################
:if ([$isfqdn] = "yes") do={:set mailserver [:resolve $mailserver]}
/system script run monthend
:if ([$found] = "true") do={/system script run monthlyreport; :log info "--Completed Monthly Report--"} else={ /system script run usagereport; :log info "--Completed Usage Report--"}
Script: monthend
At a set rollover date you want the system to run the monthend script to do the final site tally and reset all counters. By default this is set to run at the begining of each month (00 hour, 1st day) you can however change this to run on any day.
:local date
:local time
:local day
:local month
:local year
:local hour
:global found ""
:set date [/system clock get date]
:set time [/system clock get time]
:set day [:pick $date 4 6]
:set hour [:pick $time 0 2]
:if ([$day] = "01" ) do={ :if ([$hour] = "00" ) do={:set found "true" } else={ :set found "false" } } else={ :set found "false" }
Script: usagereport
The main usage report, takes the name of each queue and looks firstly for a hint that any data is contained in this. I have used ! to seperate the initial data block so If it finds a ! it will treat this name as data.
The data is then broken up from a name like this: Any Site name!50#info@yourcompany.com!00#0000 this then gives us $sitename (descriptive name) $gigs (gigabyte download limit) $email (address to email report to) $lastwarning (previous usage warning level) $bytesdownsaved (last total usage recording)
In previous versions of the script I had the values stored in the name, but now since it’s available the comment is a much better place to store this data. This also means you can give users static URL’s to access their own bandwidth graphs/queues.
:global mailserver
:global adminaddress
:global fromaddress
:local content
:local i
:local sitename
:local gigs
:local email
:local megstotal
:local totalcurrent
:local bytesdowncurrent
:local bytesupcurrent
:local megsdowncurrent
:local megsupcurrent
:local percentage
:local lastwarning
:local warninglevel
:local warn
:local update
:local newwarning
:local bytesdownsaved
:local bytestotal
#Script based on Automated billing script at http://wiki.mikrotik.com/wiki/AutomatedBilling
#Details:
#This script checks all current simple queues and using values stored in the queue comment will allow you keep track of usage by each site
#The details stored in the queue are broken down and used to determine when a user should be sent a usage warning at 50 75 90 and 100%
#You can create/modify a new entry as long as you follow this format
#1) If you just want to name an entry you may do so like "XYZ Router" in the queue name
#2) If you want to determine a data limit, enter it like "sitename!gigabytelimit#emailaddress!00#0000" into the comment.
#3) If you just want to enter a comment on its own, you can do this so long as you don't have an "!" in the field
#Breaking it down: sitename is a descriptive name, gigabyte limit is the monthy limit, email address is the address you want notified
#00 is the last percentage warning level for this user, 0000 is the default value for a new data store
#This version created by Andrew Cox - www.accessplus.com.au
#v1.4 Updated 15/June/2009
:log info "------ Begining Daily Usage Reports -------"
#For each queue in the list
:foreach i in=[/queue simple find comment !=""] do={
#Pull comment out of queue and divide up accordingly
:set content [/queue simple get $i comment]
#Determine variables from comment
#Format is: sitename ! gigsallowed # who-to-email ! last warning level(0-50-75-90-99)
:if ([:find $content "!"] != "") do={
:local pos1 [:find $content "!"]
:local pos4 [:len $content]
:local pos2 ([:find [:pick $content ($pos1+1) $pos4] "#"]+$pos1+1)
:local pos3 ([:find [:pick $content ($pos2+1) $pos4] "!"]+$pos2)
:set sitename [:pick $content 0 ($pos1)]
:set gigs [:pick $content ($pos1+1) $pos2]
:set email [:pick $content ($pos2+1) ($pos3+1)]
:set totalcurrent [/queue simple get $i bytes]
:set lastwarning [:pick $content ($pos3+2) ($pos3+4)]
:local pos5 [:find $totalcurrent "/"]
:local pos6 [:len $totalcurrent]
:set bytesupcurrent ([:pick $totalcurrent 0 ($pos5)])
:set bytesdowncurrent ([:pick $totalcurrent ($pos5+1) $pos6])
:set megsupcurrent ($bytesupcurrent / 1048576)
:set bytesdownsaved ([:pick $content ($pos3+5) $pos4])
:set bytestotal ($bytesdowncurrent + $bytesdownsaved)
:set megsdowncurrent ($bytestotal / 1048576)
#Begin calculating usage percentage
:set percentage ( ( $bytestotal * 100) / ($gigs * 1073741824 ) )
:log info "$sitename: $percentage%"
:if ([$percentage] < 50) do={ :set warninglevel "00" }
:if ([$percentage] > 50) do={
:if ([$percentage] < 75) do={ :set warninglevel "50" }
:if ([$percentage] > 75) do={ :set warninglevel "75" }
}
:if ([$percentage] > 75) do={
:if ([$percentage] < 90) do={ :set warninglevel "75" }
:if ([$percentage] > 90) do={ :set warninglevel "90" }
}
:if ([$percentage] > 90) do={
:if ([$percentage] < 100) do={ :set warninglevel "90" }
:if ([$percentage] > 100) do={ :set warninglevel "99" }
}
# Parse warning necessity
:if ([$warninglevel] > $lastwarning ) do={ :set warn "true" ; :set update "true" }
:if ([$warninglevel] = $lastwarning ) do={ :set warn "false" ; :set update "false" }
:if ([$warninglevel] < $lastwarning ) do={ :set warn "false" ; :set update "true" }
#Update Warning Levels
:if ([$update] = true ) do={ :set newwarning $warninglevel } else={ :set newwarning $lastwarning }
:if ([$warn] = true ) do={
#Check for email address in queue comment
:if ([$email] != "" ) do={
/tool e-mail send server=$mailserver from=$fromaddress to="$email" subject="$sitename: Usage at $percentage" body="This message is to inform you of the current usage for $sitename
The current warning trigger is $warninglevel%.
This site has downloaded $megsdowncurrent MB, which is over $percentage% of the $gigs GB monthly download allowance.
This is an Automatically generated E-mail that is sent out when users reach 50%, 75%, 90% and 100% of their cap.
Traffic Monitor System,
$fromaddress"
}
#Send email to support/accounts also
/tool e-mail send server=$mailserver from=$fromaddress to=$adminaddress subject="$sitename: Usage at $percentage" body="Current usage for $sitename - trigger is $warninglevel%.
$megsdowncurrent MB, which is over $percentage% of the $gigs GB monthly download allowance.
Traffic Monitor System"
:log info "Sent Warning Level $warninglevel% to $email"
}
#Set new warning level on queue comment
/queue simple set $i comment="$sitename!$gigs#$email!$newwarning#$bytestotal"
/queue simple reset-counters $i
}
}
Script: monthlyreport
Called by the overseer at the end of the month, this generates reports for Every site and then resets counters and the warning level back to 00
:global mailserver
:global adminaddress
:global fromaddress
:local content
:local i
:local sitename
:local gigs
:local email
:local megstotal
:local totalcurrent
:local bytesdowncurrent
:local bytesupcurrent
:local megsdowncurrent
:local megsupcurrent
:local percentage
:local bytesdownsaved
:local bytesdowntotal
#Script based on Automated billing script at http://wiki.mikrotik.com/wiki/AutomatedBilling
#This version created by Andrew Cox - www.accessplus.com.au
#v1.4 Updated 15th June 2009
:log info "------ Begining Monthly Reports -------"
#For each queue in the list
:foreach i in=[/queue simple find comment !=""] do={
#Pull comment out of queue and divide up accordingly
:set content [/queue simple get $i comment]
#Determine variables from comment
#Format is: sitename ! gigsallowed # who-to-email ! last warning level(0-50-75-90-100)
:if ( [ :find $content "!" ] != "" ) do={
:local pos1 [:find $content "!"]
:local pos4 [:len $content]
:local pos2 ([:find [:pick $content ($pos1+1) $pos4] "#"]+$pos1+1)
:local pos3 ([:find [:pick $content ($pos2+1) $pos4] "!"]+$pos2)
:set sitename [:pick $content 0 ($pos1)]
:set gigs [:pick $content ($pos1+1) $pos2]
:set email [:pick $content ($pos2+1) ($pos3+1)]
:set totalcurrent [/queue simple get $i bytes]
:local pos5 [:find $totalcurrent "/"]
:local pos6 [:len $totalcurrent]
:set bytesupcurrent ([:pick $totalcurrent 0 ($pos5)])
:set bytesdowncurrent ([:pick $totalcurrent ($pos5+1) $pos6])
:set megsupcurrent ($bytesupcurrent / 1048576)
:set bytesdownsaved ([:pick $content ($pos3+5) $pos4])
:set bytesdowntotal ($bytesdowncurrent + $bytesdownsaved)
:set megsdowncurrent ($bytesdowntotal / 1048576)
#Begin calculating usage percentage
:set percentage ( ( $bytesdowntotal * 100 ) / ( $gigs * 1073741824 ) )
:log info "$sitename: $percentage%"
:if ([$email] != "" ) do={
/tool e-mail send server=$mailserver from=$fromaddress to=$email subject="$sitename: Monthly Report" body="This message is to inform you of the full monthly usage for $sitename
In this month this site has downloaded $megsdowncurrent MB, which is $percentage% of the $gigs GB monthly download allowance.
This is an Automatically generated E-mail that is sent out at the end of each month.
Traffic Monitor System,
$fromaddress"
}
#Send email to support/accounts also
/tool e-mail send server=$mailserver from=$fromaddress to=$adminaddress subject="$sitename: Monthly Report" body="Full monthly usage for $sitename
In this month this site has downloaded $megsdowncurrent MB, which is $percentage% of the $gigs GB monthly download allowance.
Traffic Monitor System,
Please report any errors in this message to $fromaddress"
:log info "Sent monthly report for $sitename to $email"
#Set warning level on queue comment back to 00 and reset counters
/queue simple set $i comment="$sitename!$gigs#$email!00#0000"
/queue simple reset-counters $i
}
}
Script: manualusagereport
This script can be run manually at any time to send through the current usage report.
:global mailserver
:global adminaddress
:global fromaddress
:local content
:local i
:local sitename
:local gigs
:local email
:local megstotal
:local totalcurrent
:local bytesdowncurrent
:local bytesupcurrent
:local megsdowncurrent
:local megsupcurrent
:local percentage
:local lastwarning
:local warninglevel
:local warn
:local update
:local newwarning
:local bytesdownsaved
:local bytestotal
:local text
:local combinedtext
:set combinedtext ""
#Scripts based on Automated billing script at http://wiki.mikrotik.com/wiki/AutomatedBilling
# This version created by Andrew Cox - www.accessplus.com.au
#v1.4 Updated 15th June 2009
:log info "------ Begining Manual Usage Reports -------"
#For each queue in the list
:foreach i in=[/queue simple find comment !=""] do={
#Pull comment out of queue and divide up accordingly
:set content [/queue simple get $i comment]
#Determine variables from comment
#Format is: sitename ! gigsallowed # who-to-email ! last warning level(0-50-75-90-99) # data-used (0000)
:if ([:find $content "!"] != "") do={
:local pos1 [:find $content "!"]
:local pos4 [:len $content]
:local pos2 ([:find [:pick $content ($pos1+1) $pos4] "#"]+$pos1+1)
:local pos3 ([:find [:pick $content ($pos2+1) $pos4] "!"]+$pos2)
:set sitename [:pick $content 0 ($pos1)]
:set gigs [:pick $content ($pos1+1) $pos2]
:set email [:pick $content ($pos2+1) ($pos3+1)]
:set totalcurrent [/queue simple get $i bytes]
:set lastwarning [:pick $content ($pos3+2) ($pos3+4)]
:local pos5 [:find $totalcurrent "/"]
:local pos6 [:len $totalcurrent]
:set bytesupcurrent ([:pick $totalcurrent 0 ($pos5)])
:set bytesdowncurrent ([:pick $totalcurrent ($pos5+1) $pos6])
:set megsupcurrent ($bytesupcurrent / 1048576)
:set bytesdownsaved ([:pick $content ($pos3+5) $pos4])
:set bytestotal ($bytesdowncurrent + $bytesdownsaved)
:set megsdowncurrent ($bytestotal / 1048576)
#Begin calculating usage percentage
:set percentage ( ( $bytestotal * 100) / ($gigs * 1073741824 ) )
:log info "$sitename: $percentage% - $megsdowncurrent MB used - Allowance is $gigs GB"
:set text "$combinedtext \n $sitename: $percentage% - $megsdowncurrent MB used - Allowance is $gigs GB"
:set combinedtext "$text"
}
}
:log info "------ Ending Manual Usage Reports -------"
:local time [/system clock get time]
/tool e-mail send server=$mailserver from=$fromaddress to=$adminaddress subject="Manual usage report" body="Site Usage report - Runtime: $time
$text
Regards,
$fromaddress"
Final Notes
For those new to scripts, you can copy and paste these into winbox, but make sure that you at least remove the starting spacing from the comment lines (ones with #) if you don’t they aren’t treated as comments and will cause the script to error.
Quick trick to generate queues
#change the target address range to match what you want to generate.
:local x
:for x from 2 to 254 do={/queue simple add target-address="10.2.100.$x" queue="default/default"}
would generate queues for 10.0.0.2-10.0.0.254 for you.
note: the queue=default is important, as of v3.12 default-small queues with no child queues will be treated as if there was no queue at all (aka: unmonitored)
Advertisement