squid/edit_user.cgi

   1 #!/usr/local/bin/perl
   2 # edit_user.cgi
   3 # A form for adding or editing a squid user
   4
   5 require './squid-lib.pl';
   6 $access{'proxyauth'} || &error($text{'eauth_ecannot'});
   7 &ReadParse();
   8 if ($in{'new'}) {
   9         &ui_print_header(undef, $text{'euser_header'}, "");
  10         }
  11 else {
  12         &ui_print_header(undef, $text{'euser_header1'}, "");
  13         $conf = &get_config();
  14         @users = &list_auth_users(
  15                         &find_config("proxy_auth", $conf)->{'values'}->[0]);
  16         %user = %{$users[$in{'index'}]};
  17         }
  18
  19 print "<form action=save_user.cgi>\n";
  20 print "<input type=hidden name=index value=$in{'index'}>\n";
  21 print "<input type=hidden name=new value=$in{'new'}>\n";
  22 print "<table border>\n";
  23 print "<tr $tb> <td><b>$text{'euser_pud'}</b></td> </tr>\n";
  24 print "<tr $cb> <td><table>\n";
  25
  26 print "<tr> <td><b>$text{'euser_u'}</b></td>\n";
  27 print "<td><input name=user size=25 value=\"$user{'user'}\"></td> </tr>\n";
  28
  29 print "<tr> <td><b>$text{'euser_p'}</b></td> <td>\n";
  30 if (%user) {
  31         print "<input type=radio name=pass_def value=1 checked> $text{'euser_u1'}\n";
  32         print "<input type=radio name=pass_def value=0>\n";
  33         print "<input name=pass size=20 type=password></td> </tr>\n";
  34         }
  35 else {
  36         print "<input name=pass size=20 type=password></td> </tr>\n";
  37         }
  38 print "</table></td></tr></table>\n";
  39 if (%user) {
  40         print "<input type=submit value=$text{'buttsave'}>\n";
  41         print "<input type=submit name=delete value=$text{'buttdel'}>\n";
  42         }
  43 else {
  44         print "<input type=submit value=$text{'euser_buttcreat'}>\n";
  45         }
  46 print "</form>\n";
  47
  48 &ui_print_footer("edit_auth.cgi", $text{'euser_return'},
  49         "", $text{'index_return'});
  50