egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2020-11-09T01:45:16-04:00 https://forum.eggheads.org/app.php/feed/topic/20873 2020-11-09T01:45:16-04:00 2020-11-09T01:45:16-04:00 https://forum.eggheads.org/viewtopic.php?p=109139#p109139 <![CDATA[dcc por tcl]]> portlist variable doesn't exist. Create it.

Statistics: Posted by caesar — Mon Nov 09, 2020 1:45 am

]]> 2020-11-08T21:09:06-04:00 2020-11-08T21:09:06-04:00 https://forum.eggheads.org/viewtopic.php?p=109137#p109137 <![CDATA[dcc por tcl]]>

Code: 

bind msg p !party do_dcchat proc do_dcchat {nick uhost hand text} {global portlist    foreach line [dcclist TELNET] {        set type [lindex $line 1]        if {[regexp {telnet|all|users} $type]} {            set port [lindex [lindex $portlist 4] 1]            putserv "PRIVMSG $nick :\001DCC CHAT chat [myip] $port\001"            putlog "DCC CHAT Send to $nick"            return        }    }}
[19:37:09] Tcl error [do_dcchat]: can't read "portlist": no such variable

Statistics: Posted by Arnold_X-P — Sun Nov 08, 2020 9:09 pm

]]>