<&|/l&>Member-writable admin areas:

<&|/l&>Who can see the download area:

% my $DownloadRole = $QueueObj->DownloadACL('role'); % my $DownloadCollect = $QueueObj->DownloadACL('collect'); % foreach my $role ('0-anybody', '1-registered', '2-member') { % }

<%INIT> if ($UpdateACL) { my @ACL; foreach my $key (sort keys %ARGS) { $key =~ /^SetACL-(.+)$/ or next; push @ACL, $1; } $QueueObj->SetAttribute("ACL-member" => join(' ', @ACL)); $QueueObj->SetDownloadACL($_ => $ARGS{"SetDownload-$_"}) for qw( role collect ); } <%ARGS> $QueueObj $UpdateACL => 0