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;
if (@_ = $dumps->fetchrow){
$_ = $_[0];
$hour = (gmtime($_[1]))[2];
- my $planetid = $dbh->prepare(q{SELECT find_planet_id($1,$2,$3)});
- while (m/(\d+)\t(\d+)\t(\d+)\t\"(.*)\"\t\"(.*)\"\t(Ter|Cat|Zik|Xan|Etd)\t(\d+)\t(\d+)\t(\d+)\t(\d+)/g){
- $planetid->execute($5,$4,$6);
+ my $planetid = $dbh->prepare(q{SELECT find_planet_id($1,$2,$3,$4)});
+ while (m/(\w+)\t(\d+)\t(\d+)\t(\d+)\t\"(.*)\"\t\"(.*)\"\t(Ter|Cat|Zik|Xan|Etd)\t(\d+)\t(\d+)\t(\d+)\t(\d+)/g){
+ $planetid->execute($1,$6,$5,$7);
my @id = $planetid->fetchrow;
- push @planets,[$tick,$id[0],$1,$2,$3,$7,$8,$9,$10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
+ push @planets,[$tick,$id[0],$2,$3,$4,$8,$9,$10,$11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
}
}
}
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]};