<%
Z::set_settings(
"title" => "Access Module: Edit Group",
"help" => "/apps/web/docs/modules/access/index.html",
"base" => "modules!access"
);
$::f{back} = "/apps/web/modules/access/rules.ahtml?server=$::f{server}";
%>
<% Z::parse( "../../etc/editheader.ahtml" ) %>
- Create New Group
-
<%= Z::form( ) %>
-
Group name:
<%
if( Z::is_submit() ) {
$::f{target} = "editgroup.ahtml?server=$::f{server}&group=".$::f{"%1_groups"};
}
%>
<%= Z::endform() %>
Current Groups
-
Click on a group name to edit or delete the group.
<%
@groups = sort map { /^\!groups\!([^!]*)/; $1 } grep /^\!groups\!/, keys %::f;
%seen = (); @groups = sort grep { ! $seen{$_}++ } @groups;
if( !@groups ) {
$html = "No groups are currently defined";
} else {
$html = "| Group | Users |
\n";
foreach $group ( @groups ) {
$users = join ", ", sort map { /^\!groups\!$group\!(.*)/; $1 }
grep /^\!groups\!$group\!/, keys %::f;
$html .= <
$group
| $users |
HERE
}
$html .= "
\n";
}
Z::write( $html );
%>
<% Z::parse( "../../etc/footer.ahtml" ) %>