egghelp.org community :: View topic

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

please Help me asap

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

c0re
Voice

Joined: 18 Jan 2009
Posts: 16

Posted: Thu Mar 19, 2009 6:13 pm Post subject: please Help me asap

hello, i have an script its check for error before rehash.

Code:

proc proc_rehash { nick uhost hand chan arg } {
set the_name [lindex [split $arg] 0]

if {[catch {uplevel #0 [list source scripts/$the_name.tcl]} error]} {
putquick "PRIVMSG $chan :Error While Loading $the_name -- Errormsg: $error"
putquick "PRIVMSG $chan :script: $the_name -- ::errorInfo: $::errorInfo"
return
}
rehash
putquick "PRIVMSG $chan :script: <$the_name> -- Loaded Without Error.."

}

i want it to check for error then write it to scripts.tcl before .rehash

thanks
sorry for my english.

Display posts from previous:

	egghelp.org community Forum Index -> Scripting Help	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum