Games::StarCraft::DB class for schtarr database

[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;
 
-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;