#!/usr/bin/perl use strict; use warnings; # #include # If you speak perl, and are offended by the code herein, I apologise. # Please feel free to tidy it up. # Syntax: pngs2html ######################################################################## # SETUP SECTION # Set the following to the maximum number (approx) of bitmap sets that # should be put into a single HTML file. my $maxsets = 100; # If set, use iframes rather than copying the content of the frames into # the top html file. my $iframes = 0; # END SETUP SECTION ######################################################################## ######################################################################## # EXTERNAL USES use Errno qw(EAGAIN); ######################################################################## my %meta; my $suffix; my $bands; my $infile; my $file; my $undef; my $page; my $res; my $band; my $html; my $html2; my $indir; my $cmd; my $cmd2; my $cmd3; my $outdir; my $metafile; my $framedir; my $mousemove; my $mousemove2; my $ret; my $ret2; my $filenum; my $iframe; my $framenum; my $javascript; my $baseoutdir; my $setsthisfile; my $pre1; my $pre2; my $post; my $path; my $diffs; ######################################################################## # FUNCTIONS sub getfilename { my ($num) = @_; my $filename = "compare"; if ($num != 0) { $filename .= $num; } $filename .= ".html"; return $filename; } sub openiframe { $framedir = sprintf("%05d",$framenum); $outdir = $baseoutdir."/".$framedir; if ($iframes) { print $html "
"; } mkdir $outdir; open($iframe, ">", $outdir."/frame.html"); print $iframe "Bitmap Comparison"; print $iframe "$javascript"; print $iframe ""; print $iframe ""; print $iframe "
"; } sub closeiframe { if ($iframes) { print $iframe "
"; close $iframe; } $framenum++; } sub openhtml { $setsthisfile = 0; open($html, ">", $baseoutdir."/".getfilename($filenum)); $javascript = ""; print $html "Bitmap Comparison"; print $html "$javascript"; print $html ""; print $html "\n"; if ($filenum > 0) { print $html "

"; if ($filenum > 1) { print $html "First  "; } print $html "Previous(".($filenum-1).")"; print $html "

\n"; } $filenum++; } sub closehtml { print $html ""; close $html; } sub nexthtml { print $html "

Next(".$filenum.")"; closehtml(); openhtml(); } sub dprint { my ($f1, $f2, $str) = @_; if (!$iframes) { print $f1 $str; } print $f2 $str; } sub runjobs { ($cmd, $cmd2, $html, $html2, $pre1, $pre2, $post) = @_; $ret = system($cmd); $ret2 = system($cmd2); if ($ret != 0) { print $pre1." ".$post." failed with exit code ".$ret."\n"; print "Command was: ".$cmd."\n"; dprint($html,$html2,"

".$pre1." ".$post." failed with exit code "); dprint($html,$html2,$ret."
Command was: ".$cmd."

\n"); next; } if ($ret2 != 0) { print $pre2." ".$post." failed with exit code ".$ret2."\n"; print "Command was: ".$cmd2."\n"; dprint($html,$html2,"

Ref bitmap generation failed with exit code "); dprint($html,$html2,$ret2."
Command was: ".$cmd2."

