FNF: XXX_clean_up() -> XXX_cleanup()

3 files changed, 17 insertions, 17 deletions

diff --git a/fml/lib/FML/Process/Error.pm b/fml/lib/FML/Process/Error.pm
index 2f2374f6..b8bf10d3 100644
--- a/fml/lib/FML/Process/Error.pm
+++ b/fml/lib/FML/Process/Error.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2002,2003,2004,2005 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Error.pm,v 1.52 2005/06/04 08:49:10 fukachan Exp $
+# $FML: Error.pm,v 1.53 2005/08/10 15:03:25 fukachan Exp $
 #
 
 package FML::Process::Error;
@@ -194,7 +194,7 @@ sub run
 
 	if ($found) {
 	    $pcb->set("error", "found", 1);
-	    $curproc->_clean_up_bouncers();
+	    $curproc->_cleanup_bouncers();
 	}
     }
 
@@ -208,7 +208,7 @@ sub run
 #    Arguments: OBJ($curproc)
 # Side Effects: remove addresses which causes bounces
 # Return Value: none
-sub _clean_up_bouncers
+sub _cleanup_bouncers
 {
     my ($curproc) = @_;
     my $channel   = 'error_mail_analyzer';
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index bdacdeda..39c29c81 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.266 2005/08/17 11:53:34 fukachan Exp $
+# $FML: Kernel.pm,v 1.267 2005/08/19 11:23:02 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -2653,7 +2653,7 @@ sub queue_in
 # Descriptions: append message in $msg_in into $msg_out.
 #    Arguments: OBJ($curproc) OBJ($msg_in) OBJ($msg_out)
 # Side Effects: create a new $tmpfile
-#               update garbage collection queue (clean_up_queue)
+#               update garbage collection queue (cleanup_queue)
 # Return Value: none
 sub _append_rfc822_message
 {
@@ -2688,11 +2688,11 @@ sub _append_rfc822_message
 }
 
 
-# Descriptions: insert $file into garbage collection queue (clean_up_queue).
+# Descriptions: insert $file into garbage collection queue (cleanup_queue).
 #    Arguments: OBJ($curproc) STR($file)
 # Side Effects: update $curproc->{ __tmp_file_cleanup };
 # Return Value: none
-sub _add_into_clean_up_queue
+sub _add_into_cleanup_queue
 {
     my ($curproc, $file) = @_;
     my $queue = $curproc->{ __tmp_file_cleanup };
@@ -2706,7 +2706,7 @@ sub _add_into_clean_up_queue
 }
 
 
-# Descriptions: remove garbage collection queue (clean_up_queue).
+# Descriptions: remove garbage collection queue (cleanup_queue).
 #    Arguments: OBJ($curproc)
 # Side Effects: remove files in $curproc->{ __tmp_file_cleanup }
 # Return Value: none
@@ -2725,7 +2725,7 @@ sub tmp_file_cleanup
     # XXX ONLY WHEN VALID $ml_home_dir EXISTS.
     # clean up tmp_dir.
     if ($curproc->_is_valid_ml_home_dir()) {
-	my $channel = "clean_up_tmp_dir";
+	my $channel = "cleanup_tmp_dir";
 	if ($curproc->is_event_timeout($channel)) {
 	    my $config   = $curproc->config();
 	    my $tmp_dir  = $config->{ tmp_dir };
@@ -2744,7 +2744,7 @@ sub incoming_message_cleanup_queue
 {
     my ($curproc) = @_;
     my $config    = $curproc->config();
-    my $channel   = 'mail_incoming_queue_clean_up';
+    my $channel   = 'mail_incoming_queue_cleanup';
 
     # XXX ONLY WHEN VALID $ml_home_dir EXISTS.
     if ($curproc->_is_valid_ml_home_dir()) {
@@ -2764,7 +2764,7 @@ sub incoming_message_cleanup_queue
 		directory => $queue_dir,
 	    };
 	    $queue->set_log_function($fp);
-	    $queue->clean_up();
+	    $queue->cleanup();
 	    $curproc->event_set_timeout($channel, time + 24*3600);
 	}
     }
@@ -2807,14 +2807,14 @@ sub tmp_file_path
     if (-d $tmp_dir && -w $tmp_dir) {
 	use File::Spec;
 	my $_file = File::Spec->catfile($tmp_dir, $f);
-	$curproc->_add_into_clean_up_queue($_file);
+	$curproc->_add_into_cleanup_queue($_file);
 	return $_file;
     }
     else {
 	my $tmp_dir = $curproc->global_tmp_dir_path();
 	use File::Spec;
 	my $_file = File::Spec->catfile($tmp_dir, $f);
-	$curproc->_add_into_clean_up_queue($_file);
+	$curproc->_add_into_cleanup_queue($_file);
 	return $_file;
     }
 }
@@ -2918,7 +2918,7 @@ sub queue_flush
     my $config    = $curproc->config();
     my $queue_dir = $config->{ mail_queue_dir };
     my $qmgr_args = { directory => $queue_dir };
-    my $channel   = 'mail_queue_clean_up';
+    my $channel   = 'mail_queue_cleanup';
 
     # XXX-TODO: timeout should be customizable.
     eval q{
diff --git a/fml/lib/FML/Process/State.pm b/fml/lib/FML/Process/State.pm
index ccbc49a5..9963d50a 100644
--- a/fml/lib/FML/Process/State.pm
+++ b/fml/lib/FML/Process/State.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: State.pm,v 1.21 2005/06/04 08:49:11 fukachan Exp $
+# $FML: State.pm,v 1.22 2005/08/10 13:58:36 fukachan Exp $
 #
 
 package FML::Process::State;
@@ -221,7 +221,7 @@ sub command_context_init
     my ($curproc, $orig_command) = @_;
 
     # Example: if orig_command = "# help", comname = "help"
-    my $cleanstr = $curproc->_command_string_clean_up($orig_command);
+    my $cleanstr = $curproc->_command_string_cleanup($orig_command);
     my $context  = $curproc->_build_command_context_template($cleanstr);
 
     # save original string, set the command mode be "user" by default.
@@ -298,7 +298,7 @@ sub _build_command_context_template
 #    Arguments: OBJ($curproc) STR($buf)
 # Side Effects: none
 # Return Value: STR
-sub _command_string_clean_up
+sub _command_string_cleanup
 {
     my ($curproc, $buf) = @_;
     my $config          = $curproc->config();