Redirecting Output

[acm]

I wrote a little !calc script:

Code: Select all

bind pub - !calc calc

proc calc { nick uhost hand chan arg } {
    if {[llength $arg]==0} {
        return 0
    }
    set result [expr $arg]
    putserv "PRIVMSG $chan :$nick: $result"
}

It works exactly how I want it to, except when there are problems with the arguments. Example:

!calc 4 / 0

This returns the following in botnet (and nothing to the channel):

Tcl error [calc]: divide by zero

I would like this to print out to the channel instead. Is it possible to do output redirection like this?

[tainted]

You should probably catch it, with something similiar to this (correct me if im wrong guys)

Code: Select all

if {[catch blah blah e]} {
putserv "etc etc"
return
}
<on to the existing code>

Make sure to use catch to execute the calc string, otherwise it wont do any good. You could also just check if the operation is "/" and then if the number is not zero, put I'll let you try out this way first.

[acm]

Thanks for the quick reply! 'catch' is exactly what I was looking for. Here is the final code for anyone interested:

Code: Select all

bind pub - !calc calc

proc calc { nick uhost hand chan arg } {
    if {[llength $arg]==0} {
        return 0
    }
    if { [catch { set result [expr $arg]} err] } {
        putserv "PRIVMSG $chan :$nick: Error:  $err"
    } else {
        putserv "PRIVMSG $chan :$nick: $result"
    }
}

thanks again,
acm