#!/usr/bin/perl
#freens.jp専用 IPアドレス更新スクリプト ip-update2.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=1 ASPMX.L.GOOGLE.COM.&"
                  . "mx1=5 ALT1.ASPMX.L.GOOGLE.COM.&"
                  . "mx2=5 ALT2.ASPMX.L.GOOGLE.COM.&"
                  . "mx3=10 ASPMX2.GOOGLEMAIL.COM.&"
                  . "mx4=10 ASPMX3.GOOGLEMAIL.COM.&"
                  . "txt0=v=spf1 include:_spf.google.com ~all&"
                  . "ip=$new_ip&"
                  . "s0=start&"
                  . "t0=CNAME&"
                  . "v0=ghs.google.com.&"
                  . "s1=www&"
                  . "t1=CNAME&"
                  . "v1=ghs.google.com.&"
                  . "s2=mail&"
                  . "t2=CNAME&"
                  . "v2=ghs.google.com.&"
                  . "s3=calendar&"
                  . "t3=CNAME&"
                  . "v3=ghs.google.com.&"
                  . "s4=docs&"
                  . "t4=CNAME&"
                  . "v4=ghs.google.com.";

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