rename variable: $error_* -> $error_mail_*

error_analyzer_day_limit->error_mail_analyzer_day_limit
error_analyzer_cache_dir->error_mail_analyzer_cache_dir
error_analyzer_cache_type->error_mail_analyzer_cache_type
error_analyzer_cache_mode->error_mail_analyzer_cache_mode
error_analyzer_cache_size->error_mail_analyzer_cache_size
error_analyzer_function_select_list->error_mail_analyzer_function_select_list
error_analyzer_function->error_mail_analyzer_function
error_analyzer_simple_count_limit->error_mail_analyzer_simple_count_limit

3 files changed, 13 insertions, 13 deletions

diff --git a/fml/lib/FML/Error/Analyze/histgram.pm b/fml/lib/FML/Error/Analyze/histgram.pm
index 0092d533..b7ccaedf 100644
--- a/fml/lib/FML/Error/Analyze/histgram.pm
+++ b/fml/lib/FML/Error/Analyze/histgram.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: histgram.pm,v 1.8 2004/02/15 04:38:32 fukachan Exp $
+# $FML: histgram.pm,v 1.9 2004/04/23 04:10:33 fukachan Exp $
 #
 
 package FML::Error::Analyze::histgram;
@@ -83,8 +83,8 @@ sub _histgram
     my @removelist = ();
     my $summary    = {};
     my $config     = $curproc->config();
-    my $limit      = $config->{ error_analyzer_simple_count_limit } || 14;
-    my $daylimit   = $config->{ error_analyzer_day_limit } || 14;
+    my $limit      = $config->{ error_mail_analyzer_simple_count_limit } || 14;
+    my $daylimit   = $config->{ error_mail_analyzer_day_limit } || 14;
     my $now        = time;                 # unix time (seconds).
     my $half_day   = 12   * 3600 ;         # 12 hours  (seconds).
     my $one_day    = 24   * 3600 ;         # 24 hours  (seconds).
diff --git a/fml/lib/FML/Error/Analyze/simple_count.pm b/fml/lib/FML/Error/Analyze/simple_count.pm
index d8237a2c..c88f005d 100644
--- a/fml/lib/FML/Error/Analyze/simple_count.pm
+++ b/fml/lib/FML/Error/Analyze/simple_count.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: simple_count.pm,v 1.7 2004/02/15 04:38:32 fukachan Exp $
+# $FML: simple_count.pm,v 1.8 2004/04/23 04:10:33 fukachan Exp $
 #
 
 package FML::Error::Analyze::simple_count;
@@ -76,8 +76,8 @@ sub _simple_count
     my @removelist = ();
     my $summary    = {};
     my $config     = $curproc->config();
-    my $limit      = $config->{ error_analyzer_simple_count_limit } || 5;
-    my $daylimit   = $config->{ error_analyzer_day_limit } || 14;
+    my $limit      = $config->{ error_mail_analyzer_simple_count_limit } || 5;
+    my $daylimit   = $config->{ error_mail_analyzer_day_limit } || 14;
     my $now        = time;
     my $day        = 24*3600;
     my $threshold  = $day * $daylimit;
diff --git a/fml/lib/FML/Error/Cache.pm b/fml/lib/FML/Error/Cache.pm
index d6f4a306..0100dc5f 100644
--- a/fml/lib/FML/Error/Cache.pm
+++ b/fml/lib/FML/Error/Cache.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: Cache.pm,v 1.20 2004/04/11 14:31:03 fukachan Exp $
+# $FML: Cache.pm,v 1.21 2004/04/23 04:10:33 fukachan Exp $
 #
 
 package FML::Error::Cache;
@@ -54,7 +54,7 @@ sub new
     my ($type) = ref($self) || $self;
     my $me     = { _curproc => $curproc };
     my $config = $curproc->config();
-    my $db_dir = $config->{ error_analyzer_cache_dir };
+    my $db_dir = $config->{ error_mail_analyzer_cache_dir };
 
     unless (-d $db_dir) {
 	$curproc->mkdir($db_dir, "mode=private");
@@ -230,13 +230,13 @@ sub _open_cache
     my ($self)  = @_;
     my $curproc = $self->{ _curproc };
     my $config  = $curproc->config();
-    my $dir     = $config->{ error_analyzer_cache_dir  };
+    my $dir     = $config->{ error_mail_analyzer_cache_dir  };
 
     # parameters: but not used now.
     my %db   = ();
-    my $type = $config->{ error_analyzer_cache_type };
-    my $mode = $config->{ error_analyzer_cache_mode } || 'temporal';
-    my $days = $config->{ error_analyzer_cache_size } || 14;
+    my $type = $config->{ error_mail_analyzer_cache_type };
+    my $mode = $config->{ error_mail_analyzer_cache_mode } || 'temporal';
+    my $days = $config->{ error_mail_analyzer_cache_size } || 14;
     my $args = {
 	dir   => $dir,
 	unit  => 'day',
@@ -301,7 +301,7 @@ sub get_all_values_as_hash_ref
     my ($self)  = @_;
     my $curproc = $self->{ _curproc };
     my $config  = $curproc->config();
-    my $dir     = $config->{ error_analyzer_cache_dir };
+    my $dir     = $config->{ error_mail_analyzer_cache_dir };
 
     use Tie::JournaledDir;
     my $obj = new Tie::JournaledDir { dir => $dir };