Gecko [ 122.154.134.11 ]

Name	Size	Permission
acl	[ DIR ]	drwxr-xr-x
adsl-client	[ DIR ]	drwxr-xr-x
apache	[ DIR ]	drwxr-xr-x
at	[ DIR ]	drwxr-xr-x
backup-config	[ DIR ]	drwxr-xr-x
bandwidth	[ DIR ]	drwxr-xr-x
bind8	[ DIR ]	drwxr-xr-x
bsdfdisk	[ DIR ]	drwxr-xr-x
burner	[ DIR ]	drwxr-xr-x
cfengine	[ DIR ]	drwxr-xr-x
change-user	[ DIR ]	drwxr-xr-x
cluster-copy	[ DIR ]	drwxr-xr-x
cluster-cron	[ DIR ]	drwxr-xr-x
cluster-passwd	[ DIR ]	drwxr-xr-x
cluster-shell	[ DIR ]	drwxr-xr-x
cluster-software	[ DIR ]	drwxr-xr-x
cluster-useradmin	[ DIR ]	drwxr-xr-x
cluster-webmin	[ DIR ]	drwxr-xr-x
cpan	[ DIR ]	drwxr-xr-x
cron	[ DIR ]	drwxr-xr-x
custom	[ DIR ]	drwxr-xr-x
dhcpd	[ DIR ]	drwxr-xr-x
dnsadmin	[ DIR ]	drwxr-xr-x
dovecot	[ DIR ]	drwxr-xr-x
download	[ DIR ]	drwxr-xr-x
exports	[ DIR ]	drwxr-xr-x
fdisk	[ DIR ]	drwxr-xr-x
fetchmail	[ DIR ]	drwxr-xr-x
file	[ DIR ]	drwxr-xr-x
firewall	[ DIR ]	drwxr-xr-x
frox	[ DIR ]	drwxr-xr-x
fsdump	[ DIR ]	drwxr-xr-x
gnupg	[ DIR ]	drwxr-xr-x
grub	[ DIR ]	drwxr-xr-x
heartbeat	[ DIR ]	drwxr-xr-x
help	[ DIR ]	drwxr-xr-x
htaccess-htpasswd	[ DIR ]	drwxr-xr-x
htpasswd-file	[ DIR ]	drwxr-xr-x
idmapd	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
inetd	[ DIR ]	drwxr-xr-x
init	[ DIR ]	drwxr-xr-x
inittab	[ DIR ]	drwxr-xr-x
ipchains	[ DIR ]	drwxr-xr-x
ipsec	[ DIR ]	drwxr-xr-x
iptables	[ DIR ]	drwxr-xr-x
iscsi-client	[ DIR ]	drwxr-xr-x
iscsi-server	[ DIR ]	drwxr-xr-x
iscsi-target	[ DIR ]	drwxr-xr-x
jabber	[ DIR ]	drwxr-xr-x
krb5	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
ldap-useradmin	[ DIR ]	drwxr-xr-x
lilo	[ DIR ]	drwxr-xr-x
logrotate	[ DIR ]	drwxr-xr-x
lpadmin	[ DIR ]	drwxr-xr-x
lvm	[ DIR ]	drwxr-xr-x
mailboxes	[ DIR ]	drwxr-xr-x
majordomo	[ DIR ]	drwxr-xr-x
man	[ DIR ]	drwxr-xr-x
mon	[ DIR ]	drwxr-xr-x
mount	[ DIR ]	drwxr-xr-x
mysql	[ DIR ]	drwxr-xr-x
net	[ DIR ]	drwxr-xr-x
nis	[ DIR ]	drwxr-xr-x
openslp	[ DIR ]	drwxr-xr-x
pam	[ DIR ]	drwxr-xr-x
pap	[ DIR ]	drwxr-xr-x
passwd	[ DIR ]	drwxr-xr-x
phpini	[ DIR ]	drwxr-xr-x
postfix	[ DIR ]	drwxr-xr-x
postgresql	[ DIR ]	drwxr-xr-x
ppp-client	[ DIR ]	drwxr-xr-x
pptp-client	[ DIR ]	drwxr-xr-x
pptp-server	[ DIR ]	drwxr-xr-x
proc	[ DIR ]	drwxr-xr-x
procmail	[ DIR ]	drwxr-xr-x
proftpd	[ DIR ]	drwxr-xr-x
pserver	[ DIR ]	drwxr-xr-x
qmailadmin	[ DIR ]	drwxr-xr-x
quota	[ DIR ]	drwxr-xr-x
raid	[ DIR ]	drwxr-xr-x
samba	[ DIR ]	drwxr-xr-x
sarg	[ DIR ]	drwxr-xr-x
sargreports	[ DIR ]	drwxr-xr-x
sendmail	[ DIR ]	drwxr-xr-x
sentry	[ DIR ]	drwxr-xr-x
servers	[ DIR ]	drwxr-xr-x
shell	[ DIR ]	drwxr-xr-x
shorewall	[ DIR ]	drwxr-xr-x
simple-firewall	[ DIR ]	drwxr-xr-x
smart-status	[ DIR ]	drwxr-xr-x
software	[ DIR ]	drwxr-xr-x
spam	[ DIR ]	drwxr-xr-x
squid	[ DIR ]	drwxr-xr-x
ssh	[ DIR ]	drwxr-xr-x
sshd	[ DIR ]	drwxr-xr-x
status	[ DIR ]	drwxr-xr-x
stunnel	[ DIR ]	drwxr-xr-x
syslog	[ DIR ]	drwxr-xr-x
sysstats	[ DIR ]	drwxr-xr-x
telnet	[ DIR ]	drwxr-xr-x
template	[ DIR ]	drwxr-xr-x
time	[ DIR ]	drwxr-xr-x
tunnel	[ DIR ]	drwxr-xr-x
unauthenticated	[ DIR ]	drwxr-xr-x
updown	[ DIR ]	drwxr-xr-x
useradmin	[ DIR ]	drwxr-xr-x
usermin	[ DIR ]	drwxr-xr-x
vgetty	[ DIR ]	drwxr-xr-x
webalizer	[ DIR ]	drwxr-xr-x
webfetch	[ DIR ]	drwxr-xr-x
webmin	[ DIR ]	drwxr-xr-x
webminguide	[ DIR ]	drwxr-xr-x
webminlog	[ DIR ]	drwxr-xr-x
wuftpd	[ DIR ]	drwxr-xr-x
xinetd	[ DIR ]	drwxr-xr-x
zones	[ DIR ]	drwxr-xr-x
CHANGELOG	1.12 KB	-rw-r--r--
config	337 B	-rw-r--r--
gray-left.css	562 B	-rw-r--r--
gray-theme-lib.pl	126 B	-rw-r--r--
index.cgi	906 B	-rwxr-xr-x
left.cgi	6.73 KB	-rwxr-xr-x
right.cgi	4.16 KB	-rwxr-xr-x
theme.info	129 B	-rw-r--r--
theme.pl	27.82 KB	-rwxr-xr-x

