ddo.jpのDDNS更新を自動でやる

無料のDDNSサービスddo.jpのIPアドレスの更新作業を自動でやるPerlを書いてみたよ

#!/usr/bin/perl
use LWP::Simple;

$domain = '';
$password = '';

$w = LWP::UserAgent->new;
$w->agent('IE');
$w->timeout(3);
$raddr = $w->get("http://info.ddo.jp/remote_addr.php")->content;
@addr = $raddr =~ m/(\d+\.\d+\.\d+\.\d+)/;
print "Your IP: $addr[0]\n";

$res = $w->get("http://free.ddo.jp/dnsupdate.php?dn=$domain&ip=$addr[0]&pw=$password")->content;
if($res =~ /SUCCESS/) {
        print "\nSUCCESS!\n\n";
} else {
        print "( ・ ω ・`)\n";
}

cronで20分間隔で実行させてみるよ
$ crontab -e

*/20 * * * * perl /opt/ddo.pl