《　 IPアドレス更新 Perl スクリプト サンプル 　》

#!/usr/bin/perl ###################################### # # Settings # $dom='your_domain'; #登録ドメイン (Update code使用時は空欄) $pw='your_password_or_update_code'; #パスワード または Update code $freecourse=0; # 0:有料コース / 1:無料コース $ipv4='AUTO'; $ipv6=''; # 'AUTO':自動検出 / '':使用しない / 固定IP #IPv6は固定と思われます。必要な場合のみ自動検出を利用ください。 $viaipv6=0; # 0:IPv4経由で更新 / 1:IPv6経由で更新 $lastipfile='lastip.txt'; #$httpcommand='wget -O - -q'; $httpcommand='curl -s'; ###################################### # # IP Address Update process # $ipv6 = '' if $freecourse; # IPv4 Auto detect if($ipv4 eq 'AUTO'){ $ipv4=''; $_=`$httpcommand 'http://info.ddo.jp/remote_addr.php'`; $ipv4=$1 if /REMOTE_ADDR:(.+)/; } # IPv6 Auto detect if($ipv6 eq 'AUTO'){ $ipv6=''; $_=`$httpcommand 'http://info6.ddo.jp/remote_addr.php'`; $ipv6=$1 if /REMOTE_ADDR:(.+)/; } $ip="$ipv4/$ipv6;"; if( ! -e $lastipfile || ! `grep -E '^$ip\$' $lastipfile` || time()-(stat($lastipfile))[9]>30*24*3600+77 ){ # URI top $uritop = 'https://ddo.jp'; $uritop = 'http://ipv6.ddo.jp' if $viaipv6; $uritop = 'http://free.ddo.jp' if $freecourse; # Request $command = "$httpcommand '$uritop/dnsupdate.php?dn=$dom&pw=$pw&ip=$ipv4&ipv6=$ipv6'"; $_ = `$command | iconv -f EUC-JP`; # Response ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime; $year+=1900; while(s/^((SUCCESS|FAIL):.+)<br>$//m){ printf "%d/%02d/%02d:%02d:%02d:%02d", $year, $mon, $mday, $hour, $min, $sec; print " $1\n"; } `echo '$ip' > $lastipfile`; }

＊IPv6アドレスでは、恒久的なアドレスと変動するアドレスを持つ場合があります。
　この場合、デフォルトの状態では、自動検出で変動アドレスが選択されます。
　恒久的なアドレスを明示するか、ホストで変動するアドレスを使用しないなど、
　恒久的なアドレスを使用するよう対処ください。
　変動するIPv6アドレスのみの場合に自動検出を利用ください。

例) 有料コース、Updatecodeを使用しIPv4を自動検出する場合の抜粋コード #!/usr/bin/perl $pw='d_XXXXXXXXXXXXXXXXXXX'; $lastipfile='lastip.txt'; $_=`curl -s 'http://info.ddo.jp/remote_addr.php'`; $ip=$1 if /REMOTE_ADDR:(.+)/; if( ! -e $lastipfile || ! `grep -E '^$ip\$' $lastipfile` || time()-(stat($lastipfile))[9]>30*24*3600+77 ){ $command = "curl -s 'https://ddo.jp/dnsupdate.php?pw=$pw'"; $_ = `$command | iconv -f EUC-JP`; print "$1\n" if /^((SUCCESS|FAIL):.+)<br>$/m; `echo '$ip' > $lastipfile`; }