diff options
| author | jadawin <jadawin@FreeBSD.org> | 2010-07-05 16:37:39 +0800 |
|---|---|---|
| committer | jadawin <jadawin@FreeBSD.org> | 2010-07-05 16:37:39 +0800 |
| commit | 40a8676c101732ab8c0e157823dab226f78a9786 (patch) | |
| tree | 56a8252d97807dcbf8524e14246c69ce59d097d4 /irc/irssi-scripts | |
| parent | 4ada82255e7dfd1abcd38b50efcdec59be4f5e3d (diff) | |
| download | freebsd-ports-gnome-40a8676c101732ab8c0e157823dab226f78a9786.tar.gz freebsd-ports-gnome-40a8676c101732ab8c0e157823dab226f78a9786.tar.zst freebsd-ports-gnome-40a8676c101732ab8c0e157823dab226f78a9786.zip | |
- Fix bug in ipupdate.pl
PR: ports/148280
Submitted by: freebsd _AT_ nagilum.org
Feature safe: yes
Diffstat (limited to 'irc/irssi-scripts')
| -rw-r--r-- | irc/irssi-scripts/Makefile | 1 | ||||
| -rw-r--r-- | irc/irssi-scripts/files/patch-scripts__ipupdate.pl | 15 |
2 files changed, 16 insertions, 0 deletions
diff --git a/irc/irssi-scripts/Makefile b/irc/irssi-scripts/Makefile index 22bd2be2e3bc..20e7e26cc658 100644 --- a/irc/irssi-scripts/Makefile +++ b/irc/irssi-scripts/Makefile @@ -7,6 +7,7 @@ PORTNAME= irssi-scripts PORTVERSION= 20100512 +PORTREVISION= 1 CATEGORIES= irc MASTER_SITES= http://ftp.debian.org/debian/pool/main/i/${PORTNAME}/ DISTFILES= ${PORTNAME}_${PORTVERSION}${EXTRACT_SUFX} 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"); |