T3 is listed in stats again

[ndwebbie.git] / scripts / scans.pl

diff --git a/scripts/scans.pl b/scripts/scans.pl
index bda5b8ee2e438816dc76d54c4e239ec26ef4f865..b54cb54f81fbc83eb5efca351cb83e3ccc78ee92 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);
@@ -41,7 +42,6 @@ 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
@@ -146,8 +146,8 @@ sub parse_jumpgate {
 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(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
        });
 
 
@@ -307,3 +307,5 @@ sub addintel {
                ,$target,$tick, $eta, $back, $amount,$ingal);
        return $id;
 }
+
+__END__