while (my $scan = $newscans->fetchrow_hashref){
$dbh->pg_release('scans') or die "Couldn't save";
$dbh->pg_savepoint('scans') or die "Couldn't save";
while (my $scan = $newscans->fetchrow_hashref){
$dbh->pg_release('scans') or die "Couldn't save";
$dbh->pg_savepoint('scans') or die "Couldn't save";
my $id = addfleet($1,$2,$3,$planet,undef,$tick,undef,undef,$4);
$fleetscan->execute($id,$scan->{id}) or die $dbh->errstr;
}
my $id = addfleet($1,$2,$3,$planet,undef,$tick,undef,undef,$4);
$fleetscan->execute($id,$scan->{id}) or die $dbh->errstr;
}
}
$parsedscan->execute($tick,$type,$planet,$scan->{id}) or die $dbh->errstr;
#$dbh->rollback;
}
$parsedscan->execute($tick,$type,$planet,$scan->{id}) or die $dbh->errstr;
#$dbh->rollback;
sub addfleet {
my ($name,$mission,$ships,$sender,$target,$tick,$eta,$back,$amount,$ingal) = @_;
sub addfleet {
my ($name,$mission,$ships,$sender,$target,$tick,$eta,$back,$amount,$ingal) = @_;