ipfilter/move.cgi

   1 #!/usr/local/bin/perl
   2 # Swap two rules
   3
   4 require './ipfilter-lib.pl';
   5 &ReadParse();
   6 $rules = &get_config();
   7
   8 $rule1 = $rules->[$in{'idx'}];
   9 if ($in{'up'}) {
  10         $rule2 = $rules->[$in{'idx'} - 1];
  11         }
  12 else {
  13         $rule2 = $rules->[$in{'idx'} + 1];
  14         }
  15 &lock_file($rule1->{'file'});
  16 &swap_rules($rule1, $rule2);
  17 &flush_file_lines();
  18 &unlock_file($rule1->{'file'});
  19 &copy_to_cluster();
  20 &webmin_log("move", "rule", undef, $rule1);
  21 &redirect("");
  22