define CREATE-ON-POST function.

8 files changed, 152 insertions, 5 deletions

diff --git a/fml/etc/command_line_options b/fml/etc/command_line_options
index 8aca20a6..713b9975 100644
--- a/fml/etc/command_line_options
+++ b/fml/etc/command_line_options
@@ -1,5 +1,5 @@
 #
-# $FML: command_line_options,v 1.18 2005/06/03 05:10:18 fukachan Exp $
+# $FML: command_line_options,v 1.19 2006/02/01 12:35:45 fukachan Exp $
 #
 # map between programs and options
 #
@@ -14,7 +14,7 @@ digest		debug! help! -c=s -o=s%
 distribute	debug! help! -c=s -o=s%
 error		debug! help! -c=s -o=s%
 mead		debug! help! -c=s -o=s%
-faker		debug! help! -c=s -o=s%
+createonpost	debug! help! -c=s -o=s%
 fetchfml	debug! help! -c=s -o=s% article-post! command-mail! error! error-mail-analyzer!
 
 # bin/
diff --git a/fml/etc/default_config.cf.en.in b/fml/etc/default_config.cf.en.in
index 06efa016..50ac4caa 100644
--- a/fml/etc/default_config.cf.en.in
+++ b/fml/etc/default_config.cf.en.in
@@ -2777,6 +2777,7 @@ moderate_queue_dir = $var_dir/mail/queue-moderate
 
 
 
+
 =head1 program paths
 
 # Descriptions:
@@ -3502,6 +3503,14 @@ ldap_query_find_search_filter		=	(&(objectclass=*)(ou=$ml_name@$ml_domain))
 # $command_mail_run_start_hook = q{ 1;};
 # $command_mail_verify_request_end_hook = q{ 1;};
 # $command_mail_verify_request_start_hook = q{ 1;};
+# $createonpost_finish_end_hook = q{ 1;};
+# $createonpost_finish_start_hook = q{ 1;};
+# $createonpost_prepare_end_hook = q{ 1;};
+# $createonpost_prepare_start_hook = q{ 1;};
+# $createonpost_run_end_hook = q{ 1;};
+# $createonpost_run_start_hook = q{ 1;};
+# $createonpost_verify_request_end_hook = q{ 1;};
+# $createonpost_verify_request_start_hook = q{ 1;};
 # $distribute_finish_end_hook = q{ 1;};
 # $distribute_finish_start_hook = q{ 1;};
 # $distribute_prepare_end_hook = q{ 1;};
diff --git a/fml/etc/default_config.cf.ja.in b/fml/etc/default_config.cf.ja.in
index a7e493d5..8b538037 100644
--- a/fml/etc/default_config.cf.ja.in
+++ b/fml/etc/default_config.cf.ja.in
@@ -2858,6 +2858,66 @@ moderate_queue_dir = $var_dir/mail/queue-moderate
 
 
 
+=head1 CREATE-ON-POST
+
+# Descriptions: CREATE-ON-POST 機能を使うか否か？
+#               なお、この変数は createonpost プログラムでのみ意味がある。
+#      History: NONE
+#        Value: YES_OR_NO
+#     Examples: yes
+use_createonpost_function	=	yes
+
+
+# Descriptions:
+#      History: NONE
+#        Value: MIX (
+#			reject_errormail
+#			reject_fml8_managed_address
+#			reject_createonpost_domain
+#			permit_createonpost_sender_maps
+#			permit_anyone
+#               )
+#     Examples: permit_anyone
+createonpost_sender_restrictions =	reject_system_special_accounts
+					reject_errormail	
+					reject_fml8_managed_address
+					reject_createonpost_domain
+					permit_anyone
+
+# Descriptions:
+#      History: NONE
+#        Value: MIX (
+#			reject_errormail
+#			reject_fml8_managed_address
+#			reject_createonpost_domain
+#			permit_createonpost_subscribe_maps
+#			permit_anyone
+#               )
+#     Examples: permit_anyone
+createonpost_subscribe_restrictions =	reject_system_special_accounts
+					reject_errormail
+					reject_fml8_managed_address
+					reject_createonpost_domain
+ 					permit_anyone
+
+
+# Descriptions: 
+#               ファイルの中は、たとえば \S+\@example.com
+#      History: NONE
+#        Value: FILE
+#     Examples:
+createonpost_sender_maps	=	pcre:$ml_home_dir/sender.pcre
+
+
+# Descriptions: 
+#               ファイルの中は、たとえば \S+\@example.com
+#      History: NONE
+#        Value: FILE
+#     Examples:
+createonpost_subscribe_maps	=	pcre:$ml_home_dir/subscribe.pcre
+
+
+
 =head1 program paths
 
 # Descriptions:
@@ -3599,6 +3659,14 @@ ldap_query_find_search_filter		=	(&(objectclass=*)(ou=$ml_name@$ml_domain))
 # $command_mail_run_start_hook = q{ 1;};
 # $command_mail_verify_request_end_hook = q{ 1;};
 # $command_mail_verify_request_start_hook = q{ 1;};
+# $createonpost_finish_end_hook = q{ 1;};
+# $createonpost_finish_start_hook = q{ 1;};
+# $createonpost_prepare_end_hook = q{ 1;};
+# $createonpost_prepare_start_hook = q{ 1;};
+# $createonpost_run_end_hook = q{ 1;};
+# $createonpost_run_start_hook = q{ 1;};
+# $createonpost_verify_request_end_hook = q{ 1;};
+# $createonpost_verify_request_start_hook = q{ 1;};
 # $distribute_finish_end_hook = q{ 1;};
 # $distribute_finish_start_hook = q{ 1;};
 # $distribute_prepare_end_hook = q{ 1;};