Name

Size

Permission

Action

acl

[ DIR ]

drwxr-xr-x

adsl-client

[ DIR ]

drwxr-xr-x

apache

[ DIR ]

drwxr-xr-x

[ DIR ]

drwxr-xr-x

backup-config

[ DIR ]

drwxr-xr-x

bandwidth

[ DIR ]

drwxr-xr-x

bind8

[ DIR ]

drwxr-xr-x

bsdfdisk

[ DIR ]

drwxr-xr-x

burner

[ DIR ]

drwxr-xr-x

cfengine

[ DIR ]

drwxr-xr-x

change-user

[ DIR ]

drwxr-xr-x

cluster-copy

[ DIR ]

drwxr-xr-x

cluster-cron

[ DIR ]

drwxr-xr-x

cluster-passwd

[ DIR ]

drwxr-xr-x

cluster-shell

[ DIR ]

drwxr-xr-x

cluster-software

[ DIR ]

drwxr-xr-x

cluster-useradmin

[ DIR ]

drwxr-xr-x

cluster-webmin

[ DIR ]

drwxr-xr-x

cpan

[ DIR ]

drwxr-xr-x

cron

[ DIR ]

drwxr-xr-x

custom

[ DIR ]

drwxr-xr-x

dhcpd

[ DIR ]

drwxr-xr-x

dnsadmin

[ DIR ]

drwxr-xr-x

dovecot

[ DIR ]

drwxr-xr-x

download

[ DIR ]

