version 1.341, 2003/03/18 07:26:49
|
version 1.342, 2003/03/19 16:50:14
|
Line 1874 sub eget {
|
Line 1874 sub eget {
|
|
|
sub customaccess { |
sub customaccess { |
my ($priv,$uri)=@_; |
my ($priv,$uri)=@_; |
|
my ($urole,$urealm)=split(/\./,$ENV{'request.role'}); |
|
my ($udm,$ucid,$usec)=split(/\//,$urealm); |
my $access=0; |
my $access=0; |
foreach (split(/\s*\,\s*/,&metadata($uri,'rule_rights'))) { |
foreach (split(/\s*\,\s*/,&metadata($uri,'rule_rights'))) { |
my ($effect,$realm,$content)=split(/\:/,$_); |
my ($effect,$realm,$role)=split(/\:/,$_); |
&logthis('testing '.$effect.' '.$realm.' '.$content); |
foreach my $thisrealm (split(/\s*\,\s*/,$realm)) { |
|
&logthis('testing '.$effect.' '.$thisrealm.' '.$role); |
|
} |
} |
} |
return $access; |
return $access; |
} |
} |