ipfw/move.cgi

   1 #!/usr/local/bin/perl
   2 # move.cgi
   3 # Swap two rules
   4
   5 require './ipfw-lib.pl';
   6 &ReadParse();
   7 $rules = &get_config();
   8
   9 $rule1 = $rules->[$in{'idx'}];
  10 $rule2 = $rules->[$in{'up'} ? $in{'idx'}-1 : $in{'idx'}+1];
  11 ($rules->[$rule1->{'index'}], $rules->[$rule2->{'index'}]) =
  12         ($rules->[$rule2->{'index'}], $rules->[$rule1->{'index'}]);
  13 ($rule1->{'num'}, $rule2->{'num'}) =
  14         ($rule2->{'num'}, $rule1->{'num'});
  15 &lock_file($ipfw_file);
  16 &save_config($rules);
  17 &unlock_file($ipfw_file);
  18 &copy_to_cluster();
  19 &webmin_log("move", "rule", $rule1->{'action'}, $rule1);
  20 &redirect("");
  21