squid/edit_progs.cgi

   1 #!/usr/local/bin/perl
   2 # edit_progs.cgi
   3 # A form for editing helper program options
   4
   5 require './squid-lib.pl';
   6 $access{'hprogs'} || &error($text{'eprogs_ecannot'});
   7 &ui_print_header(undef, $text{'eprogs_header'}, "", "edit_progs", 0, 0, 0, &restart_button());
   8 $conf = &get_config();
   9
  10 print "<form action=save_progs.cgi>\n";
  11 print "<table border width=100%>\n";
  12 print "<tr $tb> <td><b>$text{'eprogs_chpo'}</b></td> </tr>\n";
  13 print "<tr $cb> <td><table width=100%>\n";
  14
  15 print "<tr>\n";
  16 if ($squid_version < 2) {
  17         print &opt_input($text{'eprogs_sfp'}, "ftpget_program", $conf,
  18                          $text{'default'}, 40, &file_chooser_button("ftpget_program"));
  19         print "</tr>\n";
  20
  21         print "<tr>\n";
  22         print &opt_input($text{'eprogs_fo'}, "ftpget_options", $conf, $text{'default'}, 15);
  23         }
  24 else {
  25         print &opt_input($text{'eprogs_fcv'}, "ftp_list_width", $conf,
  26                          $text{'default'}, 6, $text{'eprogs_c'});
  27         }
  28 print &opt_input($text{'eprogs_afl'}, "ftp_user", $conf, $text{'default'}, 15);
  29 print "</tr>\n";
  30
  31 print "<tr>\n";
  32 print &opt_input($text{'eprogs_sdp'}, "cache_dns_program", $conf, $text{'default'}, 40,
  33                  &file_chooser_button("cache_dns_program"));
  34 print "</tr>\n";
  35
  36 print "<tr>\n";
  37 print &opt_input($text{'eprogs_nodp'}, "dns_children", $conf, $text{'default'}, 5);
  38 print &choice_input($text{'eprogs_adtr'}, "dns_defnames", $conf, "off",
  39                     $text{'yes'}, "on", $text{'no'}, "off");
  40 print "</tr>\n";
  41
  42 if ($squid_version >= 2) {
  43         print "<tr>\n";
  44         print &opt_input($text{'eprogs_dsa'}, "dns_nameservers", $conf,
  45                          $text{'eprogs_fr'}, 35);
  46         print "</tr>\n";
  47         }
  48
  49 print "<tr>\n";
  50 print &opt_input($text{'eprogs_ccp'}, "unlinkd_program", $conf,
  51                  $text{'default'}, 40, &file_chooser_button("unlinkd_program"));
  52 print "</tr>\n";
  53
  54 print "<tr>\n";
  55 print &opt_input($text{'eprogs_spp'}, "pinger_program", $conf,
  56                  $text{'default'}, 40, &file_chooser_button("pinger_program"));
  57 print "</tr>\n";
  58
  59 if ($squid_version >= 2.6) {
  60         print "<tr>\n";
  61         print &opt_input($text{'eprogs_crp'}, "url_rewrite_program", $conf,
  62                          $text{'none'}, 40, &file_chooser_button("url_rewrite_program"));
  63         print "</tr>\n";
  64
  65         print "<tr>\n";
  66         print &opt_input($text{'eprogs_norp'}, "url_rewrite_children", $conf,
  67                          $text{'default'}, 6);
  68         print "</tr>\n";
  69         }
  70 else {
  71         print "<tr>\n";
  72         print &opt_input($text{'eprogs_crp'}, "redirect_program", $conf,
  73                          $text{'none'}, 40, &file_chooser_button("redirect_program"));
  74         print "</tr>\n";
  75
  76         print "<tr>\n";
  77         print &opt_input($text{'eprogs_norp'}, "redirect_children", $conf,
  78                          $text{'default'}, 6);
  79         print "</tr>\n";
  80         }
  81
  82 print "</table></td></tr></table>\n";
  83 print "<input type=submit value='$text{'buttsave'}'></form>\n";
  84
  85 &ui_print_footer("", $text{'eprogs_return'});
  86