EOF # Show login print &text('left_login', $remote_user),"
\n"; if ($gconfig{"notabs_${base_remote_user}"} == 2 || $gconfig{"notabs_${base_remote_user}"} == 0 && $gconfig{'notabs'} || @modules <= 1) { # Show all modules in one list foreach $minfo (@modules) { $target = $minfo->{'noframe'} ? "_top" : "right"; print "{'dir'}/>$minfo->{'desc'}
\n"; } } else { # Show all modules under categories foreach $c (@cats) { # Show category opener, plus modules under it &print_category_opener($c, $in{$c} ? 1 : 0, $cats{$c}); $cls = $in{$c} ? "itemshown" : "itemhidden"; print "

"; $creal = $c eq "others" ? "" : $c; @inmodules = grep { $_->{'category'} eq $creal } @modules; foreach $minfo (@inmodules) { &print_category_link("$minfo->{'dir'}/", $minfo->{'desc'}, undef, undef, $minfo->{'noframe'} ? "_top" : "", ); } print "

\n"; } } # Show module/help search form if (-r "$root_directory/webmin_search.cgi") { print "

\n"; print $text{'left_search'}," "; print &ui_textbox("search", undef, 15); } print "

\n"; # Show current module's log search, if logging if ($gconfig{'log'} && &foreign_available("webminlog")) { print "

\n"; print "

$text{'left_logs'}

\n"; } # Show info link print "

\n"; print "

$text{'left_home'}

\n"; # Show feedback link, but only if a custom email is set %gaccess = &get_module_acl(undef, ""); if (&get_product_name() eq 'webmin' && # For Webmin !$ENV{'ANONYMOUS_USER'} && $gconfig{'nofeedbackcc'} != 2 && $gaccess{'feedback'} && $gconfig{'feedback_to'} || &get_product_name() eq 'usermin' && # For Usermin !$ENV{'ANONYMOUS_USER'} && $gconfig{'feedback'} ) { print "

\n"; print "

$text{'left_feedback'}

\n"; } # Show logout link &get_miniserv_config(\%miniserv); if ($miniserv{'logout'} && !$ENV{'SSL_USER'} && !$ENV{'LOCAL_USER'} && $ENV{'HTTP_USER_AGENT'} !~ /webmin/i) { print "

\n"; if ($main::session_id) { print "

$text{'main_logout'}

"; } else { print "

$text{'main_switch'}

"; } print "

\n"; } # Show link back to original Webmin server if ($ENV{'HTTP_WEBMIN_SERVERS'}) { print "

\n"; print "

$text{'header_servers'}

"; } print <

EOF # print_category_opener(name, &allcats, label) # Prints out an open/close twistie for some category sub print_category_opener { local ($c, $status, $label) = @_; $label = $c eq "others" ? "Others" : $label; local $img = $status ? "open.gif" : "closed.gif"; # Show link to close or open catgory print "

"; print "

\n"; print "

$label

\n"; } sub print_category_link { local ($link, $label, $image, $noimage, $target) = @_; $target ||= "right"; print "

$label

\n"; }