ＭｙＤＮＳを使用したＩＰアドレス更新

　当ネットではお名前.comさんのサービスを利用しています。お名前.comさんではＤＤＮＳの更新をするための「お名前.comダイナミックDNSクライアント」を無料で配布していましたが、先日、ＤＤＮＳのサービスが２０２２年１月末で終了するとのメールが届きました（現在は撤回されているようです）。
　そこで調べてみましたら、ＭｙＤＮＳというサイトにて、 お名前.com等で取得したドメインでもダイナミックＤＮＳのサービスを使えることが分かりました。 ＭｙＤＮＳさんでしたらダイナミックＤＮＳの定番ソフト ＤｉＣＥでＩＰアドレスの更新ができますので、 自分でプログラムを書かなくてもよくてラクチンですね！　やり方は、 お名前.comさんの管理画面でＤＮＳサーバをお名前.comさんからＭｙＤＮＳさんに変更します。 設定するサーバ名は「ns0.mydns.jp」「ns1.mydns.jp」「ns2.mydns.jp」です（ＭｙＤＮＳで説明あり）。



　ＭｙＤＮＳさんの管理画面にドメインを登録します。 入力画面の上の方に説明がありますが、入力するのはドメイン名と＊だけでよさそうです（赤丸２箇所）。 うっかりＭＸレコードを設定してしまうとその後が面倒そうです。

　あとはＤｉＣＥをＭｙＤＮＳさんに設定すれば問題なくＩＰアドレスの自動更新ができるようになるでしょう。 ＩＰアドレスの更新はＤｉＣＥで別に問題ないのですが、ＩＰアドレスのチェック間隔が最短で５分ということで少し長すぎる気がするので、つまらないＰｅｒｌスクリプトですが、ご参考に下記に掲示いたします。アドレス取得に失敗したら直ちに次のサイトでチェックしますが、うまくアドレスが取れたら４５秒待ってから次のサイトでチェックします。ＩＰアドレスが変化するか、前回通知から１日以上経ったらＭｙＤＮＳに対しＩＰアドレス通知します。

※左右にスクロールできます（スマホの方）

use LWP::Simple;

$c = 0;
$t = 0;

LS:

$t = $t + 1;
$c = $c + 1;
if($c == 9){$c = 1;}
if($c == 1){
	$a = get('https://www.ugtop.com/spill.shtml');
	$p = index($a,"blue");
	$p = $p + 5;
	$a = substr($a,$p);
	$p = index($a,"<");
	$a = substr($a,0,$p);
}
if($c == 2){
	$a = get('https://rakko.tools/tools/2/');
	$p = index($a,"/tr>");
	$a = substr($a,$p);
	$p = index($a,"<span>");
	$p = $p + 6;
	$a = substr($a,$p);
	$p = index($a,"<");
	$a = substr($a,0,$p);
}
if($c == 3){
	$a = get('http://www.axisnetworks.biz/tools/gip/');
	$p = rindex($a,"name=");
	$p = $p + 10;
	$a = substr($a,$p);
	$p = index($a,"<a");
	$p = $p - 2;
	$a = substr($a,0,$p);
}
if($c == 4){
	$a = get('https://www.luft.co.jp/cgi/ipcheck.php');
	$p = index($a,"value");
	$p = $p + 7;
	$a = substr($a,$p);
	$p = index($a,"size");
	$p = $p - 2;
	$a = substr($a,0,$p);
}
if($c == 5){
	$a = get('http://globalip.me/');
	$p = index($a,"<b>");
	$p = $p + 3;
	$a = substr($a,$p);
	$p = index($a,"<");
	$a = substr($a,0,$p);
}
if($c == 6){
	$a = get('http://httpbin.org/ip');
	$p = index($a,"origin");
	$p = $p + 10;
	$a = substr($a,$p);
	$p = index($a,chr(34));
	$a = substr($a,0,$p);
}
if($c == 7){
	$a = get('https://amksystem.com/tool/ip-info.php');
	$p = index($a,"crimson");
	$p = $p + 9;
	$a = substr($a,$p);
	$p = index($a,"<");
	$a = substr($a,0,$p);
}
if($c == 8){
	$a = get('https://on-ze.com/tools/global-ip/');
	$p = index($a,"value");
	$p = $p + 7;
	$a = substr($a,$p);
	$p = index($a,chr(34));
	$a = substr($a,0,$p);
}


print $c;
print ":$a\r\n";
if($a !~ /^([0-9]{1,3}\.){3}[0-9]{1,3}/){goto LS;}

if(($oldip ne $a)or($t>1920)){
	$oldip = $a;
	$t = 0;
	get('https://mydnsのＩＤ:mydnsのパスワード@ipv4.mydns.jp/login.html');
}
sleep 45;
goto LS;