Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
acl	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
adsl-client	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
apache	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
at	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
backup-config	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
bandwidth	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
bind8	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
bsdfdisk	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
burner	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cfengine	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
change-user	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cluster-copy	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cluster-cron	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cluster-passwd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cluster-shell	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cluster-software	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cluster-useradmin	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cluster-webmin	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cpan	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
cron	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
custom	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
dhcpd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
dhcpd-2.0	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
dnsadmin	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
dovecot	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
download	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
escputil	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
exports	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
fdisk	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
fetchmail	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
file	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
firewall	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
frox	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
fsdump	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
generate-acls	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
gnupg	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
grub	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
grub2	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
heartbeat	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
help	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
htaccess-htpasswd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
htpasswd-file	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
idmapd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
inetd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
init	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
inittab	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
ipchains	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
ipsec	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
iptables	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
iscsi-client	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
iscsi-server	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
iscsi-target	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
jabber	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
jsample	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
kea-dhcp	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
krb5	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
ldap-useradmin	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
lilo	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
logrotate	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
lpadmin	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
lvm	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
lvs	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
mailbox	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
mailboxes	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
majordomo	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
man	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
mon	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
mount	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
mysql	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
net	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
nettools	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
nis	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
openslp	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
pam	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
pap	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
passwd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
phpini	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
postfix	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
postgresql	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
ppp-client	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
pptp-client	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
pptp-server	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
proc	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
procmail	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
procyonguide	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
proftpd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
pserver	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
qmailadmin	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
quota	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
raid	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
samba	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
sarg	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
sargreports	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
sendmail	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
sentry	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
servers	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
shell	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
shorewall	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
simple-firewall	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
smart-status	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
software	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
spam	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
squid	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
squidguard	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
squidinfo	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
squidreports	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
squidstat	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
ssh	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
sshd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
status	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
stunnel	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
swell-wizard	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
sysgraph	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
sysinfo	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
syslog	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
sysstats	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
telnet	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
template	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
time	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
tsunamiguide	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
tunnel	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
unauthenticated	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
updown	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
useradmin	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
usermin	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
vgetty	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
webalizer	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
webfetch	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
webmin	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
webmin-iptables	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
webminguide	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
webminlog	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
wpad-wizard	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
wuftpd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
xinetd	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
zones	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
config	337 B	-rw-r--r--	2026-07-19 16:26
config.cgi	3.65 KB	-rwxr-xr-x	2026-07-19 16:28
config_save.cgi	1.71 KB	-rwxr-xr-x	2026-07-19 16:28
edit_overlay.cgi	783 B	-rwxr-xr-x	2026-07-19 16:28
edit_right.cgi	3.77 KB	-rwxr-xr-x	2026-07-19 16:28
favicon.ico	1.12 KB	-rw-r--r--	2026-07-19 16:26
gray-theme-lib.pl	4.63 KB	-rwxr-xr-x	2026-07-19 16:26
index.cgi	4.23 KB	-rwxr-xr-x	2026-07-19 16:28
left.cgi	10.11 KB	-rwxr-xr-x	2026-07-19 16:28
pngfix.html	95 B	-rw-r--r--	2026-07-19 16:26
pngfix.js	1.21 KB	-rw-r--r--	2026-07-19 16:26
recollect.cgi	277 B	-rwxr-xr-x	2026-07-19 16:28
right.cgi	54.71 KB	-rwxr-xr-x	2026-07-19 16:28
save_overlay.cgi	902 B	-rwxr-xr-x	2026-07-19 16:28
save_right.cgi	1.55 KB	-rwxr-xr-x	2026-07-19 16:28
theme.info	151 B	-rw-r--r--	2026-07-19 16:26
theme.pl	34.9 KB	-rwxr-xr-x	2026-07-19 16:26
top.cgi	346 B	-rwxr-xr-x	2026-07-19 16:28
uconfig.cgi	2.98 KB	-rwxr-xr-x	2026-07-19 16:28
uconfig_save.cgi	1.39 KB	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/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 "<div class='mode'>";
	foreach my $m (@has) {
		print "<b data-mode='$m->{'id'}'>";
		if ($m->{'id'} ne $mode) {
			print "<a href='left.cgi?mode=$m->{'id'}'>";
			}
		if ($m->{'icon'}) {
			my $icon = add_webprefix($m->{'icon'});
			print "<img src='$icon' alt='$m->{'id'}'> ";
			}
		print $m->{'desc'};
		if ($m->{'id'} ne $mode) {
			print "</a>\n";
			}
		print "</b>\n";
		}
	print "</div>";
	}
