%attr>
ajax => 1
%attr>
<%args>
$config => undef
$file => '/opt/rbc/htdocs/config/reelbox.cfg'
%args>
<%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"); } %init>
@(Konfiguration gespeichert)\n"); %perl> %method>