<%
Z::set_settings(
"title" => "Module Configuration",
"base" => ""
);
$::f{back} = "/apps/web/edit.ahtml?server=$::f{server}";
%>
<% Z::parse( "etc/editheader.ahtml" ) %>
<%
## OK, lets display all of the modules that we have installed on this
## virtual server (that we have config for)
my( $zc ) = new ZConf();
$zc->ZConf::load( "$ENV{ZEUSHOME}/webadmin/conf/sites/$::f{server}" );
foreach $item (sort $zc->ZConf::list( "modules" ) ) {
open IN, "$ENV{DOCUMENT_ROOT}/apps/web/modules/$item/link" or next;
$/ = "\n";
my( $flags, $href, $desc ) = ;
defined $desc or next;
chomp $desc;
$desc .= "*" if ( $flags&2 );
$href .= ($href =~ /\?/)?"&":"?";
$href .= "server=$::f{server}&back=/apps/web/modules.ahtml?server=$::f{server}";
($toggle, $img, $alt) = ("no", "/apps/web/etc/tick.gif", "enabled");
if( ($zc->ZConf::get( "modules!$item!enabled" )||"") ne "yes" ) {
($toggle, $img, $alt) = ("yes", "/apps/web/etc/cross.gif", "disabled");
}
Z::write( <
$item
| $desc |
HERE
}
%>
* denotes required module
<%Z::parse( "etc/footer.ahtml" )%>