2008年7月19日

[mew-dist 28530]stunnel4 の syslog 出力制御

ほそかわです

stunnel4 使用時に syslog へのログ出力を制御する変数を追加してみ
ました。

Windows の NTEmacs 22.2 と Cygwin の stunnel 4.25 で Mew を使わ
せていただいています。

Cygwin では、syslog デーモンがない場合、ログがすべて Windows の
イベントログへ出力されるようで、Mew から debug=debug で stunnel4
を使うと、通信するたびに大量のイベントログが記録されて少々わずら
わしい感じになってしまいます。

他にも対処方法があるんじゃないかとは思いますが、Mew から
stunnel4 へ渡す設定ファイルで syslog=no にしておけば良いんじゃな
いかと考えました。

stunnel3 の -f オプションで syslog が出力されなくなるのと近い状
態になるんじゃないかと思います。

もし問題がなければ取り込んでいただければ幸いです。
Emacs lisp に詳しくないので、変なことをしていたら教えていただけ
ればと思います。_o_

--
Yu-ji Hosokawa (細川 雄司)


Index: mew-config.el
===================================================================
RCS file: /cvsmew/mew/mew-config.el,v
retrieving revision 1.114
diff -u -r1.114 mew-config.el
--- mew-config.el 21 May 2008 01:43:22 -0000 1.114
+++ mew-config.el 18 Jul 2008 14:59:41 -0000
@@ -155,6 +155,9 @@
(defun mew-ssl-verify-level (&optional case)
(mew-cfent-value case "ssl-verify-level" mew-ssl-verify-level))

+(defun mew-ssl-syslog (&optional case)
+ (mew-cfent-value case "ssl-syslog" mew-ssl-syslog))
+
;;

(defun mew-smtp-server (&optional case)
Index: mew-ssl.el
===================================================================
RCS file: /cvsmew/mew/mew-ssl.el,v
retrieving revision 1.54
diff -u -r1.54 mew-ssl.el
--- mew-ssl.el 5 May 2008 10:03:48 -0000 1.54
+++ mew-ssl.el 18 Jul 2008 14:59:41 -0000
@@ -25,6 +25,12 @@
3 - verify server's certificate which locally installed (not one from
the server).")

+(defvar mew-ssl-syslog nil
+ "Send log messages to syslog. (stunnel4 only)
+\"yes\" - enable logging.
+\"no\" - disable logging.
+nil - use system default.")
+
(defvar mew-prog-ssl-arg nil) ;; xxx what about v4?

(defvar mew-ssl-ver nil)
@@ -101,6 +107,8 @@
(insert (format "verify=%d\n" (mew-ssl-verify-level case)))
(insert "foreground=yes\n")
(insert "debug=debug\n")
+ (and (mew-ssl-syslog case)
+ (insert (format "syslog=%s\n" (mew-ssl-syslog case))))
(insert "CApath=" (expand-file-name (mew-ssl-cert-directory case)) "\n")
(insert (format "[%d]\n" localport))
(insert (format "accept=%s:%d\n" mew-ssl-localhost localport))
Index: mew-vars2.el
===================================================================
RCS file: /cvsmew/mew/mew-vars2.el,v
retrieving revision 1.181
diff -u -r1.181 mew-vars2.el
--- mew-vars2.el 12 May 2008 05:12:18 -0000 1.181
+++ mew-vars2.el 18 Jul 2008 14:59:41 -0000
@@ -924,7 +924,7 @@
nntp-server, nntp-port, nntp-ssh-server, nntp-ssl, nntp-ssl-port,
nntp-user, nntp-size, nntp-header-only,
nntp-msgid-user, nntp-msgid-domain,
-ssl-cert-directory, ssl-verify-level,
+ssl-cert-directory, ssl-verify-level, ssl-syslog,
inbox-folder, queue-folder, postq-folder,
mailbox-type, mbox-command, mbox-command-arg,
signature-file, content-type, refile-guess-alist,


投稿者 xml-rpc : 2008年7月19日 00:39
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/75445
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。