Viewing file:  save_class.cgi (20.38 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# save_class.cgi
# Create, update or delete a class in a section
require './cfengine-lib.pl';
&ReadParse();
$conf = $in{'cfd'} ? &get_cfd_config() : &get_config();
$sec = $conf->[$in{'idx'}] if ($in{'idx'} ne '');
$cls = $sec->{'cls'}->[$in{'cidx'}] if ($in{'cidx'} ne '');
if ($in{'manualmode'}) {
# Redirect back to the edit form, but in manual mode
&redirect("edit_class.cgi?cfd=$in{'cfd'}&idx=$in{'idx'}&cidx=$in{'cidx'}&new=$in{'new'}&manual=1");
}
elsif ($in{'delete'}) {
# Just delete the class, and maybe the section too
&lock_file($sec->{'file'});
if (@{$sec->{'cls'}} == 1) {
&save_directive($conf, $sec, undef);
}
else {
&save_directive($sec->{'cls'}, $cls, undef);
}
&flush_file_lines();
&unlock_file($sec->{'file'});
&webmin_log("delete", @{$sec->{'cls'}} == 1 ? "section" : "class",
$sec->{'name'});
&redirect($in{'cfd'} ? "edit_cfd.cgi" : "");
}
else {
# Validate and save inputs
$type = $in{'idx'} eq '' ? $in{'type'} : $sec->{'name'};
if (!$sec) {
$sec = { 'name' => $type,
'type' => 'section',
'cls' => [ $cls = { 'type' => 'class' } ] };
}
elsif (!$cls) {
$cls = { 'type' => 'class' };
}
&error_setup($text{'save_err'});
$in{'class_def'} || $in{'class'} =~ /^\S+$/ ||
&error($text{'save_eclass'});
$cls->{'name'} = $in{'class_def'} ? 'any' : $in{'class'};
$cls->{'implied'} = 0 if (!$in{'class_def'});
if (defined($in{'manual'})) {
# Just save manually edited text
$in{'manual'} =~ s/\r//g;
$cls->{'text'} = $in{'manual'};
}
elsif ($type eq 'links') {
# Save link creation lines
local @olinks = &parse_links($cls);
local @links;
for($i=0; defined($in{"from_$i"}); $i++) {
next if (!$in{"from_$i"} && !$in{"to_$i"});
local $link = $olinks[$i];
$in{"from_$i"} =~ /^\S+$/ ||
&error(&text('save_elinkfrom', $i+1));
$link->{'_linkfrom'} = $in{"from_$i"};
$in{"to_$i"} =~ /^\S+$/ ||
&error(&text('save_elinkto', $i+1));
$link->{'_linkto'} = $in{"to_$i"};
$link->{'_linktype'} = $in{"type_$i"} ? "+>" : "->";
$link->{'_linktype'} .= "!" if ($in{"over_$i"});
push(@links, $link);
}
&unparse_links($cls, @links);
}
elsif ($type eq 'directories') {
# Save directory creation lines
local @odirs = &parse_directories($cls);
local @dirs;
for($i=0; defined($in{"dir_$i"}); $i++) {
next if (!$in{"dir_$i"});
local $dir = $odirs[$i];
$in{"dir_$i"} =~ /^\S+$/ ||
&error(&text('save_edir', $i+1));
$dir->{'_dir'} = $in{"dir_$i"};
&sdelete($dir, 'mode');
if ($in{"mode_$i"} ne "") {
$in{"mode_$i"} =~ /^[0-9]{3,4}$/ ||
&error(&text('save_edirmode', $i+1));
$dir->{'mode'} = $in{"mode_$i"};
}
&sdelete($dir, 'owner');
if ($in{"owner_$i"} ne "") {
$in{"owner_$i"} =~ /^\S+$/ ||
&error(&text('save_edirowner', $i+1));
$dir->{'owner'} = $in{"owner_$i"};
}
&sdelete($dir, 'group');
if ($in{"group_$i"} ne "") {
$in{"group_$i"} =~ /^\S+$/ ||
&error(&text('save_edirgroup', $i+1));
$dir->{'group'} = $in{"group_$i"};
}
push(@dirs, $dir);
}
&unparse_directories($cls, @dirs);
}
elsif ($type eq "control" && !$in{'cfd'}) {
# Save actionsequence and other global definitions
local ($sp, $qu) = &split_str($in{'seq'});
push(@defs, { 'name' => 'actionsequence',
'values' => $sp,
'valuequotes' => $qu } );
for($i=0; defined($in{"def_$i"}); $i++) {
next if (!$in{"def_$i"});
$in{"def_$i"} =~ /^\S+$/ ||
&error(&text('save_econtroldef', $i+1));
local ($sp, $qu) = &split_str($in{"value_$i"});
push(@defs, { 'name' => $in{"def_$i"},
'values' => $sp,
'valuequotes' => $qu } );
}
$cls->{'defs'} = \@defs;
}
elsif ($type eq "control" && $in{'cfd'}) {
# Save cfd-specific control options
$in{'run_def'} ||
($in{'run'} =~ /^(\S+)/ && &has_command("$1")) ||
&error(&text('save_econtrolrun', "$1"));
&save_define($cls->{'defs'}, "cfrunCommand",
$in{'run_def'} ? undef : [ $in{'run'} ]);
$in{'elapsed_def'} || $in{'elapsed'} =~ /^\d+$/ ||
&error($text{'save_econtrolelapsed'});
&save_define($cls->{'defs'}, "IfElapsed",
$in{'elapsed_def'} ? undef : [ $in{'elapsed'} ]);
$in{'max_def'} || $in{'max'} =~ /^\d+$/ ||
&error($text{'save_econtrolmax'});
&save_define($cls->{'defs'}, "MaxConnections",
$in{'max_def'} ? undef : [ $in{'max'} ]);
$in{'auto_def'} ||
($in{'auto'} =~ /^(\S+)/ && &has_command("$1")) ||
&error(&text('save_econtrolauto', "$1"));
&save_define($cls->{'defs'}, "AutoExecCommand",
$in{'auto_def'} ? undef : [ $in{'auto'} ]);
$in{'interval_def'} || $in{'interval'} =~ /^\d+$/ ||
&error($text{'save_econtrolinterval'});
&save_define($cls->{'defs'}, "AutoExecInterval",
$in{'interval_def'} ? undef : [ $in{'interval'} ]);
$in{'dom_def'} || $in{'dom'} =~ /^[A-Za-z0-9\.\-]+$/ ||
&error($text{'save_econtroldomain'});
&save_define($cls->{'defs'}, "domain",
$in{'dom_def'} ? undef : [ $in{'dom'} ]);
&save_define($cls->{'defs'}, "LogAllConnections",
$in{'log'} == 1 ? [ "true" ] :
$in{'log'} == 0 ? [ "false" ] : undef);
$in{'allow_def'} || $in{'allow'} =~ /\S/ ||
&error($text{'save_econtrolallow'});
&save_define($cls->{'defs'}, "AllowConnectionsFrom",
$in{'allow_def'} ? undef :
[ split(/\s+/, $in{'allow'}) ] );
$in{'deny_def'} || $in{'deny'} =~ /\S/ ||
&error($text{'save_econtroldeny'});
&save_define($cls->{'defs'}, "DenyConnectionsFrom",
$in{'deny_def'} ? undef :
[ split(/\s+/, $in{'deny'}) ] );
$in{'skip_def'} || $in{'skip'} =~ /\S/ ||
&error($text{'save_econtrolskip'});
&save_define($cls->{'defs'}, "SkipVerify",
$in{'skip_def'} ? undef :
[ split(/\s+/, $in{'skip'}) ] );
}
elsif ($type eq "admit" || $type eq "grant" || $type eq "deny") {
# Save allowed or denied directories
local $vl = 0;
for($i=0; defined($in{"dir_$i"}); $i++) {
next if (!$in{"dir_$i"});
$in{"dir_$i"} =~ /^\S+$/ ||
&error(&text('save_egrantdir', $i+1));
push(@values, $in{"dir_$i"});
push(@valuelines, $vl++);
local @hosts = split(/\s+/, $in{"hosts_$i"});
@hosts ||
&error(&text('save_egranthosts', $in{"dir_$i"}));
foreach $h (@hosts) {
&to_ipaddress($h) ||
$h =~ /\*/ || $h =~ /=/ ||
&error(&text('save_egranthost', $h));
push(@values, $h);
push(@valuelines, $vl++);
}
$vl++;
}
$cls->{'values'} = \@values;
$cls->{'valuelines'} = \@valuelines;
}
elsif ($type eq "groups" || $type eq "classes") {
# Save group definitions
for($i=0,$j=0; defined($in{"name_$i"}); $i++) {
next if (!$in{"name_$i"});
$in{"name_$i"} =~ /^\S+$/ ||
&error(&text('save_egroupname', $i+1));
local ($st, $qu) = &split_str($in{"mems_$i"});
push(@defs, { 'name' => $in{"name_$i"},
'values' => $st,
'valuequotes' => $qu } );
$j++;
}
$cls->{'defs'} = \@defs;
}
elsif ($type eq "files") {
# Save all the files lines
local @ofiles = &parse_directories($cls);
local @files;
for($i=0; defined($d = $in{"dir_$i"}); $i++) {
next if ($in{"dir_def_$i"});
local $file = $ofiles[$i];
$file->{'_dir'} = $d;
$d =~ /\S/ || &error(&text('save_efilesdir', $i+1));
&sdelete($file, 'owner');
if (!$in{"owner_def_$i"}) {
$in{"owner_$i"} =~ /^\S+$/ ||
&error(&text('save_efilesowner', $d));
$file->{'owner'} = $in{"owner_$i"};
}
&sdelete($file, 'group');
if (!$in{"group_def_$i"}) {
$in{"group_$i"} =~ /^\S+$/ ||
&error(&text('save_efilesgroup', $d));
$file->{'group'} = $in{"group_$i"};
}
&sdelete($file, 'mode');
if (!$in{"mode_def_$i"}) {
$in{"mode_$i"} =~ /^\S+$/ ||
&error(&text('save_efilesmode', $d));
$file->{'mode'} = $in{"mode_$i"};
}
&sdelete($file, 'recurse');
if ($in{"rec_def_$i"} == 2) {
$file->{'recurse'} = 'inf';
}
elsif ($in{"rec_def_$i"} == 0) {
$in{"rec_$i"} =~ /^\d+$/ ||
&error(&text('save_efilesrec', $d));
$file->{'recurse'} = $in{"rec_$i"};
}
&sdelete($file, 'include');
if (!$in{"include_def_$i"}) {
$in{"include_$i"} =~ /^\S+$/ ||
&error(&text('save_efilesinclude', $d));
$file->{'include'} = $in{"include_$i"};
}
&sdelete($file, 'exclude');
if (!$in{"exclude_def_$i"}) {
$in{"exclude_$i"} =~ /^\S+$/ ||
&error(&text('save_efilesexclude', $d));
$file->{'exclude'} = $in{"exclude_$i"};
}
&sdelete($file, 'acl');
if (!$in{"acl_def_$i"}) {
$in{"acl_$i"} =~ /^\S+$/ ||
&error(&text('save_efileacl', $d));
$file->{'acl'} = $in{"acl_$i"};
}
&sdelete($file, 'action');
if ($in{"act_$i"}) {
$file->{'action'} = $in{"act_$i"};
}
push(@files, $file);
}
&unparse_directories($cls, @files);
}
elsif ($type eq "copy") {
# Save copy lines
local @ocopies = &parse_directories($cls);
local @copies;
for($i=0; defined($d = $in{"dir_$i"}); $i++) {
next if ($in{"dir_def_$i"});
local $copy = $ocopies[$i];
$copy->{'_dir'} = $d;
$d =~ /\S/ || &error(&text('save_ecopydir', $i+1));
&sdelete($copy, "dest");
$in{"dest_$i"} =~ /\S/ ||
&error(&text('save_ecopydest', $d));
$copy->{'dest'} = $in{"dest_$i"};
&sdelete($copy, "server");
if (!$in{"server_def_$i"}) {
&to_ipaddress($in{"server_$i"}) ||
&error(&text('save_ecopyserver', $d));
$copy->{'server'} = $in{"server_$i"};
}
&sdelete($copy, 'owner');
if (!$in{"owner_def_$i"}) {
$in{"owner_$i"} =~ /^\S+$/ ||
&error(&text('save_ecopyowner', $d));
$copy->{'owner'} = $in{"owner_$i"};
}
&sdelete($copy, 'group');
if (!$in{"group_def_$i"}) {
$in{"group_$i"} =~ /^\S+$/ ||
&error(&text('save_ecopygroup', $d));
$copy->{'group'} = $in{"group_$i"};
}
&sdelete($copy, 'mode');
if (!$in{"mode_def_$i"}) {
$in{"mode_$i"} =~ /^\S+$/ ||
&error(&text('save_ecopymode', $d));
$copy->{'mode'} = $in{"mode_$i"};
}
&sdelete($copy, 'recurse');
if ($in{"rec_def_$i"} == 2) {
$copy->{'recurse'} = 'inf';
}
elsif ($in{"rec_def_$i"} == 0) {
$in{"rec_$i"} =~ /^\d+$/ ||
&error(&text('save_ecopyrec', $d));
$copy->{'recurse'} = $in{"rec_$i"};
}
&sdelete($copy, "size");
if ($in{"size_mode_$i"} == 1) {
$in{"size1_$i"} ne '' ||
&error(&text('save_ecopysize', $d));
$copy->{'size'} = $in{"size1_$i"};
}
elsif ($in{"size_mode_$i"} == 2) {
$in{"size2_$i"} ne '' ||
&error(&text('save_ecopysize', $d));
$copy->{'size'} = "<".$in{"size2_$i"};
}
elsif ($in{"size_mode_$i"} == 3) {
$in{"size3_$i"} ne '' ||
&error(&text('save_ecopysize', $d));
$copy->{'size'} = ">".$in{"size3_$i"};
}
&sdelete($copy, "backup");
$copy->{'backup'} = 'false' if (!$in{"backup_$i"});
&sdelete($copy, "force");
$copy->{'force'} = 'true' if ($in{"force_$i"});
&sdelete($copy, "purge");
$copy->{'purge'} = 'true' if ($in{"purge_$i"});
&sdelete($copy, "action");
if ($in{"act_$i"}) {
$copy->{'action'} = $in{"act_$i"};
}
push(@copies, $copy);
}
&unparse_directories($cls, @copies);
}
elsif ($type eq "disable") {
# Save disable lines
local @odis = &parse_directories($cls);
local @dis;
for($i=0; defined($d = $in{"dir_$i"}); $i++) {
next if ($in{"dir_def_$i"});
local $dis = $odis[$i];
$dis->{'_dir'} = $d;
$d =~ /\S/ || &error(&text('save_edisfile', $i+1));
&sdelete($dis, "rotate");
if ($in{"rot_mode_$i"} == 1) {
$dis->{'rotate'} = 'empty';
}
elsif ($in{"rot_mode_$i"} == 2) {
$in{"rot_$i"} =~ /^\d+$/ ||
&error(&text('save_edisrot', $d));
$dis->{'rotate'} = $in{"rot_$i"};
}
&sdelete($dis, "type");
if ($in{"type_$i"}) {
$dis->{'type'} = $in{"type_$i"};
}
&sdelete($dis, "size");
if ($in{"size_mode_$i"} == 1) {
$in{"size1_$i"} ne '' ||
&error(&text('save_edissize', $d));
$dis->{'size'} = $in{"size1_$i"};
}
elsif ($in{"size_mode_$i"} == 2) {
$in{"size2_$i"} ne '' ||
&error(&text('save_edissize', $d));
$dis->{'size'} = "<".$in{"size2_$i"};
}
elsif ($in{"size_mode_$i"} == 3) {
$in{"size3_$i"} ne '' ||
&error(&text('save_edissize', $d));
$dis->{'size'} = ">".$in{"size3_$i"};
}
push(@dis, $dis);
}
&unparse_directories($cls, @dis);
}
elsif ($type eq "editfiles") {
# Save file-editing scripts
for($i=0; defined($d = $in{"edit_$i"}); $i++) {
local (@values, @valuelines);
next if ($in{"edit_def_$i"});
$d =~ /\S/ || &error(&text('save_eeditfile', $i+1));
push(@values, $d);
push(@valuelines, 0);
push(@valuequotes, undef);
$in{"script_$i"} =~ s/\r//g;
local @lines = split(/\n/, $in{"script_$i"});
for($j=0; $j<@lines; $j++) {
local ($st, $qu) = &split_str($lines[$j]);
push(@values, @$st);
push(@valuequotes, @$qu);
push(@valuelines, map { $j+1 } @$st);
}
@values > 1 || &error(&text('save_eeditscript', $d));
push(@lists, { 'values' => \@values,
'valuelines' => \@valuelines,
'valuequotes' => \@valuequotes } );
}
$cls->{'lists'} = \@lists;
}
elsif ($type eq "ignore") {
# Save list of ignored files
local ($st, $qu) = &split_str($in{"ignore"});
for($i=0; $i<@$st; $i++) {
push(@values, $st->[$i]);
push(@valuelines, $i);
push(@valuequotes, $qu->[$i]);
}
$cls->{'values'} = \@values;
$cls->{'valuelines'} = \@valuelines;
$cls->{'valuequotes'} = \@valuequotes;
}
elsif ($type eq "processes") {
# Save managed processes list
local $ostr;
local @oprocs = &parse_processes($cls);
local @procs;
for($i=0; defined($p = $in{"proc_$i"}) || $i<@oprocs; $i++) {
next if ($in{"proc_def_$i"});
local $proc = $oprocs[$i];
if ($proc->{'_options'}) {
push(@procs, $proc);
next;
}
$proc->{'_match'} = $p;
$p =~ /\S/ || &error(&text('save_eproc', $i+1));
&sdelete($proc, "signal");
if ($in{"sig_$i"}) {
$proc->{'signal'} = $in{"sig_$i"};
}
&sdelete($proc, "action");
if ($in{"act_$i"}) {
$proc->{'action'} = $in{"act_$i"};
}
&sdelete($proc, "matches");
if ($in{"mat_mode_$i"} == 1) {
$in{"mat1_$i"} ne '' ||
&error(&text('save_eprocmat', $d));
$proc->{'matches'} = $in{"mat1_$i"};
}
elsif ($in{"mat_mode_$i"} == 2) {
$in{"mat2_$i"} ne '' ||
&error(&text('save_eprocmat', $d));
$proc->{'matches'} = "<".$in{"mat2_$i"};
}
elsif ($in{"mat_mode_$i"} == 3) {
$in{"mat3_$i"} ne '' ||
&error(&text('save_eprocmat', $d));
$proc->{'matches'} = ">".$in{"mat3_$i"};
}
delete($proc->{'_restart'});
if (!$in{"restart_def_$i"}) {
$in{"restart_$i"} =~ /\S/ ||
&error(&text('save_eprocrestart', $p));
$proc->{'_restart'} = $in{"restart_$i"};
}
&sdelete($proc, 'owner');
if (!$in{"owner_def_$i"}) {
$in{"owner_$i"} =~ /^\S+$/ ||
&error(&text('save_eprocowner', $d));
$proc->{'owner'} = $in{"owner_$i"};
}
&sdelete($proc, 'group');
if (!$in{"group_def_$i"}) {
$in{"group_$i"} =~ /^\S+$/ ||
&error(&text('save_eprocgroup', $d));
$proc->{'group'} = $in{"group_$i"};
}
push(@procs, $proc);
}
&unparse_processes($cls, @procs);
}
elsif ($type eq "shellcommands") {
# Save commands to execute
local @ocmds = &parse_directories($cls);
local @cmds;
for($i=0; defined($in{"cmd_$i"}); $i++) {
next if (!$in{"cmd_$i"});
local $cmd = $ocmd[$i];
$in{"cmd_$i"} =~ /\S/ ||
&error(&text('save_ecmd', $i+1));
$cmd->{'_dir'} = $in{"cmd_$i"};
&sdelete($cmd, 'owner');
if ($in{"owner_$i"} ne "") {
$in{"owner_$i"} =~ /^\S+$/ ||
&error(&text('save_ecmdowner', $i+1));
$cmd->{'owner'} = $in{"owner_$i"};
}
&sdelete($cmd, 'group');
if ($in{"group_$i"} ne "") {
$in{"group_$i"} =~ /^\S+$/ ||
&error(&text('save_ecmdgroup', $i+1));
$cmd->{'group'} = $in{"group_$i"};
}
&sdelete($cmd, "timeout");
if ($in{"timeout_$i"} ne '') {
$in{"timeout_$i"} =~ /^\d+$/ ||
&error(&text('save_ecmdtimeout', $i+1));
$cmd->{'timeout'} = $in{"timeout_$i"};
}
push(@cmds, $cmd);
}
&unparse_shellcommands($cls, @cmds);
}
elsif ($type eq "tidy") {
# Save tidied directories
local @otidy = &parse_directories($cls);
local @tidy;
for($i=0; defined($d = $in{"dir_$i"}); $i++) {
next if ($in{"dir_def_$i"});
local $tidy = $otidy[$i];
$d =~ /^\S+$/ || &error(&text('save_etidy', $i+1));
$tidy->{'_dir'} = $d;
&sdelete($tidy, "pattern");
if (!$in{"pat_def_$i"}) {
$in{"pat_$i"} =~ /^\S+$/ ||
&error(&text('save_etidypat', $d));
$tidy->{'pattern'} = $in{"pat_$i"};
}
&sdelete($tidy, "size");
if ($in{"smode_$i"} == 1) {
$tidy->{'size'} = 'empty';
}
elsif ($in{"smode_$i"} == 2) {
$in{"size_$i"} =~ /^\S+$/ ||
&error(&text('save_etidysize', $d));
$tidy->{'size'} = $in{"size_$i"};
}
&sdelete($tidy, "age");
&sdelete($tidy, "type");
if ($in{"type_$i"}) {
$tidy->{'type'} = $in{"type_$i"};
}
if (!$in{"age_def_$i"}) {
$in{"age_$i"} =~ /^\d+$/ ||
&error(&text('save_etidyage', $d));
$tidy->{'age'} = $in{"age_$i"};
}
&sdelete($tidy, 'recurse');
if ($in{"rec_def_$i"} == 2) {
$tidy->{'recurse'} = 'inf';
}
elsif ($in{"rec_def_$i"} == 0) {
$in{"rec_$i"} =~ /^\d+$/ ||
&error(&text('save_etidyrec', $d));
$tidy->{'recurse'} = $in{"rec_$i"};
}
push(@tidy, $tidy);
}
&unparse_directories($cls, @tidy);
}
elsif ($type eq "miscmounts") {
# Save mounted NFS filesystems
local @omnts = &parse_miscmounts($cls);
local @mnts;
for($i=0; defined($d = $in{"src_$i"}); $i++) {
next if (!$d);
local $mnt = $omnts[$i];
$d =~ /^\S+$/ ||
&error(&text('save_emiscsrc', $i+1));
$mnt->{'_src'} = $d;
$in{"dest_$i"} =~ /^\S+$/ ||
&error(&text('save_emiscdest', $d));
$mnt->{'_dest'} = $in{"dest_$i"};
&sdelete($mnt, "mode");
$in{"mode_$i"} =~ /^\S*$/ ||
&error(&text('save_emiscmode', $d));
$mnt->{'mode'} = $in{"mode_$i"} if ($in{"mode_$i"});
push(@mnts, $mnt);
}
&unparse_miscmounts($cls, @mnts);
}
elsif ($type eq "resolve") {
# Save nameserver options
$in{'ns'} =~ s/\r//g;
local @ns = split(/\n/, $in{'ns'});
$in{'other'} =~ s/\r//g;
local @other = split(/\n/, $in{'other'});
local $vl = 0;
foreach $n (@ns) {
push(@values, $n);
push(@valuelines, $vl++);
push(@valuequotes, "");
}
foreach $n (@other) {
push(@values, $n);
push(@valuelines, $vl++);
push(@valuequotes, '"');
}
$cls->{'values'} = \@values;
$cls->{'valuelines'} = \@valuelines;
$cls->{'valuequotes'} = \@valuequotes;
}
elsif ($type eq "defaultroute") {
# Save default router options
$in{'route'} =~ /^\S+$/ || &error($text{'save_eroute'});
$cls->{'values'} = [ $in{'route'} ];
$cls->{'valuelines'} = 0;
$cls->{'valuequotes'} = [ ];
}
elsif ($type eq "required" || $type eq "disks") {
# Save filesystems to check
local @oreqs = &parse_directories($cls);
local @reqs;
for($i=0; defined($d = $in{"fs_$i"}); $i++) {
next if (!$d);
local $req = $oreqs[$i];
$d =~ /^\S+$/ || &error(&text('save_ereq', $i+1));
$req->{'_dir'} = $d;
&sdelete($req, "freespace");
if (!$in{"free_def_$i"}) {
$in{"free_$i"} =~ /^\S+$/ ||
&error(&text('save_ereqfree', $d));
$req->{'freespace'} = $in{"free_$i"};
}
push(@reqs, $req);
}
&unparse_directories($cls, @reqs);
}
# Write to the config file
if ($in{'cidx'} ne '') {
# Updating an existing class
&lock_file($sec->{'file'});
&save_directive($conf, $cls, $cls);
&flush_file_lines();
&unlock_file($sec->{'file'});
&webmin_log("modify", "class", $sec->{'name'});
}
elsif ($in{'idx'} ne '') {
# Adding a class to an existing section
&lock_file($sec->{'file'});
&save_directive($sec->{'cls'}, undef, $cls);
&flush_file_lines();
&unlock_file($sec->{'file'});
&webmin_log("create", "class", $sec->{'name'});
}
else {
# Creating a new section and class
&lock_file($conf->[0]->{'file'});
&save_directive($conf, undef, $sec);
&flush_file_lines();
&unlock_file($conf->[0]->{'file'});
&webmin_log("create", "section", $sec->{'name'});
}
&redirect($in{'cfd'} ? "edit_cfd.cgi" : "");
}
# save_define(&config, name, &values|undef)
sub save_define
{
local ($i, $old);
for($i=0; $i<@{$_[0]}; $i++) {
if ($_[0]->[$i]->{'name'} eq $_[1]) {
$old = $_[0]->[$i];
last;
}
}
if ($old && $_[2]) {
$_[0]->[$i]->{'values'} = $_[2];
}
elsif ($old) {
splice(@{$_[0]}, $i, 1);
}
elsif ($_[2]) {
push(@{$_[0]}, { 'name' => $_[1], 'values' => $_[2] } );
}
}
# sdelete(&conf, name)
sub sdelete
{
local $i;
for($i=length($_[1]); $i>0; $i--) {
local $s = substr($_[1], 0, $i);
if (defined($_[0]->{$s})) {
delete($_[0]->{$s});
last;
}
}
}
|