#!/usr/bin/perl

$!=1;

for( $i = 0;;$i++) {
$filename = $ARGV[$i];
unless( defined( $filename) ) {
	exit(0);
}
$pos = rindex( $filename, '/' );

	# cut off the leading directory
if( $pos > 0 ) {
	$basename = substr( $filename, ($pos + 1) );
} else {
	$basename =  $filename;
}

print( "giftopnm $filename | pmnscale -xysize 700 700 | ppmquant 256 | ppmtogif > 700/$basename\n" );
system( "giftopnm $filename | /usr/bin/pnmscale -xysize 700 700 | ppmquant 256 | ppmtogif > 700/$basename" );
print( "giftopnm $filename | pmnscale -xysize 640 480 | ppmquant 256 | ppmtogif > 640/$basename\n" );
system( "giftopnm $filename | /usr/bin/pnmscale -xysize 640 480 | ppmquant 256 | ppmtogif > 640/$basename" );
print( "giftopnm $filename | pmnscale -xysize 150 112 | ppmquant 256 | ppmtogif > 150/$basename\n" );
system( "giftopnm $filename | /usr/bin/pnmscale -xysize 150 112 | ppmquant 256 | ppmtogif > 150/$basename" );
print( "giftopnm $filename | pmnscale -xysize 200 150 | ppmquant 256 | ppmtogif > 200/$basename\n" );
system( "giftopnm $filename | /usr/bin/pnmscale -xysize 200 150 | ppmquant 256 | ppmtogif > 200/$basename" );
print( "giftopnm $filename | pmnscale -xysize 320 240 | ppmquant 256 | ppmtogif > 320/$basename\n" );
system( "giftopnm $filename | /usr/bin/pnmscale -xysize 320 240 | ppmquant 256 | ppmtogif > 320/$basename" );
print( "giftopnm $filename | pmnscale -xysize 400 400 | ppmquant 256 | ppmtogif > 400/$basename\n" );
system( "giftopnm $filename | /usr/bin/pnmscale -xysize 400 400 | ppmquant 256 | ppmtogif > 400/$basename" );

}

exit;

#djpeg -pnm filename | pmnscale -xysize 150 112 | ppmquant 256 | ppmtogif > '150/'.$filename
#djpeg -pnm filename | pmnscale -xysize 200 150 | ppmquant 256 | ppmtogif > '200/2_'.$filename
#djpeg -pnm filename | pmnscale -xysize 320 240 | ppmquant 256 | ppmtogif > '320/4_'.$filename
#djpeg -pnm filename | pmnscale -xysize 640 480 | ppmquant 256 | ppmtogif > '640/6_'.$filename