Attachment 107381 Details for Bug 148169 – irssi-scripts.patch

[patch] irssi-scripts.patch

irssi-scripts.patch (text/plain), 994 bytes, created by freebsd on 2010-06-26 19:50:01 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: freebsd

Created: 2010-06-26 19:50:01 UTC

Size: 994 bytes

patch

obsolete

>diff -Naur irssi-scripts.orig/files/patch-scripts__ipupdate.pl irssi-scripts/files/patch-scripts__ipupdate.pl
>--- irssi-scripts.orig/files/patch-scripts__ipupdate.pl	1970-01-01 01:00:00.000000000 +0100
>+++ irssi-scripts/files/patch-scripts__ipupdate.pl	2010-06-26 20:28:57.000000000 +0200
>@@ -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");

Actions: View | Diff

Attachments on bug 148169: 107381