version 1.38, 2005/04/07 06:56:21
|
version 1.40, 2005/07/12 07:00:28
|
Line 54 sub constructaccess {
|
Line 54 sub constructaccess {
|
} |
} |
|
|
foreach my $domain (@possibledomains) { |
foreach my $domain (@possibledomains) { |
my $capriv='user.priv.ca./'.$domain.'/'.$ownername.'./'; |
if (exists($env{'user.priv.ca./'.$domain.'/'.$ownername.'./'}) || |
foreach (keys %env) { |
exists($env{'user.priv.aa./'.$domain.'/'.$ownername.'./'}) ) { |
if ($_ eq $capriv) { |
return ($ownername,$domain); |
return ($ownername,$domain); |
|
} |
|
} |
} |
} |
} |
return ''; |
return ''; |