FM / usermin

/usr/share/usermin

Name	Size	Mode	Actions
at/	-	0755	rm
authentic-theme/	-	0755	rm
blue-theme/	-	0755	rm
changepass/	-	0755	rm
chfn/	-	0755	rm
commands/	-	0755	rm
cron/	-	0755	rm
cshrc/	-	0755	rm
fetchmail/	-	0755	rm
filemin/	-	0755	rm
filter/	-	0755	rm
forward/	-	0755	rm
gnupg/	-	0755	rm
gray-theme/	-	0755	rm
htaccess/	-	0755	rm
htaccess-htpasswd/	-	0755	rm
images/	-	0755	rm
lang/	-	0755	rm
language/	-	0755	rm
mailbox/	-	0755	rm
mailcap/	-	0755	rm
man/	-	0755	rm
mysql/	-	0755	rm
plan/	-	0755	rm
postgresql/	-	0755	rm
proc/	-	0755	rm
procmail/	-	0755	rm
quota/	-	0755	rm
schedule/	-	0755	rm
shell/	-	0755	rm
spam/	-	0755	rm
ssh/	-	0755	rm
theme/	-	0755	rm
tunnel/	-	0755	rm
twofactor/	-	0755	rm
ulang/	-	0755	rm
unauthenticated/	-	0755	rm
updown/	-	0755	rm
usermount/	-	0755	rm
vendor_perl/	-	0755	rm
xterm/	-	0755	rm
acl_security.pl	2959	0755	edit dl rm
chooser.cgi	7387	0755	edit dl rm
config-aix	227	0644	edit dl rm
config-cobalt-linux	264	0644	edit dl rm
config-coherent-linux	264	0644	edit dl rm
config-corel-linux	264	0644	edit dl rm
config-debian-linux	264	0644	edit dl rm
config-freebsd	256	0644	edit dl rm
config-generic-linux	264	0644	edit dl rm
config-gentoo-linux	264	0644	edit dl rm
config-hpux	243	0644	edit dl rm
config-irix	284	0644	edit dl rm
config-lib.pl	12120	0755	edit dl rm
config-macos	260	0644	edit dl rm
config-mandrake-linux	278	0644	edit dl rm
config-msc-linux	264	0644	edit dl rm
config-netbsd	283	0644	edit dl rm
config-open-linux	264	0644	edit dl rm
config-openbsd	241	0644	edit dl rm
config-openmamba-linux	264	0644	edit dl rm
config-openserver	236	0644	edit dl rm
config-osf1	266	0644	edit dl rm
config-redhat-linux	264	0644	edit dl rm
config-slackware-linux	280	0644	edit dl rm
config-sol-linux	264	0644	edit dl rm
config-solaris	417	0644	edit dl rm
config-suse-linux	264	0644	edit dl rm
config-trustix-linux	264	0644	edit dl rm
config-turbo-linux	264	0644	edit dl rm
config-united-linux	264	0644	edit dl rm
config-unixware	286	0644	edit dl rm
copyconfig.pl	4436	0755	edit dl rm
date_chooser.cgi	2241	0755	edit dl rm
deb-name	8	0644	edit dl rm
defaultacl	98	0644	edit dl rm
defaulttheme	16	0644	edit dl rm
entities_map.txt	1501	0644	edit dl rm
favicon.ico	15086	0644	edit dl rm
feedback.cgi	6519	0755	edit dl rm
feedback_form.cgi	3533	0755	edit dl rm
group_chooser.cgi	7690	0755	edit dl rm
help.cgi	2313	0755	edit dl rm
html-editor-lib.pl	18147	0644	edit dl rm
index.cgi	5781	0755	edit dl rm
install-module.pl	1304	0755	edit dl rm
install-type	4	0644	edit dl rm
javascript-lib.pl	15042	0755	edit dl rm
lang_list.txt	2570	0644	edit dl rm
LICENCE	1516	0644	edit dl rm
LICENCE.ja	1654	0644	edit dl rm
maketemp.pl	424	0755	edit dl rm
mime.types	12713	0644	edit dl rm
miniserv.pem	2969	0644	edit dl rm
miniserv.pl	189439	0755	edit dl rm
newmods.pl	1280	0755	edit dl rm
oschooser.pl	4655	0755	edit dl rm
os_list.txt	35825	0644	edit dl rm
pam_login.cgi	4429	0755	edit dl rm
password_change.cgi	7192	0755	edit dl rm
password_form.cgi	1327	0755	edit dl rm
perlpath.pl	571	0755	edit dl rm
README	1972	0644	edit dl rm
robots.txt	26	0644	edit dl rm
session_login.cgi	5230	0755	edit dl rm
setup.sh	26810	0755	edit dl rm
switch_user.cgi	404	0755	edit dl rm
thirdparty.pl	1774	0755	edit dl rm
uconfig.cgi	1428	0755	edit dl rm
uconfig_save.cgi	1490	0755	edit dl rm
ui-lib.pl	115945	0755	edit dl rm
update-from-repo.sh	15124	0755	edit dl rm
updateboot.pl	2429	0755	edit dl rm
uptracker.cgi	2956	0755	edit dl rm
usermin-init	1927	0755	edit dl rm
usermin-pam	101	0644	edit dl rm
usermin-pam-osx	243	0644	edit dl rm
usermin-systemd	443	0644	edit dl rm
user_chooser.cgi	7571	0755	edit dl rm
version	6	0644	edit dl rm
web-lib-funcs.pl	405160	0755	edit dl rm
web-lib.pl	907	0755	edit dl rm
webmin-search-lib.pl	9697	0755	edit dl rm
WebminCore.pm	8873	0644	edit dl rm
webmin_search.cgi	2697	0755	edit dl rm

