From 1b23db3d002e2519140d59645b5388652fa204bb Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 31 Jan 2011 21:55:50 +0100
Subject: vnet: Switch to LWP::UserAgent to ignore proxy settings (I want _my_
 IP)

---
 bin/vnet | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

(limited to 'bin')

diff --git a/bin/vnet b/bin/vnet
index 3238614..fd3b898 100755
--- a/bin/vnet
+++ b/bin/vnet
@@ -11,7 +11,7 @@ use autodie;
 use GD;
 use Getopt::Std;
 use Term::ANSIColor;
-use LWP::Simple;
+use LWP::UserAgent;
 
 my %opts;
 my $alpha;
@@ -19,10 +19,19 @@ my $share = $0;
 my ($ext_ip, $int_ip);
 
 sub get_ext_ip {
-	my $ext = get('http://derf.homelinux.org/cgi-bin/clientinfo/ip.cgi')
-	       // qq{?} ;
-	chomp $ext;
-	return $ext;
+	my $ua = LWP::UserAgent->new(
+		env_proxy => 0
+	);
+	my $re = $ua->get('http://derf.homelinux.org/cgi-bin/clientinfo/ip.cgi');
+
+	if ($re->is_success()) {
+		my $text = $re->decoded_content();
+		chomp $text;
+		return $text;
+	}
+	else {
+		return qq{?};
+	}
 }
 
 sub get_int_ip {
-- 
cgit v1.2.3