egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-06-12T16:02:24-04:00 https://forum.eggheads.org/app.php/feed/topic/9553 2005-06-12T16:02:24-04:00 2005-06-12T16:02:24-04:00 https://forum.eggheads.org/viewtopic.php?p=50660#p50660 <![CDATA[get procname]]>

Code: 

set procname [lindex [info level 0] 0]

Statistics: Posted by ex — Sun Jun 12, 2005 4:02 pm

]]> 2005-05-03T04:21:06-04:00 2005-05-03T04:21:06-04:00 https://forum.eggheads.org/viewtopic.php?p=48930#p48930 <![CDATA[get procname]]>
if { [catch {procname params} err] } {
puthelp "NOTICE nick :$err"
putlog $errorInfo
}

err will contain the 1 line error from the proc, errorInfo will contain the multi-line trace back of the error with whole "invoked within on line x" thing. Both catch and errorInfo should contain the procname which caused the error.

Statistics: Posted by De Kus — Tue May 03, 2005 4:21 am

]]> 2005-05-02T20:04:16-04:00 2005-05-02T20:04:16-04:00 https://forum.eggheads.org/viewtopic.php?p=48924#p48924 <![CDATA[get procname]]>
[procname]
which will return me the name of the actual proc.
like: set procname [procname]

I tryed to make such a proc which will return this while invoke a errormessage (and catch this) and then split $::errorInfo.
but i don`t get it to work.

Maybe there is an easyer way like a simple tcl command which i don`t know. please let me know ;)

Statistics: Posted by sKy — Mon May 02, 2005 8:04 pm

]]>