Edit: /usr/share/usermin/index.cgi (5781B)

#!/usr/bin/perl

require './web-lib.pl';
&init_config();
&ReadParse();
$hostname = &get_display_hostname();
$ver = &get_webmin_version();
&get_miniserv_config(\%miniserv);
if ($gconfig{'real_os_type'}) {
	$ostr = "$gconfig{'real_os_type'} $gconfig{'real_os_version'}";
	}
else {
	$ostr = "$gconfig{'os_type'} $gconfig{'os_version'}";
	}

# Build a list of all modules
@modules = &get_available_module_infos(1);
if (!defined($in{'cat'})) {
        # Maybe redirect to some module after login
        local $goto = &get_goto_module(\@modules);
        if ($goto) {
                &redirect($goto->{'dir'}.'/');
                exit;
                }
        }

$gconfig{'sysinfo'} = 0 if ($gconfig{'sysinfo'} == 1);
if ($gconfig{'texttitles'}) {
	@args = ( $text{'main_title2'}, undef );
	}
else {
	@args = ( $gconfig{'nohostname'} ? $text{'main_title2'} :
		    &text('main_title', $ver, $hostname, $ostr),
		  "images/usermin.gif" );
	}
&header(@args, undef, undef, 1, 1,
	$tconfig{'brand'} ? 
	"<a href=$tconfig{'brand_url'}>$tconfig{'brand'}</a>" :
	$gconfig{'brand'} ? 
	"<a href=$gconfig{'brand_url'}>$gconfig{'brand'}</a>" :
	"<a href=http://www.usermin.com/>$text{'main_homepage'}</a>".
	($gconfig{'feedback'} ? "<br><a href=feedback_form.cgi>$text{'main_feedback'}</a>" : "")
	);
print "<center><font size=+1>",
	    &text('main_version', $ver, $hostname, $ostr),"</font></center>\n"
		if (!$gconfig{'nohostname'});
print "<hr><p>\n";
print $text{'main_header'};

if (!@modules) {
	# use has no modules!
	print "<p><b>$text{'main_none'}</b><p>\n";
	}
elsif ($gconfig{"notabs_${base_remote_user}"} == 2 ||
    $gconfig{"notabs_${base_remote_user}"} == 0 && $gconfig{'notabs'}) {
	# Generate main menu with all modules on one page
	print "<center><table cellpadding=5>\n";
	$pos = 0;
	$cols = $gconfig{'nocols'} ? $gconfig{'nocols'} : 4;
	$per = 100.0 / $cols;
	foreach $m (@modules) {
		if ($pos % $cols == 0) { print "<tr>\n"; }
		print "<td valign=top align=center width=$per\%>\n";
		local $idx = $m->{'index_link'};
		my $alink = "$gconfig{'webprefix'}/@{[&urlize($m->{'dir'})]}/$idx";
		print "<table border><tr><td><a href='$alink'>",
		      "<img src=$m->{'dir'}/images/icon.gif border=0 ",
		      "width=48 height=48></a></td></tr></table>\n";
		print "<a href='$alink'>@{[&html_escape($m->{'desc'})]}</a></td>\n";
		if ($pos % $cols == $cols - 1) { print "</tr>\n"; }
		$pos++;
		}
	print "</table></center><p><hr>\n";
	}
