X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=scripts%2Fscans.pl;h=200e33f4e8a8d4c59f32b378b505322cf0af962b;hb=c9c885f1465519d76dc5dd83500f8c538494faf8;hp=e44dc081f53c70076377f924b03457e2dd9e786b;hpb=9519c80241167db071e44cbdd1e1843daad6e305;p=ndwebbie.git diff --git a/scripts/scans.pl b/scripts/scans.pl index e44dc08..200e33f 100755 --- a/scripts/scans.pl +++ b/scripts/scans.pl @@ -23,6 +23,7 @@ use strict; use warnings; no warnings 'exiting'; use local::lib; +use Sys::RunAlone; use CGI; use DBI; use DBD::Pg qw(:pg_types); @@ -34,6 +35,7 @@ use FindBin; use lib "$FindBin::Bin/../lib"; use ND::DB; +use NDWeb::Scans; our $dbh = ND::DB::DB(); @@ -83,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)\D+(\d+)\D+([\d,]+)}g){ - push @values,$2,$3; - } - if($file =~ m{Security\ Guards .+? "center">(\d+) - .+? "center">(\d+)}sx){ - push @values,$1,$2; - } - if($file =~ m{