samba/ask_epass.cgi

   1 #!/usr/local/bin/perl
   2 # ask_epass.cgi
   3 # Display a form asking for password conversion options
   4
   5 require './samba-lib.pl';
   6 # check acls
   7
   8 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
   9 &error("$text{'eacl_np'} $text{'eacl_pmpass'}")
  10         unless $access{'maint_makepass'};
  11 # display
  12 &ui_print_header(undef, $text{'convert_title'}, "");
  13
  14 &check_user_enabled($text{'convert_cannot'});
  15
  16 print &text('convert_msg', 'conf_pass.cgi'),"\n";
  17 print "$text{'convert_ncdesc'}<p>\n";
  18
  19 print "<form action=make_epass.cgi>\n";
  20
  21 print "<input type=checkbox name=skip value=1 checked> ",
  22       $text{'convert_noconv'};
  23 print "<input name=skip_list size=40 value=\"$config{dont_convert}\"> ",
  24         &user_chooser_button("skip_list", 1),"<p>\n";
  25
  26 print "<input type=checkbox name=update value=1 checked> ",
  27       $text{'convert_update'}," <p>\n";
  28
  29 print "<input type=checkbox name=add value=1 checked> ",
  30       $text{'convert_add'},"<p>\n";
  31
  32 print "<input type=checkbox name=delete value=1> ",
  33       $text{'convert_delete'}, "<p>\n";
  34
  35 print "<table> <tr>\n";
  36 print "<td valign=top>$text{'convert_newuser'}</td>\n";
  37 print "<td><input type=radio name=newmode value=0 checked>$text{'convert_nopasswd'}<br>\n";
  38 print "<input type=radio name=newmode value=1>$text{'convert_lock'}<br>\n";
  39 print "<input type=radio name=newmode value=2>$text{'convert_passwd'}\n",
  40       "<input type=password name=newpass size=20></td>\n";
  41 print "</tr> </table>\n";
  42
  43 print "<input type=submit value=\"$text{'convert_convert'}\"> </form>\n";
  44
  45 &ui_print_footer("", $text{'index_sharelist'});
  46