samba/edit_winbind.cgi

   1 #!/usr/local/bin/perl
   2 # edit_winbind.cgi
   3 # Show form for binding to a domain
   4
   5 require './samba-lib.pl';
   6
   7 $access{'winbind'} || &error($text{'winbind_ecannot'});
   8 &ui_print_header(undef, $text{'winbind_title'}, "");
   9
  10 print $text{'winbind_msg'}, "<p>\n";
  11
  12 print &ui_form_start("save_winbind.cgi", "post");
  13 print &ui_table_start($text{'winbind_header'}, "width=100%", 2);
  14
  15 print &ui_table_row($text{'winbind_user'},
  16                     &ui_user_textbox("user", "Administrator"));
  17
  18 print &ui_table_row($text{'winbind_pass'},
  19                     &ui_password("pass", undef, 20));
  20
  21 print &ui_table_row($text{'winbind_dom'},
  22                     &ui_opt_textbox("dom", undef, 20,
  23                                     $text{'winbind_default'}));
  24
  25 print &ui_table_end();
  26 print &ui_form_end([ [ 'save', $text{'winbind_save'} ] ], "100%");
  27
  28 &ui_print_footer("", $text{'index_sharelist'});
  29