frox/edit_net.cgi

   1 #!/usr/local/bin/perl
   2 # Show networking-related options
   3
   4 require './frox-lib.pl';
   5 &ui_print_header(undef, $text{'net_title'}, "");
   6 $conf = &get_config();
   7
   8 print &ui_form_start("save_net.cgi", "post");
   9 print &ui_table_start($text{'net_header'}, "width=100%", 4);
  10
  11 print &config_opt_textbox($conf, "Listen", 40, 3, $text{'net_all'});
  12
  13 print &config_textbox($conf, "Port", 6);
  14
  15 print &config_opt_textbox($conf, "BindToDevice", 6, 1, $text{'net_all'});
  16
  17 print &config_yesno($conf, "FromInetd", undef, undef, "no");
  18
  19 print &config_exists($conf, "NoDetach", $text{'net_fg'}, $text{'net_bg'});
  20
  21 print &config_opt_textbox($conf, "FTPProxy", 30, 3, $text{'net_none'});
  22
  23 print &config_opt_textbox($conf, "TcpOutgoingAddr", 20, 3);
  24
  25 print &config_opt_textbox($conf, "PASVAddress", 20, 3);
  26
  27 print &config_opt_textbox($conf, "ResolvLoadHack", 40, 3, $text{'net_none'});
  28
  29 print &ui_table_end();
  30 print &ui_form_end([ [ 'save', $text{'save'} ] ], "100%");
  31
  32 &ui_print_footer("", $text{'index_return'});
  33