#!/usr/bin/perl   
#               -w　ワーニングを出す
# E:\DATA\bsd\dynamic-dns\ddnsNifty\test-ddns-nifty-pl-211227.txt
# E:\DATA\bsd\dynamic-dns\ddnsNifty\test-ddns-nifty-pl-211227.txt
# 2021/12/27---> ok
# ddnsNowのスクリプトを作ったので、合わせてniftyも簡素化
#
#
#
#

use strict; # 宣言した変数以外を使えなくする

my $niftyid="userID";
my $niftypass="Password";


my $old_ip="/home/User/crontab/ddnsNifty/nifty-G_ip_old.txt";
my $update="/home/User/crontab/ddnsNifty/nifty-update.log";
my $no_update="/home/User/crontab/ddnsNifty/nifty-no_update.log";
my $ip_change_log="/home/User/crontab/ddnsNifty/nifty-ip_change_log.txt";
my $ip_change_status="/home/User/crontab/ddnsNifty/nifty-ip_change_status";

my $ip_kari="/home/User/crontab/ddnsNifty/nifty-G_ip_now.txt";

my $ipaddr ;
my $null="";
my $line;



my $wget;
my $oldipaddr;







$| = 1;   #　ゼロ以外が代入されると出力をバッファリングしなくなる。


# ###########################　　メインプログラム　　###############################
open FH, "<",$old_ip || die "Error: ipaddr.txt $!\n" ; # 以前のＩＰアドレスの入ったファイルを入力で開く
 $oldipaddr = <FH>  ;                                  # 記録されているＩＰアドレスを入力
close FH;


                
$ipaddr=&newip();             # 新しいｉｐアドレスを求める

#    print "Debug 2\n";


########  ＩＰアドレスを記録した前回と比較　################
if ( $ipaddr ne $null ){ # IPアドレスがヌルでない場合

#print "debug 4 ipaddr=$ipaddr , oldipaddr=$oldipaddr \n" ;

  if ( $ipaddr eq $oldipaddr ) {
     &noipchange( $no_update , $oldipaddr); # ＩＰアドレスに変更なし ---------------------------------------------------------------
#print "debug 5 \n" ; 
   }
  else { # IPアドレス変更する
#print "debug 6 \n" ;
     $wget=`wget --secure-protocol=auto --no-check-certificate -O- -v  -o $ip_change_status --http-user=$niftyid --http-passwd=$niftypass  https://domain.nifty.com/cp/ddns/DdnsIpChangeAdd.do?change_type=ip` ; # 2008/12/3 のniftyのｄｄｎｓリニューアルに伴い変更
     &ipchange( $update ,$ipaddr , $old_ip ,$ip_change_log ,$ip_change_status); # ＩＰアドレスを追加書込
   }

}
else {  # 新しいＩＰアドレスが得られなかった場合
  &no_new_ip($no_update);
#print "debug 7 \n" ;
}


exit;
##########  メインプログラム　ｅｎｄ　#########################################




# -----------------------------  新しいIPアドレスが得られなかった --------------------------
sub no_new_ip {
  my $no_up=$_[0];
  &time_prt($no_up);                                    # 時刻の呼び出しとプリント
  open (OUT,">>$no_up");
  print OUT "新しいＩＰアドレスが得られませんでした。\n" ; # 新しいＩＰアドレスが得られないエラー
  close(OUT);
}




# -----------------------------  IPアドレスに変更なし ---------------------------------------
sub noipchange {
  my $no_up=@_[0]; #output file name  # 引数が一つの場合は$_[0]を、引数が複数の場合は@_[0],@_[1],----@_[n]を使う
  my $ip_address=@_[1]; # ip address
#  print "Debug no_update file :$no_up\n";
  &time_prt($no_up);                                    # 時刻の呼び出しとプリント
  open (OUT,">>$no_up");
  print OUT "IP address is not changed: $ip_address\n" ;     #ＩＰアドレスに変更無し
  print OUT "" ;
  close(OUT);
}



# -----------------------------  時刻のプリント ----------------------------------------------
# 2021/12/27 outoput file 名をわかりやすく変更した
# 引数　１つ　出力ファイル名　メインから持ち込む
#
#
sub  time_prt {
  my $out_file=$_[0]; # output file name # 引数が一つの場合は$_[0]を、引数が複数の場合は@_[0],@_[1],----@_[n]を使う
  my $sec;
  my $min;
  my $hour;
  my $mday;
  my $mon;
  my $year;
  my $wday;
  my $yday;
  my $isdst;
  my $tt;

  $tt=time();
  ($sec, $min, $hour, $mday, $mon, $year,
    $wday, $yday, $isdst) = localtime($tt);
  $year=$year+1900;
  $mon=$mon+1;
  open (OUT,">> $out_file");
  printf OUT "%02d/%02d/%02d     %02d:%02d:%02d   ", $year,$mon,$mday,$hour,$min,$sec  ;
  close(OUT);

}

# -------------------------------  新しいｉｐアドレスを求める ----------------------------
#
# 2021/12/27 curlを使って自分のグローバルＩＰアドレスを求める
# 引数なし　関数として　ipaddress 持ち帰るため
# 
#
sub newip  {
    my $ip;
    my $curl_ip = `curl -s inet-ip.info` ; # 2021/12/27 グローバルＩＰを求める

    $curl_ip =~/[0-9]+(\.[0-9]+){3}/;                   # ＩＰアドレスとのマッチパターン
    $ip = $&;                                           # マッチしたＩＰアドレスを入力
#    print "あなたのグローバルＩＰアドレスは $ip です\n";
    return $ip ;
}


# -----------------------------  IPアドレス変更あり ---------------------------------------
sub ipchange {
# 引数が一つの場合は$_[0]を、引数が複数の場合は@_[0],@_[1],----@_[n]を使う

 my $ip_change_file=@_[0];    # 変更された時刻と変更されたＩＰアドレスを書き込むファイル 
 my $ipaddr_2=@_[1];          # new ip address
 my $ip_old_file=@_[2];       # 新しいＩＰアドレスを書き込むファイル名−−＞oldip
 my $ip_change_log_txt=@_[3]; # ＩＰ更新のログ
 my $ip_change_sta=@_[4];     # ＩＰ更新のｓｔａｔｕｓ
 my $line ;                   # １行読み込み用
#  print "Debug no_update file :$no_up\n";
  &time_prt( $ip_change_file );                         # 時刻の呼び出しとプリント
  open (OUT,">>$ip_change_file");
  print OUT "ip address is changed: $ipaddr_2 \n" ;     #ＩＰアドレスの変更を履歴に書き込む
  close(OUT);

  open (OUT,">$ip_old_file"); # IPaddressを書き込むファイル名
  print OUT "$ipaddr_2" ;     # 新しく変更したＩＰアドレスを書き込む
  close(OUT);

  open IN, "<",$ip_change_sta || die "Error: ipaddr.txt $!\n" ; # IP更新時のstatus入ったファイルを入力で開く
  open (OUT,">>$ip_change_log_txt"); # IP変更の履歴ファイル名

  while  ( $line =<IN> ) {;     # 記録されているstatusを１行読み込む
    print OUT "$line" ;       # 記録されているstatusを１行書き込み
  
  }

  close(OUT);
  close IN;

}