print &ui_switch_theme_javascript();
print "<div class='wrapper leftmenu'>\n";
print "<table id='main' width='100%'><tbody><tr><td>\n";

my $selwidth = (get_left_frame_width() - 70)."px";
if ($mode eq "modules") {
	# Only showing Webmin modules
	@leftitems = &list_modules_webmin_menu();
	foreach my $l (@leftitems) {
		$l->{'members'} = [ grep { !$modmenu{$_->{'id'}} } @{$l->{'members'}} ];
		}
	push(@leftitems, { 'type' => 'hr' });
	}
else {
	# Only show items under some title OR items that have no title
	my ($lefttitle) = grep { $_->{'id'} eq $mode } @lefttitles;
	my %titlemods = map { $_->{'module'}, $_ } @lefttitles;
	@leftitems = grep { $_->{'module'} eq $mode ||
			    !$titlemods{$_->{'module'}} } @leftitems;
	}

# Show Webmin search form
my $cansearch = ($gaccess{'webminsearch'} || '') ne '0' &&
		!$sects->{'nosearch'};
if ($mode eq "modules" && $cansearch) {
	push(@leftitems, { 'type' => 'input',
			   'desc' => ' ',
			   'tags' => " placeholder='$text{'left_search'}' style='width: 92%;'",
			   'size' => 10,
			   'name' => 'search',
			   'cgi' => '/webmin_search.cgi', });
	push(@leftitems, { 'type' => 'hr' });
	}
# Show system information link
push(@leftitems, { 'type' => 'item',
		   'id' => 'home',
		   'desc' => $text{'left_home'},
		   'link' => '/right.cgi',
		   'icon' => '/images/gohome.png' });

# Show refresh modules link
if ($mode eq "modules" && foreign_available("webmin")) {
	push(@leftitems, { 'type' => 'item',
			   'id' => 'refresh',
			   'desc' => $text{'main_refreshmods'},
			   'link' => '/webmin/refresh_modules.cgi',
			   'icon' => '/images/reload.png' });
	}

# Show logout link
get_miniserv_config(\%miniserv);
if ($miniserv{'logout'} && !$ENV{'SSL_USER'} && !$ENV{'LOCAL_USER'} &&
    $ENV{'HTTP_USER_AGENT'} !~ /webmin/i) {
	my $logout = { 'type' => 'item',
		       'id' => 'logout',
		       'target' => 'window',
		       'icon' => '/images/stock_quit.png' };
	if ($main::session_id) {
		$logout->{'desc'} = $text{'main_logout'};
		$logout->{'link'} = '/session_login.cgi?logout=1';
		}
	else {
		$logout->{'desc'} = $text{'main_switch'};
		$logout->{'link'} = '/switch_user.cgi';
		}
	push(@leftitems, $logout);
	}

# Show link back to original Webmin server
if ($ENV{'HTTP_WEBMIN_SERVERS'}) {
	push(@leftitems, { 'type' => 'item',
			  'desc' => $text{'header_servers'},
			  'link' => $ENV{'HTTP_WEBMIN_SERVERS'},
			  'icon' => '/images/webmin-small.gif',
			  'target' => 'window' });
	}

show_menu_items_list(\@leftitems, 0);

