<%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 ); } %INIT> <%ARGS> $QueueObj $UpdateACL => 0 %ARGS>