From eff5e9b372b4c52504e570baff00fd405d0f0461 Mon Sep 17 00:00:00 2001 From: Philippe Audeoud Date: Mon, 5 Jul 2010 08:37:39 +0000 Subject: - Fix bug in ipupdate.pl PR: ports/148280 Submitted by: freebsd _AT_ nagilum.org Feature safe: yes --- irc/irssi-scripts/files/patch-scripts__ipupdate.pl | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 irc/irssi-scripts/files/patch-scripts__ipupdate.pl (limited to 'irc/irssi-scripts/files/patch-scripts__ipupdate.pl') diff --git a/irc/irssi-scripts/files/patch-scripts__ipupdate.pl b/irc/irssi-scripts/files/patch-scripts__ipupdate.pl new file mode 100644 index 000000000000..1d6460b82d42 --- /dev/null +++ b/irc/irssi-scripts/files/patch-scripts__ipupdate.pl @@ -0,0 +1,15 @@ +--- scripts/ipupdate.pl 2010-05-12 09:09:48.000000000 +0200 ++++ scripts/ipupdate.pl 2009-08-24 15:33:20.000000000 +0200 +@@ -24,10 +24,10 @@ + + sub ipset { + my $user = LWP::UserAgent->new(timeout => 30); +- my $get = GET "http://stuff.xergio.net/ip.php"; ++ my $get = GET "http://checkip.dyndns.com/"; + my $req = $user->request($get); + my $out = $req->content(); +- $out =~ s/.*IP real: ([0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?).*/$1/s; ++ $out =~ s/.*IP Address: ([0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?\.[0-9][0-9]?[0-9]?).*/$1/s; + + Irssi::print("%9IP update%_:", MSGLEVEL_CRAP); + Irssi::command("set dcc_own_ip $out"); -- cgit v1.2.3