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";
our $dbh = ND::DB::DB();
-$ND::DBH = $dbh;
-
my $tick = $ARGV[0];
my $hour;
$dbh->begin_work;
sizerank_gain_day, scorerank_gain_day, valuerank_gain_day, xprank_gain_day,
planets,planets_gain,planets_gain_day
) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)});
+$dbh->do(q{DELETE FROM galaxies WHERE tick = $1},undef,$tick);
my $countplanets = $dbh->prepare(q{SELECT count(*) from planet_stats where x = $1 and y = $2 and tick = $3});
for my $galaxy (@galaxies) {