diff --git a/fml/etc/install.cf.in b/fml/etc/install.cf.in
index 2555d889..4a30e465 100644
--- a/fml/etc/install.cf.in
+++ b/fml/etc/install.cf.in
@@ -3,7 +3,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: install.cf.in,v 1.20 2005/06/03 05:41:52 fukachan Exp $
+# $FML: install.cf.in,v 1.21 2006/02/01 12:35:45 fukachan Exp $
 #
 
 
@@ -126,5 +126,6 @@ libexec_programs 	=	fml.pl
 				mead
 				fmlserv
 				faker
+				createonpost
 				fetchfml
 
diff --git a/fml/etc/modules b/fml/etc/modules
index e4b4808c..07f87b8a 100644
--- a/fml/etc/modules
+++ b/fml/etc/modules
@@ -1,5 +1,5 @@
 #
-# $FML: modules,v 1.14 2005/06/03 05:10:18 fukachan Exp $
+# $FML: modules,v 1.15 2006/02/01 12:35:45 fukachan Exp $
 #
 # map between programs and modules (like /etc/name_to_sysnum on solaris ?)
 #
@@ -13,7 +13,7 @@ command			FML::Process::Command		$ml
 digest			FML::Process::Digest		$ml
 distribute		FML::Process::Distribute	$ml	
 error			FML::Process::Error		$ml
-faker			FML::Process::Fake
+createonpost		FML::Process::CreateOnPost	
 fmlserv			FML::Process::ListServer	?
 mead			FML::Process::Error		$ml
 fetchfml		FML::Process::FetchFML		$ml
@@ -42,6 +42,7 @@ fmlspool		FML::Process::Obsolete		$ml
 fmlsummary		FML::Process::Obsolete		$ml
 fmlsuper		FML::Process::Obsolete		$ml
 fmlthread		FML::Process::Obsolete		$ml
+faker			FML::Process::Obsolete
 
 
 # cgi-bin/
diff --git a/fml/etc/src/config.cf.ja/createonpost.cf b/fml/etc/src/config.cf.ja/createonpost.cf
new file mode 100644
index 00000000..4c9aab11
--- /dev/null
+++ b/fml/etc/src/config.cf.ja/createonpost.cf
@@ -0,0 +1,59 @@
+=head1 CREATE-ON-POST
+
+# Descriptions: CREATE-ON-POST 機能を使うか否か？
+#               なお、この変数は createonpost プログラムでのみ意味がある。
+#      History: NONE
+#        Value: YES_OR_NO
+#     Examples: yes
+use_createonpost_function	=	yes
+
+
+# Descriptions:
+#      History: NONE
+#        Value: MIX (
+#			reject_errormail
+#			reject_fml8_managed_address
+#			reject_createonpost_domain
+#			permit_createonpost_sender_maps
+#			permit_anyone
+#               )
+#     Examples: permit_anyone
+createonpost_sender_restrictions =	reject_system_special_accounts
+					reject_errormail	
+					reject_fml8_managed_address
+					reject_createonpost_domain
+					permit_anyone
+
+# Descriptions:
+#      History: NONE
+#        Value: MIX (
+#			reject_errormail
+#			reject_fml8_managed_address
+#			reject_createonpost_domain
+#			permit_createonpost_subscribe_maps
+#			permit_anyone
+#               )
+#     Examples: permit_anyone
+createonpost_subscribe_restrictions =	reject_system_special_accounts
+					reject_errormail
+					reject_fml8_managed_address
+					reject_createonpost_domain
+ 					permit_anyone
+
+
+# Descriptions: 
+#               ファイルの中は、たとえば \S+\@example.com
+#      History: NONE
+#        Value: FILE
+#     Examples:
+createonpost_sender_maps	=	pcre:$ml_home_dir/sender.pcre
+
+
+# Descriptions: 
+#               ファイルの中は、たとえば \S+\@example.com
+#      History: NONE
+#        Value: FILE
+#     Examples:
+createonpost_subscribe_maps	=	pcre:$ml_home_dir/subscribe.pcre
+
+
diff --git a/fml/etc/src/hooks.cf b/fml/etc/src/hooks.cf
index 927ebf22..733ebfd4 100644
--- a/fml/etc/src/hooks.cf
+++ b/fml/etc/src/hooks.cf
@@ -32,6 +32,14 @@
 # $command_mail_run_start_hook = q{ 1;};
 # $command_mail_verify_request_end_hook = q{ 1;};
 # $command_mail_verify_request_start_hook = q{ 1;};
+# $createonpost_finish_end_hook = q{ 1;};
+# $createonpost_finish_start_hook = q{ 1;};
+# $createonpost_prepare_end_hook = q{ 1;};
+# $createonpost_prepare_start_hook = q{ 1;};
+# $createonpost_run_end_hook = q{ 1;};
+# $createonpost_run_start_hook = q{ 1;};
+# $createonpost_verify_request_end_hook = q{ 1;};
+# $createonpost_verify_request_start_hook = q{ 1;};
 # $distribute_finish_end_hook = q{ 1;};
 # $distribute_finish_start_hook = q{ 1;};
 # $distribute_prepare_end_hook = q{ 1;};
diff --git a/fml/etc/src/list.cf b/fml/etc/src/list.cf
index 256c9c60..1efbf254 100644
--- a/fml/etc/src/list.cf
+++ b/fml/etc/src/list.cf
@@ -28,6 +28,7 @@ cgi.cf
 mta.cf
 fetchfml.cf
 moderate.cf
+createonpost.cf
 paths.cf
 system_dependence.cf
 compatibility.cf