address_compare -> address_compare_function

1 files changed, 13 insertions, 12 deletions

diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm
index 2b09a0f1..dd0c4aad 100644
--- a/fml/lib/FML/Credential.pm
+++ b/fml/lib/FML/Credential.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: Credential.pm,v 1.48 2003/11/17 15:38:16 fukachan Exp $
+# $FML: Credential.pm,v 1.49 2003/11/25 14:50:11 fukachan Exp $
 #
 
 package FML::Credential;
@@ -62,29 +62,30 @@ sub new
     my ($self, $curproc) = @_;
     my ($type) = ref($self) || $self;
     my $config = $curproc->config();
+    my $type   = $config->{ address_compare_function_type };
     my $me     = \%Credential;
 
     # default comparison level
     set_compare_level( $me, 3 );
 
     # user address check
-    if ($config->yes('use_address_compare')) {
-	$me->{ _use_address_compare } = 1;
+    if ($config->yes('use_address_compare_function')) {
+	$me->{ _use_address_compare_function } = 1;
     }
     else {
-	$me->{ _use_address_compare } = 0;
+	$me->{ _use_address_compare_function } = 0;
     }
 
+    # case insensitive for backward compatibility. (default)
+    if ($type eq 'user_part_case_insensitive' ||
+	$type eq 'case_insensitive') {
+	$me->{ _user_part_case_sensitive } = 0;
+    }
     # case sensitive for user part comparison.
-    if ($config->{ address_compare_type } eq 'user_part_case_sensitive' ||
-	$config->{ address_compare_type } eq 'case_sensitive') {
+    elsif ($type eq 'user_part_case_sensitive' ||
+	   $type eq 'case_sensitive') {
 	$me->{ _user_part_case_sensitive } = 1;
     }
-    # for backward compatibility.
-    elsif ($config->{ address_compare_type } eq 'user_part_case_insensitive' ||
-	   $config->{ address_compare_type } eq 'case_insensitive') {
-	$me->{ _user_part_case_sensitive } = 0;
-    }
     # case-insensitive by default for backward compatibility.
     else {
 	$me->{ _user_part_case_sensitive } = 0;
@@ -193,7 +194,7 @@ sub is_same_address
     my ($self, $xaddr, $yaddr, $max_level) = @_;
 
     # always same if address_check function disabled.
-    unless ($self->{ _use_address_compare }) { return 1; }
+    unless ($self->{ _use_address_compare_function }) { return 1; }
 
     # both should be defined !
     unless (defined($xaddr) && defined($yaddr)) {