トップ 差分 一覧 Farm ソース 検索 ヘルプ RSS ログイン

BugTrack-plugin/178

ページの作成や編集にはユーザ登録が必要です。

AdminLogにLast-Modified&Content-Length追加。

  • 投稿者: glastheim.us
  • カテゴリ: 修正
  • 優先度: 低
  • 状態: 提案
  • 日時: 2005年02月10日 11時33分25秒

 内容

ログを自動的に保存や解析などに用いようとする場合Last-ModifiedとContent-Lengthがあった方が良さそうなので対応してみました。

  変更点

AdminLogHandler.pm

download_log補制御内に

+	use File::stat;
+	# Last-Modified対応
+	my $st = stat($wiki->config('log_dir')."/$file");
+	my(@MON)=qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
+	my(@WDAY) = qw/Sun Mon Tue Wed Thu Fri Sat/;
+	my($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime($st->mtime);
+	$year += 1900; 
+	my $lastm = sprintf("%s, %02d %s %04d %02d:%02d:%02d GMT",
+                   $WDAY[$wday],$mday,$MON[$mon],$year,$hour,$min,$sec);
+	print "Last-Modified: $lastm\n";
+
+	# Content-Length対応
+	my $ContLen = $st->size;
+	print "Content-Length: $ContLen\n";
+
print "Content-Type: text/plain\n";

 コメント

お名前: コメント:

最終更新時間:2005年02月10日 11時36分31秒