use strict;
use warnings;
+use local::lib;
use DBI;
use DBD::Pg qw(:pg_types);
our $dbh = ND::DB::DB();
-$ND::DBH = $dbh;
-
my $tick = $ARGV[0];
my $hour;
$dbh->begin_work;
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;