#!/usr/bin/perl

# pipe til: xclip -selection c

open IN,$ARGV[0] or die;

print "{| cellspacing=\"0\" border=\"1\"\n";
print "!Config\n";
print "!Real\n";
print "!Transient\n";
print "!Disk\n";
print "!Elapsed\n";
print "!n\n";
print "!failpass\n";

while($l=<IN>)
{
  chomp($l);
  if($l =~ /^Result: real: (\d) transient: (\d) config: (.*?) _d: (\d) elapsed: (.*?) lastok: (.*?) lastpass: (.*?) failpass: (.*?)$/)
  {
    $real = $1;
    $transient = $2;
    $config = $3;
    $disk = $4;
    $elapsed = $5;
    $n = $6;
    $lastpass = $7;
    $failpass = $8;
    die if($lastpass != $failpass);
    print "|-\n";
    print "|$config\n";
    print "|style=\"text-align:center;\" |$real\n";
    print "|style=\"text-align:center;\" |$transient\n";
    print "|style=\"text-align:center;\" |$disk\n";
    print "|style=\"text-align:right;\" |".sprintf("%.0f",$elapsed)."\n";
    print "|style=\"text-align:right;\" |$n\n";
    print "|style=\"text-align:center;\" |$failpass\n";
  }
}
print "|}\n";