05-22-2013, 22:55 +0200
Back Overview Members Search Help
Not logged in. Register
Forum: Overview › work › imminent problem solving
Keepout Script Error
Compose post 
User name
Subject (LEAVE EMPTY, NICHTS EINTRAGEN):
Subject :
Verification code:VeriWord Can you read this?
Advanced BBCode:    More...
Text:Smilies:
:-);-):cheesy::-D:-p
:red::-/:-(:'(:cool:
:motz::finger::#::*):zzz:
:heart::moody::gun::anx::-O
:rolleyes:8-(:listen::wand::vogel:

 Special characters:
©®™±¼½√∫∞≈≠≤≥
αβγδελμπφωΔΣΩ
∈∃∀∧∨∩∪≡⊂⊃⊥⇒→
  (Alt+S) (Alt+P)
Text length: Chars (Maximum: 20000)
Options:
Attach file:   (Maximum: 500 kB)
You should first select the file when finally sending the post, because it can't be saved otherwise.

The last posts in this thread   (newest first, maximum 10 posts)
AuthorPost
Mettwurst  10-22-2005, 18:48 Homepage
(Moderator)

Avatar

Member since 04/2004
13 Posts
Location: Stuttgart/Germany
                                                                                                                               
1
2
3
4
5
6
7

proc keepout::ban {host} {
    if {![string match *[b]users.quakenet[/b]* $host]} {
        return "[string map "~ *[b]" [/b]*!$host]"
    } else {
        return "*!*@[lindex [split $arguments] 0]"
    }
}


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

should be
                                                                                                                               
1
2
3
4
5
6
7

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

GM  10-22-2005, 18:42
(Moderator)

Avatar

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.
Esben  10-20-2005, 12:03 | Re: Keepout Script Error
Member since 09/2005
1 Post
Location: Aarhus , Denmark
forget to login :(
Web52|Esben10-20-2005, 12:02 | Keepout Script Error
(Guest)
Error

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


                                                                                                                               
1
2
3
4
5
6
7

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


code
http://www.nomorepasting.com/paste.php?pasteID=50838
Unclassified NewsBoard 1.5.3-d | © 2003-4 by Yves Goergen