LWP::Simple fix for cloudfare

diff --git a/scripts/fetchdumps.pl b/scripts/fetchdumps.pl
index b64200f355318487bef1e9fc69a4ba9469fd7cf4..883c90f37c2a3edb4822c27d9ea913a91c9b6591 100755 (executable)
--- a/scripts/fetchdumps.pl
+++ b/scripts/fetchdumps.pl
@@ -26,7 +26,8 @@ use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
-use LWP::Simple;
+use LWP::Simple qw/head get $ua/;
+$ua->agent("Stupid user agent check is stupid");
 
 use FindBin;
 use lib "$FindBin::Bin/../lib";

diff --git a/scripts/ndrank.pl b/scripts/ndrank.pl
index eff1d380cc07a6c9d82ac6e69a92b07c1de561ff..abfd1cec973f356569e148b2d9e35fa19ae31873 100755 (executable)
--- a/scripts/ndrank.pl
+++ b/scripts/ndrank.pl
@@ -25,8 +25,6 @@ use warnings;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
-use LWP::Simple;
-
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 

diff --git a/scripts/parsealliances.pl b/scripts/parsealliances.pl
index 551dcad1866f1d7c104c4c2583b71c4df03c213c..4a41cd06da563c8bd0ba097939a43eea53539ac4 100755 (executable)
--- a/scripts/parsealliances.pl
+++ b/scripts/parsealliances.pl
@@ -26,8 +26,6 @@ use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
-use LWP::Simple;
-
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 

diff --git a/scripts/parsegalaxies.pl b/scripts/parsegalaxies.pl
index 3334f88f65cd137f1f05065d3ebae90b56109194..ac7e4ba6c5aebd642511f183e1bf75d75da8c04f 100755 (executable)
--- a/scripts/parsegalaxies.pl
+++ b/scripts/parsegalaxies.pl
@@ -26,8 +26,6 @@ use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
-use LWP::Simple;
-
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 

diff --git a/scripts/parseplanets.pl b/scripts/parseplanets.pl
index 9278fea56b39fd388ad13e0a90b67f6800562a4b..518a887201661cc63a413332e9662e05ff7720e4 100755 (executable)
--- a/scripts/parseplanets.pl
+++ b/scripts/parseplanets.pl
@@ -26,8 +26,6 @@ use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
-use LWP::Simple;
-
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 

diff --git a/scripts/reset_hosts.pl b/scripts/reset_hosts.pl
index 53f82a0d2ff789fdf59b31dae69781b29ac6cfba..81c4c0e5f0e99ef07947d95da8e206f9e197eeaa 100755 (executable)
--- a/scripts/reset_hosts.pl
+++ b/scripts/reset_hosts.pl
@@ -6,8 +6,6 @@ use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
-use LWP::Simple;
-
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 

diff --git a/scripts/scans.pl b/scripts/scans.pl
index 6c8c92fab9ec3e50519d4983679e3059e2981bf4..8342960551e553c590a965c502bdf587fcea3085 100755 (executable)
--- a/scripts/scans.pl
+++ b/scripts/scans.pl
@@ -26,7 +26,9 @@ use local::lib;
 use CGI;
 use DBI;
 use DBD::Pg qw(:pg_types);
-use LWP::Simple;
+
+use LWP::Simple qw/get $ua/;
+$ua->agent("Stupid user agent check is stupid");
 
 use FindBin;
 use lib "$FindBin::Bin/../lib";

diff --git a/scripts/stats.pl b/scripts/stats.pl
index f90f16a134da2ec48794faa7d5f6160494f30765..ccf9f6c569cfa5fab50521f80e0c167eb925ee18 100755 (executable)
--- a/scripts/stats.pl
+++ b/scripts/stats.pl
@@ -25,7 +25,8 @@ use warnings;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
-use LWP::Simple;
+use LWP::Simple qw/get $ua/;
+$ua->agent("Stupid user agent check is stupid");
 
 use FindBin;
 use lib "$FindBin::Bin/../lib";

diff --git a/scripts/tick.pl b/scripts/tick.pl
index bd2f5b067a801496fe640d6ebdd4888e62a747bd..c31606058b1cd11677afad5c23a4ce7736d26978 100755 (executable)
--- a/scripts/tick.pl
+++ b/scripts/tick.pl
@@ -6,8 +6,6 @@ use local::lib;
 use DBI;
 use DBD::Pg qw(:pg_types);
 
-use LWP::Simple;
-
 use FindBin;
 use lib "$FindBin::Bin/../lib";