apache/edit_authuser.cgi

   1 #!/usr/local/bin/perl
   2 # edit_authuser.cgi
   3 # Display a form for editing a user from a text file
   4
   5 require './apache-lib.pl';
   6 require './auth-lib.pl';
   7
   8 &ReadParse();
   9 &allowed_auth_file($in{'file'}) ||
  10         &error(&text('authu_ecannot', $in{'file'}));
  11 $desc = &text('authu_header', "<tt>$in{'file'}</tt>");
  12 if (defined($in{'user'})) {
  13         # editing an existing user
  14         &ui_print_header($desc, $text{'authu_edit'}, "");
  15         $u = &get_authuser($in{'file'}, $in{'user'});
  16         $user = $u->{'user'};
  17         $pass = $u->{'pass'};
  18         $new = 0;
  19         }
  20 else {
  21         # creating a new user
  22         &ui_print_header($desc, $text{'authu_create'}, "");
  23         $new = 1;
  24         }
  25
  26 print "<form method=post action=save_authuser.cgi>\n";
  27 print "<input type=hidden name=file value=\"$in{'file'}\">\n";
  28 print "<input type=hidden name=url value=\"$in{'url'}\">\n";
  29 if (!$new) { print "<input type=hidden name=olduser value=$in{'user'}>\n"; }
  30
  31 print "<table border>\n";
  32 printf "<tr $tb> <td><b>%s</b></td> </tr>\n",
  33         $new ? $text{'authu_create'} : $text{'authu_edit'};
  34 print "<tr $cb> <td><table>\n";
  35
  36 print "<tr $cb> <td><b>$text{'authu_user'}</b></td>\n";
  37 print "<td><input name=user size=20 value=\"$user\"></td> </tr>\n";
  38 print "<tr $cb> <td><b>$text{'authu_pass'}</b></td>\n";
  39 printf "<td><input name=mode type=radio value=1 %s> $text{'authu_enc'}\n",
  40         $new ? '' : 'checked';
  41 print "<input name=enc size=15 value='$pass'>\n";
  42 printf "<input name=mode type=radio value=0 %s> $text{'authu_plain'}\n",
  43         $new ? 'checked' : '';
  44 print "<input name=pass size=15></td> </tr>\n";
  45
  46 print "<tr> <td colspan=2 align=right>\n";
  47 print "<input type=submit value=\"$text{'save'}\">\n";
  48 print "<input type=submit value=\"$text{'delete'}\" name=delete>\n"
  49         if (!$new);
  50 print "</td> </tr></table></td></tr></table>\n";
  51 print "</form>\n";
  52
  53 &ui_print_footer($in{'url'}, $text{'authu_return'});
  54