version 1.39, 2005/06/19 00:41:32
|
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); |
|
} |
|
} |
|
my $aapriv='user.priv.aa./'.$domain.'/'.$ownername.'./'; |
|
foreach (keys %env) { |
|
if ($_ eq $aapriv) { |
|
return ($ownername,$domain); |
|
} |
|
} |
} |
} |
} |
return ''; |
return ''; |