$newscans->execute or die $dbh->errstr;
$dbh->pg_savepoint('scans') or die "No savepoint";
+my $parsedscans = 0;
+
while (my $scan = $newscans->fetchrow_hashref){
$dbh->pg_release('scans') or die "Couldn't save";
$dbh->pg_savepoint('scans') or die "Couldn't save";
}
$parsedscan->execute($tick,$type,$planet,$scan->{id}) or die $dbh->errstr;
#$dbh->rollback;
+ ++$parsedscans;
};
if ($@) {
warn $@;
#$dbh->rollback;
$dbh->commit;
+system 'killall','-USR1', 'irssi' if $parsedscans;
+
sub addfleet {
my ($name,$mission,$ships,$sender,$target,$tick,$eta,$back,$amount,$ingal) = @_;