#!/usr/local/bin/perl
#↑Perlへのパス、CGIを使う所のFAQでも見てください
$source = 'index.htm';
#日付取得したいファイルの名前、このCGIの場所から相対パスで記述
#-- 設定此所まで --
@f_info=stat($source);
$c_length=$f_info[7];
if($ENV{'QUERY_STRING'} =~ /h/i)
{
@lm = gmtime($f_info[9]+(60*60*9)); #強制的に日本時間化
print "Content-type: text/html\n\n";
print '
人間様用更新時刻情報表示';
print '再帰最終更新日本時間→';
$lm[5]+=1900;$lm[4]++;
print " $lm[5]年$lm[4]月$lm[3]日";
print " $lm[2]時$lm[1]分$lm[0]秒
";
}else{
@lm = gmtime($f_info[9]);
$prn = sprintf("%s, %02d %s %d %02d:%02d:%02d GMT",
('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$lm[6]],
$lm[3],
('Jan','Feb','Mar','Apr','May','Jun',
'Jul','Aug','Sep','Oct','Nov','Dec')[$lm[4]],
$lm[5] + 1900, $lm[2], $lm[1], $lm[0]);
print "X-DateTime-CGI: icd.sakura.ne.jp\n";
print "Last-Modified: $prn\n";
print "Content-Length: $c_length\n";
print "Content-Type: text/plain\n\n";
#--
print "Last-Modified: $prn\n";
}
exit;