#! /usr/bin/perl
#
#################################################################################
#										#
#	wgetによるwebカメラ画像巡回自動保存　perl使用	2010-01-112		#
#	test2010_01.iniから変数を所得する					#
#										#
#	テクノ　かとう加藤　							#
#	2010-10-10 変更　ホームHP									#
#										#
#################################################################################

#
#print "$ARGV[0]\n";
require "$ARGV[0]";			#引数ファイルを読み変数を実行

print qq($ADRS$PORT \n);
print qq($HOME　\n);
print qq($perset[0]:$perset[1]:$perset[2]:$perset[3]:$perset[4]:$perset[5]\n);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;	#時間の所得
$mon++;if($mon < 10){$mon="0".$mon;}					#"0"を入れる
$year=$year+1900;							#年に1900＋
$min=$min-($min%10);						#分1桁削除
if($mday < 10){$mday="0".$mday;}				#2桁に
if($hour < 10){$hour="0".$hour;}				#2桁に
if($min < 10){$min="0".$min;}					# 〃
if($sec < 10){$sec="0".$sec;}					# 〃
$MD= ($year);						#フォルダ－用
print qq($MD\n);
$UU = opendir TEMP,"$HOME$MD";						#フォルダーのチェック
if($UU != 1){								#    〃
	mkdir "$HOME$MD",0755;						#無ければ、作成
	}
$MD= ($year)."/".($mon);						#フォルダ－用
print qq($MD\n);
$UU = opendir TEMP,"$HOME$MD";						#フォルダーのチェック
if($UU != 1){								#    〃
	mkdir "$HOME$MD",0755;						#無ければ、作成
	}
$MD= ($year)."/".($mon)."/".($mday);						#フォルダ－用
print qq($MD\n);
$UU = opendir TEMP,"$HOME$MD";						#フォルダーのチェック
if($UU != 1){								#    〃
	mkdir "$HOME$MD",0755;						#無ければ、作成
	}

$ADRS="$ADRS$PORT";			#アドレス：ポートを組み立てる

if($hp_set eq "on"){			#2010-10-10
	#ホームポジション記録
	`wget -O null.txt -T60 -t3 --http-user=$USER --http-passwd=$PASD $ADRS"/Set?Func=PresetName&Kind=0"`;
}
else{
	#ホームポジションに戻る
	`wget -O null.txt -T60 -t3 --http-user=$USER --http-passwd=$PASD $ADRS"/nphControlCamera?Direction=HomePosition&Mode=Motion&Resolution="$gs_size"&Quality=Standard&Interval=30&Size=STD&PresetOperation=Move&Language=1"`;
}
for ($ii=0;$ii<$#perset+1;$ii++){
#print qq($ii  \n);
if($perset[$ii] eq null){next;}
	#プリセット$ii移動
	`wget -Onull.txt -T60 -t3 --http-user=$USER --http-passwd=$PASD $ADRS"/nphControlCamera?Direction=Preset&PresetOperation=Move&Data="$perset[$ii]`;
	sleep 2;
	#画像記録$ii
	$tmp=$HOME.$MD."/".$IM."_".$year.$mon.$mday.$hour.$min."_".$perset[$ii].".jpg";
	`wget -O$tmp -T60 -t3 --http-user=$USER --http-passwd=$PASD $ADRS"/SnapshotJPEG?Resolution="$gs_size`;
}

#ホームポジションに戻る
`wget -O null.txt -T60 -t3 --http-user=$USER --http-passwd=$PASD $ADRS"/nphControlCamera?Direction=HomePosition&Mode=Motion&Resolution="$gs_size"&Quality=Standard&Interval=30&Size=STD&PresetOperation=Move&Language=1"`;
