/usr/share/usermin/gray-theme
Edit:
#!/usr/bin/perl
# Show the left-side menu of Virtualmin domains, plus modules
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
# Globals
our %in;
our %text;
our $base_remote_user;
our %miniserv;
our %gaccess;
our $session_id;
our $trust_unknown_referers = 1;
require "gray-theme/gray-theme-lib.pl";
require "gray-theme/theme.pl";
ReadParse();
popup_header("Virtualmin");
my $is_master;
# Is this user root?
if (foreign_available("virtual-server")) {
foreign_require("virtual-server");
$is_master = virtual_server::master_admin();
}
elsif (foreign_available("server-manager")) {
foreign_require("server-manager");
$is_master = server_manager::can_action(undef, "global");
}
# Find all left-side items from Webmin
my $sects = get_right_frame_sections();
my @leftitems = list_combined_webmin_menu($sects, \%in);
my @lefttitles = grep { $_->{'type'} eq 'title' } @leftitems;
# Work out what mode selector contains
my @has = ( );
my %modmenu;
foreach my $title (@lefttitles) {
push(@has, { 'id' => $title->{'module'},
'desc' => $title->{'desc'},
'icon' => $title->{'icon'} });
$modmenu{$title->{'module'}}++;
}
my $nw = $sects->{'nowebmin'} || 0;
if ($nw == 0 || $nw == 2 && $is_master) {
my $p = get_product_name();
push(@has, { 'id' => 'modules',
'desc' => $text{'has_'.$p},
'icon' => '/images/'.$p.'-small.png' });
}
# Default left-side mode
my $mode = $in{'mode'} ? $in{'mode'} :
$sects->{'tab'} && $sects->{'tab'} =~ /vm2/ ? "server-manager" :
$sects->{'tab'} && $sects->{'tab'} =~ /virtualmin/ ? "virtual-server" :
$sects->{'tab'} && $sects->{'tab'} =~ /mail/ ? "mailboxes" :
$sects->{'tab'} && $sects->{'tab'} =~ /webmin/ ? "modules" :
@leftitems ? $has[0]->{'id'} : "modules";
# Show mode selector
if (indexof($mode, (map { $_->{'id'} } @has)) < 0) {
$mode = $has[0]->{'id'};
}
if (@has > 1) {
print "/usr/share/usermin/gray-theme/left.cgi (10357B)
";
foreach my $m (@has) {
print "";
if ($m->{'id'} ne $mode) {
print "";
}
if ($m->{'icon'}) {
my $icon = add_webprefix($m->{'icon'});
print "
";
}
print $m->{'desc'};
if ($m->{'id'} ne $mode) {
print "\n";
}
print "\n";
}
print "
";
}
print &ui_switch_theme_javascript();
print "\n";
popup_footer();
# show_menu_items_list(&list, indent)
# Actually prints the HTML for menu items
sub show_menu_items_list
{
my ($items, $indent) = @_;
foreach my $item (@$items) {
if ($item->{'type'} eq 'item') {
# Link to some page
my $it = $item->{'target'} || '';
my $t = $it eq 'new' ? '_blank' :
$it eq 'window' ? '_top' : 'right';
my $link = add_webprefix($item->{'link'});
if ($item->{'link'} =~ /^(https?):\/\//) {
$t = '_blank';
$link = $item->{'link'};
}
if ($item->{'icon'}) {
my $icon = add_webprefix($item->{'icon'});
print "".
"\n";
}
my $cls = $item->{'icon'} ? 'aftericon' :
$indent ? 'linkindented'.
($item->{'inactive'} ? ' inactive' : '').
'' : 'leftlink';
print "
";
}
print "\n";
}
elsif ($item->{'type'} eq 'cat') {
# Start of a new category
my $c = $item->{'id'};
print "";
print "".
"$item->{'desc'}";
print "
";
if ($item->{'icon'}) {
print "";
print "
\n";
}
elsif ($item->{'type'} eq 'html') {
# Some HTML block
print "$item->{'desc'}
"; show_menu_items_list($item->{'members'}, $indent+1); print "",$item->{'html'},"
\n";
}
elsif ($item->{'type'} eq 'text') {
# A line of text
print "",
html_escape($item->{'desc'}),"
\n";
}
elsif ($item->{'type'} eq 'hr') {
# Separator line
print "\n"; } elsif ($item->{'type'} eq 'menu' || $item->{'type'} eq 'input') { # For with an input of some kind if ($item->{'cgi'}) { my $cgi = add_webprefix($item->{'cgi'}); print "\n"; } elsif ($item->{'type'} eq 'title') { # Nothing to print here, as it is used for the tab title } } } # module_to_menu_item(&module) # Converts a module to the hash ref format expected by show_menu_items_list sub module_to_menu_item { my ($minfo) = @_; return { 'type' => 'item', 'id' => $minfo->{'dir'}, 'desc' => $minfo->{'desc'}, 'link' => '/'.$minfo->{'dir'}.'/' }; } # add_webprefix(link) # If a URL starts with a / , add webprefix sub add_webprefix { my ($link) = @_; return $link =~ /^\// ? &get_webprefix().$link : $link; }