Use local::lib properly

[ndwebbie.git] / scripts / parsealliances.pl

diff --git a/scripts/parsealliances.pl b/scripts/parsealliances.pl
index 02e9a495987a0abb768072fbc3a12c3689fd22e1..551dcad1866f1d7c104c4c2583b71c4df03c213c 100755 (executable)
--- a/scripts/parsealliances.pl
+++ b/scripts/parsealliances.pl
@@ -22,6 +22,7 @@ q{
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
@@ -35,8 +36,6 @@ use ND::DB;
 
 our $dbh = ND::DB::DB();
 
-$ND::DBH = $dbh;
-
 my $tick = $ARGV[0];
 my $hour;
 $dbh->begin_work;
@@ -83,6 +82,8 @@ my $findalliance = $dbh->prepare(q{SELECT tick,aid,members,
        members_gain,members_gain_day
 FROM alliance_stats WHERE aid = $1 AND tick < $2 ORDER BY tick DESC LIMIT 1}) or die $dbh->errstr;
 
+$dbh->do(q{DELETE FROM alliance_stats WHERE tick = $1},undef,$tick);
+
 for my $alliance (@alliances) {
 
        $findalliance->execute($alliance->[1],$tick) or die $dbh->errstr;