drwxr-xr-x

exports

[ DIR ]

drwxr-xr-x

fdisk

[ DIR ]

drwxr-xr-x

fetchmail

[ DIR ]

drwxr-xr-x

file

[ DIR ]

drwxr-xr-x

firewall

[ DIR ]

drwxr-xr-x

frox

[ DIR ]

drwxr-xr-x

fsdump

[ DIR ]

drwxr-xr-x

gnupg

[ DIR ]

drwxr-xr-x

grub

[ DIR ]

drwxr-xr-x

heartbeat

[ DIR ]

drwxr-xr-x

help

[ DIR ]

drwxr-xr-x

htaccess-htpasswd

[ DIR ]

drwxr-xr-x

htpasswd-file

[ DIR ]

drwxr-xr-x

idmapd

[ DIR ]

drwxr-xr-x

images

[ DIR ]

drwxr-xr-x

inetd

[ DIR ]

drwxr-xr-x

init

[ DIR ]

drwxr-xr-x

inittab

[ DIR ]

drwxr-xr-x

ipchains

[ DIR ]

drwxr-xr-x

ipsec

[ DIR ]

drwxr-xr-x

iptables

[ DIR ]

drwxr-xr-x

iscsi-client

[ DIR ]

drwxr-xr-x

iscsi-server

[ DIR ]

drwxr-xr-x

iscsi-target

[ DIR ]

drwxr-xr-x

jabber

[ DIR ]

drwxr-xr-x

krb5

[ DIR ]

drwxr-xr-x

lang

[ DIR ]

drwxr-xr-x

ldap-useradmin

[ DIR ]

drwxr-xr-x

lilo

[ DIR ]

drwxr-xr-x

logrotate

[ DIR ]

drwxr-xr-x

lpadmin

[ DIR ]

drwxr-xr-x

lvm

[ DIR ]

drwxr-xr-x

mailboxes

[ DIR ]

drwxr-xr-x

majordomo

[ DIR ]

drwxr-xr-x

man

[ DIR ]

drwxr-xr-x

mon

[ DIR ]

drwxr-xr-x

mount

[ DIR ]

drwxr-xr-x

mysql

[ DIR ]

drwxr-xr-x

net

[ DIR ]

drwxr-xr-x

nis

[ DIR ]

drwxr-xr-x

openslp

[ DIR ]

drwxr-xr-x

pam

[ DIR ]

drwxr-xr-x

pap

[ DIR ]

drwxr-xr-x

passwd

[ DIR ]

drwxr-xr-x

phpini

[ DIR ]

drwxr-xr-x

postfix

[ DIR ]

drwxr-xr-x

postgresql

[ DIR ]

drwxr-xr-x

ppp-client

[ DIR ]

drwxr-xr-x

pptp-client

[ DIR ]

drwxr-xr-x

pptp-server

[ DIR ]

drwxr-xr-x

proc

[ DIR ]

drwxr-xr-x

procmail

[ DIR ]

drwxr-xr-x

proftpd

[ DIR ]

drwxr-xr-x

pserver

[ DIR ]

drwxr-xr-x

qmailadmin

[ DIR ]

drwxr-xr-x

quota

[ DIR ]

drwxr-xr-x

raid

[ DIR ]

drwxr-xr-x

samba

[ DIR ]

drwxr-xr-x

sarg

[ DIR ]

drwxr-xr-x

sargreports

[ DIR ]

drwxr-xr-x

sendmail

[ DIR ]

drwxr-xr-x

sentry

[ DIR ]

drwxr-xr-x

servers

[ DIR ]

drwxr-xr-x

shell

[ DIR ]

drwxr-xr-x

shorewall

[ DIR ]

drwxr-xr-x

simple-firewall

[ DIR ]

drwxr-xr-x

smart-status

[ DIR ]

drwxr-xr-x

software

[ DIR ]

drwxr-xr-x

spam

[ DIR ]

drwxr-xr-x

squid

[ DIR ]

drwxr-xr-x

ssh

[ DIR ]

drwxr-xr-x

sshd

[ DIR ]

drwxr-xr-x

status

[ DIR ]

drwxr-xr-x

stunnel

[ DIR ]

drwxr-xr-x

syslog

[ DIR ]

drwxr-xr-x

sysstats

