egghelp/eggheads community

help with ping.tcl

2005-07-01T09:38:54-04:00

Yes that's it, but as I said greenbear's code is neater IMO.

Statistics: Posted by Sir_Fz — Fri Jul 01, 2005 9:38 am

help with ping.tcl

2005-07-01T08:48:15-04:00

Thanks guys. This is the one I beleive, in KunFoo's ping.tcl located on www.eggfaq.com:

Code:

[expr abs([clock clicks] - $time) / 1000000.0]

Statistics: Posted by awyeah — Fri Jul 01, 2005 8:48 am

help with ping.tcl

2005-07-01T08:42:57-04:00

That returns a rounded value of the reply, while in KungFoo's it returns a value to the nearest million. for example 1.835472 seconds.

Edit: this reply was to awyeah. But I find greenbear's code much better than the one I use in my script as it returns a value to the nearest thousand.

Statistics: Posted by Sir_Fz — Fri Jul 01, 2005 8:42 am

help with ping.tcl

2005-07-01T08:40:14-04:00

you could use something like this

Code:

set starttime [clock clicks -milliseconds]set length [expr abs([clock clicks -milliseconds] - $starttime) / 1000.0]putserv "PRIVMSG $chan: It took $length seconds"

Statistics: Posted by greenbear — Fri Jul 01, 2005 8:40 am

help with ping.tcl

2005-07-01T08:07:33-04:00

By the way I was wondering how can we, get a reply in microseconds; one more accurately? And I guess it would be only valid for TCL >= 8.4

I just use like:

Code:

[duration [expr [clock seconds] - $time]]

Statistics: Posted by awyeah — Fri Jul 01, 2005 8:07 am

help with ping.tcl

2005-07-01T06:21:24-04:00

thank you

Statistics: Posted by mrdr — Fri Jul 01, 2005 6:21 am

help with ping.tcl

2005-07-01T05:33:27-04:00

I wrote a script like this, ping1.2

Statistics: Posted by Sir_Fz — Fri Jul 01, 2005 5:33 am

help with ping.tcl

2005-07-01T02:53:29-04:00

Here is the code edited by me:

Code:

########################################### Ping.tcl 0.1 by #egghelp@efnet (KuNgFo0)#set ping_flag "-"set ping_chans "#egghelp"set ping_command "ping"bind msg $ping_flag $ping_command msg_pingbind pub $ping_flag|$ping_flag $ping_command pub_pingbind ctcr - PING ctcr_pingputlog "*** Ping.tcl loaded"proc msg_ping {nick uhost hand arg} { pub_ping $nick $uhost $hand $nick $arg}proc pub_ping {nick uhost hand chan arg} { global ping_chans ping_data botnick if {(([lsearch -exact [string tolower $ping_chans] [string tolower $chan]] != -1) || ($ping_chans == "*") || ([string index $chan 0] != "#")) && (![matchattr $hand b])} {  if {($arg != "") && ([matchattr $hand o])} {   set targnick [string tolower [join [lrange [split $arg] 0 0]]]  } else {   set targnick [string tolower $nick]  }  if {([lsearch -exact $targnick [string tolower [array names ping_data]]] == -1) && ($targnick != [string tolower $botnick])} {   putserv "PRIVMSG $targnick :\001PING [clock clicks]\001"   set ping_data($targnick) $chan   timer 5 "ping_unset $targnick"  } }}proc ctcr_ping {nick uhost hand dest keyword arg} { global ping_chans ping_data set targnick [string tolower $nick] if {[info exists ping_data($targnick)]} {  if {![catch {expr $arg}]} {   set ping_reply "[expr ([clock clicks] - $arg) / 10000.0]"  } else {   set ping_reply $arg  }  puthelp "PRIVMSG $ping_data($targnick) :PING - $nick lagina $ping_reply sekunde(-es)"  unset ping_data($targnick)  foreach i [timers] {   if {[lindex $i 1] == "ping_unset $targnick"} {     killtimer [lindex $i 2]   }  } }}proc ping_unset {targnick} { global ping_data unset ping_data($targnick)}

This script now does only 1 person ping.
(ex:
me; ping
bot; your ping is...)
I need that i write "ping nick" and bot says "nick's ping is..."

Statistics: Posted by mrdr — Fri Jul 01, 2005 2:53 am