Keepout Script Error - tclhelp.net

09-10-2010, 09:50 +0200

Back

Overview

Members

Help

Forum: Overview › work › imminent problem solving

Keepout Script Error

Author

Post

Web52|Esben

10-20-2005, 12:02

| Keepout Script Error

Quote

(Guest)

Error

Tcl error [::keepout::joinchan]: can't read "arguments": no such variable

1	proc keepout::joinchan {nickname hostname handle channel} {
2	if {[channel get $channel keepout] && ![matchattr $handle $keepout::flags $channel] && [botisop $channel]} {
3	putquick "MODE $channel +b [ban $hostname]"
4	set kickmsg [lindex $keepout::kickmsg [rand [llength $keepout::kickmsg]]]
5	putquick "KICK $channel $nickname :[string map "%nick $nickname %host $hostname %chan $channel" $kickmsg]"
6	}
7	}

code
http://www.nomorepasting.com/paste.php?pasteID=50838

Esben

10-20-2005, 12:03

| Re: Keepout Script Error

Quote

Member since 09/2005
1 Post
Location: Aarhus , Denmark

forget to login

10-22-2005, 18:42

Quote

(Moderator)

Member since 09/2004
2 Posts

You are editing someone elses script... and then making errors into it...
That's not very nice of you.
Or if the script doesn't work, then contact the author of it.

Mettwurst

10-22-2005, 18:48

Homepage

Quote

(Moderator)

Member since 04/2004
13 Posts
Location: Stuttgart/Germany

1	proc keepout::ban {host} {
2	if {![string match [b]users.quakenet[/b] $host]} {
3	return "[string map "~ [b]" [/b]!$host]"
4	} else {
5	return "!@[lindex [split $arguments] 0]"
6	}
7	}

that is your problem.
var "arguments" does not exist

should be

1	proc keepout::ban {host} {
2	if {![string match "!@users.quakenet.org" $host]} {
3	return "*![string map "~ ?" $host]"
4	} else {
5	return "!@[lindex [split $host] 0]"
6	}
7	}

Advanced options for this topic:

Ignore this topic (Do not list this topic in the "unread topics" search. You are currently not ignoring this topic.)
Hide this topic (Hidden topics are not displayed in the topics list. This topic is currently not hidden.)