|
Link Here
|
|
|
1 |
--- scripts/ipupdate.pl 2010-05-12 09:09:48.000000000 +0200 |
| 2 |
+++ scripts/ipupdate.pl 2009-08-24 15:33:20.000000000 +0200 |
| 3 |
@@ -24,10 +24,10 @@ |
| 4 |
|
| 5 |
sub ipset { |
| 6 |
my $user = LWP::UserAgent->new(timeout => 30); |
| 7 |
- my $get = GET "http://stuff.xergio.net/ip.php"; |
| 8 |
+ my $get = GET "http://checkip.dyndns.com/"; |
| 9 |
my $req = $user->request($get); |
| 10 |
my $out = $req->content(); |
| 11 |
- $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; |
| 12 |
+ $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; |
| 13 |
|
| 14 |
Irssi::print("%9IP update%_:", MSGLEVEL_CRAP); |
| 15 |
Irssi::command("set dcc_own_ip $out"); |