shorewall/manual_form.cgi

   1 #!/usr/bin/perl
   2 # Display the contents of a table file
   3
   4 require './shorewall-lib.pl';
   5 &ReadParse();
   6 &get_clean_table_name(\%in);
   7 &can_access($in{'table'}) || &error($text{'list_ecannot'});
   8 &ui_print_header(undef, $text{$in{'tableclean'}."_title"}, "");
   9
  10 $file = "$config{'config_dir'}/$in{'table'}";
  11 $in{'table'} =~ /\.\./ && &error($text{'manual_efile'});
  12 print &text('manual_desc', "<tt>$file</tt>"),"<p>\n";
  13
  14 print "<form action=manual_save.cgi method=post enctype=multipart/form-data>\n";
  15 print &ui_hidden("table", $in{'table'});
  16 print "<textarea name=data rows=20 cols=80>";
  17 open(FILE, $file);
  18 while(<FILE>) {
  19         print &html_escape($_);
  20         }
  21 close(FILE);
  22 print "</textarea><br>\n";
  23 print "<input type=submit value='$text{'save'}'>\n";
  24 print "<input type=reset value='$text{'manual_reset'}'>\n";
  25 print "</form>\n";
  26
  27 &ui_print_footer("list.cgi?table=$in{'table'}", $text{$in{'tableclean'}."_return"});