mirror of
https://github.com/webmin/webmin.git
synced 2026-02-03 14:13:29 +00:00
17 lines
394 B
Perl
Executable File
17 lines
394 B
Perl
Executable File
#!/usr/bin/perl
|
|
# up.cgi
|
|
# Move a rule up
|
|
|
|
require './itsecur-lib.pl';
|
|
&can_edit_error("rules");
|
|
&ReadParse();
|
|
&lock_itsecur_files();
|
|
@rules = &list_rules();
|
|
($rules[$in{'idx'}], $rules[$in{'idx'}-1]) =
|
|
($rules[$in{'idx'}-1], $rules[$in{'idx'}]);
|
|
&save_rules(@rules);
|
|
&unlock_itsecur_files();
|
|
&remote_webmin_log("move", "rule", $in{'idx'}+1, $rules[$in{'idx'}]);
|
|
&redirect("list_rules.cgi");
|
|
|