diff options
| author | fukachan <fukachan> | 2002-05-17 05:12:21 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-05-17 05:12:21 +0000 |
| commit | 6666127362ffe22f11bc808acc70748bc7f0a553 (patch) | |
| tree | 884f1cac89ffd18f1c6e3eb5395523400551d5be | |
| parent | e3a8dc51f9a0756efc64185081167b075322fdc5 (diff) | |
| download | fml8-6666127362ffe22f11bc808acc70748bc7f0a553.tar.gz fml8-6666127362ffe22f11bc808acc70748bc7f0a553.tar.bz2 fml8-6666127362ffe22f11bc808acc70748bc7f0a553.zip | |
save incoming message at $ml_home_dir/var/mincoming/
| -rw-r--r-- | fml/etc/default_config.cf.ja.in | 7 | ||||
| -rw-r--r-- | fml/etc/src/config.cf.ja/directory.cf | 7 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 15 |
3 files changed, 28 insertions, 1 deletions
diff --git a/fml/etc/default_config.cf.ja.in b/fml/etc/default_config.cf.ja.in index c3a08b44..74e29c9e 100644 --- a/fml/etc/default_config.cf.ja.in +++ b/fml/etc/default_config.cf.ja.in @@ -91,6 +91,13 @@ tmp_dir = $ml_home_dir/tmp db_dir = $var_dir/db +# Descriptions: 入力されるメールを置くディレクトリ +# History: $DIR/var/Mail/ +# Value: directory +# Examples: /var/spool/ml/elena/var/mincoming +mincoming_dir = $var_dir/mincoming + + # Descriptions: mail queue のディレクトリ # History: 似たような目的に tmp/ が使われていたが、 # fml 4.0 には直接該当するものはない。 diff --git a/fml/etc/src/config.cf.ja/directory.cf b/fml/etc/src/config.cf.ja/directory.cf index bea5e992..02ed48e1 100644 --- a/fml/etc/src/config.cf.ja/directory.cf +++ b/fml/etc/src/config.cf.ja/directory.cf @@ -61,6 +61,13 @@ tmp_dir = $ml_home_dir/tmp db_dir = $var_dir/db +# Descriptions: 入力されるメールを置くディレクトリ +# History: $DIR/var/Mail/ +# Value: directory +# Examples: /var/spool/ml/elena/var/mincoming +mincoming_dir = $var_dir/mincoming + + # Descriptions: mail queue のディレクトリ # History: 似たような目的に tmp/ が使われていたが、 # fml 4.0 には直接該当するものはない。 diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index a8237220..fbf0ec79 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Kernel.pm,v 1.93 2002/04/27 14:28:05 fukachan Exp $ +# $FML: Kernel.pm,v 1.94 2002/04/28 13:33:43 fukachan Exp $ # package FML::Process::Kernel; @@ -460,6 +460,19 @@ sub parse_incoming_message $curproc->{ incoming_message }->{ message } = $msg; $curproc->{ incoming_message }->{ header } = $msg->whole_message_header; $curproc->{ incoming_message }->{ body } = $msg->whole_message_body; + + # save input message for further investigation + { + my $config = $curproc->{ config }; + my $dir = $config->{ mincoming_dir }; + my $obj = new File::CacheDir { + directory => $dir, + }; + + my $wh = $obj->open(); + $msg->print($wh); + $obj->close(); + } } |