spithash
Master
Joined: 12 Jul 2007
Posts: 248
Location: Libera
|
 Posted: Fri Oct 18, 2013 4:24 am Post subject: |
 |
|
| Code: |
namespace eval bandwidth {
variable api "/proc/net/dev"
variable interface "eth0:LAN" ;# for windows win:<something> without the others..
# %IFN% : example eth0 # %IFA% : example WAN # %INC% : Incomming traffic # %OUT% : Outgoing traffic
variable template "\[\002%IFA%\002\]: Incoming: \(\002%INC%\002\) kb/s Outgoing: \(\002%OUT%\002\) kb/s."
# 0: privmsg to channel # 1: privmsg to nick # 2: notice to nick
variable msgtype "0"
variable pubflag "-"
variable bandwidth "!bw"
variable version 0.2
switch -regexp [string tolower $::tcl_platform(platform)] {
"win" {
variable switch 1
}
"unix" {
variable switch 2
}
".*" {
variable switch 0
}
}
switch -exact $msgtype {
"0" { variable msg "PRIVMSG %CHAN%" }
"1" { variable msg "PRIVMSG %NICK%" }
"2" { variable msg "NOTICE %NICK%" }
}
proc f {value} {
set test $value ; set unit 0
while {[set test [expr {$test / 1024}]] > 0} {
incr unit
}
return [format "%.2f %s" [expr {$value / pow(1024,$unit)}] [lindex [list B KB MB GB TB PB EB ZB YB] $unit]]
}
proc totals {n u h c t} {
variable interface
set iface [lindex [split $interface ":"] 0]
set network [lindex [split $interface ":"] 1]
#catch {exec cut \-d. \-f1 /proc/uptime} reply; set secs [expr $reply % 60]; set mins [expr $reply / 60 % 60]; set hours [expr $reply / 3600 % 24]; set days [expr $reply / 86400]
catch {set useless [exec uptime]} uptime
#set uptime "${days}d ${hours}h ${mins}m ${secs}s"
if {![catch {set data [exec /sbin/ifconfig $iface]} error]} {
foreach line [split $data "\n"] {
if {[string match "*RX bytes*" $line]} {
set rxb [lindex [split [lindex $line 1] ":"] 1]
set txb [lindex [split [lindex $line 5] ":"] 1]
putserv "PRIVMSG $c :\002\[\002$network\002\]\002: total of [f $rxb] incoming, total of [f $txb] outgoing in $uptime."
}
}
}
}
proc bandwidth_pub {nick host hand chan arg} {
totals $nick $host $hand $chan $arg
variable switch; variable template; variable interface; variable msg; variable api
if {[string equal 0 $switch]} {
putlog "Error unknown operating system."
} elseif {[string equal "1" $switch]} {
if {[regexp -nocase {^(win):([a-zA-Z0-9\-]{1,100})$} $interface -> ifn ifa]} {
set s_inc 0; set s_out 0; set e_inc 0; set e_out 0
foreach {x} [split [exec netstat -e] \n] {
if {[string equal -nocase -length 4 byte $x]} {
set s_inc [lindex $x 1]
set s_out [lindex $x 2]
}
}
after 500
foreach {x} [split [exec netstat -e] \n] {
if {[string equal -nocase -length 4 byte $x]} {
set e_inc [lindex $x 1]
set e_out [lindex $x 2]
}
}
putserv "[string map [list %NICK% $nick %CHAN% $chan] $msg] :[string map [list %IFN% $ifn %IFA% $ifa %INC% [format %.2f [expr ($e_inc - $s_inc) / 512.0]] %OUT% [format %.2f [expr ($e_out - $s_out) / 512.0]]] $template]"
} else {
putlog "Script misconfiguration, check your settings."
}
} elseif {[string equal "2" $switch]} {
if {[file exists $api]} {
if {[file readable $api]} {
if {[regexp {win:} $interface]} {
putlog "Script misconfiguration, check your settings."
} else {
if {[catch {open $api} rf]} {
putlog "Error couldn't open $api for an unknown reason."
} else {
while {![eof $rf]} {
gets $rf x
foreach {ifn ifa} [split $interface \x3a\x2c] {
regexp "$ifn:\[\x20\t\]{0,100}(\[0-9\]{1,100})\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}(\[0-9\]{1,100})\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}" $x -> s_inc($ifn) s_out($ifn)
}
}
close $rf
}
after 500
if {[catch {open $api} rf]} {
putlog "Error couldn't open $api for an unknown reason."
} else {
while {![eof $rf]} {
gets $rf x
foreach {ifn ifa} [split $interface \x3a\x2c] {
if {[regexp "$ifn:\[\x20\t\]{0,100}(\[0-9\]{1,100})\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}(\[0-9\]{1,100})\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}\[\x20\t\]{1,100}\[0-9\]{1,100}" $x -> e_inc($ifn) e_out($ifn)]} {
putserv "[string map [list %NICK% $nick %CHAN% $chan] $msg] :[string map [list %IFN% $ifn %IFA% $ifa %INC% [format %.2f [expr ($e_inc($ifn) - $s_inc($ifn)) / 512.0]] %OUT% [format %.2f [expr ($e_out($ifn) - $s_out($ifn)) / 512.0]]] $template]"
}
}
}
close $rf
}
}
} else { putlog "Error $api is not readable." }
} else { putlog "Error $api does not exist." }
} else { putlog "Error unknown operating system." }
}
bind pub $pubflag $bandwidth [namespace current]::bandwidth_pub
}
|
_________________
Libera ##rtlsdr & ##re - Nick: spithash
Click here for troll.tcl |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
