<%args> $config => undef $file => '/opt/rbc/htdocs/config/reelbox.cfg' <%init> if(defined $config && $config ne '') { # parse config and save it $m->comp('/include/config:clear_config'); foreach(split("\n",$config)) { chomp; if(/^(.+)=(.+)\s*$/) { $m->comp('/include/config:set_key', key => $1 , value => $2); } } $m->comp('/include/config:save_config'); $m->print("

@(Konfiguration gespeichert)
\n"); }

<& /tools/editor.html:e_nav_bar, file => $file &>
<& /tools/editor.html:e_content, file => $file &>
<%method SetKey> <%args> $key $value <%perl> $m->comp('/include/config:set_key', key => $key , value => $value); $m->comp('/include/config:save_config'); $m->print("

@(Konfiguration gespeichert)
\n");