PAL.C.T MINI SHELL
#!/usr/bin/perl
# ask_epass.cgi
# Display a form asking for password conversion options
require './samba-lib.pl';
# check acls
&error_setup($text{'eacl_aviol'});
&error("$text{'eacl_np'} $text{'eacl_pmpass'}")
unless $access{'maint_makepass'};
# display
&ui_print_header(undef, $text{'convert_title'}, "");
&check_user_enabled($text{'convert_cannot'});
print &text('convert_msg', 'conf_pass.cgi'),"\n";
print "$text{'convert_ncdesc'}<p>\n";
print &ui_form_start("make_epass.cgi", "post");
print &ui_table_start(undef, undef, 2);
print &ui_table_row($text{'convert_who'},
&ui_radio_table("who", 1,
[ [ 0, $text{'convert_who0'},
&ui_textbox("include_list", undef, 40)." ".
user_chooser_button("include_list", 1) ],
[ 1, $text{'convert_who1'},
&ui_textbox("skip_list", $config{'dont_convert'}, 40)." ".
&user_chooser_button("skip_list", 1) ],
]));
print &ui_table_row($text{'convert_update'},
&ui_yesno_radio("update", 1));
print &ui_table_row($text{'convert_add'},
&ui_yesno_radio("add", 1));
print &ui_table_row($text{'convert_delete'},
&ui_yesno_radio("delete", 0));
print &ui_table_row($text{'convert_newuser'},
&ui_radio_table("newmode", 0,
[ [ 0, $text{'convert_nopasswd'} ],
[ 1, $text{'convert_lock'} ],
[ 2, $text{'convert_passwd'},
&ui_password("newpass", undef, 20) ] ]));
print &ui_table_end();
print &ui_form_end([ [ undef, $text{'convert_convert'} ] ]);
&ui_print_footer("", $text{'index_sharelist'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`