give an error if pvpgn report insertion fails

[perl/schtarr.git] / pvpgnreport

diff --git a/pvpgnreport b/pvpgnreport
index 6d601f6688098dc752d457e89b5d39ecb27df12f..049ffb2c800d14b3f23a6e272b2ef9daa0ca808f 100755 (executable)
--- a/pvpgnreport
+++ b/pvpgnreport
@@ -62,8 +62,9 @@ sub reportplayers {
        return \@player;
 }
 
-my $name = $ARGV[0] or die "Usage: $0 FILE\n";
-open my $reportfile, '<', "$name.txt" or die "No report file: $!\n";
+my $path = $ARGV[0] or die "Usage: $0 FILE\n";
+my ($name) = $path =~ m{([^/]+)$};
+open my $reportfile, '<', "$path.txt" or die "No report file: $!\n";
 my $report = reporthead($reportfile);
 print Dumper $report if $DBG;
 
@@ -105,7 +106,9 @@ $Db->insert("game", {
        start => time2str('%Y-%m-%d %X', $start),
        duration => sprintf('%d seconds', $end - $start),
 })->rows or die "Game insert failed: ".$Db->error."\n";
-my $gameid = $Db->last_insert_id((undef) x 4, {sequence => "game_id_seq"});
+my $gameid = $Db->last_insert_id((undef) x 4, {sequence => "game_id_seq"})
+       or die "Couldn't find our game insertion: ".$Db->error."\n";
+print "Game inserted as # $gameid\n";
 
 $Db->insert("play", {
        game => $gameid,