[ DIR ]

drwxr-xr-x

telnet

[ DIR ]

drwxr-xr-x

template

[ DIR ]

drwxr-xr-x

time

[ DIR ]

drwxr-xr-x

tunnel

[ DIR ]

drwxr-xr-x

unauthenticated

[ DIR ]

drwxr-xr-x

updown

[ DIR ]

drwxr-xr-x

useradmin

[ DIR ]

drwxr-xr-x

usermin

[ DIR ]

drwxr-xr-x

vgetty

[ DIR ]

drwxr-xr-x

webalizer

[ DIR ]

drwxr-xr-x

webfetch

[ DIR ]

drwxr-xr-x

webmin

[ DIR ]

drwxr-xr-x

webminguide

[ DIR ]

drwxr-xr-x

webminlog

[ DIR ]

drwxr-xr-x

wuftpd

[ DIR ]

drwxr-xr-x

xinetd

[ DIR ]

drwxr-xr-x

zones

[ DIR ]

drwxr-xr-x

CHANGELOG

1.12 KB

-rw-r--r--

config

337 B

-rw-r--r--

gray-left.css

562 B

-rw-r--r--

gray-theme-lib.pl

126 B

-rw-r--r--

index.cgi

906 B

-rwxr-xr-x

left.cgi

6.73 KB

-rwxr-xr-x

right.cgi

4.16 KB

-rwxr-xr-x

theme.info

129 B

-rw-r--r--

theme.pl

27.82 KB

-rwxr-xr-x

Code Editor : right.cgi

#!/usr/bin/perl
# Show server or domain information

use strict;
use warnings;
require 'gray-theme/gray-theme-lib.pl';
&ReadParse();
&load_theme_library();
our ($current_theme, %gconfig);
our %text = &load_language($current_theme);
my $bar_width = 300;

# Get system info to show
my @info = &list_combined_system_info();
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);
print "<center>\n";

# Links appear at the top of the page
my @links = grep { $_->{'type'} eq 'link' } @info;
@info = grep { $_->{'type'} ne 'link' } @info;
if (@links) {
	my @linkshtml = map {
		my $lnk = $_->{'link'};
		$lnk = $gconfig{'webprefix'}.$lnk if ($lnk =~ /^\//);
		&ui_link($lnk, $_->{'desc'}, undef,
			 !$_->{'target'} ? '' :
			 $_->{'target'} eq 'new' ? 'target=_blank' :
			 $_->{'target'} eq 'window' ? 'target=_top' : '')
			} @links;
	print "<div align=right>\n";
	print &ui_links_row(\@linkshtml);
	print "</div>\n";
	}

# Webmin logo
if (&get_product_name() eq 'webmin') {
	print "<a href=http://www.webmin.com/ target=_new><img src=images/webmin-blue.png border=0></a><p>\n";
	}

# Show notifications first
@info = sort { ($b->{'type'} eq 'warning') <=> ($a->{'type'} eq 'warning') }
	     @info;

foreach my $info (@info) {
	if ($info->{'type'} eq 'warning') {
		# An alert message
                my $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=600", 2,
			$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 = "<br>".$chart;
					}
				print &ui_table_row($t->{'desc'},
						    $t->{'value'}.$chart);
				}
			}
		elsif ($info->{'type'} eq 'chart') {
			# A table of graphs
			my $ctable;
                        if ($info->{'header'}) {
                                $ctable .= $info->{'header'}."<br>\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, 2);
			}
		elsif ($info->{'type'} eq 'html') {
			# A chunk of HTML
			print &ui_table_row(undef, $info->{'html'}, 2);
			}
		print &ui_hidden_table_end();
		print "<p>\n";
		}
	}

print "</center>\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) = @_;
return "" if (!$total);
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 "<img src=images/red.gif width=%s height=10>", $w1;
$rv .= sprintf "<img src=images/purple.gif width=%s height=10>", $w2;
$rv .= sprintf "<img src=images/blue.gif width=%s height=10>", $w3;
$rv .= sprintf "<img src=images/grey.gif width=%s height=10>",
	$bar_width - $w1 - $w2 - $w3;
return $rv;
}

sub make_bar_chart
{
my ($c) = @_;
my @c = @$c;
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]);
	}
}

${this.title}

Code Editor : right.cgi