PAL.C.T MINI SHELL
#!/usr/bin/perl
# edit_winbind.cgi
# Show form for binding to a domain
require './samba-lib.pl';
$access{'winbind'} || &error($text{'winbind_ecannot'});
&ui_print_header(undef, $text{'winbind_title'}, "");
print $text{'winbind_msg'}, "<p>\n";
print &ui_form_start("save_winbind.cgi", "post");
print &ui_table_start($text{'winbind_header'}, "width=100%", 2);
print &ui_table_row($text{'winbind_user'},
&ui_user_textbox("user", "Administrator"));
print &ui_table_row($text{'winbind_pass'},
&ui_password("pass", undef, 20));
print &ui_table_row($text{'winbind_dom'},
&ui_opt_textbox("dom", undef, 20,
$text{'winbind_default'}));
print &ui_table_end();
print &ui_form_end([ [ 'save', $text{'winbind_save'} ] ], "100%");
&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`