#!/usr/bin/perl
#

for $f (@ARGV) {
	if (($base,$suff) = ($f =~ /^(.*)\.([^.]+)$/)) {
		if (lc($suff) eq 'bmp') {
			$bmp2ppm = "bmptoppm <$f > $base.ppm";
			$ppm2gif = "ppmtogif <$base.ppm >$base.gif";
			if (system $bmp2ppm) {
				print STDERR "$0: FAILED ($?): $bmp2ppm\n";
				next;
			}
			if (system $ppm2gif) {
				print STDERR "$0: FAILED ($?): $ppm2gif\n";
				next;
			}
			print "$0: $f -> $base.gif\n";
		}
	}
}