use DBI;
use DBD::Pg qw(:pg_types);
-use LWP::Simple;
-
use FindBin;
use lib "$FindBin::Bin/../lib";
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];
}
}