2 # Show icons for various categories of options
4 require './ldap-client-lib.pl';
5 &ui_print_header(undef, $module_info{'desc'}, "", "intro", 1, 1);
7 # Make sure the config file exists
8 if (!-r $config{'auth_ldap'}) {
10 &ui_config_link('index_econf',
11 [ "<tt>$config{'auth_ldap'}</tt>", undef ]));
14 # Check for separate config files for PAM and NSS
15 if ($config{'pam_ldap'} && -r $config{'pam_ldap'} && !$config{'nofixpam'} &&
16 !&same_file($config{'pam_ldap'}, $config{'auth_ldap'})) {
18 print &ui_form_start("fixpam.cgi");
19 print &text('index_fixpam',
20 "<tt>".&html_escape($config{'auth_ldap'})."</tt>",
21 "<tt>".&html_escape($config{'pam_ldap'})."</tt>"),"<p>\n";
22 print &ui_form_end([ [ undef, $text{'index_fix'} ],
23 [ "ignore", $text{'index_ignore'} ] ]);
27 # Show icons for option categories
28 @pages = ( "server", "base", "pam", "switch", "browser" );
29 @links = map { $_ eq "browser" ? "browser.cgi" :
30 $_ eq "switch" ? "list_switches.cgi" :
31 "edit_".$_.".cgi" } @pages;
32 @titles = map { $text{$_."_title"} } @pages;
33 @icons = map { "images/".$_.".gif" } @pages;
34 &icons_table(\@links, \@titles, \@icons, 5);
38 print &ui_buttons_start();
39 print &ui_buttons_row("check.cgi", $text{'index_check'},
40 $text{'index_checkdesc'});
41 print &ui_buttons_end();
43 &ui_print_footer("/", $text{'index'});