usermin/edit_users.cgi

   1 #!/usr/local/bin/perl
   2 # edit_users.cgi
   3 # Display user access control form
   4
   5 require './usermin-lib.pl';
   6 $access{'users'} || &error($text{'acl_ecannot'});
   7 &ui_print_header(undef, $text{'users_title'}, "");
   8 &get_usermin_miniserv_config(\%miniserv);
   9
  10 if (&get_usermin_version() < 0.76) {
  11         print "<p>$text{'users_eversion'}<p>\n";
  12         &ui_print_footer("", $text{'index_return'});
  13         exit;
  14         }
  15
  16 print $text{'users_desc'}," ",$text{'users_desc2'},"<p>\n";
  17
  18 print "<form action=change_users.cgi method=post>\n";
  19 print "<table border>\n";
  20 print "<tr $tb> <td><b>$text{'users_header'}</b></td> </tr>\n";
  21 print "<tr $cb> <td><table><tr><td valign=top nowrap>\n";
  22 printf "<input type=radio name=access value=0 %s>\n",
  23         $miniserv{"allowusers"} || $miniserv{"denyusers"} ? "" : "checked";
  24 print "$text{'users_all'}<br>\n";
  25 printf "<input type=radio name=access value=1 %s>\n",
  26         $miniserv{"allowusers"} ? "checked" : "";
  27 print "$text{'users_allow'}<br>\n";
  28 printf "<input type=radio name=access value=2 %s>\n",
  29         $miniserv{"denyusers"} ? "checked" : "";
  30 print "$text{'users_deny'}<br>\n";
  31 print "</td> <td valign=top>\n";
  32 printf "<textarea name=user rows=6 cols=30>%s</textarea></td> </tr>\n",
  33  $miniserv{"allowusers"} ? join("\n", split(/\s+/, $miniserv{"allowusers"})) :
  34  $miniserv{"denyusers"} ? join("\n", split(/\s+/, $miniserv{"denyusers"})) : "";
  35
  36 if (&get_usermin_version() > 0.95) {
  37         print "<tr> <td colspan=2>\n";
  38         printf "<input type=checkbox name=shells_deny value=1 %s> %s\n",
  39                 $miniserv{'shells_deny'} ? "checked" : "",$text{'users_shells'};
  40         printf "<input name=shells size=25 value='%s'> %s</td> </tr>\n",
  41                 $miniserv{'shells_deny'} || "/etc/shells",
  42                 &file_chooser_button("shells");
  43         }
  44
  45 print "</table></td> </tr></table>\n";
  46 print "<input type=submit value=\"$text{'save'}\"></form>\n";
  47
  48 &ui_print_footer("", $text{'index_return'});
  49