method naming fixed to $curproc->OBJ_METHOD() form (FNF).

get_article_id                 -> article_get_id
set_article_id                 -> article_set_id
config_files_append_to_list    -> config_files_append
append_to_config_files_list    -> config_files_append_to_list
get_config_files_list          -> config_files_get_list
load_config_files              -> config_files_load
set_config_files_list          -> config_files_set_list
verify_sender_credential       -> credential_verify_sender
get_current_process_ml_name    -> current_process_get_ml_name
set_current_process_ml_name    -> current_process_set_ml_name
fix_perl_include_path          -> env_fix_perl_include_path
parse_exception                -> exception_parse
parse_incoming_message         -> incoming_message_parse
clean_up_incoming_queue        -> incoming_message_queue_clean_up
get_cui_menu                   -> menu_get_cui_config_file_path
get_gui_menu                   -> menu_get_gui_config_file_path
resolve_ml_specific_variables  -> ml_variables_resolve
outgoing_message_open_channel  -> outgoing_message_cache_open
open_outgoing_message_channel  -> outgoing_message_open_channel
inform_reply_messages          -> reply_message_inform
prepare_file_to_return         -> reply_message_prepare_template
clean_up_tmpfiles              -> tmp_files_clean_up
reset_umask                    -> umask_reset
set_umask_as_public            -> umask_set_as_public

1 files changed, 13 insertions, 13 deletions

diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm
index 12cfce9b..06f5eedb 100644
--- a/fml/lib/FML/Process/Distribute.pm
+++ b/fml/lib/FML/Process/Distribute.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Distribute.pm,v 1.158 2004/12/05 16:19:09 fukachan Exp $
+# $FML: Distribute.pm,v 1.159 2005/05/27 00:59:13 fukachan Exp $
 #
 
 package FML::Process::Distribute;
@@ -80,14 +80,14 @@ sub prepare
     $eval   .= $config->get_hook( 'article_post_prepare_start_hook' ) || '';
     if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }
 
-    $curproc->resolve_ml_specific_variables();
-    $curproc->load_config_files();
-    $curproc->fix_perl_include_path();
+    $curproc->ml_variables_resolve();
+    $curproc->config_files_load();
+    $curproc->env_fix_perl_include_path();
     $curproc->scheduler_init();
     $curproc->log_message_init();
 
     if ($config->yes('use_article_post_function')) {
-	$curproc->parse_incoming_message();
+	$curproc->incoming_message_parse();
     }
     else {
 	$curproc->logerror("use of distribute_program prohibited");
@@ -123,7 +123,7 @@ sub verify_request
     $eval   .= $config->get_hook( 'article_post_verify_request_start_hook' );
     if ($eval) { eval qq{ $eval; }; $curproc->logwarn($@) if $@; }
 
-    $curproc->verify_sender_credential();
+    $curproc->credential_verify_sender();
 
     unless ($curproc->is_refused()) {
 	$curproc->simple_loop_check();
@@ -199,7 +199,7 @@ Firstly it locks (giant lock) the current process.
 If the mail sender is one of our mailing list member,
 we can distribute the mail as an article.
 If not, we inform "you are not a member" which is sent by
-C<inform_reply_messages()> in C<FML::Process::Kernel>.
+C<reply_message_inform()> in C<FML::Process::Kernel>.
 
 Lastly we unlock the current process.
 
@@ -233,7 +233,7 @@ sub run
 
     # $curproc->lock();
     unless ($curproc->is_refused()) {
-	if ($curproc->permit_post()) {
+	if ($curproc->is_permit_post()) {
 	    $curproc->_deliver_article_prep($args);
 	}
 	else {
@@ -337,7 +337,7 @@ sub finish
 	$curproc->_deliver_article();
     }
 
-    $curproc->inform_reply_messages();
+    $curproc->reply_message_inform();
     unless ($curproc->smtp_server_state_get_error()) {
 	$curproc->queue_flush();
     }
@@ -380,7 +380,7 @@ sub _deliver_article_prep
     # get sequence number
     my $id = $article->increment_id;
     if ($id > 0) {
-	$curproc->set_article_id($id);
+	$curproc->article_set_id($id);
     }
     else {
 	$curproc->logerror("returned article id=$id");
@@ -585,7 +585,7 @@ sub _deliver_article
     my $handle = undef;
 
     # overload $sfp log function pointer.
-    my $wh = $curproc->open_outgoing_message_channel();
+    my $wh = $curproc->outgoing_message_cache_open();
     if (defined $wh) {
 	$sfp    = sub { print $wh @_;};
 	$handle = undef; # $wh;
@@ -727,7 +727,7 @@ sub _htmlify
     my $index_order  = $config->{ html_archive_index_order_type };
     my $_tdb_args    = $curproc->thread_db_args();
 
-    $curproc->set_umask_as_public();
+    $curproc->umask_set_as_public();
 
     eval q{
 	use Mail::Message::ToHTML;
@@ -748,7 +748,7 @@ sub _htmlify
 	$curproc->logerror($@) if $@;
     }
 
-    $curproc->reset_umask();
+    $curproc->umask_reset();
 }