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
,$target,$tick, $eta, $back, $amount,$ingal);
return $id;
}
+
+__END__