This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.
Help for those learning Tcl or writing their own scripts.
-
ache
- Voice
- Posts: 14
- Joined: Fri Oct 14, 2005 7:27 am
Post
by ache »
I have one more problem.
I get this error:
Code: Select all
Tcl error [pub:checkgreet]: invalid command name ""
This is the code i have for the pub:checkgreet proc atm:
Code: Select all
proc pub:checkgreet { nick uhost handle channel arguments } {
list arguments $arguments
set greetnick [lindex $arguments 0]
set greetchannel [lindex $arguments 1]
set greettext [lrange $arguments 2 end]
if {([string index $greetchannel 0]=="#")} {
[pub:addgreet $nick $greetnick $greetchannel $greettext]
} elseif {[string range $greetchannel 0 2]=="all"} {
[pub:addgreet $nick $greetnick $greetchannel $greettext]
} else {
putquick "NOTICE $nick : Please state a channel to greet in. \026!chelp !addgreet\026 for more info."
return
}
}
And this is the code i have for the pub:addgreet proc:
Code: Select all
proc pub:addgreet {nick greetnick greetchannel greettext} {
set greetdb "scripts/charlie.tcl/greets.db"
set greet "$greetchannel $greetnick $greettext"
set searchString "$greetchannel $greetnick"
set greetData [main:filetodata $greetdb]
set greetIndex [lsearch $greetData $searchString*]
if {($greetIndex >= "0")} {
set greetData [lreplace $greetData $greetIndex $greetIndex $greet]
putquick "NOTICE $nick : Changed greet message for $greetnick on $greetchannel."
} else {
lappend greetData "$greet"
putquick "NOTICE $nick : Added greet message for $greetnick on $greetchannel."
}
set greetChannel [open $greetdb "w"]
set greetData [lsort $greetData]
set greetData [join $greetData "\n"]
puts -nonewline $greetChannel "$greetData\n"
close $greetChannel
}
thanks for any help.
-
Alchera
- Revered One
- Posts: 3344
- Joined: Mon Aug 11, 2003 12:42 pm
- Location: Ballarat Victoria, Australia
-
Contact:
Post
by Alchera »
Try changing:
Code: Select all
elseif {[string range $greetchannel 0 2]=="all"} {
To:
Code: Select all
elseif {([string range $greetchannel 0 2] == "all")} {
Add [SOLVED] to the thread title if your issue has been.
Search |
FAQ |
RTM
-
ache
- Voice
- Posts: 14
- Joined: Fri Oct 14, 2005 7:27 am
Post
by ache »
Tried it but with no luck.
still the same error..
-
Sir_Fz
- Revered One
- Posts: 3794
- Joined: Sun Apr 27, 2003 3:10 pm
- Location: Lebanon
-
Contact:
Post
by Sir_Fz »
remove the brackets from
Code: Select all
[pub:addgreet $nick $greetnick $greetchannel $greettext]
(both)
-
ache
- Voice
- Posts: 14
- Joined: Fri Oct 14, 2005 7:27 am
Post
by ache »
worked like charm!
thanks Sir_Fz
-
Alchera
- Revered One
- Posts: 3344
- Joined: Mon Aug 11, 2003 12:42 pm
- Location: Ballarat Victoria, Australia
-
Contact:
Post
by Alchera »
Damn, I must be blind.
Add [SOLVED] to the thread title if your issue has been.
Search |
FAQ |
RTM
-
ache
- Voice
- Posts: 14
- Joined: Fri Oct 14, 2005 7:27 am
Post
by ache »
Alchera wrote:Damn, I must be blind.
exactly what i though when i got the solution.
err not that you would be blind, but me.
so simple.. that will probably never happen again
-
Alchera
- Revered One
- Posts: 3344
- Joined: Mon Aug 11, 2003 12:42 pm
- Location: Ballarat Victoria, Australia
-
Contact:
Post
by Alchera »
Sometimes you just cannot see for the trees. LOL
Add [SOLVED] to the thread title if your issue has been.
Search |
FAQ |
RTM