#!/usr/bin/perl
#

use CGI;
$upload_dir = "/var/www/xguru/l3shot";
$query = new CGI;

$filename = $query->param("photo"); 
$filename =~ s/.*[\/\\](.*)/$1/;
$upload_filehandle = $query->upload("photo");

my $convert="";
if ($filename =~ s/.xwd$/.png/g) {
    $convert="|xwdtopnm|pnmtopng";
}

open UPLOADFILE, "$convert>$upload_dir/$filename";
binmode UPLOADFILE;
while ( <$upload_filehandle> )
{
    print UPLOADFILE;
}

close UPLOADFILE;

print $query->header ( );
print <<END_HTML;
Upload complete
END_HTML