Gecko [ 122.154.134.11 ]

Name	Size	Permission
JSON	[ DIR ]	drwxr-xr-x
WebminUI	[ DIR ]	drwxr-xr-x
acl	[ DIR ]	drwxr-xr-x
adsl-client	[ DIR ]	drwxr-xr-x
ajaxterm	[ DIR ]	drwxr-xr-x
apache	[ DIR ]	drwxr-xr-x
at	[ DIR ]	drwxr-xr-x
authentic-theme	[ DIR ]	drwxr-xr-x
backup-config	[ DIR ]	drwxr-xr-x
bacula-backup	[ DIR ]	drwxr-xr-x
bandwidth	[ DIR ]	drwxr-xr-x
bind8	[ DIR ]	drwxr-xr-x
blue-theme	[ 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-usermin	[ 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
dfsadmin	[ DIR ]	drwxr-xr-x
dhcpd	[ DIR ]	drwxr-xr-x
dovecot	[ DIR ]	drwxr-xr-x
exim	[ DIR ]	drwxr-xr-x
exports	[ DIR ]	drwxr-xr-x
fail2ban	[ DIR ]	drwxr-xr-x
fdisk	[ DIR ]	drwxr-xr-x
fetchmail	[ DIR ]	drwxr-xr-x
filemin	[ DIR ]	drwxr-xr-x
filter	[ DIR ]	drwxr-xr-x
firewall	[ DIR ]	drwxr-xr-x
firewall6	[ DIR ]	drwxr-xr-x
firewalld	[ DIR ]	drwxr-xr-x
fsdump	[ DIR ]	drwxr-xr-x
gray-theme	[ DIR ]	drwxr-xr-x
grub	[ DIR ]	drwxr-xr-x
heartbeat	[ DIR ]	drwxr-xr-x
htaccess-htpasswd	[ 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
ipfilter	[ DIR ]	drwxr-xr-x
ipfw	[ DIR ]	drwxr-xr-x
ipsec	[ DIR ]	drwxr-xr-x
iscsi-client	[ DIR ]	drwxr-xr-x
iscsi-server	[ DIR ]	drwxr-xr-x
iscsi-target	[ DIR ]	drwxr-xr-x
iscsi-tgtd	[ DIR ]	drwxr-xr-x
jabber	[ DIR ]	drwxr-xr-x
krb5	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
ldap-client	[ DIR ]	drwxr-xr-x
ldap-server	[ DIR ]	drwxr-xr-x
ldap-useradmin	[ DIR ]	drwxr-xr-x
logrotate	[ DIR ]	drwxr-xr-x
lpadmin	[ DIR ]	drwxr-xr-x
lvm	[ DIR ]	drwxr-xr-x
mailboxes	[ DIR ]	drwxr-xr-x
mailcap	[ 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
package-updates	[ 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
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
sendmail	[ DIR ]	drwxr-xr-x
servers	[ DIR ]	drwxr-xr-x
shell	[ DIR ]	drwxr-xr-x
shorewall	[ DIR ]	drwxr-xr-x
shorewall6	[ DIR ]	drwxr-xr-x
smart-status	[ DIR ]	drwxr-xr-x
smf	[ DIR ]	drwxr-xr-x
software	[ DIR ]	drwxr-xr-x
spam	[ DIR ]	drwxr-xr-x
squid	[ DIR ]	drwxr-xr-x
sshd	[ DIR ]	drwxr-xr-x
status	[ DIR ]	drwxr-xr-x
stunnel	[ DIR ]	drwxr-xr-x
syslog	[ DIR ]	drwxr-xr-x
syslog-ng	[ DIR ]	drwxr-xr-x
system-status	[ DIR ]	drwxr-xr-x
tcpwrappers	[ DIR ]	drwxr-xr-x
telnet	[ 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
webmin	[ DIR ]	drwxr-xr-x
webmincron	[ DIR ]	drwxr-xr-x
webminlog	[ DIR ]	drwxr-xr-x
wuftpd	[ DIR ]	drwxr-xr-x
xinetd	[ DIR ]	drwxr-xr-x
LICENCE	1.48 KB	-rw-r--r--
LICENCE.ja	1.62 KB	-rw-r--r--
README.md	3.71 KB	-rw-r--r--
WebminCore.pm	7.24 KB	-rw-r--r--
acl_security.pl	4.51 KB	-rwxr-xr-x
changepass.pl	2.17 KB	-rwxr-xr-x
chooser.cgi	7.21 KB	-rwxr-xr-x
config-aix	227 B	-rw-r--r--
config-cobalt-linux	264 B	-rw-r--r--
config-coherent-linux	264 B	-rw-r--r--
config-corel-linux	264 B	-rw-r--r--
config-debian-linux	264 B	-rw-r--r--
config-freebsd	256 B	-rw-r--r--
config-generic-linux	264 B	-rw-r--r--
config-gentoo-linux	264 B	-rw-r--r--
config-hpux	243 B	-rw-r--r--
config-irix	284 B	-rw-r--r--
config-lib.pl	8.98 KB	-rwxr-xr-x
config-macos	260 B	-rw-r--r--
config-mandrake-linux	278 B	-rw-r--r--
config-msc-linux	264 B	-rw-r--r--
config-netbsd	283 B	-rw-r--r--
config-open-linux	264 B	-rw-r--r--
config-openbsd	241 B	-rw-r--r--
config-openmamba-linux	264 B	-rw-r--r--
config-openserver	236 B	-rw-r--r--
config-osf1	266 B	-rw-r--r--
config-pardus-linux	264 B	-rw-r--r--
config-redhat-linux	264 B	-rw-r--r--
config-slackware-linux	280 B	-rw-r--r--
config-sol-linux	264 B	-rw-r--r--
config-solaris	417 B	-rw-r--r--
config-suse-linux	264 B	-rw-r--r--
config-syno-linux	364 B	-rw-r--r--
config-trustix-linux	264 B	-rw-r--r--
config-turbo-linux	264 B	-rw-r--r--
config-united-linux	264 B	-rw-r--r--
config-unixware	286 B	-rw-r--r--
config-windows	88 B	-rw-r--r--
config.cgi	1.38 KB	-rwxr-xr-x
config_save.cgi	1.46 KB	-rwxr-xr-x
copyconfig.pl	3.62 KB	-rwxr-xr-x
create-module.pl	3.81 KB	-rwxr-xr-x
date_chooser.cgi	2.19 KB	-rwxr-xr-x
defaultacl	98 B	-rw-r--r--
defaulttheme	16 B	-rw-r--r--
entities_map.txt	1.47 KB	-rw-r--r--
fastrpc.cgi	9.3 KB	-rwxr-xr-x
favicon.ico	14.73 KB	-rw-r--r--
feedback.cgi	6.36 KB	-rwxr-xr-x
feedback_form.cgi	3.45 KB	-rwxr-xr-x
group_chooser.cgi	7.36 KB	-rwxr-xr-x
help.cgi	2.06 KB	-rwxr-xr-x
index.cgi	5.61 KB	-rwxr-xr-x
install-module.pl	1.54 KB	-rwxr-xr-x
install-type	4 B	-rw-r--r--
javascript-lib.pl	14.69 KB	-rwxr-xr-x
lang_list.txt	1.52 KB	-rw-r--r--
maketemp.pl	424 B	-rwxr-xr-x
mime.types	12.42 KB	-rw-r--r--
miniserv.pem	974 B	-rw-r--r--
miniserv.pl	164.5 KB	-rwxr-xr-x
module_chooser.cgi	4.14 KB	-rwxr-xr-x
newmods.pl	1.25 KB	-rwxr-xr-x
os_list.txt	31.73 KB	-rw-r--r--
oschooser.pl	4.54 KB	-rwxr-xr-x
pam_login.cgi	2.65 KB	-rwxr-xr-x
password_change.cgi	7.06 KB	-rwxr-xr-x
password_form.cgi	1.3 KB	-rwxr-xr-x
perlpath.pl	567 B	-rwxr-xr-x
record-login.pl	439 B	-rwxr-xr-x
record-logout.pl	441 B	-rwxr-xr-x
robots.txt	26 B	-rw-r--r--
rpc.cgi	4.13 KB	-rwxr-xr-x
run-postinstalls.pl	996 B	-rwxr-xr-x
run-uninstalls.pl	680 B	-rwxr-xr-x
safeacl	44 B	-rw-r--r--
session_login.cgi	3.35 KB	-rwxr-xr-x
setup.bat	3.08 KB	-rw-r--r--
setup.pl	21.66 KB	-rwxr-xr-x
setup.sh	24.43 KB	-rwxr-xr-x
switch_skill.cgi	293 B	-rwxr-xr-x
switch_user.cgi	404 B	-rwxr-xr-x
thirdparty.pl	1.73 KB	-rwxr-xr-x
ui-lib.pl	79.1 KB	-rwxr-xr-x
update-from-repo.sh	15.3 KB	-rwxr-xr-x
uptracker.cgi	2.86 KB	-rwxr-xr-x
user_chooser.cgi	7.29 KB	-rwxr-xr-x
version	6 B	-rw-r--r--
web-lib-funcs.pl	291.88 KB	-rwxr-xr-x
web-lib.pl	912 B	-rwxr-xr-x
webmin-daemon	80 B	-rw-r--r--
webmin-debian-pam	104 B	-rw-r--r--
webmin-init	1.81 KB	-rwxr-xr-x
webmin-pam	101 B	-rw-r--r--
webmin-search-lib.pl	8.93 KB	-rwxr-xr-x
webmin_search.cgi	2.63 KB	-rwxr-xr-x
xmlrpc.cgi	7.53 KB	-rwxr-xr-x

Code Editor : fastrpc.cgi

#!/usr/bin/perl
# Handles remote_* function calls by a faster method. When first called
# as a CGI, forks and starts listening on a port which is returned to the
# client. From then on, direct TCP connections can be made to this port
# to send requests and get replies.

BEGIN { push(@INC, "."); };
use WebminCore;
use POSIX;
use Socket;
$force_lang = $default_lang;
&init_config();
print "Content-type: text/plain\n\n";

# Can this user make remote calls?
%access = &get_module_acl();
if ($access{'rpc'} == 0 || $access{'rpc'} == 2 &&
    $base_remote_user ne 'admin' && $base_remote_user ne 'root' &&
    $base_remote_user ne 'sysadm') {
	print "0 Invalid user for RPC\n";
	exit;
	}

# Find a free port
&get_miniserv_config(\%miniserv);
$port = $miniserv{'port'} || 10000;
$aerr = &allocate_socket(MAIN, \$port);
if ($aerr) {
	print "0 $aerr\n";
	exit;
	}
if (open(RANDOM, "/dev/urandom")) {
	local $tmpsid;
	read(RANDOM, $tmpsid, 16);
	$sid = lc(unpack('h*', $tmpsid));
	close RANDOM;
	}
else {
	$sid = time()*$$;
	}
$version = &get_webmin_version();
print "1 $port $sid $version\n";

# Fork and listen for calls ..
$pid = fork();
if ($pid < 0) {
	die "fork() failed : $!";
	}
elsif ($pid) {
	exit;
	}
untie(*STDIN);
untie(*STDOUT);

# Accept the TCP connection
local $rmask;
vec($rmask, fileno(MAIN), 1) = 1;
$sel = select($rmask, undef, undef, 60);
if ($sel <= 0) {
	print STDERR "fastrpc: accept timed out\n"
		if ($gconfig{'rpcdebug'});
	exit;
	}
$acptaddr = accept(SOCK, MAIN);
die "accept failed : $!" if (!$acptaddr);
$oldsel = select(SOCK);
$| = 1;
select($oldsel);

$rcount = 0;
while(1) {
	# Wait for the request. Wait longer if this isn't the first one
	local $rmask;
	vec($rmask, fileno(SOCK), 1) = 1;
	local $sel = select($rmask, undef, undef, $rcount ? 360 : 60);
	if ($sel <= 0) {
		print STDERR "fastrpc: session timed out\n"
			if ($gconfig{'rpcdebug'});
		last;
		}

local $line = <SOCK>;
	last if (!$line);
	local ($len, $auth) = split(/\s+/, $line);
	die "Invalid session ID" if ($auth ne $sid);
	local $rawarg;
	while(length($rawarg) < $len) {
		local $got;
		local $rv = read(SOCK, $got, $len - length($rawarg));
		exit if ($rv <= 0);
		$rawarg .= $got;
		}
	print STDERR "fastrpc: raw $rawarg\n" if ($gconfig{'rpcdebug'});
	local $arg = &unserialise_variable($rawarg);

# Process it
	local $rawrv;
	if ($arg->{'action'} eq 'ping') {
		# Just respond with an OK
		print STDERR "fastrpc: ping\n" if ($gconfig{'rpcdebug'});
		$rawrv = &serialise_variable( { 'status' => 1 } );
		}
	elsif ($arg->{'action'} eq 'check') {
		# Check if some module is supported
		print STDERR "fastrpc: check $arg->{'module'}\n" if ($gconfig{'rpcdebug'});
		$rawrv = &serialise_variable(
			{ 'status' => 1,
			  'rv' => &foreign_check($arg->{'module'}, undef, undef,
						 $arg->{'api'}) } );
		}
	elsif ($arg->{'action'} eq 'config') {
		# Get the config for some module
		print STDERR "fastrpc: config $arg->{'module'}\n" if ($gconfig{'rpcdebug'});
		local %config = &foreign_config($arg->{'module'});
		$rawrv = &serialise_variable(
			{ 'status' => 1, 'rv' => \%config } );
		}
	elsif ($arg->{'action'} eq 'write') {
		# Transfer data to a local temp file
		local $file = $arg->{'file'} ? $arg->{'file'} :
			      $arg->{'name'} ? &tempname($arg->{'name'}) :
					       &tempname();
		print STDERR "fastrpc: write $file\n" if ($gconfig{'rpcdebug'});
		open(FILE, ">$file");
		binmode(FILE);
		print FILE $arg->{'data'};
		close(FILE);
		$rawrv = &serialise_variable(
			{ 'status' => 1, 'rv' => $file } );
		}
	elsif ($arg->{'action'} eq 'tcpwrite') {
		# Transfer data to a local temp file over TCP connection
		local $file = $arg->{'file'} ? $arg->{'file'} :
			      $arg->{'name'} ? &tempname($arg->{'name'}) :
					       &tempname();
		print STDERR "fastrpc: tcpwrite $file\n" if ($gconfig{'rpcdebug'});
		local $tsock = time().$$;
		local $tport = $port + 1;
		&allocate_socket($tsock, \$tport);
		if (!fork()) {
			# Accept connection in separate process
			print STDERR "fastrpc: tcpwrite $file port $tport\n" if ($gconfig{'rpcdebug'});
			local $rmask;
			vec($rmask, fileno($tsock), 1) = 1;
			local $sel = select($rmask, undef, undef, 30);
			exit if ($sel <= 0);
			accept(TRANS, $tsock) || exit;
			print STDERR "fastrpc: tcpwrite $file accepted\n" if ($gconfig{'rpcdebug'});
			local $buf;
			local $err;
			if (open(FILE, ">$file")) {
				binmode(FILE);
				print STDERR "fastrpc: tcpwrite $file writing\n" if ($gconfig{'rpcdebug'});
				while(read(TRANS, $buf, 1024) > 0) {
					local $ok = (print FILE $buf);
					if (!$ok) {
						$err = "Write to $file failed : $!";
						last;
						}
					}
				close(FILE);
				print STDERR "fastrpc: tcpwrite $file written\n" if ($gconfig{'rpcdebug'});
				}
			else {
				print STDERR "fastrpc: tcpwrite $file open failed $!\n" if ($gconfig{'rpcdebug'});
				$err = "Failed to open $file : $!";
				}
			print TRANS $err ? "$err\n" : "OK\n";
			close(TRANS);
			exit;
			}
		close($tsock);
		print STDERR "fastrpc: tcpwrite $file done\n" if ($gconfig{'rpcdebug'});
		$rawrv = &serialise_variable(
			{ 'status' => 1, 'rv' => [ $file, $tport ] } );
		}
	elsif ($arg->{'action'} eq 'read') {
		# Transfer data from a file
		print STDERR "fastrpc: read $arg->{'file'}\n" if ($gconfig{'rpcdebug'});
		local ($data, $got);
		open(FILE, $arg->{'file'});
		binmode(FILE);
		while(read(FILE, $got, 1024) > 0) {
			$data .= $got;
			}
		close(FILE);
		$rawrv = &serialise_variable(
			{ 'status' => 1, 'rv' => $data } );
		}
	elsif ($arg->{'action'} eq 'tcpread') {
		# Transfer data from a file over TCP connection
		print STDERR "fastrpc: tcpread $arg->{'file'}\n" if ($gconfig{'rpcdebug'});
		if (-d $arg->{'file'}) {
			$rawrv = &serialise_variable(
				{ 'status' => 1, 'rv' => [ undef, "$arg->{'file'} is a directory" ] } );
			}
		elsif (!open(FILE, $arg->{'file'})) {
			$rawrv = &serialise_variable(
				{ 'status' => 1, 'rv' => [ undef, "Failed to open $arg->{'file'} : $!" ] } );
			}
		else {
			binmode(FILE);
			local $tsock = time().$$;
			local $tport = $port + 1;
			&allocate_socket($tsock, \$tport);
			if (!fork()) {
				# Accept connection in separate process
				local $rmask;
				vec($rmask, fileno($tsock), 1) = 1;
				local $sel = select($rmask, undef, undef, 30);
				exit if ($sel <= 0);
				accept(TRANS, $tsock) || exit;
				local $buf;
				while(read(FILE, $buf, 1024) > 0) {
					print TRANS $buf;
					}
				close(FILE);
				close(TRANS);
				exit;
				}
			close(FILE);
			close($tsock);
			print STDERR "fastrpc: tcpread $arg->{'file'} done\n" if ($gconfig{'rpcdebug'});
			$rawrv = &serialise_variable(
				{ 'status' => 1, 'rv' => [ $arg->{'file'}, $tport ] } );
			}
		}
	elsif ($arg->{'action'} eq 'require') {
		# require a library
		print STDERR "fastrpc: require $arg->{'module'}/$arg->{'file'}\n" if ($gconfig{'rpcdebug'});
		eval {
			&foreign_require($arg->{'module'},
					 $arg->{'file'});
			};
		if ($@) {
			print STDERR "fastrpc: require error $@\n" if ($gconfig{'rpcdebug'});
			$rawrv = &serialise_variable( { 'status' => 0,
							'rv' => $@ });
			}
		else {
			print STDERR "fastrpc: require done\n" if ($gconfig{'rpcdebug'});
			$rawrv = &serialise_variable( { 'status' => 1 });
			}
		}
	elsif ($arg->{'action'} eq 'call') {
		# execute a function
		print STDERR "fastrpc: call $arg->{'module'}::$arg->{'func'}(",join(",", @{$arg->{'args'}}),")\n" if ($gconfig{'rpcdebug'});
		local @rv;
		eval {
			local $main::error_must_die = 1;
			@rv = &foreign_call($arg->{'module'},
					    $arg->{'func'},
					    @{$arg->{'args'}});
			};
		if ($@) {
			print STDERR "fastrpc: call error $@\n" if ($gconfig{'rpcdebug'});
			$rawrv = &serialise_variable(
				{ 'status' => 0, 'rv' => $@ } );
			}
		elsif (@rv == 1) {
			$rawrv = &serialise_variable(
				{ 'status' => 1, 'rv' => $rv[0] } );
			}
		else {
			$rawrv = &serialise_variable(
				{ 'status' => 1, 'arv' => \@rv } );
			}
		print STDERR "fastrpc: call $arg->{'module'}::$arg->{'func'} done = ",join(",", @rv),"\n" if ($gconfig{'rpcdebug'});
		}
	elsif ($arg->{'action'} eq 'eval') {
		# eval some perl code
		print STDERR "fastrpc: eval $arg->{'module'} $arg->{'code'}\n" if ($gconfig{'rpcdebug'});
		local $rv;
		if ($arg->{'module'}) {
			local $pkg = $arg->{'module'};
			$pkg =~ s/[^A-Za-z0-9]/_/g;
			$rv = eval "package $pkg;\n".
				   $arg->{'code'}."\n";
			}
		else {
			$rv = eval $arg->{'code'};
			}
		print STDERR "fastrpc: eval $arg->{'module'} $arg->{'code'} done = $rv error = $@\n" if ($gconfig{'rpcdebug'});
		if ($@) {
			$rawrv = &serialise_variable(
				{ 'status' => 0, 'rv' => $@ } );
			}
		else {
			$rawrv = &serialise_variable(
				{ 'status' => 1, 'rv' => $rv } );
			}
		}
	elsif ($arg->{'action'} eq 'quit') {
		print STDERR "fastrpc: quit\n" if ($gconfig{'rpcdebug'});
		$rawrv = &serialise_variable( { 'status' => 1 } );
		}
	else {
		print STDERR "fastrpc: unknown $arg->{'action'}\n" if ($gconfig{'rpcdebug'});
		$rawrv = &serialise_variable( { 'status' => 0 } );
		}

# Send back to the client
	print SOCK length($rawrv),"\n";
	print SOCK $rawrv;
	last if ($arg->{'action'} eq 'quit');
	$rcount++;
	}

# allocate_socket(handle, &port)
sub allocate_socket
{
local ($fh, $port) = @_;
local $proto = getprotobyname('tcp');
if (!socket($fh, PF_INET, SOCK_STREAM, $proto)) {
	return "socket failed : $!";
	}
setsockopt($fh, SOL_SOCKET, SO_REUSEADDR, pack("l", 1));
while(1) {
	$$port++;
	last if (bind($fh, sockaddr_in($$port, INADDR_ANY)));
	}
listen($fh, SOMAXCONN) || return "listed failed : $!";
return undef;
}

${this.title}

Code Editor : fastrpc.cgi