#!/usr/bin/perl

$filename = $ARGV[0];
if($filename !~ /\.bmp$/){
	$filename .= ".bmp";
}
if(-e $filename){
	die "Output file already exists!\n";
}
$tempfile = time();
$tempfile .= $filename;
if(-e $tempfile){
	die "Temp file already exists!\n";
}

$error = system("./hp4600scanfullfile $tempfile > /dev/null");
if($error){
	die "Scan died! (Error $error)\n";
}
$error = system("./fixhp4600output $tempfile > $filename");
#if($error){
#	die "Error fixing file! (Error $error)\n";
#}
$error = system("rm -f $tempfile");
if($error){
	die "Error erasing tempfile! (Error $error)\n";
}