\n"); next; } return (($ret | $ret2) != 0); } # END FUNCTIONS ######################################################################## ######################################################################## # Here follows todays lesson. Abandon hope all who enter here. Etc. Etc. $indir = $ARGV[0]; shift @ARGV; $baseoutdir = $ARGV[0]; shift @ARGV; $filenum = 0; $framenum = 0; ($baseoutdir) || die "usage: pngs2html.pl "; # Create the output dir/html file mkdir $baseoutdir; openhtml(); # What is the cluster giving us to work with? #open(INDEX, "ls $indir/*|"); #print $html "List of input files:
"; #while () #{ # print $html $_."
"; #} #close INDEX; # Open the index open(INDEX, "ls $indir/*.00000.meta| sed s/\.\[0-9]\*\.meta// | sort -u |"); # Now run through the list of files while () { # print $html $_."
"; chomp; # Keep everything after the last ($path,$_) = $_ =~ m/(.*)\/([^\/]+)/; # Put the filename into infile $infile = $_; ($res,$band) = $_ =~ m/.*\.(\d+)\.(\d+)/; $file = $infile; $file =~ s/__/\//g; # Start a new file if required if ($setsthisfile >= $maxsets) { nexthtml(); } # Open the iframe openiframe(); # Output the title dprint($html,$iframe,"

".$framenum.": ".$file." (".$res."dpi)


\n"); print "Processing: $framenum: $file ($res)"; # Add the files to the HTML, converting to PNG if required. my $imageCount = 0; my $image0=sprintf "%05d",$imageCount+0; my $image1=sprintf "%05d",$imageCount+1; my $image2=sprintf "%05d",$imageCount+2; while (stat("$indir/$infile.$image0.meta") && stat("$indir/$infile.$image0.png") && stat("$indir/$infile.$image1.png") && stat("$indir/$infile.$image2.png")) { print "."; # Uncompress $cmd = "cp $indir/$infile.$image0.png $outdir/out.$image0.png"; $cmd2 = "cp $indir/$infile.$image1.png $outdir/out.$image1.png"; $cmd3 = "cp $indir/$infile.$image2.png $outdir/out.$image2.png"; `$cmd ; $cmd2 ; $cmd3`; $suffix = ".png"; $metafile = "$indir/$infile.$image0.meta"; $meta{"X"} = 0; $meta{"Y"} = 0; $meta{"PW"} = 0; $meta{"PH"} = 0; $meta{"W"} = 0; $meta{"H"} = 0; $meta{"PAGE"} = 0; if (stat($metafile)) { open(METADATA, $metafile); while () { chomp; s/#.*//; s/^\s+//; s/\s+$//; next unless length; my ($var,$value) = split(/\s*=\s*/, $_, 2); $meta{$var}=$value; } close METADATA; } $page = $meta{"PAGE"}; $mousemove = "coord(event,this,'$framedir$image0',".$meta{"X"}.",".$meta{"Y"}.")"; $mousemove2 = "onmousemove=\"$mousemove;TJPzoom(this);\""; $mousemove = "onmousemove=\"$mousemove\""; print $iframe "\n"; print $iframe "\n"; print $iframe "\n"; print $iframe "
Reference: $file page=$page res=$res\" $mousemove>
XY

\n"; if (!$iframes) { print $html "\n"; print $html "\n"; print $html "\n"; print $html "
Reference: $file page=$page res=$res\" $mousemove>
XY

\n"; } $imageCount += 3; $image0=sprintf "%05d",$imageCount+0; $image1=sprintf "%05d",$imageCount+1; $image2=sprintf "%05d",$imageCount+2; $diffs++; $setsthisfile++; } print "\n"; closeiframe(); } close INDEX; # List the errored files. If no stdout files this prints and error, but seems # to continue. `touch $indir/dummy.stdout.gz`; open(INDEX, "ls $indir/*.stdout.gz | sort -u |"); # Now run through the list of files print $html "

Files that produced errors


\n"; while () { chomp; if ($_ ne "$indir/dummy.stdout.gz") { # Keep everything between the last / and .stdout.gz ($path,$_) = $_ =~ m/(.*)\/([^\/]+).stdout.gz/; # Put the filename into infile $infile = $_; ($res,$band) = $_ =~ m/.*\.(\d+)\.(\d+)/; $file = $infile; $file =~ s/__/\//g; $framedir = sprintf("%05d",$framenum); $outdir = $baseoutdir."/".$framedir; mkdir $outdir; # Uncompress stdout/stderr - FIXME: Maybe should rewrite to html? $cmd = "zcat $indir/$infile.stdout.gz > $outdir/stdout.txt"; $cmd2 = "zcat $indir/$infile.stderr.gz > $outdir/stderr.txt"; runjobs($cmd, $cmd2, $html, $undef, "stdout", "stderr", "decompression"); # Output HTML fragment print $html "
$framenum: $file ($res dpi)
\n"; print $html "
stdout\n"; print $html "stderr\n"; $framenum++; } } print $html "
"; close INDEX; # Finish off the HTML file closehtml();