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;
}
my $intel = $dbh->prepare(q{INSERT INTO forum_posts (ftid,uid,message) VALUES(
(SELECT ftid FROM planets WHERE pid = $2),$1,$3)});
+$dbh->do(q{DELETE FROM planet_stats WHERE tick = $1},undef,$tick);
for my $planet (@planets) {
#print "$planet->[1]\n";
my $oldPlanet = $oldStats{$planet->[1]};