|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /proc/self/root/usr/libexec/webmin/ldap-client/ |
Upload File : |
#!/usr/bin/perl
# Show icons for various categories of options
require './ldap-client-lib.pl';
&ui_print_header(undef, $module_info{'desc'}, "", "intro", 1, 1);
# Make sure the config file exists
if (!-r $config{'auth_ldap'}) {
&ui_print_endpage(
&ui_config_link('index_econf',
[ "<tt>$config{'auth_ldap'}</tt>", undef ]));
}
# Check for separate config files for PAM and NSS
if ($config{'pam_ldap'} && -r $config{'pam_ldap'} && !$config{'nofixpam'} &&
!&same_file($config{'pam_ldap'}, $config{'auth_ldap'})) {
print "<center>\n";
print &ui_form_start("fixpam.cgi");
print &text('index_fixpam',
"<tt>".&html_escape($config{'auth_ldap'})."</tt>",
"<tt>".&html_escape($config{'pam_ldap'})."</tt>"),"<p>\n";
print &ui_form_end([ [ undef, $text{'index_fix'} ],
[ "ignore", $text{'index_ignore'} ] ]);
print "</center>\n";
}
# Show icons for option categories
@pages = ( "server", "base", "pam", "switch", "browser" );
@links = map { $_ eq "browser" ? "browser.cgi" :
$_ eq "switch" ? "list_switches.cgi" :
"edit_".$_.".cgi" } @pages;
@titles = map { $text{$_."_title"} } @pages;
@icons = map { "images/".$_.".gif" } @pages;
&icons_table(\@links, \@titles, \@icons, 5);
# Validate button
print &ui_hr();
print &ui_buttons_start();
print &ui_buttons_row("check.cgi", $text{'index_check'},
$text{'index_checkdesc'});
print &ui_buttons_end();
&ui_print_footer("/", $text{'index'});