#!/usr/bin/perl
#freens.jp専用 IPアドレス更新スクリプト ip-update.pl

$DOMAIN="ドメイン名";
$PASSWD="パスワード";

$IP_TXT="/tmp/myip.txt";
$WEB_IP_CHECK  = "http://freens.jp/ipcheck.php";
$WEB_IP_UPDATE = "http://freens.jp/settei.php";

if( open(IN,"< $IP_TXT") ) {
    $current_ip = <IN>;
    close(IN);
}
$new_ip = `wget -q -O - $WEB_IP_CHECK`;

if($current_ip ne $new_ip){
    $query_string = "domain=$DOMAIN&"
                  . "passwd=$PASSWD&"
                  . "mx0=$DOMAIN.&"
                  . "ip=$new_ip&"
                  . "tz=A&"
                  . "vz=$new_ip";

    $LOG = `wget -q -O - '$WEB_IP_UPDATE?$query_string'`;
    
    open(OUT ,"> $IP_TXT");
    print OUT $new_ip;
    close(OUT);
}