Gecko [ www.thearyasamaj.org ]

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
dhcpd-2.0	[ DIR ]	drwxr-xr-x
dnsadmin	[ DIR ]	drwxr-xr-x
dovecot	[ DIR ]	drwxr-xr-x
download	[ DIR ]	drwxr-xr-x
escputil	[ 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
generate-acls	[ 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
jsample	[ 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
lvs	[ DIR ]	drwxr-xr-x
mailbox	[ 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
nettools	[ 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
procyonguide	[ 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
squidguard	[ DIR ]	drwxr-xr-x
squidinfo	[ DIR ]	drwxr-xr-x
squidreports	[ DIR ]	drwxr-xr-x
squidstat	[ DIR ]	drwxr-xr-x
ssh	[ DIR ]	drwxr-xr-x
sshd	[ DIR ]	drwxr-xr-x
status	[ DIR ]	drwxr-xr-x
stunnel	[ DIR ]	drwxr-xr-x
swell-wizard	[ DIR ]	drwxr-xr-x
sysgraph	[ DIR ]	drwxr-xr-x
sysinfo	[ 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
tsunamiguide	[ 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
webmin-iptables	[ DIR ]	drwxr-xr-x
webminguide	[ DIR ]	drwxr-xr-x
webminlog	[ DIR ]	drwxr-xr-x
wpad-wizard	[ DIR ]	drwxr-xr-x
wuftpd	[ DIR ]	drwxr-xr-x
xinetd	[ DIR ]	drwxr-xr-x
zones	[ DIR ]	drwxr-xr-x
config	337 B	-rw-r--r--
config.cgi	3.48 KB	-rwxr-xr-x
config_save.cgi	1.46 KB	-rwxr-xr-x
edit_overlay.cgi	783 B	-rwxr-xr-x
edit_right.cgi	3.63 KB	-rwxr-xr-x
favicon.ico	1.12 KB	-rw-r--r--
gray-theme-lib.pl	4.63 KB	-rwxr-xr-x
index.cgi	3.58 KB	-rwxr-xr-x
left.cgi	8.11 KB	-rwxr-xr-x
left.css	816 B	-rw-r--r--
pngfix.html	95 B	-rw-r--r--
pngfix.js	1.21 KB	-rw-r--r--
recollect.cgi	277 B	-rwxr-xr-x
right.cgi	4.07 KB	-rwxr-xr-x
save_overlay.cgi	902 B	-rwxr-xr-x
save_right.cgi	1.55 KB	-rwxr-xr-x
theme.info	167 B	-rw-r--r--
theme.pl	34.75 KB	-rwxr-xr-x
top.cgi	346 B	-rwxr-xr-x
uconfig.cgi	2.98 KB	-rwxr-xr-x
uconfig_save.cgi	1.39 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

dhcpd-2.0

[ DIR ]

drwxr-xr-x

dnsadmin

[ DIR ]

drwxr-xr-x

dovecot

[ DIR ]

drwxr-xr-x

download

[ DIR ]

drwxr-xr-x

escputil

[ 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

generate-acls

[ 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

jsample

[ 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

lvs

[ DIR ]

drwxr-xr-x

mailbox

[ 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

nettools

[ 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

procyonguide

[ 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

squidguard

[ DIR ]

drwxr-xr-x

squidinfo

[ DIR ]

drwxr-xr-x

squidreports

[ DIR ]

drwxr-xr-x

squidstat

[ DIR ]

drwxr-xr-x

ssh

[ DIR ]

drwxr-xr-x

sshd

[ DIR ]

drwxr-xr-x

status

[ DIR ]

drwxr-xr-x

stunnel

[ DIR ]

drwxr-xr-x

swell-wizard

[ DIR ]

drwxr-xr-x

sysgraph

[ DIR ]

drwxr-xr-x

sysinfo

[ 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

tsunamiguide

[ 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

webmin-iptables

[ DIR ]

drwxr-xr-x

webminguide

[ DIR ]

drwxr-xr-x

webminlog

[ DIR ]

drwxr-xr-x

wpad-wizard

[ DIR ]

drwxr-xr-x

wuftpd

[ DIR ]

drwxr-xr-x

xinetd

[ DIR ]

drwxr-xr-x

zones

[ DIR ]

drwxr-xr-x

config

337 B

-rw-r--r--

config.cgi

3.48 KB

-rwxr-xr-x

config_save.cgi

1.46 KB

-rwxr-xr-x

edit_overlay.cgi

783 B

-rwxr-xr-x

edit_right.cgi

3.63 KB

-rwxr-xr-x

favicon.ico

1.12 KB

-rw-r--r--

gray-theme-lib.pl

4.63 KB

-rwxr-xr-x

index.cgi

3.58 KB

-rwxr-xr-x

left.cgi

8.11 KB

-rwxr-xr-x

left.css

816 B

-rw-r--r--

pngfix.html

95 B

-rw-r--r--

pngfix.js

1.21 KB

-rw-r--r--

recollect.cgi

277 B

-rwxr-xr-x

right.cgi

4.07 KB

-rwxr-xr-x

save_overlay.cgi

902 B

-rwxr-xr-x

save_right.cgi

1.55 KB

-rwxr-xr-x

theme.info

167 B

-rw-r--r--

theme.pl

34.75 KB

-rwxr-xr-x

top.cgi

346 B

-rwxr-xr-x

uconfig.cgi

2.98 KB

-rwxr-xr-x

uconfig_save.cgi

1.39 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";
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 "<div align=right>\n";
print &ui_links_row(\@linkshtml);
print "</div>\n";

# 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 = "<br>".$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'}."<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, 4);
			}
		elsif ($info->{'type'} eq 'html') {
			# A chunk of HTML
			print &ui_table_row(undef, $info->{'html'}, 4);
			}
                print &ui_hidden_table_end();
		}
	}

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) = @_;
$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 "<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;
$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]);
	}
}

${this.title}

Code Editor : right.cgi