use strict;
use warnings;
+use local::lib;
use DBI;
use DBD::Pg qw(:pg_types);
-use LWP::Simple;
-
-use lib qw{/var/www/ndawn/};
+use FindBin;
+use lib "$FindBin::Bin/../lib";
use ND::Include;
use ND::DB;
our $dbh = ND::DB::DB();
-$ND::DBH = $dbh;
-
my $tick = $ARGV[0];
my $hour;
$dbh->begin_work;
$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,
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,
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) {