mirror of
https://github.com/webmin/webmin.git
synced 2025-07-21 23:40:34 +00:00
30 lines
806 B
Perl
Executable File
30 lines
806 B
Perl
Executable File
#!/usr/local/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'});
|
|
|