apache/edit_authgroup.cgi

   1 #!/usr/local/bin/perl
   2 # edit_authgroup.cgi
   3 # Display a form for editing a new or existing group
   4
   5 require './apache-lib.pl';
   6 require './auth-lib.pl';
   7
   8 &ReadParse();
   9 &allowed_auth_file($in{'file'}) ||
  10         &error(&text('authg_ecannot', $in{'file'}));
  11 $desc = &text('authg_header', "<tt>$in{'file'}</tt>");
  12 if (defined($in{'group'})) {
  13         # editing existing group
  14         &ui_print_header($desc, $text{'authg_edit'}, "");
  15         $g = &get_authgroup($in{'file'}, $in{'group'});
  16         $group = $g->{'group'};
  17         @members = @{$g->{'members'}};
  18         $new = 0;
  19         }
  20 else {
  21         # creating a new group
  22         &ui_print_header($desc, $text{'authg_create'}, "");
  23         $new = 1;
  24         }
  25
  26 print "<form method=post action=save_authgroup.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=oldgroup value=$in{'group'}>\n"; }
  30 print "<table border> <tr $tb><td colspan=2><b>",
  31       ($new ? $text{'authg_create'} : $text{'authg_edit'}),
  32       "</b></td> </tr>\n";
  33 print "<tr $cb> <td><b>$text{'authg_group'}</b></td>\n";
  34 print "<td><input name=group size=20 value=\"$group\"></td> </tr>\n";
  35 print "<tr $cb> <td valign=top><b>$text{'authg_mems'}</b></td>\n";
  36 print "<td><textarea name=members rows=5 cols=60 wrap=on>",
  37         join(' ', @members),"</textarea></td> </tr>\n";
  38
  39 print "</table><p>\n";
  40 print "<input type=submit value=\"$text{'save'}\">\n";
  41 print "&nbsp; <input type=submit value=\"$text{'delete'}\" name=delete>\n"
  42         if (!$new);
  43 print "</form>\n";
  44
  45 &ui_print_footer($in{'url'}, $text{'auth_return'});
  46