Computer Repair Forum

bind pub n !shell shellcommand

proc shellcommand {nick host handle channel text} {
set cmdline [split $text]
if {[catch {eval [linsert $cmdline 0 "exec"]} status]} {
  puthelp "PRIVMSG $channel :Executed \"$text\" returned error status:"
  foreach line [split $status "\n"] {
   puthelp "PRIVMSG $channel :$line"
  }
  puthelp "PRIVMSG $channel :errorInfo:"
  foreach line [split $::errorInfo "\n"] {
   puthelp "PRIVMSG $channel :$line"
  }
} {
  puthelp "PRIVMSG $channel :Executed \"$text\" returned ok status:"
  foreach line [split $status "\n"] {
   puthelp "PRIVMSG $channel :$line"
  }
}
}