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