diff options
| author | fukachan <fukachan> | 2003-11-17 15:38:16 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-11-17 15:38:16 +0000 |
| commit | f86fffb192578aec3d2eb303130d2764f2fa6bf7 (patch) | |
| tree | 63f59447e68212e89a8b490cdf0114ac30ee8707 /fml/lib | |
| parent | 24dd1651b505a33657adf7350a7aeb25665773c1 (diff) | |
| download | fml8-f86fffb192578aec3d2eb303130d2764f2fa6bf7.tar.gz fml8-f86fffb192578aec3d2eb303130d2764f2fa6bf7.tar.bz2 fml8-f86fffb192578aec3d2eb303130d2764f2fa6bf7.zip | |
implement is_user_part_case_sensitive() and modified to use it.
XXX we should attach $self internal directly even if within the same module.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Credential.pm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/fml/lib/FML/Credential.pm b/fml/lib/FML/Credential.pm index b7e3c12e..568a87c6 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.46 2003/08/23 04:35:27 fukachan Exp $ +# $FML: Credential.pm,v 1.47 2003/08/29 15:33:54 fukachan Exp $ # package FML::Credential; @@ -118,6 +118,17 @@ sub set_user_part_case_insensitive } +# Descriptions: whether we should handle user part case insensitively. +# Arguments: OBJ($self) +# Side Effects: none +# Return Value: none +sub is_user_part_case_sensitive +{ + my ($self) = @_; + $self->{ _user_part_case_sensitive } ? 1 : 0; +} + + =head2 is_same_address($addr1, $addr2 [, $level]) return 1 (same) or 0 (different). @@ -168,7 +179,7 @@ sub is_same_address my ($xuser, $xdomain) = split(/\@/, $xaddr); my ($yuser, $ydomain) = split(/\@/, $yaddr); my $level = 0; - my $is_case_sensitive = $self->{ _user_part_case_sensitive }; + my $is_case_sensitive = $self->is_user_part_case_sensitive(); # the max recursive level in comparison $max_level = $max_level || $self->{ _max_level } || 3; |