Make Planet Scan parsing testable

[ndwebbie.git] / scripts / scans.pl

diff --git a/scripts/scans.pl b/scripts/scans.pl
index 525c969c9d42c8876200491b1813909415900438..200e33f4e8a8d4c59f32b378b505322cf0af962b 100755 (executable)
--- a/scripts/scans.pl
+++ b/scripts/scans.pl
@@ -85,31 +85,11 @@ my $addintel = $dbh->prepare(q{INSERT INTO intel (name,mission,sender,target,tic
        VALUES(?,?,?,?,?,?,?,?,?,-1) RETURNING id});
 my $intelscan = $dbh->prepare(q{INSERT INTO intel_scans (intel,id) VALUES(?,?)});
 my $addships = $dbh->prepare(q{INSERT INTO fleet_ships (fid,ship,amount) VALUES(?,?,?)});
-my $addplanetscan = $dbh->prepare(q{INSERT INTO planet_scans
-       (id,tick,pid,metal_roids,metal,crystal_roids,crystal,eonium_roids,eonium
-               ,agents,guards,light,medium,heavy,hidden)
-       VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)});
 
 sub parse_planet {
        my ($scan,$file) = @_;
 
-       my @values = ($scan->{id},$scan->{tick},$scan->{pid});
-       $file =~ s/(\d),(\d)/$1$2/g;
-
-       while($file =~ m{"center">(Metal|Crystal|Eonium)</td>\D+(\d+)\D+([\d,]+)}g){
-               push @values,$2,$3;
-       }
-       if($file =~ m{Security\ Guards .+? "center">(\d+)</td>
-                       .+? "center">(\d+)</td>}sx){
-               push @values,$1,$2;
-       }
-       if($file =~ m{<td class="center">([A-Z][a-z]+)</td><td class="center">([A-Z][a-z]+)</td><td class="center">([A-Z][a-z]+)</td>}){
-               push @values,$1,$2,$3;
-       }
-       if($file =~ m{<span class="superhighlight">([\d,]+)</span>}){
-               push @values,$1;
-       }
-       $addplanetscan->execute(@values);
+       doPlanetScan($dbh, $scan, $file);
 }
 
 sub parse_incoming {