From: Michael Andreen <harv@ruin.nu>
Date: Sat, 11 Jan 2014 17:07:50 +0000 (+0100)
Subject: LWP::Simple fix for cloudfare
X-Git-Url: https://ruin.nu/git/?p=ndwebbie.git;a=commitdiff_plain;h=36a13cae169413fc04fbf704d94a2ad797336e6e

LWP::Simple fix for cloudfare
---

diff --git a/scripts/fetchdumps.pl b/scripts/fetchdumps.pl
index b64200f..883c90f 100755
--- 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 eff1d38..abfd1ce 100755
--- 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 551dcad..4a41cd0 100755
--- 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 3334f88..ac7e4ba 100755
--- 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 9278fea..518a887 100755
--- 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 53f82a0..81c4c0e 100755
--- 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 6c8c92f..8342960 100755
--- 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 f90f16a..ccf9f6c 100755
--- 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 bd2f5b0..c316060 100755
--- 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";