#!/usr/local/bin/perl
# 最終更新時間表示（文字による出力）
# SisterSystem - A2D1
# 参考：getlog（ログ商人氏）

# 取得するファイル。
$file = "../index.html";

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat "$file";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($mtime + 32400);
$youbi = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday];
$date = sprintf("%02d/%02d/%02d($youbi)%02d:%02d:%02d", $year + 1900, $mon + 1, $mday, $hour, $min, $sec);

print "Content-type: text/plain\n\n";
print "Lastupdate -> $date\n";
print "ヽ(´ー｀)ノ\n";
exit;

1;