<%attr> ajax => 1 <%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"); } <%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");