mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
15 lines
345 B
Perl
Executable File
15 lines
345 B
Perl
Executable File
#!/usr/local/bin/perl
|
|
# down.cgi
|
|
# Move an entire section down in the config file
|
|
|
|
require './cfengine-lib.pl';
|
|
&ReadParse();
|
|
$conf = $in{'cfd'} ? &get_cfd_config() : &get_config();
|
|
$sw1 = $conf->[$in{'idx'}];
|
|
$sw2 = $conf->[$in{'idx'}+1];
|
|
&swap_directives($conf, $sw1, $sw2);
|
|
|
|
&flush_file_lines();
|
|
&redirect($in{'cfd'} ? "edit_cfd.cgi" : "");
|
|
|