git.shiar.nl
/
perl
/
schtarr.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rewritten game capture
[perl/schtarr.git]
/
pvpgnreport
diff --git
a/pvpgnreport
b/pvpgnreport
index fc0a038032e956dd4aed7574fe7348bebf47aa42..1f1abea19554cfa8e9f631be12d5b94b707fcfd7 100755
(executable)
--- a/
pvpgnreport
+++ b/
pvpgnreport
@@
-41,9
+41,8
@@
my ($placeid) = $name =~ /.*([a-z]{2})/;
my $place = $placetxt{$placeid} or die "Unknown place id: $placeid\n";
print "Resolved place '$placeid' to $place\n" if $DBG;
my $place = $placetxt{$placeid} or die "Unknown place id: $placeid\n";
print "Resolved place '$placeid' to $place\n" if $DBG;
-use DBIx::Simple;
-my @dbinfo = do "dbinfo.inc.pl";
-my $Db = DBIx::Simple->connect(@dbinfo, {pg_enable_utf8 => 1})
+use Games::StarCraft::DB;
+my $Db = Games::StarCraft::DB->connect
or die "No database: $DBI::errstr\n";
$TEST and exit;
or die "No database: $DBI::errstr\n";
$TEST and exit;