itsecur-firewall/up.cgi

   1 #!/usr/bin/perl
   2 # up.cgi
   3 # Move a rule up
   4
   5 require './itsecur-lib.pl';
   6 &can_edit_error("rules");
   7 &ReadParse();
   8 &lock_itsecur_files();
   9 @rules = &list_rules();
  10 ($rules[$in{'idx'}], $rules[$in{'idx'}-1]) =
  11         ($rules[$in{'idx'}-1], $rules[$in{'idx'}]);
  12 &save_rules(@rules);
  13 &unlock_itsecur_files();
  14 &remote_webmin_log("move", "rule", $in{'idx'}+1, $rules[$in{'idx'}]);
  15 &redirect("list_rules.cgi");
  16