DiCEが実行されないことが多々あり、困ってた
DiCE自体のログに正常にIPアドレスを更新したと出るが・・・MyDNSにログインし、ログを確認すると
MyDNS上ではDiCEが実行されたログが見当たらない

そんな訳で、DiCEの保険を作りました

#!/usr/bin/perl

 

use LWP::UserAgent;

my %AC = (
    'mydnsXXXXX' => 'パスワード'
);

foreach my $id (keys %AC){
    my $ua = LWP::UserAgent->new;
    my $req = HTTP::Request->new(GET => 'http://www.mydns.jp/login.html');
    $req->authorization_basic("$id","$AC{$id}");
    my $res = $ua->request($req);
}

exit;

参考にさせて頂きました http://tech.bayashi.jp/archives/entry/server/2007/001923.html

しかし何で、突然実行されなくなったのか不明・・・
 

[0回]