mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-26 00:55:14 +00:00
Code Issues Releases Activity

- Fix bug in ipupdate.pl

Browse Source 
PR:		ports/148280
Submitted by:	freebsd _AT_ nagilum.org
Feature safe:	yes
This commit is contained in:
Philippe Audeoud 2010-07-05 08:37:39 +00:00
parent 714db4465a
commit eff5e9b372
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=257394
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
irc/irssi-scripts/Makefile
View File

@ -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}

15
irc/irssi-scripts/files/patch-scripts__ipupdate.pl Normal file
View File

@ -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");