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

BugTrack-wiki/184

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

更新通知メールに送信日時を付加

  • 投稿者: Kuboon
  • カテゴリ: 本体
  • 優先度: 低
  • 状態: リリース済
  • 日時: 2004年05月03日 15時27分21秒

 内容

(環境によるのかもしれませんが)Net:SMTPを使うと送信日時が空欄になってしまうのを修正してみました。

*** Util.pm.org Mon May  3 15:12:40 2004
--- Util.pm     Sun May  2 03:31:52 2004
***************
*** 171,176 ****
--- 171,177 ----
       my $mail = "Subject: $subject\n".
                  "From: ".$from."\n".
                  "To: ".$to."\n".
+              "Date: ".gmtime()."\n".
                  "Content-Transfer-Encoding: 7bit\n".
                  "Content-Type: text/plain; charset=\"ISO-2022-JP\"\n".
                  "Reply-To: ".$wiki->config('admin_mail')."\n".

 コメント

  • いけね、前後のソースに別の改造してるんだった。。。 - Kuboon (2004年05月03日 15時30分28秒)
  • リリースに含めても邪魔にはならないと思うのでパッチ作ってみました。他でも使うならサブルーチンにしてもよかったけどやめときました。ちゃんと RFC822 に基づいた JST なDate ヘッダにしてます。 - gyo (2004年06月18日 01時48分02秒)
--- Util.pm.dist	2004-06-14 09:58:12.000000000 +0900
+++ Util.pm	2004-06-18 01:37:47.295172800 +0900
@@ -166,10 +166,16 @@
 	   $wiki->config('admin_mail') eq ""){
 		return;
 	}
 	
+	my ($sec, $min, $hour, $day, $mon, $year, $wday) = localtime(time);
+	my $Wday  = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat')[$wday];
+	my $Mon = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')[$mon];
+	my $date = sprintf("%s, %02d %s %4d %02d:%02d:%02d +0900", $Wday, $day, $Mon, $year+1900, $hour, $min, $sec);
+
 	my $mail = "Subject: $subject\n".
 	           "From: ".$wiki->config('admin_mail')."\n".
 	           "To: ".$wiki->config('admin_mail')."\n".
+	           "Date: $date\n" .
 	           "Content-Transfer-Encoding: 7bit\n".
 	           "Content-Type: text/plain; charset=\"ISO-2022-JP\"\n".
 	           "Reply-To: ".$wiki->config('admin_mail')."\n".
  • MTA によるんですが、うちで採用してる qmail はヘッダを捏造しないのでこれが必要なのです。 - gyo (2004年06月18日 01時51分23秒)
  • 3.5.6でリリースしました。 - たけぞう (2004年09月02日 15時19分15秒)
お名前: コメント:

最終更新時間:2008年01月04日 13時41分48秒