File Manager - BorneoXploit

Editing: navigation-lib.pl

#
# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
# Copyright Ilia Rostovtsev <ilia@virtualmin.com>
# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
use strict;

our (%in, $root_directory, %gconfig, %gaccess, $base_remote_user, $remote_user, $theme_webprefix, $theme_server_webprefix,
     $xnav, %theme_text, %theme_config, $get_user_level, $http_x_url, $server_x_goto);

# Detects the state of navigation menu on initial load
# Returns navigation tab name and right page defaults
sub nav_detector
{
    # Get tab and dependent right page
    my $tab;
    my $page;

# Get goto if the page been reloaded
    my $req_goto;
    if (!http_x_request()) {
        $req_goto = $server_x_goto;
    }

my $prod    = get_product_name();
    my $mod_def = get_default_module();

my $mod_rt_access = &webmin_user_is_admin();

my $prd_cm           = "cloudmin";
    my $mod_cm           = "server-manager";
    my $mod_cm_available = foreign_available($mod_cm);
    my $mod_cm_access    = $get_user_level eq '4';

my $prd_vm           = "virtualmin";
    my $mod_vm           = "virtual-server";
    my $mod_vm_available = foreign_available($mod_vm);
    my $mod_vm_access    = $get_user_level eq '2';

my $prd_mb           = "webmail";
    my $mod_mb           = "mailbox";
    my $mod_mb_available = foreign_available($mod_mb);

my $mod_um_access = $get_user_level eq '3';

my $prd_db      = "dashboard";
    my $prd_db_mode = 0;

my $page_index       = "index.cgi";
    my $page_sysinfo     = "sysinfo.cgi";
    my $page_sysinfo_def = "$theme_webprefix/$page_sysinfo";
    my $nav_def_tab      = $theme_config{"settings_right_default_tab_$prod"};

# If we have goto substitute default
    if ($req_goto) {
        if ($req_goto =~ /\/$mod_cm\// ||
            $mod_cm_access)
        {
            $nav_def_tab = $prd_cm;
        } elsif ($req_goto =~ /\/$mod_vm\// ||
                 $mod_vm_access)
        {
            $nav_def_tab = $prd_vm;
        } elsif ($req_goto =~ /\/$mod_mb\//) {
            $nav_def_tab = $prd_mb;
        } else {
            $nav_def_tab = $prod;
        }

# Page should be what was it reload on
        $page = $req_goto;

# For modes with dashboard switch
        if ($page =~ /$page_sysinfo/ &&
            (   $mod_cm_access ||
                $mod_vm_access ||
                (!$mod_cm_available &&
                    !$mod_vm_available &&
                    !$mod_mb_available)))
        {
            $nav_def_tab = $prd_db;
        }
    }

# If no goto and defaults not set
    else {

# Validate if default goto is allowed for the given user
        $mod_def = undef
          if ($mod_def &&
              (!foreign_available($mod_def) ||
                !-r "$root_directory/$mod_def/$page_index"));

if (!$nav_def_tab) {

# Define default tab
            if ($mod_cm_available) {
                $nav_def_tab = $prd_cm;
            } elsif ($mod_vm_available) {
                $nav_def_tab = $prd_vm;
            } elsif ($mod_mb_available) {
                $nav_def_tab = $prd_mb;
            } else {
                $nav_def_tab = $prod;
            }
        }

# If default set and if module available
        my $page_def = $theme_config{"settings_${prod}_default_module"};
        if (($nav_def_tab eq $prd_cm && !$mod_cm_available) ||
            ($nav_def_tab eq $prd_vm && !$mod_vm_available) ||
            ($nav_def_tab eq $prd_mb && !$mod_mb_available) ||
            ($nav_def_tab eq $prod   &&
                !$mod_cm_available &&
                !$mod_vm_available &&
                !$mod_mb_available &&
                !$page_def))
        {
            # Cloudmin mode
            if ($mod_cm_available && $mod_rt_access) {
                $nav_def_tab = $prd_cm;
            }

# Virtualmin mode
            elsif ($mod_vm_available && $mod_rt_access) {
                $nav_def_tab = $prd_vm;
            }

# This is the single product switch mode
            else {
                $nav_def_tab = $prd_db;
                $prd_db_mode = 1;
            }
        }

# Check if specific single switch mode first
        if ($mod_cm_access || $mod_vm_access) {
            $nav_def_tab = $prd_vm;
        }

# Check if real product is set
        elsif ($nav_def_tab eq '/') {
            $nav_def_tab = $prod;
        }

# Define default page for Webmin/Usermin
        if ($nav_def_tab eq $prod || $nav_def_tab eq $prd_db) {
            if ($mod_def) {
                $page        = "$theme_webprefix/$mod_def/$page_index";
                $nav_def_tab = $prod;
            } else {

# If default Webmin/Usermin module is actually set
                if ($page_def && $page_def ne $page_sysinfo) {
                    $page = "$theme_webprefix/$page_def";
                }

# Define safe default
                else {
                    $page        = "$page_sysinfo_def";
                    $nav_def_tab = $prd_db if ($prd_db_mode);
                }
            }
        }

# Define for modules
        else {
            my $type_cm = (($mod_cm_available && $nav_def_tab eq $prd_cm) || $mod_cm_access);
            my $type_vm = (($mod_vm_available && $nav_def_tab eq $prd_vm) || $mod_vm_access);
            my $prod_target =
              $type_cm ? $prd_cm :
              $type_vm ? $prd_vm :
              undef;

if ($prod_target) {
                $page = $theme_config{"settings_right_${prod_target}_default"};
                if ($page eq $page_index) {
                    $page =
                      $type_cm ? "$theme_webprefix/$mod_cm/$page_index" :
                      $type_vm ? "$theme_webprefix/$mod_vm/$page_index" :
                      $page_sysinfo_def;
                }

# If set to domain/server id, try using it
                elsif ($page =~ /^(\d+)$/) {
                    my $id_ = "$1";
                    my $id;
                    if ($id_ ||

# Cloudmin default server's id is '0'
                        $id_ eq '0')
                    {
                        if ($type_cm) {
                            $id = nav_cloudmin_server_available($id_, 'id');
                        } elsif ($type_vm) {
                            $id = nav_virtualmin_domain_available($id_, 'id');
                        }
                    }

# If current user has access to domain/server
                    if ($id ||

# Cloudmin default server's id is '0'
                        $id eq '0')
                    {
                        my $vm_file = $mod_vm_access ? 'view_domain.cgi' : 'summary_domain.cgi';
                        $page =
                          $type_cm ? "$theme_webprefix/$mod_cm/edit_serv.cgi?id=$id" :
                          $type_vm ? "$theme_webprefix/$mod_vm/$vm_file?dom=$id" :
                          $page_sysinfo_def;
                    }

# Fallback to default for user
                    else {
                        $page = $page_sysinfo_def;
                    }
                } else {

# If default page is not set assume dashboard
                    $page = $page_sysinfo_def;
                }
            }

# If default page is not set assume dashboard
            else {
                $page = $page_sysinfo_def;
            }
        }

# In case of Usermin
        if ($mod_um_access) {
            if ($nav_def_tab eq $prod) {
                $page = $mod_def eq $mod_mb ? $page_sysinfo_def : "$theme_webprefix/$mod_def/$page_index";
            } elsif ($nav_def_tab eq $prd_mb) {
                $page = "$theme_webprefix/$mod_mb/$page_index?id=INBOX";
            }
        }

# For modes with dashboard switch and various options presets
    if ($mod_cm_access || $mod_vm_access) {
        if ($page =~ /$page_sysinfo/) {
            $nav_def_tab = $prd_db;
        } elsif ($mod_cm_access) {
            $nav_def_tab = $prd_cm;
        } elsif ($mod_vm_access) {
            $nav_def_tab = $prd_vm;
        }
    }

# Temporary patch to address older, existing user configuration
    $nav_def_tab = $prd_mb if ($nav_def_tab eq 'mail');

# If Dashboard mode is set
    $nav_def_tab = "$1" eq $mod_vm ? $prd_vm : $prd_cm
        if ($page =~ /$page_sysinfo\?[\w]{3}\=($mod_vm|$mod_cm)/);

# Return detected tab and page
    $tab  = $nav_def_tab;
    $page = $page;

# Do we have navigation goto request for a module with its own switch?
    if ($page) {
        my ($nmod) = $page =~ /[?&]nmod=([0-9a-zA-Z-]+)/;
        if (($nmod eq $mod_vm || $nmod eq $mod_cm) && foreign_available($nmod)) {
            if ($nmod eq $mod_vm) {
                $tab = $prd_vm;            # Override to use Virtualmin tab
            } elsif ($nmod eq $mod_cm) {
                $tab = $prd_cm;            # Override to use Cloudmin tab
            }
        }
    }

return ($tab, $page);
}

sub nav_webmin_menu
{
    my ($page) = @_;
    my $rv;
    $rv = nav_search();

my @menus     = list_modules_webmin_menu();
    my $unused    = $theme_config{'settings_leftmenu_section_hide_unused_modules'} eq 'true';
    my $nomailbox = $theme_config{'settings_mail_ui'} ne 'false' ? 1 : 0;
    my $extra_links;

foreach my $menu (@menus) {
 next if ($menu->{'id'} eq 'unused' && $unused);
 if ($menu->{'type'} eq 'cat') {
 $rv .= nav_cat($menu->{'id'}, $menu->{'desc'});
 $rv .= "<li class=\"sub-wrapper\"><ul class=\"sub\" style=\"display: none;\" id=\"$menu->{'id'}\">\n";
 foreach my $module (@{ $menu->{'members'} }) {
 next if ($module->{'id'} eq 'mailbox' && $nomailbox);
 $rv .= nav_cat_link("/$module->{'id'}/", $module->{'desc'});
 }
 $rv .= "</ul></li>\n";
 } elsif ($menu->{'type'} eq 'item' &&
 $menu->{'desc'})
 {
 $rv .= nav_menu_link($menu->{'link'}, $menu->{'desc'}, 'fa-link');
 }
 }
 if (!$extra_links++) {
 if (&webmin_user_is_admin() || $theme_config{'settings_theme_config_admins_only_privileged'} ne 'true') {
 $rv .= nav_cat_link("/tconfig.cgi", $theme_text{'settings_right_theme_left_configuration_title'}, 'hidden');
 }
 if (&webmin_user_is_admin()) {
 $rv .=
 nav_cat_link("/settings-editor_read.cgi", $theme_text{'settings_right_theme_left_extensions_title'}, 'hidden');
 $rv .= nav_cat_link("/settings-logos.cgi", $theme_text{'settings_right_theme_left_logo_title'}, 'hidden');
 $rv .=
 nav_cat_link("/settings-backgrounds.cgi", $theme_text{'settings_right_theme_left_background_title'}, 'hidden');
 }
 }
 if (&foreign_available("webmin") &&
 $theme_config{'settings_leftmenu_section_hide_refresh_modules'} ne 'true')
 {
 $rv .= nav_menu_link('/webmin/refresh_modules.cgi', $theme_text{'left_refresh_modules'}, 'fa-refresh');
 }
 $rv .= nav_link_sysinfo($get_user_level eq '3');
 $rv .= nav_link_netdata();
 $rv .= nav_theme_links();
 $rv .= nav_links();
 $rv .= nav_menu_html_snippet();
 $rv .= nav_detect_page($page);
 $rv .= nav_detect_script();
 return $rv;
}

sub nav_virtualmin_menu
{
    my ($page) = @_;
    my $mod    = 'virtual-server';
    my $def    = nav_get_server_id($mod);
    my @menu   = list_combined_webmin_menu({ 'dom' => "$def" }, \%in, $mod);
    my $menu   = nav_list_combined_menu([$mod], \@menu, undef, undef, $page);
    my $rv     = $menu->{'before'};
    $rv .= nav_link_sysinfo(undef, $mod);
    $rv .= nav_link_sysstat();
    $rv .= $menu->{'after'}
      if ($menu->{'after'});
    $rv .= nav_theme_links();
    $rv .= nav_links($menu->{'mode'}, $mod);
    $rv .= nav_menu_html_snippet();
    $rv .= nav_detect_page($page, 1);
    $rv .= nav_detect_script(1);
    return $rv;
}

sub nav_cloudmin_menu
{
    my ($page) = @_;
    my $mod    = 'server-manager';
    my $def    = nav_get_server_id($mod);
    my @menu   = list_combined_webmin_menu({ 'server' => "$def" }, \%in, $mod);
    my $menu   = nav_list_combined_menu([$mod], \@menu, undef, undef, $page);
    my $rv     = $menu->{'before'};
    $rv .= nav_link_sysinfo(undef, $mod);
    $rv .= nav_theme_links();
    $rv .= nav_links($menu->{'mode'}, $mod);
    $rv .= nav_menu_html_snippet();
    $rv .= nav_detect_page($page);
    $rv .= nav_detect_script();
    return $rv;
}

sub nav_mailbox_menu
{
    my ($page)    = @_;
    my $mod       = 'mailbox';
    my $nofolders = $theme_config{'settings_mail_ui'} ne 'false' ? 1 : 0;
    my @menu      = list_combined_webmin_menu({ 'nofolders' => $nofolders });
    my $menu      = nav_list_combined_menu([$mod, 'changepass'], \@menu, undef, undef, $page);
    my $rv        = $menu->{'before'};
    $rv .= nav_menu_link("/uconfig.cgi?$mod", $theme_text{'theme_left_mail_prefs'}, 'fa-cog');
    $rv .= nav_link_sysinfo('user');
    $rv .= nav_theme_links();
    $rv .= nav_links();
    $rv .= nav_menu_html_snippet();
    $rv .= nav_detect_page($page);
    $rv .= nav_detect_script();
    return $rv;
}

sub nav_menu
{
    my ($tab_mode) = @_;
    my ($tab, $page) = nav_detector();
    my $rv;

if ($tab eq 'cloudmin' ||
 $tab_mode eq 'cloudmin')
 {
 $rv = nav_cloudmin_menu($page);
 } elsif ($tab eq 'virtualmin' ||
 $tab_mode eq 'virtualmin')
 {
 $rv = nav_virtualmin_menu($page);
 } elsif ($tab eq 'webmail') {
 $rv = nav_mailbox_menu($page);
 } else {
 $rv = nav_webmin_menu($page);
 }
 if ($page =~ m{/link\.cgi}) {
 # X10101
 $rv .= <<'SCRIPT';
<script type="application/javascript">
v___target_servers_index_loading = 1;
(function () {
 const loadedVersion = function() {
 const m = document.querySelector('link[href*="fonts-roboto"]')?.href.match(/\?(\d{2})/);
 return m ? parseInt(m[1], 10) : 25;
 };
 if (loadedVersion() < 25 || !vars.navigation.reload_timeout) {
 return;
 }
 if (window.v___initial_load) {
 setTimeout(function () {
 let tries = 0;
 const maxTries = 2e4;
 const trying = function (tries_exceeded) {
 if (
 tries_exceeded ||
 (location.href.indexOf("link.cgi") !== -1 &&
 !$("body").hasClass("loading-bg"))
 ) {
 clearInterval(timer);
 plugins.navigation.reload(-1, function () {
 plugins.navigation.sync(function () {
 plugins.navigation.load.initializing = 0;
 plugins.navigation.load.stop();
 });
 });
 } else if (++tries >= maxTries) {
 clearInterval(timer);
 trying(true);
 }
 };
 const timer = setInterval(trying, 10);
 }, vars.navigation.reload_timeout);
 plugins.navigation.load.initializing = 1;
 plugins.navigation.load.start();
 }
})();
</script>
SCRIPT
 }
 return $rv;
}

sub nav_get_server_id
{
    my ($module) = @_;
    my $default;

# Try to find default
    my $module_ =
      $module eq 'virtual-server' ? 'virtualmin' :
      $module eq 'server-manager' ? 'cloudmin' :
      $module;

if ($theme_config{ 'settings_right_' . $module_ . '_default' } =~ /^(\d+)$/) {
        $default = "$1";
    }

# If we have goto substitute default
    if ($server_x_goto =~ /\/$module\// &&
        ($server_x_goto =~ /dom=(\d+)/ || $server_x_goto =~ /id=(\d+)/))
    {
        my $id_ = "$1";
        if ($id_ =~ /^(\d+)$/) {
            $default = "$id_";
        }
    }
    return $default;
}

sub nav_set_last_id
{
    my ($link) = @_;
    if ($link && $link =~ /(id|dom)=(\d+)/) {
        return "vars.navigation.select.last='$2';";
    }
    return undef;
}

sub nav_detect_page
{
 my ($page, $set_last) = @_;
 my $rv;
 if ($page) {
 $page = quote_escape($page);
 $page =~ s/&amp;/&/g;
 my $last_id = $set_last ? nav_set_last_id($page) : undef;
 if ($last_id) {
 $last_id = "<script type='application/javascript'>$last_id</script>";
 }
 $rv .= "<li data-goto=\"$page\" class=\"hidden\">$last_id</li>\n";
 }
 return $rv;
}

sub nav_detect_script
{
 # Get goto hidden li element
 my ($set_last) = @_;
 my $rv;
 if ($server_x_goto) {
 my $link = quote_escape($server_x_goto);
 $link =~ s/&amp;/&/g;
 my $last_id = $set_last ? nav_set_last_id($link) : undef;
 $rv =
"<li data-script-goto><script>plugins.navigation.detect(\"$link\");plugins.navigation.detect(\"$link\", 1);\$(\"li[data-script-goto]\").remove();${last_id}</script></li>\n";
 }
 return $rv;
}

sub nav_menu_link
{
 my ($link, $text, $icon, $hidden, $after) = @_;
 my $external_link = ($link =~ /^(http:\/\/|https:\/\/|ftp:\/\/|ftps:\/\/)/);
 if ($icon !~ /\s+/) {
 $icon = "fa fa-fw $icon";
 }
 if ($after) {
 $after = " data-after";
 }
 if ($hidden) {
 $hidden = " hidden";
 }
 $link = "/$link" if (!$external_link && $link !~ /^\//);
 $link = ($external_link ? $link : "$theme_webprefix$link");
 return
"<li data-linked$after><a href=\"$link\" class=\"navigation_module_trigger$hidden\"> $text</a></li>\n";
}

sub nav_cat_link
{
 my ($link, $label, $hidden) = @_;
 my $rv;
 my $external_link = ($link =~ /^(http:\/\/|https:\/\/|ftp:\/\/|ftps:\/\/)/);
 $link = "/$link" if (!$external_link && $link !~ /^\//);
 $rv = '<li data-linked' . ($hidden && ' class="hidden"') . '>' . "\n";
 $rv .= '<a' . ($hidden && ' data-parent-hidden') . ' href="' .
 ($external_link ? $link : "$theme_webprefix$link") . '"> ' . &filter_javascript($label) . '</a>' . "\n";
 $rv .= "</li>\n";
 return $rv;
}

sub nav_cat
{
    my ($c, $label) = @_;
    my %icon_table = ('webmin'            => 'fa-cog',
                      'usermin'           => 'fa-cog',
                      'settings'          => 'fa-cog',
                      'global_setting'    => 'fa-cog',
                      'cat_settings'      => 'fa-cog',
                      'system'            => 'fa2 fa2-system',
                      'cat_system'        => 'fa2 fa2-system',
                      'servers'           => 'fa2 fa2-server',
                      'other'             => 'fa2 fa2-tools',
                      'info'              => 'fa-info',
                      'hardware'          => 'fa2 fa2-disk',
                      'global_hardware'   => 'fa2 fa2-disk',
                      'global_storage'    => 'fa2 fa2-disk',
                      'cluster'           => 'fa2 fa2-cluster',
                      'global_cluster'    => 'fa-power-off',
                      'unused'            => 'fa-puzzle-piece',
                      'global_unused'     => 'fa-puzzle-piece',
                      'mail'              => 'fa2 fa2-email scaled1_5',
                      'global_mail'       => 'fa2 fa2-email scaled1_5',
                      'email'             => 'fa2 fa2-email scaled1_5',
                      'global_email'      => 'fa2 fa2-email scaled1_5',
                      'login'             => 'fa-user',
                      'global_login'      => 'fa-user',
                      'apps'              => 'fa2 fa2-server',
                      'global_apps'       => 'fa2 fa2-server',
                      'custom'            => 'fa2 fa2-system',
                      'global_custom'     => 'fa2 fa2-system',
                      'net'               => 'fa2 fa2-network',
                      'ip'                => 'fa2 fa2-network',
                      'global_ip'         => 'fa2 fa2-network',
                      'check'             => 'fa-user-md',
                      'global_check'      => 'fa-user-md',
                      'add'               => 'fa-plus',
                      'global_add'        => 'fa-plus',
                      'backup'            => 'fa-backup fa-1_15x',
                      'global_backup'     => 'fa-backup fa-1_15x',
                      'global_server'     => 'fa-cogs',
                      'cat_server'        => 'fa-cogs',
                      'global_system'     => 'fa-cogs',
                      'global_delete'     => 'fa-plug',
                      'cat_delete'        => 'fa-plug',
                      'global_logs'       => 'fa-file-text',
                      'cat_logs'          => 'fa-file-text',
                      'global_services'   => 'fa-puzzle-piece',
                      'cat_services'      => 'fa-puzzle-piece',
                      'cat_dns'           => 'fa2 fa2-dns scaled1_5',
                      'cat_dnsreg'        => 'fa2 fa2-domain scaled1_5',
                      'cat_mail'          => 'fa2 fa2-email-open scaled1_5',
                      'cat_web'           => 'fa2 fa2-web scaled1_5',
                      'create_new'        => 'fa-plus',
                      'create_add'        => 'fa-plus',
                      'create_create'     => 'fa-server-add',
                      'global_gce'        => 'fa-google',
                      'global_ec2'        => 'fa2 fa2-amazon scaled1_5',
                      'global_hosts'      => 'fa-globe',
                      'global_docker'     => 'fa2 fa2-docker margined-left--1 margined-right-1',
                      'global_virtualmin' => 'fa-virtualmin scaled1_5',
                      'global_owners'     => 'fa-users',
                      'global_monitor'    => 'fa2 fa2-system',
                      'global_settings'   => 'fa-cloud',
                      'cat_manage'        => 'fa2 fa2-tools',
                      'cat_res'           => 'fa-share-alt',
                      'global_admin'      => 'fa-key',
                      'cat_admin'         => 'fa-key',
                      'global_power'      => 'fa-power-off',
                      'cat_power'         => 'fa-power-off',
                      'cat_webmin'        => 'fa-webmin webmin-cat-menu',);

my $icon = $icon_table{$c} || 'fa-link';
    if ($label) {
        my $rv;

# Show link to close or open catgory
 $rv = "<li class=\"has-sub\">\n";
 $rv .= "<a data-has-sub-link href=\"#$c\">";
 $rv .= " @{[&filter_javascript($label)]}</a>\n";
 $rv .= '</li>' . "\n";
 return $rv;
 }
}

sub nav_search
{
 my $new_layout = shift;
 my $rv = "<li> </li>";
 if (-r "$root_directory/webmin_search.cgi" && $gaccess{'webminsearch'}) {
 $rv = "<li class=\"menu-container search-form-container new-layout-prod" . ($new_layout ? " new-layout" : "") . "\">\n";
 $rv .= "<form id=\"webmin_search_form\" action=\"$theme_webprefix/webmin_search.cgi\" role=\"search\">\n";
 $rv .= "<div class=\"form-group\">\n";
 $rv .=
"<input type=\"text\" class=\"form-control sidebar-search\" name=\"search\" placeholder=\"$theme_text{'left_search'}\">\n";
 $rv .= "\n";
 $rv .= "</div>\n";
 $rv .= "<div class='autocomplete-dropdown-container'></div>\n";
 $rv .= "</form>\n</li>\n";
 }
 return $rv;
}

sub nav_link_sysinfo
{
    my ($user, $mod) = @_;
    $mod = "?mod=$mod" if ($mod);
    return
      nav_menu_link("/sysinfo.cgi$mod",
                    $user ? $theme_text{'body_header1'} : $theme_text{'theme_xhred_titles_dashboard'},
                    ($user ? 'fa-user-circle' : 'fa-dashboard'),
                    $theme_config{'settings_sysinfo_link_mini'} eq 'true', 1)
      if (dashboard_switch() ne '1');

}

sub nav_link_sysstat
{
    my $link;
    if (&webmin_user_is_admin()) {
        if (-d $root_directory . "/virtual-server/pro/timeplot") {
            $link = 'virtual-server/pro';
        } elsif (-d $root_directory . "/server-manager/timeplot") {
            $link = 'server-manager';
        }
        if ($link) {
            return nav_menu_link("/$link/history.cgi", $theme_text{'left_statistics'}, 'fa-area-chart', 0, 1);
        }
    }
}

sub nav_link_netdata
{
 my $link;
 if (&webmin_user_is_admin()) {
 if (has_command('netdata') &&
 $theme_config{'settings_leftmenu_netdata'} ne 'false')
 {
 ($theme_config{'settings_leftmenu_netdata_link'} ? ($link = $theme_config{'settings_leftmenu_netdata_link'}) :
 ($link = 'http://' . get_system_hostname() . ':19999'));
 }
 if ($link) {
 my $rv;
 $rv = "<li data-after class=\"leftmenu_netdata_link\">\n";
 $rv .= "<a target=\"_blank\" href=\"$link\" class=\"navigation_external_link leftmenu_netdata_link\">\n";
 $rv .= " $theme_text{'left_netdata'}\n";
 $rv .= "</a></li>\n";
 return $rv;
 }
 }
}

sub nav_theme_links
{
 my $extra = $theme_config{'settings_leftmenu_custom_links'};
 my $rv = "";
 if ($extra) {
 $extra = replace('\'', '"', un_urlize($extra, 1));
 if ($extra && $extra =~ m/"extra":/) {
 my ($extra) = $extra =~ /\{(?:\{.*\}|[^{])*\}/sg;
 my $extra_json = convert_from_json($extra);
 foreach my $e (@{ $extra_json->{'extra'} }) {
 if (length($e->{"link"}) && (!length($e->{"level"}) || string_contains($e->{"level"}, $get_user_level))) {
 my $target = $e->{"target"};
 if ($target) {
 $target = " target=\"$target\"";
 }
 if ($e->{"port"}) {
 my $host = $e->{"host"};
 if (!$host) {
 $host = get_env('http_host');
 $host =~ s/:(\d+)$/:$e->{'port'}/;
 } else {
 $host .= ":$e->{'port'}";
 }
 my $proto = $e->{'protocol'} ? "$e->{'protocol'}://" : "//";
 $e->{"link"} = "$proto$host$e->{'link'}";
 }
 my $type = string_contains($e->{'link'}, '&#47;&#47') ? '' : 'data-linked';
 my $type_class = $type ? "navigation_module_trigger" : "navigation_external_link";
 $rv .= '<li ' . $type . ' data-after><a ' . $target . ' href="' .
 quote_escape($e->{"link"}, '"') . '" class="' . $type_class . '">{"icon"} . '"> ';
 utf8::encode($e->{'title'});
 $rv .= $e->{'title'};
 $rv .= '</a></li>';
 }
 }
 }
 }
 return $rv;
}

# Return HTML menu structure for given module
sub nav_list_combined_menu
{
    my ($modules, $items, $id, $group, $page) = @_;
    my ($nav_pos, $extra_links, $rv, $rv_after, $login_mode);
    my $search_bar = '';

my $gwp = sub {
        my ($link, $mod) = @_;

# Link could but shouldn't end with just &
        $link =~ s/&amp;$//;

if ($link) {
            if (!string_starts_with($link, "http") &&
                !string_starts_with($link, "ftp") &&
                !string_starts_with($link, "www") &&
                !string_starts_with($link, "../"))
            {
                $link = "/$link" if (!string_starts_with($link, "/"));
                $link = "$theme_webprefix$link"
                  if ($link !~ /^\Q$theme_webprefix\E/);
                # Add module reference to all non module links
                if ($mod && $link !~ /$mod\// && $link !~ /[?&]nmod=/ &&
                    !string_contains($link, "config.cgi")) {
                    my $sep = ($link =~ /\?/) ? '&' : '?';
                    $link .= "${sep}nmod=$mod";
                }
            }
        }
        return $link;
    };
    
    # Support upcoming change to navigation menu in Virtualmin
    my $vm_new_format = grep { $_->{'format'} eq 'new' &&
                               $_->{'module'} eq 'virtual-server' } @$items;
    my $vm_has_menu = grep { $_->{'type'} eq 'menu' &&
                             $_->{'module'} eq 'virtual-server' } @$items;
    my $is_vm = grep { $_->{'module'} eq 'virtual-server' } @$items;
    my $vm_has_new_domform = grep { $_->{'format'} eq 'link-new' &&
                                    $_->{'module'} eq 'virtual-server' } @$items;
    if ($vm_new_format) {
        if ($vm_has_new_domform) {
            my @vm_hr = grep { $_->{'type'} eq 'hr' &&
                               $_->{'module'} eq 'virtual-server' } @$items;
                    if (@vm_hr > 2) {
                        $items = [ grep { $_ != $vm_hr[0] } @$items ];
                        $items = [ grep { $_ != $vm_hr[1] } @$items ] if (!$vm_has_menu);
                    }
        }
        $search_bar = nav_search($vm_new_format);
    }
    my $known_module = $modules ? $modules->[-1] : undef;
    foreach my $item (@$items) {
        if ((grep {$_ eq $item->{'module'}} @{$modules}) || $group) {

my $link = &$gwp($item->{'link'}, $item->{'module'} || $known_module);
            my $icon;
            my $rv_after_local;

if ($item->{'type'} eq 'item' &&
                $link !~ /virtual-server\/pro\/history\.cgi/)
            {

# Define an icon for the link/accordion
 if ($link =~ /virtual-server\/index\.cgi/ ||
 $link =~ /server-manager\/index\.cgi/)
 {
 $icon = '';
 } elsif ($link =~ /\/virtualmin-wp-workbench/)
 {
 $icon = '';
 } elsif ($link =~ /\/virtual-server\/edit_newvalidate\.cgi/ &&
 !&webmin_user_is_admin())
 {
 $icon = '';
 } elsif ($link =~ /mailbox\/list_folders\.cgi/ ||
 $link =~ /mailbox\/list_ifolders\.cgi/)
 {
 $icon = '';
 } elsif ($link =~ /mailbox\/list_addresses\.cgi/) {
 $icon = '';
 } elsif ($link =~ /filter\/edit_forward\.cgi/) {
 $icon = '';
 } elsif ($link =~ /filter\/edit_auto\.cgi/) {
 $icon = '';
 } elsif ($link =~ /filter/) {
 $icon = '';
 } elsif ($link =~ /mailbox\/edit_sig\.cgi/) {
 $icon = '';
 } elsif ($link =~ /mailbox\/index\.cgi?id=/) {
 $icon = '';
 } elsif ($link =~ /\/#demo_history$/) {
 $icon = '';
 $rv_after_local = $link;
 }

if ($get_user_level == 1) {
 if ($link =~ /\/virtual-server\/edit_pass\.cgi/ &&
 $link !~ /\/virtual-server\/edit_pass\.cgi\?/)
 {
 $icon = '';
 } elsif ($link =~ /\/virtual-server\/edit_newplan\.cgi/) {
 $icon = '';
 } elsif ($link =~ /\/virtual-server\/edit_newresels\.cgi/) {
 $icon = '';
 } elsif ($link =~ /\/virtual-server\/bwgraph\.cgi/ && $id ne 'cat_logs') {
 $icon = '';
 }
 }

if ($link =~ /\/virtual-server\/domain_form\.cgi/) {
 if ($link =~ /to=/) {
 $icon = '';
 } elsif ($link =~ /parentuser/) {
 $icon = '';
 } else {
 $icon = '';
 }

} elsif ($link =~ /\/virtual-server\/edit_domain\.cgi/ ||
 $link =~ /\/server-manager\/edit_serv\.cgi/)
 {
 $icon = '';
 } elsif ($link =~ /\/virtual-server\/(view_domain|summary_domain)\.cgi/ ) {
 $icon = '';

} elsif ($link =~ /\/virtual-server\/list_users\.cgi/) {
 $icon = '';
 } elsif ($link =~ /\/virtual-server\/list_aliases\.cgi/ && $id ne 'cat_mail') {
 $icon = '';
 } elsif ($link =~ /\/virtual-server\/list_databases\.cgi/) {
 $icon = '';
 } elsif ($link =~ /\/server-manager\/mass_update_form\.cgi/)
 {
 $icon = '';
 } elsif ($link =~ /\/virtual-server\/list_scripts\.cgi/)
 {
 $icon = '';
 } elsif ($link =~ /\/virtualmin-podman/) {
 if ($link =~ /list_containers.cgi/) {
 $icon = '';
 } else {
 $icon = '';
 }

} elsif ($link =~ /\/filemin\/index\.cgi/) {
 $icon = '';

} elsif ($link =~ /\/xterm\/index\.cgi\?user/) {
 $icon = '';

} elsif ($link =~ /\/virtual-server\/edit_html\.cgi/) {
 $icon = '';
 } elsif ($link =~ /\/server-manager\/edit_pass\.cgi/ ||
 $link =~ /\/virtual-server\/edit_pass\.cgi$/ ||
 $link =~ /\/changepass\/$/)
 {
 $icon = '';
 } elsif ($link =~ /\/server-manager\/save_serv\.cgi/ && $link =~ /recheck=1/) {
 $icon = '';
 } elsif ($link =~ /\/server-manager\/create_form\.cgi/ && !$group) {
 $icon = '';
 } elsif ($link =~ /\/server-manager\/save_serv\.cgi/) {
 if ($link =~ /refresh=1/) {
 $icon = '';
 } elsif ($link =~ /regen=1/) {
 $icon = '';
 }
 } elsif (
 ($link =~ /^http:\/\// || $link =~ /^https:\/\// || $link =~ /^ftp:\/\// || $link =~ /^ftps:\/\//) &&
 $link !~ /virtualmin\.com\/docs\/professional/)
 {
 $icon = '';
 } elsif ($link =~ /\.\.\/servers\/link\.cgi/) {
 $icon = '';
 }

# Set variable in case it hasn't been set before
                if (!length $link) {
                    $icon = undef;
                }

my $rv_;
 $rv_ = '<li' . ($item->{'inactive'} ? " data-link-inactive" : "") . ' data-linked'
 .
 ( $item->{'target'} ? ' class="navigation_external"' :
 ''
 ) .
 '>' . "\n";
 $rv_ .=
 '<a ' .
 ($link !~ /switch_user/ ? ' target="' . ($item->{'target'} ? '_blank' : 'page') . '" ' : '') . ' '
 .
 ( (!$group && !$item->{'target'}) ? "class=\"navigation_module_trigger\" " :
 ''
 ) .
 'href="' . $link . '">' .
 ($icon =~ /<i/ ? $icon : '') . ' ' . $item->{'desc'} . '</a>' . "\n";
 $rv_ .= '</li>' . "\n";
 $rv_ .= "\n";

if ($rv_after_local) {
                    $rv_after .= $rv_;
                } else {
                    $rv .= $rv_;
                }

} elsif ($item->{'type'} eq 'html') {
 if (trim(html_strip($item->{'html'}))) {
 $rv .= '<li class="menu-container menu-status">' .
 $item->{'html'} . '</li>';
 }
 } elsif ($item->{'type'} eq 'text' && $item->{'json'}) {
 $login_mode =
"$theme_text{'theme_global_access_level'}:&nbsp;&nbsp;@{[html_escape($item->{'json'}->{'level'})]}";
 } elsif ($item->{'type'} eq 'text' && $item->{'desc'}) {
 if ($login_mode++ == 1) {
 $login_mode =
"$theme_text{'theme_global_access_level'}:&nbsp;&nbsp;@{[html_escape($item->{'desc'})]}";
 }
 } elsif ($item->{'type'} eq 'cat') {
 $rv .= nav_cat($item->{'id'}, $item->{'desc'});
 $rv .= '<li class="sub-wrapper"><ul class="sub" style="display: none;" id="' . $item->{'id'} . '">' . "\n";
 my $menu = nav_list_combined_menu([$item->{'module'}], $item->{'members'}, $item->{'id'}, 'group');
 $rv .= $menu->{'before'};

if (($item->{'id'} eq 'global_setting' || $item->{'id'} eq 'global_settings') &&
                    &webmin_user_is_admin() &&
                    !$extra_links++)
                {
                    $rv .=
                      nav_cat_link("/tconfig.cgi", $theme_text{'settings_right_theme_left_configuration_title'}, 'hidden');
                    $rv .= nav_cat_link("/settings-editor_read.cgi",
                                        $theme_text{'settings_right_theme_left_extensions_title'}, 'hidden');
                    $rv .=
                      nav_cat_link("/settings-logos.cgi", $theme_text{'settings_right_theme_left_logo_title'}, 'hidden');
                    $rv .= nav_cat_link("/settings-backgrounds.cgi",
                                        $theme_text{'theme_xhred_settings_right_theme_bgs_title'}, 'hidden');

if (check_pro_package('vm') eq '1' &&
                        $item->{'module'} eq 'virtual-server')
                    {
                        $rv .= nav_cat_link("/virtual-server/licence.cgi", $theme_text{'right_vlcheck'}, 1);
                    }

if (check_pro_package('cm') eq '1' &&
                        $item->{'module'} eq 'server-manager')
                    {
                        $rv .= nav_cat_link("/server-manager/licence.cgi", $theme_text{'right_slcheck'}, 1);
                    }

} elsif (!&webmin_user_is_admin() &&
 $theme_config{'settings_theme_config_admins_only_privileged'} ne 'true' &&
 !$extra_links++)
 {
 $rv .= nav_cat_link("/tconfig.cgi", $theme_text{'settings_right_theme_left_configuration_title'}, 1);
 }
 $rv .= "</ul></li>\n";
 } elsif ($item->{'type'} eq 'hr') {
 $nav_pos++;
 my $no_vm_menu_class = $is_vm && !$vm_has_menu ? ' no_vm_menu' : '';
 my $separator = "<li class=\"menu-container menu-separator$no_vm_menu_class\"></li>";
 if ($vm_new_format) {
 if ($nav_pos eq '2' || $no_vm_menu_class) {
 $rv .= $separator;
 }
 }
 else {
 if ($nav_pos eq '2') {
 $rv .= nav_search($vm_new_format);
 }
 }
 } elsif (($item->{'type'} eq 'menu' || $item->{'type'} eq 'input') &&
 $item->{'module'} ne 'mailbox')
 {

# For with an input of some kind
 if ($item->{'cgi'}) {
 $rv .= "<li class=\"menu-container\"><form action='$item->{'cgi'}'>\n";
 } else {
 $rv .= "<li class=\"menu-container\"><form>\n";
 }
 foreach my $h (@{ $item->{'hidden'} }) {
 $rv .= ui_hidden(@$h);
 }

$rv .= $item->{'desc'};
                if ($item->{'type'} eq 'menu' || $item->{'type'} eq 'input') {
                    if ($item->{'name'} eq 'dname' && $item->{'module'} eq 'virtual-server') {

# Force select type
                        $item->{'name'}  = 'dom';
                        $item->{'value'} = $item->{'domid'};

# Regenerate data for select
                        $item->{'menu'} = [
                            map {
                                [$_->{'id'},
                                 virtual_server::shorten_domain_name($_),
                                 "title=\"" . virtual_server::show_domain_name($_) . "\""]
                              }
                              grep {virtual_server::can_edit_domain($_)}
                              sort {$a->{'dom'} cmp $b->{'dom'}} virtual_server::list_visible_domains()];
                    }
                    my $data_title =
                      $item->{'module'} eq 'virtual-server' ? $theme_text{'right_fdoms'} : $theme_text{'right_fvm2'};
                    my $select_width = ($theme_config{'settings_menu_width'} - 11 * 2);
                    my $style        = "data-autocomplete-title=\"$data_title\" style=\"width:${select_width}px;\"";

# Build select menu
 $rv .= ui_select($item->{'name'}, $item->{'value'}, $item->{'menu'}, 1, 0, 0, 0, $style);
 }
 $rv .= "</form></li>\n";
 }
 }
 }
 return { 'before' => $search_bar . $rv,
 'after' => $rv_after,
 'mode' => $login_mode };
}

# Returns a list of tiny square buttons for navigation menu
sub nav_links
{
 my ($login_mode, $mod) = @_;
 my $rv;
 $rv =
 '<li class="menu-container"><ul class="user-links"><li data-collapse-trigger-container data-linked' .
 get_button_tooltip('theme_xhred_tooltip_navigation_pinned', 'settings_hotkey_navigation', 'auto top') .
 ' class="user-link cursor-pointer' .
 ($theme_config{'settings_collapse_navigation_link'} eq 'false' && ' hidden') . '">';
 $rv .= '';
 $rv .= '</li>';

if ($theme_config{'settings_sysinfo_link_mini'} eq 'true' &&
 dashboard_switch() ne '1')
 {
 $mod = "?mod=$mod" if ($mod);
 $rv .= '<li data-linked' .
 get_button_tooltip('theme_xhred_titles_dashboard', 'settings_hotkey_sysinfo', 'auto top') . ' class="user-link">';
 $rv .=
 '<a tabindex="-1" class="menu-exclude-link sidebar_sysinfo_link" href="' .
 $theme_webprefix . '/sysinfo.cgi'.$mod.'"></a>';
 $rv .= '</li>';
 }

$rv .=
 '<li data-linked' .
 get_button_tooltip('theme_tooltip_night_mode', 'settings_hotkey_toggle_key_night_mode', 'auto top') .
 ' class="user-link palette-toggle cursor-pointer'
 .
 ( $theme_config{'settings_show_night_mode_link'} ne 'false' ? '' :
 ' hidden'
 ) .
 '">';
 $rv .= '<i class="fa fa-fw ' .
 ($theme_config{'settings_palette_auto'} eq 'true'
 ? ('fa-auto-palette' . (theme_night_mode()
 ? ' sun-icon'
 : ' moon-icon'))
 : theme_night_mode()
 ? 'fa-sun sun-icon'
 : 'fa-moon moon-icon'
 ) . '">';
 $rv .= '</li>';

if ((foreign_available("xterm") && $theme_config{'settings_show_terminal_link'} ne 'false') ||
 (!foreign_available("xterm") && foreign_available("shell") && $theme_config{'settings_show_terminal_link2'} ne 'false'))
 {
 my $t = foreign_available("xterm") ? undef : '2';
 my $t_icons = !$t ? 'fa2 fa2-terminal' : 'fa fa-terminal';
 $rv .=
 '<li data-linked' .
 get_button_tooltip('theme_tooltip_terminal_link' . $t . '', 'settings_hotkey_shell' . $t . '', 'auto top') .
 ' class="user-link ported-console cursor-pointer">';
 $rv .= "";
 $rv .= '</li>';
 }

$rv .=
 '<li data-linked' . get_button_tooltip('left_favorites', 'settings_hotkey_favorites', 'auto top') .
 ' class="user-link favorites cursor-pointer' .
 ($theme_config{'settings_favorites'} ne 'false' ? '' : ' hidden') . '">';
 $rv .= '';
 $rv .= '</li>';

if ((&webmin_user_is_admin() && $theme_config{'settings_theme_options_button'} ne 'false') ||
 (!&webmin_user_is_admin() &&
 $theme_config{'settings_theme_config_admins_only_privileged'} ne 'true' &&
 $theme_config{'settings_theme_options_button'} ne 'false'))
 {
 my $tooltip = get_button_tooltip('settings_title', 'settings_hotkey_open_module_config_privileged', 'auto top');
 $rv .= "<li $tooltip data-linked class=\"user-link theme-options cursor-pointer\">";
 $rv .= '<a tabindex="-1" class="menu-exclude-link" href="' . $theme_webprefix .
 '/tconfig.cgi" data-href="' . $theme_webprefix . '/tconfig.cgi"></a>';
 $rv .= '</li>';
 }

if (&foreign_available("change-user") &&
 $theme_config{'settings_leftmenu_button_language'} eq 'true')
 {
 $rv .=
 '<li data-linked' . get_button_tooltip('theme_xhred_title_language_locale', undef, 'auto top') .
 ' class="user-link"><a tabindex="-1" class="menu-exclude-link" href="' .
 $theme_webprefix . '/change-user"></a></li>';
 }

my $foreign_acl = &foreign_available("acl");
 my $user_mode = get_product_name() eq 'usermin';
 my $edit_user =
 ($foreign_acl ? ("<hr class='hr-no-margin hr-darker'>" . $theme_text{'theme_tooltip_edit_user'}) : undef);
 my $title_proc;
 if (!$user_mode && $login_mode && $login_mode !~ /^\d+$/) {
 $title_proc = $login_mode . $edit_user;
 } else {
 $title_proc =
 $foreign_acl ? $theme_text{'theme_tooltip_edit_user'} :
 ( get_product_name() eq 'usermin' ?
"$theme_text{'theme_global_access_level'}:&nbsp;&nbsp;$theme_text{'theme_global_user_mode'}"
 :
 undef);
 }
 my $user_title = get_button_tooltip($title_proc, undef, 'auto top', 1, undef, "aside");
 my $menu_elem_br;
 my $menu_width = $theme_config{'settings_menu_width'};
 my $button_width = 26;
 my $button_margin = 2;
 my $char_width = 5.73;
 my $menu_lnk_colla = $theme_config{'settings_collapse_navigation_link'} eq 'true';
 my $menu_lnk_dashb = $theme_config{'settings_sysinfo_link_mini'} eq 'true';
 my $menu_lnk_night = $theme_config{'settings_show_night_mode_link'} eq 'true';
 my $menu_lnk_favor = $theme_config{'settings_favorites'} eq 'true';
 my $menu_lnk_themeconf = $theme_config{'settings_theme_options_button'} eq 'true';
 my $menu_lnk_lang = $theme_config{'settings_leftmenu_button_language'} eq 'true';
 my $menu_lnk_refresh = $theme_config{'settings_leftmenu_button_refresh'} eq 'true';
 my $menu_lnk_term = $theme_config{'settings_show_terminal_link'} eq 'true' ||
 $theme_config{'settings_show_terminal_link2'} eq 'true';

# Link buttons widths
    my $menu_width_needed = 0;
    foreach my $e (
                   ($menu_lnk_colla,
                    $menu_lnk_dashb,
                    $menu_lnk_night,
                    $menu_lnk_term,
                    $menu_lnk_favor,
                    $menu_lnk_themeconf,
                    $menu_lnk_lang,
                    $menu_lnk_refresh))
    {
        if ($e) {
            $menu_width_needed += ($button_width + $button_margin);
        }
    }

# User button link
    $menu_width_needed += ($button_width + (4 * $button_margin)) + int($char_width * length($remote_user));

# Logout button link
    $menu_width_needed += $button_width;

# Servers index menu
    $menu_width_needed += $button_width * 2 if ($theme_server_webprefix);

if ($menu_width - $menu_width_needed < $button_width - $button_margin) {
 $menu_elem_br = '<li class="flex-br"></li>';
 }
 my $cursor_def = !$foreign_acl ? ' cursor-default' : undef;
 $rv .= "$menu_elem_br<li $user_title class=\"user-link user-link-acl$cursor_def\">";
 if ($foreign_acl) {
 $rv .=
 '<a tabindex="-1" class="menu-exclude-link" data-href="' . $theme_webprefix . '/acl/edit_user.cgi" href="' .
 $theme_webprefix . '/acl/edit_user.cgi?user=' . (get_env('base_remote_user') eq "root" ? "root" : $remote_user) .
 '">&nbsp;' . $remote_user . '</a>';
 } else {
 $rv .=
 '<a tabindex="-1" class="menu-exclude-link cursor-default no-hover">&nbsp;' . $remote_user . '</a>';
 }
 $rv .= '</li>';

my %miniserv;
    &get_miniserv_config(\%miniserv);

if ($miniserv{'logout'} &&
 !get_env('ssl_user') &&
 get_env('http_user_agent') !~ /webmin/i)
 {
 my $tooltip = get_button_tooltip(($main::session_id ? 'theme_tooltip_logout' : 'theme_xhred_tooltip_switch_user'),
 'settings_hotkey_logout_dbl', 'auto top');
 $rv .= "<li $tooltip class=\"user-link __logout-link\">";
 if ($main::session_id) {
 $rv .=
 '<a tabindex="-1" data-nref class="menu-exclude-link" href="' .
 $theme_webprefix . '/session_login.cgi?logout=1"></a>';
 } else {
 $rv .=
 '<a tabindex="-1" data-nref class="menu-exclude-link" href="' .
 $theme_webprefix . '/switch_user.cgi"></a>';
 }
 $rv .= '</li>';
 } else {
 if ($theme_server_webprefix) {
 my $master_link = "$gconfig{'webprefix'}/servers/";
 $master_link = "$1/"
 if ($theme_webprefix =~ /^(.*?\/servers)\/link\.cgi\/\d{8,16}(?:\/|$)/);
 my $tooltip_go_to_master = get_button_tooltip('tooltip_back_to_servers_index_master', undef, 'auto top');
 my $tooltip_other_servers = get_button_tooltip('tooltip_list_other_servers', undef, 'auto top');
 $rv .= "<li class=\"user-link servers-index-link\">";
 $rv .=
 '<a tabindex="-1" ' . $tooltip_go_to_master . ' data-nref class="menu-exclude-link" href="' .
 $master_link . '?' . $xnav . '"></a>';
 $rv .= '
 <div data-http-webmin-servers="' .
 $master_link . '" ' . $tooltip_other_servers . ' class="popover-trigger hidden">
 <a data-servers-index="popover">
 
 ▼
 
 </a>
 </div>
 </li>';
 }
 }

$rv .=
 '<li data-linked' .
 get_button_tooltip('theme_xhred_filemanager_context_refresh', 'settings_hotkey_reload', 'auto top') .
 ' class="user-link' . ($theme_config{'settings_leftmenu_button_refresh'} ne 'true' && ' hidden') .
'"><a tabindex="-1" class="menu-exclude-link" data-refresh="true" style="cursor: pointer"></a></li>';
 $rv .= '</ul></li>';
 $rv .= "\n";
 return $rv;
}

# XXX - needs further refactor
sub print_switch_webmin
{
    my ($tab)   = @_;
    my $prod    = get_product_name();
    my $checked = 0;
    if ($tab eq $prod) {
        $checked = 1;
    }

print '<input class="dynamic" id="open_' . $prod . '" name="product-switcher" type="radio"' .
 ($checked ? " checked" : "") . '>
 <label'
 . get_button_tooltip(
 (get_product_name() eq 'usermin' ? 'theme_xhred_titles_um' :
 'theme_xhred_titles_wm'
 ),
 'settings_hotkey_toggle_key_' . get_product_name() . '',
 'auto bottom'
 ) .
 ' for="open_' . get_product_name() . '">
 '
 . (&get_product_name() eq 'webmin' ? $theme_text{'theme_xhred_titles_wm'} :
 $theme_text{'theme_xhred_titles_um'}
 ) .
 '</label>';
}

# XXX - needs further refactor
sub print_switch_dashboard
{
    my ($tab) = @_;
    my $checked = 0;
    if ($tab eq 'dashboard') {
        $checked = 1;
    }

print '<input class="dynamic" id="open_dashboard" name="product-switcher" type="radio"' .
 ($checked ? " checked" : "") . '>
 <label'
 . get_button_tooltip('theme_xhred_titles_dashboard', 'settings_hotkey_sysinfo', 'auto right') .
 ' for="open_dashboard" style="padding-top: 1px;">
 '
 . $theme_text{'theme_xhred_titles_dashboard'} . '</label>';
}

# XXX - needs further refactor
sub print_switch_virtualmin
{
    my ($tab) = @_;
    my $checked = 0;
    if ($tab eq 'virtualmin') {
        $checked = 1;
    }

print '<input class="dynamic" id="open_virtualmin" name="product-switcher" type="radio"' .
 ($checked ? " checked" : "") . '>
 <label'
 . get_button_tooltip('theme_xhred_titles_vm', 'settings_hotkey_toggle_key_virtualmin', 'auto right') .
 ' for="open_virtualmin">
 '
 . $theme_text{'theme_xhred_titles_vm'} . '</label>';
}

# XXX - needs further refactor
sub print_switch_cloudmin
{
    my ($tab) = @_;
    my $checked = 0;
    if ($tab eq 'cloudmin') {
        $checked = 1;
    }

print '<input class="dynamic" id="open_cloudmin" name="product-switcher" type="radio"' .
 ($checked ? " checked" : "") . '>
 <label'
 . get_button_tooltip('theme_xhred_titles_cm', 'settings_hotkey_toggle_key_cloudmin', 'auto right') .
 ' for="open_cloudmin">
 '
 . $theme_text{'theme_xhred_titles_cm'} . '</label>';
}

# XXX - needs further refactor
sub print_switch_webmail
{
    my ($tab) = @_;
    my $checked = 0;
    if ($tab eq 'webmail') {
        $checked = 1;
    }

print '<input class="dynamic" id="open_webmail" name="product-switcher" type="radio"' . ($checked ? " checked" : "") . '>
 <label'
 . get_button_tooltip('theme_xhred_titles_mail', 'settings_hotkey_toggle_key_webmail', 'auto right') .
 ' for="open_webmail">
 
 ' . $theme_text{'theme_xhred_titles_mail'} . '</label>';
}

# XXX - needs further refactor
sub print_switch
{

my ($t_var_switch_m, $t_var_product_m);

if (&get_product_name() eq 'usermin' &&
        &foreign_available("mailbox"))
    {
        $t_var_switch_m  = '2';
        $t_var_product_m = '4';
    } elsif (!&foreign_available("virtual-server") && !&foreign_available("server-manager") ||
             &get_product_name() eq 'usermin' ||
             $get_user_level eq '2')
    {

$t_var_switch_m  = '2';
        $t_var_product_m = '1';
    } elsif (&foreign_available("virtual-server") &&
             &foreign_available("server-manager"))
    {
        $t_var_switch_m  = '3';
        $t_var_product_m = '3';
    } elsif (&foreign_available("virtual-server") ||
             &foreign_available("server-manager") && (!&foreign_available("virtual-server") ||
                                                      !&foreign_available("server-manager")))
    {
        $t_var_switch_m  = '2';
        $t_var_product_m = '2';
    }

my $o = ($theme_config{'settings_switch_rdisplay'} ne 'true' ? 'd' :
               'r');
    my ($tab, $page) = nav_detector();

print '<div class="switch-toggle switch-' . $t_var_switch_m . ' switch-mins">';
 if ($t_var_product_m eq '1') {
 if ($o eq 'd') {
 if ($get_user_level eq '2') {
 print_switch_virtualmin($tab);
 print_switch_dashboard($tab);
 } else {
 print_switch_webmin($tab);
 print_switch_dashboard($tab);
 }
 } else {
 if ($get_user_level eq '2') {
 print_switch_dashboard($tab);
 print_switch_virtualmin($tab);
 } else {
 print_switch_dashboard($tab);
 print_switch_webmin($tab);
 }
 }
 }
 if ($t_var_product_m eq '2') {
 if ($get_user_level eq '4') {
 if ($o eq 'd') {
 print_switch_cloudmin($tab);
 print_switch_dashboard($tab);

} else {
                print_switch_dashboard($tab);
                print_switch_cloudmin($tab);

}
        } else {
            if ($o eq 'd') {
                print_switch_webmin($tab);
                &foreign_available("virtual-server") ? print_switch_virtualmin($tab) :
                  print_switch_cloudmin($tab);

} else {
                &foreign_available("virtual-server") ? print_switch_virtualmin($tab) :
                  print_switch_cloudmin($tab);
                print_switch_webmin($tab);

}
        }
    }
    if ($t_var_product_m eq '3') {
        if ($o eq 'd') {
            print_switch_webmin($tab);
            print_switch_virtualmin($tab);
            print_switch_cloudmin($tab);

} else {
            print_switch_cloudmin($tab);
            print_switch_virtualmin($tab);
            print_switch_webmin($tab);

}
    }
    if ($t_var_product_m eq '4') {

if ($o eq 'd') {
            print_switch_webmail($tab);
            print_switch_webmin($tab);
        } else {
            print_switch_webmin($tab);
            print_switch_webmail($tab);
        }

}
 print '<a></a>
 </div><div class="toggle-space"></div><div class="select-dropdown-container"></div>';
}

# XXX - needs further refactor
sub dashboard_switch
{
    if ($get_user_level eq '2' ||
        $get_user_level eq '4' ||
        (!foreign_available("virtual-server") &&
            !foreign_available("server-manager") &&
            (get_product_name() ne 'usermin' || (get_product_name() eq 'usermin' && !foreign_available("mailbox")))))
    {
        return 1;
    } else {
        return 0;
    }
}

sub nav_virtualmin_domain_available
{
    my ($id, $type, $gkey) = @_;
    if (&foreign_available('virtual-server')) {
        &foreign_require("virtual-server", "virtual-server-lib.pl");
        foreach my $dom (&virtual_server::list_visible_domains()) {
            if ($id eq $dom->{$type}) {
                return $gkey ? $dom->{$gkey} : $dom->{$type};
            }
        }
    }
}

sub nav_virtualmin_domain_available_count
{
    if (&foreign_available('virtual-server')) {
        &foreign_require("virtual-server", "virtual-server-lib.pl");
        my %doms = virtual_server::list_visible_domains();
        return scalar(keys %doms);
    }
}

sub nav_cloudmin_server_available
{
    my ($id, $type, $gkey) = @_;
    if (&foreign_available('server-manager')) {
        &foreign_require("server-manager", "server-manager-lib.pl");
        foreach my $host (&server_manager::list_managed_servers()) {
            if ($id eq $host->{$type}) {
                return $gkey ? $host->{$gkey} : $host->{$type};
            }
        }
    }
}

sub nav_menu_html_snippet
{
 my $rv;
 my $html_snippet = $theme_config{'settings_leftmenu_user_html'};
 my $html_snippet_limited = $theme_config{'settings_leftmenu_user_html_privileged'};
 $html_snippet = ""
 if (!$html_snippet && theme_debug_mode());
 $html_snippet =~ s/(<(\/|\s*)(html|head|meta|link|title|body).*?>)//g;

if ($html_snippet_limited ne 'true' ||
 ($html_snippet_limited eq 'true' && &webmin_user_is_admin()))
 {
 $rv = '<li class="menu-container"><ul class="user-html"><li class="user-html-string">';
 $rv .= $html_snippet;
 $rv .= "</li></ul></li>";
 }
}

Cancel