LWP::Simple fix for cloudfare

[ndwebbie.git] / scripts / parsealliances.pl

diff --git a/scripts/parsealliances.pl b/scripts/parsealliances.pl
index bc43e96a74aa513a3255c65a4f6eaa327f93d731..4a41cd06da563c8bd0ba097939a43eea53539ac4 100755 (executable)
--- a/scripts/parsealliances.pl
+++ b/scripts/parsealliances.pl
@@ -22,11 +22,10 @@ q{
 
 use strict;
 use warnings;
+use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
-use LWP::Simple;
-
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 
@@ -35,8 +34,6 @@ use ND::DB;
 
 our $dbh = ND::DB::DB();
 
-$ND::DBH = $dbh;
-
 my $tick = $ARGV[0];
 my $hour;
 $dbh->begin_work;
@@ -63,7 +60,7 @@ for my $i (3,4){
                $alliance->[$i+2] = $rank;
     }
 }
-my $insert = $dbh->prepare(q{INSERT INTO alliance_stats (tick,id,members,
+my $insert = $dbh->prepare(q{INSERT INTO alliance_stats (tick,aid,members,
        size,score,
        sizerank,scorerank,
        size_gain,score_gain,
@@ -73,7 +70,7 @@ my $insert = $dbh->prepare(q{INSERT INTO alliance_stats (tick,id,members,
        members_gain,members_gain_day
        ) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)}) or die $dbh->errstr;
 
-my $findalliance = $dbh->prepare(q{SELECT tick,id,members,
+my $findalliance = $dbh->prepare(q{SELECT tick,aid,members,
        size, score,
        sizerank, scorerank,
        size_gain, score_gain,
@@ -81,7 +78,9 @@ my $findalliance = $dbh->prepare(q{SELECT tick,id,members,
        size_gain_day, score_gain_day,
        sizerank_gain_day, scorerank_gain_day,
        members_gain,members_gain_day
-FROM alliance_stats WHERE id = $1 AND tick < $2 ORDER BY tick DESC LIMIT 1}) or die $dbh->errstr;
+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) {