egghelp/eggheads community

Is there a place where i can post snippe scripts..?

2004-03-18T08:02:29-04:00

1 kB is 2^10 bytes (1024)

right wasn't sur it was applyed for bandwith as well but now u mention it makes sence..

That's NOT the way to create an endless loop in tcl. You're doing recursive calls and there's a limit to the number of nested calls, so your code will eventually generate an error.
Use something like this instead:

tnx for the tip

Statistics: Posted by Ofloo — Thu Mar 18, 2004 8:02 am

Re: Is there a place where i can post snippe scripts..?

2004-03-17T07:38:44-04:00

Code:

proc speedcheck {} {  ...  after 1000  speedcheck}

That's NOT the way to create an endless loop in tcl. You're doing recursive calls and there's a limit to the number of nested calls, so your code will eventually generate an error.
Use something like this instead:

Code:

proc continous_speedcheck {} {while 1 {speedcheckafter 1000}}

Statistics: Posted by user — Wed Mar 17, 2004 7:38 am

Is there a place where i can post snippe scripts..?

2004-03-16T13:23:42-04:00

1 kB is 2^10 bytes (1024)

Statistics: Posted by spock — Tue Mar 16, 2004 1:23 pm

Is there a place where i can post snippe scripts..?

2004-03-16T10:39:58-04:00

Sorry not sur where to post snippes or whatever there called sample scripts ..

this script shows u how u can read the incomming and out going speed on ur linux box maybe usefull to show in channel when u ask stats like this u can make an average speed or something .. or mrtg .. change ppp0 to eth0 or eth1 .. what ever you prefer ..

Constant readout

Code:

#!/usr/bin/tclshproc speedcheck {} {  global gouttraf ginctraf  set cache [open "/proc/net/dev" "r"]  set rfile [read $cache]  close $cache  foreach line [split $rfile "\n"] {    if {[string match -nocase "ppp0" [lindex [split [lindex $line 0] \x3A] 0]]} {      set inctraf [lindex [split [lindex $line 0] \x3A] 1]      set outtraf [lindex $line 8]    }  }  if {![info exists ginctraf]} {    set ginctraf "$inctraf"  }  if {![info exists gouttraf]} {    set gouttraf "$outtraf"  }  if {[info exists gouttraf] && [info exists ginctraf]} {    set sinctraf [expr [expr $inctraf-$ginctraf]/1000]    set souttraf [expr [expr $outtraf-$gouttraf]/1000]    set gouttraf "$outtraf"    set ginctraf "$inctraf"    puts "Incoming $sinctraf kb/s"    puts "Outgoing $souttraf kb/s"  }  after 1000  speedcheck}speedcheck

Read only once

Code:

#!/usr/bin/tclshproc speedcheck {} {  foreach line [split [exec "/bin/cat" "/proc/net/dev"] "\n"] {    if {[string match -nocase "ppp0" [lindex [split [lindex $line 0] \x3A] 0]]} {      set ginctraf [lindex [split [lindex $line 0] \x3A] 1]      set gouttraf [lindex $line 8]    }  }  after 500  foreach line [split [exec "/bin/cat" "/proc/net/dev"] "\n"] {    if {[string match -nocase "ppp0" [lindex [split [lindex $line 0] \x3A] 0]]} {      set inctraf [lindex [split [lindex $line 0] \x3A] 1]      set outtraf [lindex $line 8]    }  }  set sinctraf [expr [expr $inctraf-$ginctraf]/500.0]  set souttraf [expr [expr $outtraf-$gouttraf]/500.0]  puts "Incoming: $sinctraf kb/s"  puts "Outgoing: $souttraf kb/s"}speedcheck

Statistics: Posted by Ofloo — Tue Mar 16, 2004 10:39 am