diff options
| author | fukachan <fukachan> | 2004-04-27 12:54:50 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-04-27 12:54:50 +0000 |
| commit | 22d141050cfceaea95bf2ff80690af2ea8bc4254 (patch) | |
| tree | ef9f8b9fefcce1fc63f8684f0928932e4a488fc0 /fml | |
| parent | 5bf90c33d8bc3ccc07cf7450432aa67b57e756ee (diff) | |
| download | fml8-22d141050cfceaea95bf2ff80690af2ea8bc4254.tar.gz fml8-22d141050cfceaea95bf2ff80690af2ea8bc4254.tar.bz2 fml8-22d141050cfceaea95bf2ff80690af2ea8bc4254.zip | |
move quotemeta($regexp) from IO::Adapter to here.
compare domains case insensitively.
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Process/Debug.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Debug.pm b/fml/lib/FML/Process/Debug.pm index 21017475..59abe83a 100644 --- a/fml/lib/FML/Process/Debug.pm +++ b/fml/lib/FML/Process/Debug.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: Debug.pm,v 1.7 2004/01/04 03:25:09 fukachan Exp $ +# $FML: Debug.pm,v 1.8 2004/01/04 13:19:10 fukachan Exp $ # package FML::Process::Debug; @@ -153,15 +153,16 @@ and return the prefix. sub ml_home_prefix { my ($self, $domain) = @_; + my $_domain = quotemeta($domain); use IO::Adapter; my $obj = new IO::Adapter "/etc/fml/ml_home_prefix"; - my $ent = $obj->find($domain, { want => 'key,value', all => 1 }); + my $ent = $obj->find($_domain, { want => 'key,value', all => 1 }); # debug for my $buf (@$ent) { my ($x_domain, $x_prefix) = split(/\s+/, $buf); - return $x_prefix if $x_domain eq $domain; + return $x_prefix if "\L$x_domain\E" eq "\L$domain\E"; } return ''; |