← Back
Editing: natmove.cgi
#!/usr/bin/perl # Swap two rules require './ipfilter-lib.pl'; &ReadParse(); $rules = &get_ipnat_config(); $rule1 = $rules->[$in{'idx'}]; if ($in{'up'}) { $rule2 = $rules->[$in{'idx'} - 1]; } else { $rule2 = $rules->[$in{'idx'} + 1]; } &lock_file($rule1->{'file'}); &swap_rules($rule1, $rule2); &flush_file_lines(); &unlock_file($rule1->{'file'}); ©_to_cluster(); &webmin_log("move", "nat", undef, $rule1); &redirect("");
Save File
Cancel