/usr/share/usermin/gray-theme/
/usr/share/usermin/gray-theme
NameSizeModeActions
acl/-0755rm
adsl-client/-0755rm
apache/-0755rm
at/-0755rm
backup-config/-0755rm
bandwidth/-0755rm
bind8/-0755rm
bsdfdisk/-0755rm
burner/-0755rm
cfengine/-0755rm
change-user/-0755rm
cluster-copy/-0755rm
cluster-cron/-0755rm
cluster-passwd/-0755rm
cluster-shell/-0755rm
cluster-software/-0755rm
cluster-useradmin/-0755rm
cluster-webmin/-0755rm
cpan/-0755rm
cron/-0755rm
custom/-0755rm
dhcpd/-0755rm
dhcpd-2.0/-0755rm
dnsadmin/-0755rm
dovecot/-0755rm
download/-0755rm
escputil/-0755rm
exports/-0755rm
fdisk/-0755rm
fetchmail/-0755rm
file/-0755rm
firewall/-0755rm
frox/-0755rm
fsdump/-0755rm
generate-acls/-0755rm
gnupg/-0755rm
grub/-0755rm
heartbeat/-0755rm
help/-0755rm
htaccess-htpasswd/-0755rm
htpasswd-file/-0755rm
idmapd/-0755rm
images/-0755rm
inetd/-0755rm
init/-0755rm
inittab/-0755rm
ipchains/-0755rm
ipsec/-0755rm
iptables/-0755rm
iscsi-client/-0755rm
iscsi-server/-0755rm
iscsi-target/-0755rm
jabber/-0755rm
jsample/-0755rm
krb5/-0755rm
lang/-0755rm
ldap-useradmin/-0755rm
lilo/-0755rm
logrotate/-0755rm
lpadmin/-0755rm
lvm/-0755rm
lvs/-0755rm
mailbox/-0755rm
mailboxes/-0755rm
majordomo/-0755rm
man/-0755rm
mon/-0755rm
mount/-0755rm
mysql/-0755rm
net/-0755rm
nettools/-0755rm
nis/-0755rm
openslp/-0755rm
pam/-0755rm
pap/-0755rm
passwd/-0755rm
phpini/-0755rm
postfix/-0755rm
postgresql/-0755rm
ppp-client/-0755rm
pptp-client/-0755rm
pptp-server/-0755rm
proc/-0755rm
procmail/-0755rm
procyonguide/-0755rm
proftpd/-0755rm
pserver/-0755rm
qmailadmin/-0755rm
quota/-0755rm
raid/-0755rm
samba/-0755rm
sarg/-0755rm
sargreports/-0755rm
sendmail/-0755rm
sentry/-0755rm
servers/-0755rm
shell/-0755rm
shorewall/-0755rm
simple-firewall/-0755rm
smart-status/-0755rm
software/-0755rm
spam/-0755rm
squid/-0755rm
squidguard/-0755rm
squidinfo/-0755rm
squidreports/-0755rm
squidstat/-0755rm
ssh/-0755rm
sshd/-0755rm
status/-0755rm
stunnel/-0755rm
swell-wizard/-0755rm
sysgraph/-0755rm
sysinfo/-0755rm
syslog/-0755rm
sysstats/-0755rm
telnet/-0755rm
template/-0755rm
time/-0755rm
tsunamiguide/-0755rm
tunnel/-0755rm
unauthenticated/-0755rm
updown/-0755rm
useradmin/-0755rm
usermin/-0755rm
vgetty/-0755rm
webalizer/-0755rm
webfetch/-0755rm
webmin/-0755rm
webmin-iptables/-0755rm
webminguide/-0755rm
webminlog/-0755rm
wpad-wizard/-0755rm
wuftpd/-0755rm
xinetd/-0755rm
zones/-0755rm
config3370644editdlrm
config.cgi37370755editdlrm
config_save.cgi17540755editdlrm
edit_overlay.cgi7830755editdlrm
edit_right.cgi38650755editdlrm
favicon.ico11500644editdlrm
gray-theme-lib.pl47410755editdlrm
index.cgi43280755editdlrm
left.cgi103570755editdlrm
pngfix.html950644editdlrm
pngfix.js12350644editdlrm
recollect.cgi2770755editdlrm
right.cgi560190755editdlrm
save_overlay.cgi9020755editdlrm
save_right.cgi15900755editdlrm
theme.info1510644editdlrm
theme.pl357330755editdlrm
top.cgi3460755editdlrm
uconfig.cgi30490755editdlrm
uconfig_save.cgi14220755editdlrm
Edit: /usr/share/usermin/gray-theme/right.cgi (56019B)
#!/usr/bin/perl # Show server or domain information use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; require "gray-theme/gray-theme-lib.pl"; require "gray-theme/theme.pl"; &ReadParse(); &load_theme_library(); our ($current_theme, %gconfig, %in); our %text = &load_language($current_theme); my $bar_width = 500; # Get system info to show my $sects = get_right_frame_sections(); my @info = &list_combined_system_info($sects, \%in); # Redirect if needed my ($redir) = grep { $_->{'type'} eq 'redirect' } @info; if ($redir) { &redirect($redir->{'url'}); return; } my $prehead = defined(&WebminCore::theme_prehead) ? &capture_function_output(\&WebminCore::theme_prehead) : ""; &popup_header(undef, $prehead); # Links appear at the top of the page my @links = grep { $_->{'type'} eq 'link' } @info; @info = grep { $_->{'type'} ne 'link' } @info; unshift(@links, { 'link' => 'edit_right.cgi', 'desc' => $text{'right_edit'} }); my @linkshtml = map { my $lnk = $_->{'link'}; $lnk = &get_webprefix().$lnk if (&get_webprefix() && $lnk =~ /^\//); &ui_link($lnk, $_->{'desc'}, undef, !$_->{'target'} ? '' : $_->{'target'} eq 'new' ? 'target=_blank' : $_->{'target'} eq 'window' ? 'target=_top' : '') } @links; print "
\n"; print &ui_links_row(\@linkshtml); print "
\n"; print &ui_switch_theme_javascript(); if (foreign_available("server-manager")) { print ''; } elsif (foreign_available("virtual-server")) { print ''; } else { if (get_product_name() eq 'webmin') { print ''; } elsif (get_product_name() eq 'usermin') { print ''; } } # Show notifications first @info = sort { ($b->{'type'} eq 'warning') <=> ($a->{'type'} eq 'warning') } @info; foreach my $info (@info) { if ($info->{'type'} eq 'warning') { my $w; if (ref($info->{'warning'}) eq 'HASH') { $w = $info->{'warning'}->{'alert'}; } else { $w = &ui_alert_box($info->{'warning'}, $info->{'level'} || 'warn'); } if ($info->{'desc'}) { print &ui_table_start($info->{'desc'}, "width=100%"); print &ui_table_row(undef, $w, 4); print &ui_table_end(); } else { print $w; } } else { my $open = defined($info->{'open'}) ? $info->{'open'} : 1; print &ui_hidden_table_start($info->{'desc'}, "width=100%", 4, $info->{'module'}.$info->{'id'}, $open); if ($info->{'type'} eq 'table') { # A table of various labels and values if ($info->{'header'}) { print &ui_table_row( undef, $info->{'header'}, 4); } foreach my $t (@{$info->{'table'}}) { my $chart = ""; if ($t->{'chart'}) { $chart = &make_bar_chart( $t->{'chart'}); $chart = "
".$chart; } print &ui_table_row($t->{'desc'}, $t->{'value'}.$chart, $t->{'wide'} || $t->{'chart'} ? 3 : 1); } } elsif ($info->{'type'} eq 'chart') { # A table of graphs my $ctable; if ($info->{'header'}) { $ctable .= $info->{'header'}."
\n"; } $ctable .= &ui_columns_start($info->{'titles'}); foreach my $t (@{$info->{'chart'}}) { $ctable .= &ui_columns_row([ $t->{'desc'}, &make_bar_chart($t->{'chart'}), $t->{'value'}, ]); } $ctable .= &ui_columns_end(); print &ui_table_row(undef, $ctable, 4); } elsif ($info->{'type'} eq 'html') { # A chunk of HTML print &ui_table_row(undef, $info->{'html'}, 4); } print &ui_hidden_table_end(); } } print "\n"; &popup_footer(); # bar_chart_three(total, used1, used2, used3) # Returns HTML for a bar chart of three values, stacked sub bar_chart_three { my ($total, $used1, $used2, $used3) = @_; $used1 ||= 0; $used2 ||= 0; $used3 ||= 0; my $rv; my $w1 = int($bar_width*$used1/$total)+1; my $w2 = int($bar_width*$used2/$total); my $w3 = int($bar_width*$used3/$total); $rv .= sprintf "", $w1; $rv .= sprintf "", $w2; $rv .= sprintf "", $w3; $rv .= sprintf "", $bar_width - $w1 - $w2 - $w3; return $rv; } sub make_bar_chart { my ($c) = @_; my @c = @$c; $c[1] ||= 0; $c[2] ||= 0; if (@c == 2) { return &bar_chart_three( $c[0], $c[1], 0, $c[0]-$c[1]); } else { return &bar_chart_three( $c[0], $c[1], $c[2], $c[0]-$c[1]-$c[2]); } }