firewall/newchain.cgi

   1 #!/usr/local/bin/perl
   2 # newchain.cgi
   3 # Create a new user-defined chain
   4
   5 require './firewall-lib.pl';
   6 $access{'newchain'} || &error($text{'new_ecannot'});
   7 &ReadParse();
   8 @tables = &get_iptables_save();
   9 $table = $tables[$in{'table'}];
  10 &can_edit_table($table->{'name'}) || &error($text{'etable'});
  11 &error_setup($text{'new_err'});
  12 &lock_file($iptables_save_file);
  13 $in{'chain'} =~ /^\S+$/ || &error($text{'new_ename'});
  14 $table->{'defaults'}->{$in{'chain'}} && &error($text{'new_etaken'});
  15 $table->{'defaults'}->{$in{'chain'}} = '-';
  16 &run_before_command();
  17 &save_table($table);
  18 &run_after_command();
  19 &copy_to_cluster();
  20 &unlock_file($iptables_save_file);
  21 &webmin_log("create", "chain", undef, { 'chain' => $in{'chain'},
  22                                         'table' => $table->{'name'} });
  23
  24 &redirect("index.cgi?table=$in{'table'}");
  25