use warnings;
no warnings 'exiting';
use local::lib;
+use Sys::RunAlone;
use CGI;
use DBI;
use DBD::Pg qw(:pg_types);
use lib "$FindBin::Bin/../lib";
use ND::DB;
+use NDWeb::Scans;
our $dbh = ND::DB::DB();
#my $test = $dbh->prepare(q{INSERT INTO scans (tick,scan_id) VALUES(1,3) RETURNING id});
#print ;
-$dbh->do(q{SET CLIENT_ENCODING TO 'LATIN1';});
my $scangroups = $dbh->prepare(q{SELECT id,scan_id,tick,uid FROM scans
WHERE groupscan AND NOT parsed FOR UPDATE
}
+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
Unit => \&parse_unit,
'Advanced Unit' => \&parse_unit,
Jumpgate => \&parse_jumpgate,
+ Military => \&parse_military,
);
,$target,$tick, $eta, $back, $amount,$ingal);
return $id;
}
+
+__END__