Add support for Military Scans

[ndwebbie.git] / scripts / scans.pl

diff --git a/scripts/scans.pl b/scripts/scans.pl
index e44dc081f53c70076377f924b03457e2dd9e786b..525c969c9d42c8876200491b1813909415900438 100755 (executable)
--- 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();
 
@@ -142,6 +144,12 @@ sub parse_jumpgate {
 
 }
 
+sub parse_military {
+       my ($scan,$file) = @_;
+
+       doMilScan($dbh, $scan, $file);
+}
+
 my $adddevscan = $dbh->prepare(q{INSERT INTO development_scans
        (id,tick,pid,light_fac,medium_fac,heavy_fac,amps,distorters
                ,metal_ref,crystal_ref,eonium_ref,reslabs,fincents,milcents,seccents,structdefs
@@ -156,6 +164,7 @@ my %parsers = (
        Unit => \&parse_unit,
        'Advanced Unit' => \&parse_unit,
        Jumpgate => \&parse_jumpgate,
+       Military => \&parse_military,
 );
 
 
@@ -306,3 +315,5 @@ sub addintel {
                ,$target,$tick, $eta, $back, $amount,$ingal);
        return $id;
 }
+
+__END__