[# tag: ewok config settings administration page #] [! do { use Ewok::Config qw(:all); use Ewok::Authz qw(refresh_htaccess); use Ewok::Config qw($config_multiline); use Config::Directory; } !][- do { Execute({ inputfile => 'util.epl', import => 1 }); $req = shift; $conf = Config::Directory->new([ "$EWOK_HOME/conf/dist", "$EWOK_HOME/conf/local", ]); $conf->{$_} =~ s/\\/\\\\/g foreach keys %$conf; $op = lc($fdat{op}); $op =~ s/ .*//; @errors = (); $stripe = 2; } -]
[+ $var +] updated.
[$ endforeach $] [- do { # Touch the local directory to force config reloads $ENV{PATH} = "/bin:/usr/bin:/usr/local/bin"; system("touch", "$EWOK_HOME/conf/local"); # Refresh the local htacess if EWOK_ADMINS has changed if (grep /EWOK_ADMINS/, @save) { refresh_htaccess("$EWOK_HOME/htdocs/admin"); } } -] [$ endif $] [# Not cancel or save #] [$ else $] [- $help = Config::Directory->new("$EWOK_HOME/conf/help") -] [$ endif $]