diff options
| author | Philippe Audeoud <jadawin@FreeBSD.org> | 2010-07-05 08:37:39 +0000 |
|---|---|---|
| committer | Philippe Audeoud <jadawin@FreeBSD.org> | 2010-07-05 08:37:39 +0000 |
| commit | eff5e9b372b4c52504e570baff00fd405d0f0461 (patch) | |
| tree | 653cfcaa40311a81fdde5748ad14d059e4863f38 /irc/irssi-scripts/files | |
| parent | numexpr - Fast numerical array expression evaluator for Python and NumPy. (diff) | |
- Fix bug in ipupdate.pl
PR: ports/148280
Submitted by: freebsd _AT_ nagilum.org
Feature safe: yes
Notes
Notes:
svn path=/head/; revision=257394
Diffstat (limited to 'irc/irssi-scripts/files')
| -rw-r--r-- | irc/irssi-scripts/files/patch-scripts__ipupdate.pl | 15 |
1 files changed, 15 insertions, 0 deletions
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"); |