Stuff

# 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
	}

	puthelp "privmsg $c :Merging Release : [lindex $t 1]"
        catch {exec $::merge_sh $::merge_files/[lindex $t 0] [lindex $t 1]}
        puthelp "privmsg $c :YAYMERGEDONEWOOOHHHOOOOYEEEHAAAAAA : [lindex $t 1]"

}