use warnings;
no warnings 'exiting';
use local::lib;
+use Sys::RunAlone;
use CGI;
use DBI;
use DBD::Pg qw(:pg_types);
#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
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
- ,travel,infra,hulls,waves,extraction,covert,mining,total)
- VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
+ ,travel,infra,hulls,waves,extraction,covert,mining,population,total)
+ VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
});
,$target,$tick, $eta, $back, $amount,$ingal);
return $id;
}
+
+__END__