egghelp/eggheads community

ping bug

2005-04-13T05:57:06-04:00

then use a regsub or string map so filter \n and \r @_o. I believe a search on the forum wil help if you don't know how to use them.
*still hates redudant functions that are already solved by built in ones*.
just looking at these 10 lines of nonsense gives me the chill .

Statistics: Posted by De Kus — Wed Apr 13, 2005 5:57 am

ping bug

2005-04-13T05:44:51-04:00

Oh português O cleanarg é um procedure...

Code:

proc cleanarg {arg} {  set response ""  for {set i 0} {$i < [string length $arg]} {incr i} {    set char [string index $arg $i]    if {($char != "\12") && ($char != "\15")} {      append response $char    }  }  return $response}

tenta utilizar isso

Statistics: Posted by the_crow — Wed Apr 13, 2005 5:44 am

ping bug

2005-04-12T10:23:12-04:00

you have to find a script with the proc cleanarg . i dont know what it does, but try to remove it and use the var name "arg" instead of "args"

Statistics: Posted by De Kus — Tue Apr 12, 2005 10:23 am

ping bug

2005-04-12T10:06:52-04:00

Code:

bind pub - !ping pub:pingbind ctcr - PING pub:pingrproc say {who what} {   puthelp "PRIVMSG $who :$what"}set pub_pingchan "#teste"proc pub:ping {nick uhost hand chan args} {   set args [split [cleanarg $args]]   if {[llength $args]<1} {      set who $nick   } else {      set who [lindex $args 0]   }   global pub_pingchan   set time [unixtime]   say $who "\001PING $time\001"   set pub_pingchan $chan}proc pub:pingr {nick uhost hand dest keyword args} {   global pub_pingchan   set temp [unixtime]   set time [expr $temp - $args]   say $pub_pingchan "PING reply from $nick: $time seconds"}

Code:

[15:01]  [16:04] Tcl error [pub:ping]: invalid command name "cleanarg"

Code:

[15:06]  .set errorInfo[15:06]  [16:08] tcl: builtin dcc call: *dcc:set made_of_storm 9 errorInfo[15:06]  [16:08] #made_of_storm# set errorInfo[15:06]  Currently: invalid command name "cleanarg"[15:06]  Currently:     while executing[15:06]  Currently: "cleanarg $args"[15:06]  Currently:     (procedure "pub:ping" line 2)[15:06]  Currently:     invoked from within[15:06]  Currently: "pub:ping $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

Statistics: Posted by jsilvestre — Tue Apr 12, 2005 10:06 am