ldap-client/edit_pam.cgi

   1 #!/usr/local/bin/perl
   2 # Show a form for editing the LDAP PAM options
   3
   4 require './ldap-client-lib.pl';
   5 &ui_print_header(undef, $text{'pam_title'}, "", "pam");
   6
   7 $conf = &get_config();
   8 print &ui_form_start("save_pam.cgi", "post");
   9 print &ui_table_start($text{'pam_header'}, "width=100%", 2);
  10
  11 print &ui_table_row($text{'pam_filter'},
  12         &ui_opt_textbox("filter", &find_svalue("pam_filter", $conf),
  13                         30, $text{'pam_none'}));
  14
  15 print &ui_table_row($text{'pam_login'},
  16         &ui_opt_textbox("login", &find_svalue("pam_login_attribute", $conf),
  17                         20, $text{'default'}." (<tt>uid</tt>)"));
  18
  19 print &ui_table_row($text{'pam_groupdn'},
  20         &ui_opt_textbox("groupdn", &find_svalue("pam_groupdn", $conf),
  21                         30, $text{'pam_ignored'})." ".
  22         &base_chooser_button("groupdn", 1));
  23
  24 print &ui_table_row($text{'pam_member'},
  25         &ui_opt_textbox("member", &find_svalue("pam_member_attribute", $conf),
  26                         30, $text{'default'}));
  27
  28 print &ui_table_row($text{'pam_password'},
  29         &ui_select("password", &find_svalue("pam_password", $conf),
  30                    [ [ "", $text{'default'} ],
  31                      [ "clear", $text{'pam_clear'} ],
  32                      [ "crypt", $text{'pam_crypt'} ],
  33                      [ "md5", $text{'pam_md5'} ],
  34                      [ "nds", $text{'pam_nds'} ],
  35                      [ "ad", $text{'pam_ad'} ],
  36                      [ "exop", $text{'pam_exop'} ] ],
  37                     1, 0, 1));
  38
  39 print &ui_table_end();
  40 print &ui_form_end([ [ "save", $text{'save'} ] ]);
  41
  42 &ui_print_footer("", $text{'index_return'});
  43
  44