#! /usr/bin/perl
#
# rename perlexpr [files]
#
# Examples:
#   rename '\.bak$//' *.bak     # strips the .bak extension
#   rename 's/$/.bak/' *        # adds it back on
#   rename 'tr/A-Z/a-z/' *      # map to lower case
#   find . -print | rename 's/readme/README/i'

($op = shift) || die "Usage: ConvTo24_16 *.xpm\n";
if (!@ARGV) {
        @ARGV = <STDIN>;
        chop(@ARGV);
}

for (@ARGV) {
	printf "Konvertiere $_ \n";
	system "xpmtoppm $_|pnmscale -xysize 16 16|ppmquant 32|ppmtoxpm >/opt/tuxbase/projects/arcad/ico/xpm_16/$_";
	system "xpmtoppm $_|pnmscale -xysize 24 24|ppmquant 32|ppmtoxpm >/opt/tuxbase/projects/arcad/ico/xpm_24/$_";
}
