TOOLS, TINKERINGS & CODE
Greetings once again folks.
The wonderful people at Internode have upgraded their API’s for us, making them more secure and sane in the process. So I’ve had to make a new Node Usage update.
As a bonus (And mostly because I was bored) I’ve almost completely re-written the script, you can now customize a lot more of it and even brag about your line speed (As seen by node, not you)
Requirements
Installation
You have two options
;*********************************************************** ;* NodeUsage Version 3.00 ********************************** ;*********************************************************** ;* Writen by Freman aka Fremean * ;*********************************************************** ;* NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE * ;* * ;* If you wish to create your own usage meter interface, * ;* do not copy the interface from this script, please * ;* contact Internode at support@internode.on.net for the * ;* specifications document * ;* * ;* NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE NOTICE * ;*********************************************************** ;* Pay a vist to http://fremnet.net/contact if you feel * ;* the burning desire to leave comments, compliments, or * ;* complaints * ;*********************************************************** ;* To catch me look for Freman/Fremean on Gamesurge. If * ;* I'am online and around, I'll get back to you * ;* Home Chan(s): #gamesonnet * ;*********************************************************** ;* Commands: * ;* /NodeUsage - The spam command * ;* /NodeUsage.Setup - The setup dialog * ;*********************************************************** ;*********************************************************** ; Public Aliases ;*********************************************************** ; Main alias alias NodeUsage { ; Record the target set %NodeUsage.ToChannel $active ; Make sure the environment is sane NodeUsage.Sanity ; Get the usage if ($NodeUsage.GetUsage) { ; Store the global variables locally with the same name as the template functions var %gender %NodeUsage.Gender var %updated $asctime(%NodeUsage.LastUpdate,h:nn tt zz) var %rollover $asctime(%NodeUsage.Rollover,dd/mm/yyyy) var %rduation $duration($calc(%NodeUsage.Rollover - $ctime)) var %time_left $gettok(%rduation, $+(1-,$calc($numtok(%rduation,32)-1)),32) var %line_speed %NodeUsage.LineSpeed var %usage_used %NodeUsage.Used var %usage_limit %NodeUsage.Limit var %over_limit $calc(%usage_used - %usage_limit) var %limit_left $calc(%usage_limit - %usage_used) ; Don't ask me to explain this, it's 1 am. var %avg_left $round($calc(%limit_left / $round($calc(($ctime(01:01 %rollover) - $ctime)/24/60/60),0)),2) var %perc_used $round($calc((%usage_used / %usage_limit)*100),2) var %perc_left $round($calc((%limit_left / %usage_limit)*100),2) var %ex_rate %NodeUsage.ExcessRate var %ex_cost $calc(%ex_rate * %over_limit) ; Select an output format var %format $iif(%usage_used > %usage_limit, %NodeUsage.OverFormat, %NodeUsage.UnderFormat) ; Replace all the template variables var %output $replace(%format,*gender*,%gender,*updated*,%updated,*rollover*,%rollover,*time_left*,%time_left) %output = $replace(%output,*usage_used*,%usage_used,*usage_limit*,%usage_limit,*over_limit*,%over_limit) %output = $replace(%output,*limit_left*,%limit_left,*avg_left*,%avg_left,*line_speed*,%line_speed) %output = $replace(%output,*perc_left*,%perc_left,*perc_used*,%perc_used,*ex_rate*,%ex_rate,*ex_cost*,%ex_cost) ; Select an output method var %method $iif(%usage_used > %usage_limit, %NodeUsage.OverMethod, %NodeUsage.UnderMethod) ; Output if (%method == 1) { describe %NodeUsage.ToChannel %output } else { msg %NodeUsage.ToChannel %output } } } ; Display the setup dialog alias NodeUsage.Setup { dialog -m NodeUsage.Setup NodeUsage set %NodeUsage.Setup $true } ;*********************************************************** ; Menus ;*********************************************************** menu MenuBar { NodeUsage 3 .NodeUsage:/nodeusage .NodeUsage Setup:/nodeusage.setup .Unload:/unload -rs $script } menu Channel,Query,Chat { NodeUsage 3 .NodeUsage:/nodeusage .Advertise:/say I found NodeUsage 3 at http://fremnet.net/article/261/node-usage-3 } menu NickList { NodeUsage 3 .Tell use where to find:/msg $$1 I found NodeUsage 3 at http://fremnet.net/article/261/node-usage-3 } ;*********************************************************** ; Private Aliases ;*********************************************************** ; The initialization command alias -l NodeUsage.Init { NodeUsage.SSLnVersion echo 3 -as ................................. echo 3 -as . Node Usage V3.00 .............. echo 3 -as ..................... by Freman . echo 3 -as ................................. echo 3 -as .. Spam the current channel ..... echo 3 -as .............. with your usage .. echo 3 -as ................................. echo 3 -as ..... Setting default vars. ..... echo 3 -as ................................. set %NodeUsage.Username set %NodeUsage.Password set %NodeUsage.Gender his set %NodeUsage.GetSpeed 1 set %NodeUsage.UnderMethod 1 set %NodeUsage.OverMethod 1 set %NodeUsage.OverFormat is over *gender* *usage_limit* meg node usage limit by *over_limit* megs, *time_left* till reset. [Last Updated: *updated*] set %NodeUsage.UnderFormat has *time_left* to use the remaining *limit_left* of *gender* *usage_limit* meg Internode usage limit. Average daily to end of month: *avg_left* mb [Last Updated: *updated*] NodeUsage.Setup } ; Check out the environment, make sure it's sane - Wish I could find a simple way to progmatically adjust the SSL settings alias -l NodeUsage.Sanity { if (%NodeUsage.Setup != $true) { NodeUsage.RaiseError I have not been setup, please /reload the script - When prompted to run the initialization commands, choose yes } if (%NodeUsage.Username == $null) { NodeUsage.RaiseError No username set, please run /NodeUsage.Setup } if (%NodeUsage.Password == $null) { NodeUsage.RaiseError No username set, please run /NodeUsage.Setup } } ; Fires off a couple of sockets alias -l NodeUsage.GetUsage { NodeUsage.SSLnVersion if ($calc($ctime - %NodeUsage.LastUpdate) > 3600) { ; Only query for speed if we're expecting speed if (%NodeUsage.GetSpeed == 1) { sockopen -e NodeUsage.Speed customer-webtools-api.internode.on.net 443 } sockopen -e NodeUsage.Usage customer-webtools-api.internode.on.net 443 return $false } return $true } ; Make noise and fuss alias -l NodeUsage.RaiseError { if ($sock(NodeUsage).status == active) { sockclose NodeUsage } if (!$line($active,0)) { linesep -a } echo $color(info) -a * [NodeUsage] $1- linesep -a halt } ; More sanity checks :) alias -l NodeUsage.SSLnVersion { ; Check version if ($version < 6.17) { NodeUsage.RaiseError I am sorry, I need mIRC 6.17 or better } ; Check for SSL support if ($sslready != $true) { NodeUsage.RaiseError I need a SSL enabled mIRC see http://www.mirc.co.uk/ssl.html } } ;**************************************************** ; Events ;**************************************************** ; Executed as the script is loaded on *:LOAD: { NodeUsage.Init } ; Executed as the script is unloaded on *:UNLOAD: { unset %NodeUsage.* } on *:SOCKOPEN:NodeUsage.*: { if ($sockerr) { NodeUsage.RaiseError Socket Error ( $+ $sockerr $+ ) } sockwrite -tn $sockname POST /cgi-bin/padsl-usage HTTP/1.0 sockwrite -tn $sockname Host: customer-webtools-api.internode.on.net sockwrite -tn $sockname User-Agent: NodeUsage/3.00 (http://fremnet.net) sockwrite -tn $sockname Connection: close var %Content username= $+ %NodeUsage.Username $+ @internode.on.net&password= $+ %NodeUsage.Password %Content = %Content $+ $iif(.Speed isin $sockname, &speed=1) sockwrite -tn $sockname Content-length: $len(%Content) sockwrite -tn $sockname sockwrite -tn $sockname %Content sockwrite -tn $sockname } on *:SOCKREAD:NodeUsage.*: { if ($sockerr) { NodeUsage.RaiseError Socket Error ( $+ $sockerr $+ ) } var %data :nextread sockread %data if ($sockbr == 0) return if (%data == $null) %data = - if (%data == Authentication failed) { NodeUsage.RaiseError Authentication Failure - Check your username/password. Type /NodeUsage.Setup halt; } if ((.Speed isin $sockname) && $regex(%data, /^\d+(\.\d+)? [MK]?bits/)) { set %NodeUsage.LineSpeed %data sockclose $sockname } if ((.Usage isin $sockname) && $regex(%data, /^\d+(\.\d+)? \d+/)) { tokenize 32 %data set %NodeUsage.LastUpdate $ctime set %NodeUsage.Used $round($1,2) set %NodeUsage.Limit $2 set %NodeUsage.Rollover $ctime($3 01:01) set %NodeUsage.ExcessRate $4 sockclose $sockname } if ($sock(NodeUsage.*,0) == 0) { NodeUsage halt } if ($sock($sockname).open) { goto nextread } } on *:DIALOG:NodeUsage.Setup:init:0: { did -c $dname $iif(%NodeUsage.Gender == his, 11, 12) did -c $dname $iif(%NodeUsage.UnderMethod == 1, 14, 15) did -c $dname $iif(%NodeUsage.OverMethod == 1, 28, 29) if (%NodeUsage.GetSpeed == 1) { did -c $dname 13 } } on *:DIALOG:NodeUsage.Setup:sclick:17: { set %NodeUsage.Gender $iif($did($dname,11).state == 1, his, her) set %NodeUsage.GetSpeed $did($dname,13).state set %NodeUsage.UnderMethod $did($dname,14).state set %NodeUsage.OverMethod $did($dname,28).state } dialog -l NodeUsage { title "NodeUsage Version 3.00" size -1 -1 269 183 option dbu box "Output", 6, 4 42 262 123 box "Format Variables", 19, 5 118 259 43 box "Under Limit", 23, 5 49 259 34 box "Authentication", 1, 4 4 130 35 box "Information", 2, 136 4 130 35 text "Username:", 3, 9 14 30 8 text "Password:", 4, 9 26 30 8 text "Format:", 7, 9 71 30 9 text "Method:", 8, 9 59 30 8 edit %NodeUsage.Username, 9, 44 12 80 10, %NodeUsage.Username edit %NodeUsage.Password, 10, 44 24 80 10, pass %NodeUsage.Password check "Get the line speed", 13, 168 27 61 8 radio "Action (/me)", 14, 44 59 50 8, group radio "Say", 15, 99 59 50 8 edit %NodeUsage.UnderFormat, 16, 44 70 215 10, autohs %NodeUsage.UnderFormat button "Ok", 17, 233 167 32 12, ok button "Cancel", 18, 4 167 32 12, cancel text "*gender*", 20, 164 138 40 8 text "Gender:", 5, 141 14 30 8 radio "Male", 11, 175 13 30 8, group radio "Female", 12, 220 13 30 8 text "*usage_used*", 21, 11 128 40 8 text "*usage_limit*", 22, 11 138 40 8 box "Over Limit", 24, 5 84 259 34 text "Method:", 25, 9 94 30 8 text "Format:", 26, 9 106 30 9 edit %NodeUsage.OverFormat, 27, 44 105 215 10, autohs %NodeUsage.OverFormat radio "Action (/me)", 28, 44 94 50 8, group radio "Say", 29, 99 94 50 8 text "*limit_left*", 30, 62 128 40 8 text "*updated*", 31, 113 128 40 8 text "*rollover*", 32, 113 138 40 8 text "*line_speed*", 33, 164 128 40 8 text "*ex_rate*", 34, 215 128 40 8 text "*over_limit*", 35, 62 138 40 8 text "*time_left*", 36, 164 148 40 8 text "*perc_used*", 37, 11 148 40 8 text "*perc_left*", 38, 61 148 40 8 text "*avg_left*", 39, 113 148 40 8 text "*ex_cost*", 40, 215 138 40 8 }
sexy script yet again another good one :D
— Snp Dec 4, 10:06 #