#!/usr/local/bin/tclsh

if {$argc == "0"} {
	set color "#c0c0c0"
} else {
	set color [lindex $argv 0]
}

foreach i [glob *.gif] {

	puts "Processing: $i"

	catch "exec /usr/local/netpbm/giftopnm $i > temp.pnm"
	catch "exec /usr/local/netpbm/ppmtogif -transparent $color temp.pnm > $i"

	puts "...done."

}

