# Author: tomekk
# e-mail: tomekk/@/oswiecim/./eu/./org
# home page: http://tomekk.oswiecim.eu.org/
#
# Version 0.1
#
# This file is Copyrighted under the GNU Public License.
# http://www.gnu.org/copyleft/gpl.html
set script_path "/a/b/c/d/script"
set run_channels {#chan #chan2}
######################################################
bind pub o|o !run run_proc
proc run_proc { nick uhost hand chan arg } {
global run_channels script_path
if {[lsearch $run_channels $chan] != -1} {
catch {exec $script_path}
}
}
putlog "simple-run.tcl ver 0.1 by tomekk loaded"
try, but watch out
U should use full paths to files in this script, example some script: