egghelp/eggheads community

WHO help

2007-12-27T15:51:18-04:00

Yeah. Thats a good tip, but i dont relay on it as it only last for as long as wait-split is set for. which for me isn't verry long

Statistics: Posted by TCL_no_TK — Thu Dec 27, 2007 3:51 pm

WHO help

2007-12-27T14:38:31-04:00

Thanks metroid, that was really easy .. I never thought of doing that.. thanks alot

iamdeath

Statistics: Posted by iamdeath — Thu Dec 27, 2007 2:38 pm

WHO help

2007-12-27T13:07:44-04:00

You do know that eggdrops already keep a host cached for every chanuser right?

Code:

bind pub - !matchip pub:matchproc pub:match {nick host handle channel text} {    if {$text == ""} {        return;    }    foreach user [chanlist $channel] {        if {[string match -nocase [getchanhost $user] $text]} {            putserv "PRIVMSG $channel :$user matches $text."        }    }        }

Statistics: Posted by metroid — Thu Dec 27, 2007 1:07 pm

WHO help

2007-12-26T02:12:11-04:00

no worries. glad it worked out.

Statistics: Posted by TCL_no_TK — Wed Dec 26, 2007 2:12 am

WHO help

2007-12-25T23:23:35-04:00

works fine like this

Code:

 }; return

So far works fine, dont know about the future

Thanks alot
iamdeath

Statistics: Posted by iamdeath — Tue Dec 25, 2007 11:23 pm

WHO help

2007-12-26T02:11:44-04:00

Thats gd wasn't expecting it to work. Since i didn't test it. Thanks for the information on ircd type. use to unrealircd. Try changing

Code:

     }; set match(ip) ""; return

Code:

     }; return

Also, it could be worth removing the return, since that way it would possible just return as many matches as it gets from the /who #channel output.

Code:

};

Like the foreach loop would. using return would brake the loop from the /who #channel

edit; fixed typeo. should of been loop not look.

Statistics: Posted by TCL_no_TK — Tue Dec 25, 2007 2:44 pm

WHO help

2007-12-25T14:23:21-04:00

Thanks for the reply, it's for Undernet version u2.10.12.12.

Ok the tcl works fine for the first entry but then it halts with no responce, prolly it's not killing set match(ip) properly.

Code:

[23:21]  !matchip *!*@iamdeath.users.undernet.org[23:21]  Found iamdeath matching your request.[23:21]  !matchip *!*@cricket.users.undernet.org[23:22]  !matchip *!*@cricketbot.users.undernet.org

Thanks
iamdeath

Statistics: Posted by iamdeath — Tue Dec 25, 2007 2:23 pm

WHO help

2007-12-25T12:54:18-04:00

could try something like

Code:

set match(ip) ""proc pub:match {nick host handle channel text} {global match if {$text == ""} {return 0}  set match(ip) "$text"   puthelp "WHO $channel"    return 1}proc raw:match {from key text} {global match set chan [lindex $text 1]  set nick [lindex $text 5]   set host "*!*@[lindex $text 3]"    set geos [lrange [lindex [split $text ":"] 1] 1 end]     if {[strlwr $match(ip)] == [strlwr $host]} {      puthelp "PRIVMSG $chan :Found $nick matching your request."     }; set match(ip) ""; return}bind pub - !matchip pub:matchbind raw - 352 raw:matchputlog "loaded who.tcl"return

btw, what ircd is this please?

Statistics: Posted by TCL_no_TK — Tue Dec 25, 2007 12:54 pm

WHO help

2007-12-25T07:06:04-04:00

Hi, I was trying to assist a user here, while working on his request I am stuck at the middle, WHO mechanism is taken from caesars script it helped me to find out how it works. but for somereasons it's not working fine ;/

Code:

# binds #bind pub - "!matchip" proc:matchbind raw - 352 who:checkproc proc:match {nick uhost handle channel text} {global matchipset matchip $textputserv "WHO $channel"}# who check #proc who:check {from key arg} {global matchip  set chan [lindex $arg 1]  set nick [lindex $arg 5]  set uhost *!*@[lindex [split $arg] 3]  set realname [lrange [lindex [split $arg ":"] 1] 1 end]  if {[strlwr $matchip] == [strlwr $uhost]} {  puthelp "PRIVMSG $chan :Found $nick matching your request."  }unset matchip}

The error I am getting is:

Code:

[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:02]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:03]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:03]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:03]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:03]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:03]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable[16:03]  [14:38] Tcl error [who:check]: can't read "matchip": no such variable

Thanks
iamdeath

Statistics: Posted by iamdeath — Tue Dec 25, 2007 7:06 am