diff options
Diffstat (limited to 'irc/irssi/files/patch-scripts__ipupdate.pl')
| -rw-r--r-- | irc/irssi/files/patch-scripts__ipupdate.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/irc/irssi/files/patch-scripts__ipupdate.pl b/irc/irssi/files/patch-scripts__ipupdate.pl new file mode 100644 index 00000000000..1d6460b82d4 --- /dev/null +++ b/irc/irssi/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"); |