egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-10-18T16:49:21-04:00 https://forum.eggheads.org/app.php/feed/topic/5878 2003-10-18T16:49:21-04:00 2003-10-18T16:49:21-04:00 https://forum.eggheads.org/viewtopic.php?p=28655#p28655 <![CDATA[banlist.tcl error]]>

Statistics: Posted by smds — Sat Oct 18, 2003 4:49 pm

]]> 2003-10-18T16:02:11-04:00 2003-10-18T16:02:11-04:00 https://forum.eggheads.org/viewtopic.php?p=28653#p28653 <![CDATA[banlist.tcl error]]> but a few errors ago i changed it to pub:banlist
there is no other script or anything with a proc/bind
called banlist, i'll try killing it and see what happnes.
thanks for the help.

Statistics: Posted by smds — Sat Oct 18, 2003 4:02 pm

]]> 2003-10-18T15:11:30-04:00 2003-10-18T15:11:30-04:00 https://forum.eggheads.org/viewtopic.php?p=28651#p28651 <![CDATA[banlist.tcl error]]>
Irrelevant or not it looks *ugly*.. :P
Beauty is in the eye of the beholder.

Statistics: Posted by strikelight — Sat Oct 18, 2003 3:11 pm

]]> 2003-10-18T15:08:35-04:00 2003-10-18T15:08:35-04:00 https://forum.eggheads.org/viewtopic.php?p=28650#p28650 <![CDATA[banlist.tcl error]]>

Statistics: Posted by caesar — Sat Oct 18, 2003 3:08 pm

]]> 2003-10-18T14:57:58-04:00 2003-10-18T14:57:58-04:00 https://forum.eggheads.org/viewtopic.php?p=28649#p28649 <![CDATA[banlist.tcl error]]>
Remove the extra spaces inside the proc, like from:

Code: 

proc pub:banlist { nick host hand chan text } {
should be:

Code: 

proc pub:banlist {nick host hand chan text} {
irrelevant..the spaces are fine.

from the look of the error message, you have a proc from another script called 'banlist' (maybe as you originally were writing this script, you didn't name the proc 'pub:banlist', but rather 'banlist'? In which case, you will have to .restart , not .rehash).

Statistics: Posted by strikelight — Sat Oct 18, 2003 2:57 pm

]]> 2003-10-18T14:07:01-04:00 2003-10-18T14:07:01-04:00 https://forum.eggheads.org/viewtopic.php?p=28646#p28646 <![CDATA[banlist.tcl error]]>

Code: 

proc pub:banlist { nick host hand chan text } {
should be:

Code: 

proc pub:banlist {nick host hand chan text} {

Statistics: Posted by caesar — Sat Oct 18, 2003 2:07 pm

]]> 2003-10-18T13:52:05-04:00 2003-10-18T13:52:05-04:00 https://forum.eggheads.org/viewtopic.php?p=28645#p28645 <![CDATA[banlist.tcl error]]> no value given for parameter "host" to "banlist"

Code: 

bind PUB o banlist pub:banlist proc pub:banlist { nick host hand chan text } { set target [getuser $hand XTRA TARGET] set type ""set bans ""if { [llength $text] < 1 } {set bans [banlist $chan]set type $chan} else {if { [matchattr $hand A] && [string tolower [lindex $text 0]] == "global" } {set bans [banlist]set type "global"} if { [string tolower [lindex $text 0]] == "all" } {for { set x 0 } { $x < [llength [channels]] } { incr x } {set bans "$bans [banlist [lindex [channels] $x]]"}set bans "$bans [banlist]"set type "all"  }}  if { [llength $bans] < 1 } {   puthelp "$target $nick :There are no bans to list for $type." } else {   puthelp "$target $nick :Listing bans for $type"for { set x 0 } { $x < [llength $bans] } { incr x } {set list [lindex $bans $x]set banned [lindex $list 0]set comment[lindex $list 1]set expire[lindex $list 2]set creator[lindex $list 5]  if { $expire == 0 } { set expire "never"  } else { set expire [ctime $expire] }  puthelp "$target $nick :$x - Mask: $banned, Reason: $comment, Expires: $expire, Creator: $creator"}   }}

Statistics: Posted by smds — Sat Oct 18, 2003 1:52 pm

]]>