#時刻を書き込もう
 #IP VIDEOでアップされたファイル一覧を取得
 $day = `date +%m_%e_%Y -d -1day`;
 $day = chop($day);
 $day = str_replace(" ","",$day);
 $day = preg_replace("|^0|","",$day);
 $day = "/home/image/$day";
 $list = `cd $day;ls *.jpg -1 | sort `;
 $lists = split("\n",$list);
 #書き込み用日付
 $day2 = `date +%Y/%m/%d -d -1day`;
 $day2 = chop($day2);
  foreach ($lists as $filename) {
	$input = split("\.",$filename);
	$time = $input[0];
	if ($time) {
	`cd $day; convert $filename -resize 160x240 -pointsize 12
  -gravity SouthWest -fill white  -annotate 0 '$day2 $time' $time.gif`;
	}
 }
 #Animation GIFの生成
 #時刻を書き込んだファイル一覧の取得
 $list = `cd $day;ls *.gif -1 | sort `;
 $lists = split("\n",$list);
 $list = join(" ",$lists);
 #time.gif というアニメーションGIFを生成
 `cd $day; /usr/bin/convert -delay 50 -loop 0  $list time.gif`;