print "</td></tr></tbody></table>\n";
print <<EOF;
<script type='text/javascript'>
(function() {
	var imgs = document.querySelectorAll('img[src]'),
		mailfolders = 0;
	imgs.forEach(function(img) {
		var i = document.createElement("i");
		if (img.src) {
			if (img.src.includes('webmin-small.png')) {
				i.classList.add('ff', 'ff-webmin');
			} else if (img.src.includes('usermin-small.png')) {
				i.classList.add('ff', 'ff-webmin', 'ff-usermin');
			} else if (img.src.includes('virtualmin.png')) {
				i.classList.add('ff', 'ff-virtualmin');
			} else if (img.src.includes('vm2.png')) {
				i.classList.add('ff', 'ff-cloudmin');
			} else if (img.src.includes('index.png')) {
				i.classList.add('ff', 'ff-fw', 'ff-virtualmin-tick');
			} else if (img.src.includes('graph.png')) {
				i.classList.add('ff', 'ff-fw', 'ff-chart');
			} else if (img.src.includes('gohome.png')) {
				i.classList.add('ff', 'ff-fw', 'ff-home');
			} else if (img.src.includes('stock_quit.png')) {
				i.classList.add('ff', 'ff-fw', 'ff-sign-out');
			} else if (img.src.includes('reload.png')) {
				i.classList.add('ff', 'ff-fw', 'ff-refresh');
			} else if (img.src.includes('mail.') && !mailfolders) {
				i.classList.add('ff', 'ff-mail');
				mailfolders = 1;
			} else if (img.src.includes('mail.') && mailfolders) {
				i.classList.add('ff', 'ff-folder-open');
			} else if (img.src.includes('address.')) {
				i.classList.add('ff', 'ff-address-book');
			} else if (img.src.includes('address.')) {
				i.classList.add('ff', 'ff-address-book');
			} else if (img.src.includes('sig.')) {
				i.classList.add('ff', 'ff-signature');
			} else if (img.src.includes('changepass.')) {
				i.classList.add('ff', 'ff-lock');
			}
			if (i.classList.length) {
				img.replaceWith(i);
			}
		}
	});
	var inputs = document.querySelectorAll('input[src]');
	inputs.forEach(function(input) {
		var b = document.createElement("button"),
			i = document.createElement("i");
		if (input.src) {
			if (input.src.includes('ok.png')) {
				i.classList.add('ff', 'ff-play-circle');
				b.type = 'submit';
				b.classList.add('servers-submit');
				b.appendChild(i);
				input.replaceWith(b);
			}
		}
	});
})();
</script>
EOF
print "</div>\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 "<div class='linkwithicon".
			      ($item->{'inactive'} ? ' inactive' : '')."'>".
			      "<img src='$icon' alt=''>\n";
			}
		my $cls = $item->{'icon'} ? 'aftericon' :
		          $indent ? 'linkindented'.
		                    ($item->{'inactive'} ? ' inactive' : '').
		                    '' : 'leftlink';
		print "<div class='$cls'>";
		print "<a href='$link' target=$t>".
		      "$item->{'desc'}</a>";
		print "</div>";
		if ($item->{'icon'}) {
			print "</div>";
			}
		print "\n";
		}
	elsif ($item->{'type'} eq 'cat') {
		# Start of a new category
		my $c = $item->{'id'};
		print "<details>";
		print "<summary><span>$item->{'desc'}</span></summary>";
		show_menu_items_list($item->{'members'}, $indent+1);
		print "</details>\n";
		}
	elsif ($item->{'type'} eq 'html') {
		# Some HTML block
		print "<div class='leftlink'>",$item->{'html'},"</div>\n";
		}
	elsif ($item->{'type'} eq 'text') {
		# A line of text
		print "<div class='leftlink'>",
		      html_escape($item->{'desc'}),"</div>\n";
		}
	elsif ($item->{'type'} eq 'hr') {
		# Separator line
		print "<hr>\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 "<form action='$cgi' target=right>\n";
			}
		else {
			print "<form>\n";
			}
		foreach my $h (@{$item->{'hidden'}}) {
			print ui_hidden(@$h);
			}
		print ui_hidden("mode", $mode);
		print "<div class='leftlink'>";
		print $item->{'desc'},"\n";
		if ($item->{'type'} eq 'menu') {
			my $sel = "";
			if ($item->{'onchange'}) {
				$sel = "window.parent.frames[1].location = ".
				       "\"$item->{'onchange'}\" + this.value";
				}
			print ui_select($item->{'name'}, $item->{'value'},
					 $item->{'menu'}, 1, 0, 0, 0,
					 "onChange='form.submit(); $sel' ".
					 "style='width:$selwidth'");
			}
		elsif ($item->{'type'} eq 'input') {
			print ui_textbox($item->{'name'}, $item->{'value'},
					  $item->{'size'}, undef, undef, $item->{'tags'});
			}
		if ($item->{'icon'}) {
			my $icon = add_webprefix($item->{'icon'});
			print "<input type=image src='$icon' ".
			      "border=0 class=goArrow>\n";
			}
		print "</div>";
		print "</form>\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;
}