FNF: XXX_clean_up() -> XXX_cleanup()

8 files changed, 36 insertions, 36 deletions

diff --git a/fml/lib/FML/Article/Summary.pm b/fml/lib/FML/Article/Summary.pm
index bdd640e6..a1823fc5 100644
--- a/fml/lib/FML/Article/Summary.pm
+++ b/fml/lib/FML/Article/Summary.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: Summary.pm,v 1.23 2005/05/26 09:42:24 fukachan Exp $
+# $FML: Summary.pm,v 1.24 2005/08/11 04:11:25 fukachan Exp $
 #
 
 package FML::Article::Summary;
@@ -108,7 +108,7 @@ sub _prepare_info
 	if ($address) {
 	    use Mail::Message::Address;
 	    my $addr = new Mail::Message::Address $address;
-	    $addr->clean_up();
+	    $addr->cleanup();
 	    $address = $addr->substr(0, $addrlen) || '';
 	}
 
diff --git a/fml/lib/FML/Command/DataCheck.pm b/fml/lib/FML/Command/DataCheck.pm
index 4d8f7749..5a746311 100644
--- a/fml/lib/FML/Command/DataCheck.pm
+++ b/fml/lib/FML/Command/DataCheck.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: DataCheck.pm,v 1.16 2004/06/26 11:47:55 fukachan Exp $
+# $FML: DataCheck.pm,v 1.17 2005/05/27 03:03:34 fukachan Exp $
 #
 
 package FML::Command::DataCheck;
@@ -55,7 +55,7 @@ sub parse_command_buffer
 {
     my ($self, $command) = @_;
 
-    $command = $self->clean_up($command);
+    $command = $self->cleanup($command);
     my ($comname, $comsubname) = split(/\s+/, $command);
     return ($comname, $comsubname);
 }
@@ -108,8 +108,8 @@ sub find_special_keyword
     my $admin_found    = '';
 
     # clean up
-    $confirm_prefix = $self->clean_up($confirm_prefix);
-    $admin_prefix   = $self->clean_up($admin_prefix);
+    $confirm_prefix = $self->cleanup($confirm_prefix);
+    $admin_prefix   = $self->cleanup($admin_prefix);
 
     # XXX $ra_data is not whole body but already parsed and prepared buffer.
     # XXX See below and FML::Process::Command module, for example.
@@ -181,7 +181,7 @@ sub find_anonymous_command_mail_allowed_commands
 #    Arguments: OBJ($self) STR($s)
 # Side Effects: none
 # Return Value: STR
-sub clean_up
+sub cleanup
 {
     my ($self, $s) = @_;
 
diff --git a/fml/lib/FML/Filter/TextPlain.pm b/fml/lib/FML/Filter/TextPlain.pm
index c6aa8a5e..ab3ad9a2 100644
--- a/fml/lib/FML/Filter/TextPlain.pm
+++ b/fml/lib/FML/Filter/TextPlain.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: TextPlain.pm,v 1.12 2005/05/27 01:47:05 fukachan Exp $
+# $FML: TextPlain.pm,v 1.13 2005/05/30 00:02:31 fukachan Exp $
 #
 
 package FML::Filter::TextPlain;
@@ -141,7 +141,7 @@ sub body_check
     # my $need_one_line_check = $self->need_one_line_check($m);
 
     ## 5. preparation for main rules.
-    ## $self->_clean_up_buffer($m);
+    ## $self->_cleanup_buffer($m);
 
     ## 6. main fules
     my $rules = $self->{ _rules };
@@ -478,7 +478,7 @@ sub is_signature
 }
 
 
-=head2 clean_up_buffer($args)
+=head2 cleanup_buffer($args)
 
 remove some special syntax pattern for further check.
 For example, the pattern is a mail address.
@@ -491,7 +491,7 @@ We remove it and check the remained buffer whether it is safe or not.
 #    Arguments: OBJ($self) STR($xbuf)
 # Side Effects: none
 # Return Value: STR
-sub clean_up_buffer
+sub cleanup_buffer
 {
     my ($self, $xbuf) = @_;
 
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm
index 6832ac3c..459a6135 100644
--- a/fml/lib/FML/Header.pm
+++ b/fml/lib/FML/Header.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: Header.pm,v 1.83 2005/05/27 03:03:32 fukachan Exp $
+# $FML: Header.pm,v 1.84 2005/08/08 03:53:23 fukachan Exp $
 #
 
 package FML::Header;
@@ -119,7 +119,7 @@ sub set
 }
 
 
-=head2 address_clean_up(address)
+=head2 address_cleanup(address)
 
 clean up given C<address>. This method parses the given address by
 C<Mail::Address::parse()>, remove < and > and return the result.
@@ -128,7 +128,7 @@ C<Mail::Address::parse()>, remove < and > and return the result.
 
 
 #
-# XXX-TODO: address_clean_up() in this class is apporopriate ?
+# XXX-TODO: address_cleanup() in this class is apporopriate ?
 # XXX-TODO: is it in some other class such as FML::Address ?
 #
 
@@ -136,7 +136,7 @@ C<Mail::Address::parse()>, remove < and > and return the result.
 #    Arguments: OBJ($self) STR($addr)
 # Side Effects: none
 # Return Value: STR
-sub address_clean_up
+sub address_cleanup
 {
     my ($self, $addr) = @_;
 
@@ -720,7 +720,7 @@ sub _check_xxx_message_id
     my $dir = $config->{ $mode };
     my $dup = 0;
 
-    $mid = $header->address_clean_up($mid);
+    $mid = $header->address_cleanup($mid);
     if ($mid) {
 	use FML::Header::MessageID;
 	my $xargs = { directory => $dir };
@@ -773,7 +773,7 @@ sub _update_xxx_message_id_cache
     my $dir = $config->{ $mode };
     my $mid = $header->get('message-id');
 
-    $mid = $header->address_clean_up($mid);
+    $mid = $header->address_cleanup($mid);
     if ($mid) {
 	use FML::Header::MessageID;
 	my $xargs = { directory => $dir };
diff --git a/fml/lib/FML/Header/Subject.pm b/fml/lib/FML/Header/Subject.pm
index e473f656..05af5924 100644
--- a/fml/lib/FML/Header/Subject.pm
+++ b/fml/lib/FML/Header/Subject.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: Subject.pm,v 1.49 2005/08/18 10:30:09 fukachan Exp $
+# $FML: Subject.pm,v 1.50 2005/08/19 11:21:14 fukachan Exp $
 #
 
 package FML::Header::Subject;
@@ -101,7 +101,7 @@ sub rewrite_article_subject_tag
 #    Arguments: OBJ($self) STR($subject) STR($tag)
 # Side Effects: none
 # Return Value: STR
-sub clean_up
+sub cleanup
 {
     my ($self, $subject, $tag)   = @_;
     my ($s, $in_code, $out_code) = $self->decode($subject, $tag);
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();