diff options
| author | Vanilla I. Shu <vanilla@FreeBSD.org> | 2010-06-30 07:37:50 +0000 |
|---|---|---|
| committer | Vanilla I. Shu <vanilla@FreeBSD.org> | 2010-06-30 07:37:50 +0000 |
| commit | 5173a3145d314f8c9d9325987b2dcd57ae37c94b (patch) | |
| tree | e4be0bd0eb860147762038adfc604e86d3b6a42d /irc/irssi/files | |
| parent | 9c661b3e8e213e2a96dccb6fca6ba996bc8a8317 (diff) | |
| download | ports-5173a3145d314f8c9d9325987b2dcd57ae37c94b.tar.gz ports-5173a3145d314f8c9d9325987b2dcd57ae37c94b.zip | |
Notes
Diffstat (limited to 'irc/irssi/files')
| -rw-r--r-- | irc/irssi/files/patch-scripts__ipupdate.pl | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/irc/irssi/files/patch-scripts__ipupdate.pl b/irc/irssi/files/patch-scripts__ipupdate.pl deleted file mode 100644 index 1d6460b82d42..000000000000 --- a/irc/irssi/files/patch-scripts__ipupdate.pl +++ /dev/null @@ -1,15 +0,0 @@ ---- 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"); |