diff options
| author | fukachan <fukachan> | 2004-12-09 11:33:32 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-12-09 11:33:32 +0000 |
| commit | 7365d2ce3912d32e758debc961fa286e265338be (patch) | |
| tree | afd039666d0d483524085da8265a4cd2d12caffb /fml | |
| parent | d36ba664126b0199d3d48dde2dc669aadc5ba338 (diff) | |
| download | fml8-7365d2ce3912d32e758debc961fa286e265338be.tar.gz fml8-7365d2ce3912d32e758debc961fa286e265338be.tar.bz2 fml8-7365d2ce3912d32e758debc961fa286e265338be.zip | |
enhance special handlings to support more rules
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Merge/FML4/config_ph.pm | 33 |
1 files changed, 26 insertions, 7 deletions
diff --git a/fml/lib/FML/Merge/FML4/config_ph.pm b/fml/lib/FML/Merge/FML4/config_ph.pm index d76994bd..d24c7142 100644 --- a/fml/lib/FML/Merge/FML4/config_ph.pm +++ b/fml/lib/FML/Merge/FML4/config_ph.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: config_ph.pm,v 1.8 2004/09/06 07:06:26 fukachan Exp $ +# $FML: config_ph.pm,v 1.9 2004/12/09 03:37:39 fukachan Exp $ # package FML::Merge::FML4::config_ph; @@ -348,12 +348,31 @@ sub translate_xxx return $s; } } - elsif ($key eq 'PERMIT_POST_FROM') { - if ($value eq 'anyone') { - return 'article_post_restrictions = reject_system_special_accounts - permit_anyone - reject'; - } + elsif ($key eq 'MAINTAINER') { + return "maintainer = $value"; + } + elsif ($key eq 'MAIL_LIST') { + return "article_post_address = $value"; + } + elsif ($key eq 'CONTROL_ADDRESS') { + return "command_mail_address = $value"; + } + elsif ($key eq 'SMTP_SENDER') { + return "smtp_sender = $value"; + } + elsif ($key eq 'REJECT_ADDR') { + return "system_special_accounts = $value"; + } + elsif ($key eq 'HOST' || $key eq 'PORT') { + my $host = $diff->{ 'HOST' } || '127.0.0.1'; + my $port = $diff->{ 'PORT' } || 25; + return "smtp_servers = $host:$port"; + } + elsif ($key eq 'ADMIN_MEMBER_LIST' || + $key eq 'MEMBER_LIST' || + $key eq 'ACTIVE_LIST' || + $key eq 'PASSWD_FILE') { + ; } return '# UNKNOWN TRANSLATION RULE'; |