blob: 2220d9db44ad7769a1bdce8fa8280362512b1985 (
plain)
1
2
3
4
5
6
|
#!/usr/bin/perl
($ip=`wget -q -O - http://checkip.dyndns.org`)=~s/\n$//;
$ip=~s/.*[^\d](\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})[^\d].*/$1/;
($date=`date`)=~s/\n$//;
print "$date\n$ip\n";
|