else {
	# Display under categorised tabs
	&read_file("$config_directory/webmin.catnames", \%catnames);
	foreach $m (@modules) {
		$c = $m->{'category'};
		next if ($cats{$c});
		if (defined($catnames{$c})) {
			$cats{$c} = $catnames{$c};
			}
		elsif ($text{"category_$c"}) {
			$cats{$c} = $text{"category_$c"};
			}
		else {
			# try to get category name from module ..
			local %mtext = &load_language($m->{'dir'});
			if ($mtext{"category_$c"}) {
				$cats{$c} = $mtext{"category_$c"};
				}
			else {
				$c = $m->{'category'} = "";
				$cats{$c} = $text{"category_$c"};
				}
			}
		}
	@cats = sort { $b cmp $a } keys %cats;
	$cats = @cats;
	$per = $cats ? 100.0 / $cats : 100;
	if (!defined($in{'cat'})) {
		# Use default category
		if (defined($gconfig{'deftab'}) &&
		    &indexof($gconfig{'deftab'}, @cats) >= 0) {
			$in{'cat'} = $gconfig{'deftab'};
			}
		else {
			$in{'cat'} = $cats[0];
			}
		}
	elsif (!$cats{$in{'cat'}}) {
		$in{'cat'} = "";
		}
	print "<table border=0 cellpadding=0 cellspacing=0 height=20><tr>\n";
	$usercol = defined($gconfig{'cs_header'}) ||
		   defined($gconfig{'cs_table'}) ||
		   defined($gconfig{'cs_page'});
	foreach $c (@cats) {
		$t = $cats{$c};
		if ($in{'cat'} eq $c) {
			print "<td valign=top $cb>", $usercol ? "<br>" :
			  "<img src=images/lc2.gif alt=\"\">","</td>\n";
			print "<td $cb>&nbsp;<b>$t</b>&nbsp;</td>\n";
			print "<td valign=top $cb>", $usercol ? "<br>" :
			  "<img src=images/rc2.gif alt=\"\">","</td>\n";
			}
		else {
			print "<td valign=top $tb>", $usercol ? "<br>" :
			  "<img src=images/lc1.gif alt=\"\">","</td>\n";
			print "<td $tb>&nbsp;",
			      "<a href=$gconfig{'webprefix'}/?cat=@{[&urlize($c)]}><b>@{[&html_escape($t)]}</b></a>&nbsp;</td>\n";
			print "<td valign=top $tb>", $usercol ? "<br>" :
			  "<img src=images/rc1.gif alt=\"\">","</td>\n";
			}
		print "<td width=10></td>\n";
		}
	print "</tr></table> <table border=0 cellpadding=0 cellspacing=0 ",
              "width=100% $cb>\n";
	print "<tr><td><table width=100% cellpadding=5>\n";

# Display the modules in this category
	$pos = 0;
	$cols = $gconfig{'nocols'} ? $gconfig{'nocols'} : 4;
	$per = 100.0 / $cols;
	foreach $m (@modules) {
		next if ($m->{'category'} ne $in{'cat'});

if ($pos % $cols == 0) { print "<tr>\n"; }
		print "<td valign=top align=center width=$per\%>\n";
		my $mlink = "$gconfig{'webprefix'}/@{[&urlize($m->{'dir'})]}/";
		print "<table border bgcolor=#ffffff><tr><td><a href='$mlink'>",
		      "<img src=$m->{'dir'}/images/icon.gif alt=\"\" border=0></a>",
		      "</td></tr></table>\n";
		print "<a href='$mlink'>@{[&html_escape($m->{'desc'})]}</a></td>\n";
		if ($pos++ % $cols == $cols - 1) { print "</tr>\n"; }
		}
	while($pos++ % $cols) {
		print "<td width=$per\%></td>\n";
		}
	print "</table></td></tr></table><p><hr>\n";
	}

if ($miniserv{'logout'} && !$gconfig{'alt_startpage'} &&
    !$ENV{'SSL_USER'} && !$ENV{'LOCAL_USER'} &&
    $ENV{'HTTP_USER_AGENT'} !~ /webmin/i) {
	print "<table width=100% cellpadding=0 cellspacing=0><tr>\n";
	if ($main::session_id) {
		print "<td align=right><a href='session_login.cgi?logout=1'>",
		      "$text{'main_logout'}</a></td>\n";
		}
	else {
		print "<td align=right><a href=switch_user.cgi>",
		      "$text{'main_switch'}</a></td>\n";
		}
	print "</tr></table>\n";
	}
print $text{'main_footer'};
&footer();

cmd: