#!/usr/bin/perl

$dirname="./";
opendir( DIR, $dirname );
while( defined($file = readdir(DIR)) ) {
    if ( $file =~ /\.png$/ ) {
	    $inputfile  = $file;
	    $file =~ s/\.png$/\.xpm/;	    
	    $outputfile = $file;
	    $file =~ s/\.xpm$//;
	    $iconname = $file;
	    #generate alpha mask
	    system("cat $dirname/$inputfile | pngtopnm -alpha > alpha_mask.ppm");
	    #generate icon
	    system("cat $dirname/$inputfile | pngtopnm | ppmtoxpm -alphamask=alpha_mask.ppm -name $iconname | sed -e 's/char \\*/const char \\*/' > $dirname/$outputfile \n");
	    }  
    }
closedir( DIR );