511:荒巻＠管理人 ★
2011/01/13(木) 03:36:27.12 ID:???
#ヘッダの出力とキャッシュ制御ヘッダー
sub print_header {
if($_[1]){
my (@wdays_en) = qw(Sun Mon Tue Wed Thu Fri Sat);
my (@mons_en) = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my ($sec,$min,$hour,$day,$mon,$year,$wday) = gmtime($_[1]);
my $gmtime = sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT",$wdays_en[$wday],$day,$mons_en[$mon],$year+1900,$hour,$min,$sec);
#Last-Modified: Mon, 30 Nov 2009 15:06:40 GMT
print "Last-Modified: $gmtime\n";
}
Last-Modified提示部分実装。
今度こそ、、おやすみなさい。
854Res/198.54 KB
↑[8] 前[4] 次[6]
書[5]
板[3] 1-[1] l20
