<% Z::set_settings( "title" => "Access Module: Edit Rule", "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" ) %> <% # Rule can get set twice, by the QUERY_STRING and the POST data ($::f{rule}) = split $/, $::f{rule}, 2 if (defined $::f{rule}); if ( !defined $::f{"rule"} or !defined $::f{"!rules!".$::f{"rule"}."!type"} ) { # pick a new rule number $::f{rule} = 0; $::f{rule}++ while( defined $::f{"!rules!".$::f{"rule"}."!type"} ); } $rule = $::f{rule}; %> <%= Z::form( target=>$::f{back} ) %>

Editing Rule <%=$rule%>

URL:	">
Rule:	>Allow >Deny

---

Apply this rule to the specified hostnames/ip addresses (leave blank for all hosts/ips)

Hosts:	" >
IP Addresses:	" >

---

Select the users and groups that this rule affects:

Users:

<% @users = sort map { /^!users\!(.*)/; $1 } grep /^\!users\!/, keys %::f; foreach $user ( @users ) { $selected = (defined $::f{"!rules!$rule!users!$user"})?"selected":""; Z::write( "$user\n" ); } %>

Groups:

<% @groups = ("all", sort map { /^!groups\!(.*)/; $1 } grep /^\!groups\![^!]+$/, keys %::f); foreach $group ( @groups ) { $selected = (defined $::f{"!rules!$rule!groups!$group"})?"selected":""; Z::write( "$group\n" ); } %>

<% if( Z::is_submit() ) { %newusers = map { $_, "" } split $/||"\n", $::f{"users"}||""; foreach $user ( @users ) { if( defined $newusers{$user} and !defined $::f{"!rules!$rule!users!$user"} ) { $::f{"!rules!$rule!users!$user"} = ""; } if( !defined $newusers{$user} and defined $::f{"!rules!$rule!users!$user"} ) { $::f{"-!rules!$rule!users!$user"} = ""; } } %newgroups = map { $_, "" } split $/||"\n", $::f{"groups"}||""; foreach $group ( @groups ) { if( defined $newgroups{$group} and !defined $::f{"!rules!$rule!groups!$group"} ) { $::f{"!rules!$rule!groups!$group"} = ""; } if( !defined $newgroups{$group} and defined $::f{"!rules!$rule!groups!$group"} ) { $::f{"-!rules!$rule!groups!$group"} = ""; } } } %> <%= Z::endform() %> <% Z::parse( "../../etc/footer.ahtml" ) %>