X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fscans.pl;h=03d560d21f91bda24f4978d470dc30908496d0b2;hb=cafd1195d54ac6f3dd1729217dc61c7d5ad0ccef;hp=756778ea8c3be35b6a1fb2b89cfbb4c6c068dff2;hpb=841eeb325c0a40a802c780e76d332290538408c0;p=ndwebbie.git

diff --git a/scripts/scans.pl b/scripts/scans.pl
index 756778e..03d560d 100755
--- a/scripts/scans.pl
+++ b/scripts/scans.pl
@@ -65,6 +65,9 @@ my $emptyscans = $dbh->prepare('SELECT scan_id,tick,"type"::integer,tick() FROM
 my $update = $dbh->prepare('UPDATE scans SET tick = ?, "type" = ?, scan = ? , planet = ? WHERE scan_id = ? AND tick = ?');
 $addScan = $dbh->prepare('INSERT INTO scans (tick,scan_id,"type",scan,planet) VALUES($1,$2,$3,$4,$5)') or die $dbh->errstr;
 my $findplanet = $dbh->prepare('SELECT planetid(?,?,?,?)');
+
+my $oldcoords = $dbh->prepare(q{SELECT x,y,z FROM planet_stats 
+	WHERE id = ? AND tick = ?});
 my $delscan = $dbh->prepare('DELETE FROM scans WHERE scan_id = ? AND tick = ?');
 unless ($emptyscans->execute){
 	my $cleanup = $dbh->prepare('UPDATE scans SET "type" = \'-1\' WHERE planet is NULL');
@@ -148,6 +151,7 @@ HTML
 				my $t = $2;
 				my $text = $cgi->escapeHTML($3);
 				my $class = '';
+				my ($x,$y,$z) = $dbh->selectrow_array($oldcoords,undef,$planet,$t);
 
 				if($news eq 'Launch' && $text =~ m/(?:[^<]*) fleet has been launched, heading for (\d+):(\d+):(\d+), on a mission to (Attack|Defend). Arrival tick: (\d+)/g){