Anonymous

# SM Merge

set merge_sh /home/jack/merge.sh
set merge_files /home/jack/jack/_MERGE_DIR

bind pub -|- !merge merge

setudef flag merge

proc merge {n u h c t} {

        if ![channel get $c merge] return

        if {[llength [set t [split $t]]] != 2} {
                puthelp "privmsg $c :Error : wrong number of arguments in [join $t]"
                return
        }

        #putquick "privmsg $c :Merging Release : [lindex $t 1]"
        catch {exec $::merge_sh $::merge_files/[lindex $t 0] [lindex $t 1]}
        puthelp "privmsg $c :Merge complete : [lindex $t 1]"
        puthelp "privmsg $c :!spread [lindex $t 1]"

}