Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.58 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.53 KB	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	280 B	-rwxr-xr-x	2026-07-17 21:17
config-ALL-linux	71 B	-rw-r--r--	2026-07-17 21:17
config-aix	70 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	73 B	-rw-r--r--	2026-07-17 21:17
config-hpux	70 B	-rw-r--r--	2026-07-17 21:17
config-irix	70 B	-rw-r--r--	2026-07-17 21:17
config-macos	71 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	73 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	73 B	-rw-r--r--	2026-07-17 21:17
config-openserver	70 B	-rw-r--r--	2026-07-17 21:17
config-osf1	69 B	-rw-r--r--	2026-07-17 21:17
config-solaris	70 B	-rw-r--r--	2026-07-17 21:17
config-unixware	70 B	-rw-r--r--	2026-07-17 21:17
config-windows	73 B	-rw-r--r--	2026-07-17 21:17
config.info	449 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	545 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	461 B	-rw-r--r--	2026-07-17 21:17
config.info.de	447 B	-rw-r--r--	2026-07-17 21:17
config.info.es	341 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	555 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	382 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	436 B	-rw-r--r--	2026-07-17 21:17
config.info.it	481 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	454 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	433 B	-rw-r--r--	2026-07-17 21:17
config.info.no	447 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	439 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	468 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	744 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	320 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	486 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	759 B	-rw-r--r--	2026-07-17 21:17
config.info.zh	253 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	303 B	-rw-r--r--	2026-07-17 21:17
cpan_modules.pl	73 B	-rwxr-xr-x	2026-07-17 21:17
defaultacl	38 B	-rw-r--r--	2026-07-17 21:17
edit_proc.cgi	4.94 KB	-rwxr-xr-x	2026-07-17 21:22
freebsd-lib.pl	5.65 KB	-rwxr-xr-x	2026-07-17 21:17
hpux-lib.pl	2.77 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	466 B	-rwxr-xr-x	2026-07-17 21:22
index_cpu.cgi	1.31 KB	-rwxr-xr-x	2026-07-17 21:22
index_run.cgi	1.07 KB	-rwxr-xr-x	2026-07-17 21:22
index_search.cgi	6.9 KB	-rwxr-xr-x	2026-07-17 21:22
index_size.cgi	1.42 KB	-rwxr-xr-x	2026-07-17 21:22
index_tree.cgi	1.5 KB	-rwxr-xr-x	2026-07-17 21:22
index_user.cgi	1.11 KB	-rwxr-xr-x	2026-07-17 21:22
index_zone.cgi	1.34 KB	-rwxr-xr-x	2026-07-17 21:22
kill_proc.cgi	738 B	-rwxr-xr-x	2026-07-17 21:22
kill_proc_list.cgi	859 B	-rwxr-xr-x	2026-07-17 21:22
killtail.cgi	316 B	-rwxr-xr-x	2026-07-17 21:22
linux-lib.pl	23.82 KB	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	1.05 KB	-rwxr-xr-x	2026-07-17 21:17
macos-lib.pl	6.06 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	289 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	163 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	226 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	118 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	28 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	28 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.de	96 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	23 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	217 B	-rw-r--r--	2026-07-17 21:17
module.info.es	26 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	101 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	145 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	230 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	34 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	132 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	25 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	109 B	-rw-r--r--	2026-07-17 21:17
module.info.it	31 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	27 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	154 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	34 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	120 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	24 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	27 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	90 B	-rw-r--r--	2026-07-17 21:17
module.info.no	28 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	95 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	29 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	108 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	27 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	107 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	148 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	25 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	179 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	133 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	25 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	91 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	30 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	123 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	217 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	24 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	91 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	30 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	97 B	-rw-r--r--	2026-07-17 21:17
open_files.cgi	2.57 KB	-rwxr-xr-x	2026-07-17 21:22
openbsd-lib.pl	1.92 KB	-rwxr-xr-x	2026-07-17 21:17
osf-lib.pl	2.59 KB	-rwxr-xr-x	2026-07-17 21:17
prefs.info	53 B	-rw-r--r--	2026-07-17 21:17
proc-lib.pl	18.08 KB	-rwxr-xr-x	2026-07-17 21:17
rbac-mapping	126 B	-rw-r--r--	2026-07-17 21:17
renice_proc.cgi	617 B	-rwxr-xr-x	2026-07-17 21:22
run.cgi	1.38 KB	-rwxr-xr-x	2026-07-17 21:22
safeacl	35 B	-rw-r--r--	2026-07-17 21:17
syslog_logs.pl	339 B	-rwxr-xr-x	2026-07-17 21:17
sysv-lib.pl	6.33 KB	-rwxr-xr-x	2026-07-17 21:17
trace.cgi	1.64 KB	-rwxr-xr-x	2026-07-17 21:22
windows-lib.pl	1.29 KB	-rwxr-xr-x	2026-07-17 21:17

Rename

# sysv-lib.pl
# Functions for parsing sysv-style ps output

$has_stime = $gconfig{'os_type'} eq 'solaris';
$has_task = $gconfig{'os_type'} eq 'solaris' && $gconfig{'os_version'} >= 10;
$has_zone = $gconfig{'os_type'} eq 'solaris' && $gconfig{'os_version'} >= 10;

# list_processes([pid]*)
sub list_processes
{
local($line, $dummy, @w, $i, $_, $pcmd, @plist);
local @want = grep { /^\d+$/ } @_;
return ( ) if (@_ && !@want);
foreach (@want) { $pcmd .= " -p ".quotemeta($_); }
if (!$pcmd) { $pcmd = " -e"; }
$ENV{'COLUMNS'} = 10000;	# needed on AIX
local @cols = ( "user","ruser","group","rgroup","pid","ppid","pgid","pcpu","vsz",
		"nice","etime","time",
		($has_stime ? ("stime") : ( )),
		($has_task ? ("taskid") : ( )),
		($has_zone ? ("zone") : ( )),
		"tty","args" );
open(PS, "ps -o ".join(",", @cols)." $pcmd |");
$dummy = <PS>;
for($i=0; $line=<PS>; $i++) {
	chop($line);
	$line =~ s/^\s+//g;
	@w = split(/\s+/, $line);
	if ($line =~ /ps -o user,ruser/) {
		# Skip ps command
		$i--; next;
		}
	$plist[$i]->{"pid"} = $w[4];
	$plist[$i]->{"ppid"} = $w[5];
	$plist[$i]->{"user"} = $w[0];
	$plist[$i]->{"cpu"} = "$w[7] %";
	$plist[$i]->{"size"} = "$w[8] kB";
	$plist[$i]->{"bytes"} = $w[8]*1024;
	local $ofs = 0;
	if ($has_stime) {
		$plist[$i]->{"_stime"} = $w[12+$ofs];
		$plist[$i]->{"_stime"} =~ s/_/ /g;
		$ofs++;
		}
	if ($has_task) {
		$plist[$i]->{"_task"} = $w[12+$ofs];
		$ofs++;
		}
	if ($has_zone) {
		$plist[$i]->{"_zone"} = $w[12+$ofs];
		$ofs++;
		}
	$plist[$i]->{"time"} = $w[11];
	$plist[$i]->{"nice"} = $w[9] =~ /\d+/ ? $w[9]-20 : $w[9];
	$plist[$i]->{"args"} = @w<14+$ofs ? "defunct"
					  : join(' ', @w[13+$ofs..$#w]);
	$plist[$i]->{"_group"} = $w[2];
	$plist[$i]->{"_ruser"} = $w[1];
	$plist[$i]->{"_rgroup"} = $w[3];
	$plist[$i]->{"_pgid"} = $w[6];
	$plist[$i]->{"_tty"} = $w[12+$ofs] =~ /\?/ ? $text{'edit_none'}
					           : "/dev/$w[12+$ofs]";
	}
close(PS);
return @plist;
}

# find_mount_processes(mountpoint)
# Find all processes under some mount point
sub find_mount_processes
{
local($out);
$out = &backquote_command("fuser -c ".quotemeta($_[0])." 2>/dev/null");
$out =~ s/^\s+//g; $out =~ s/\s+$//g;
return split(/\s+/, $out);
}

# find_file_processes([file]+)
# Find all processes with some file open
sub find_file_processes
{
local($out, $files);
$files = join(' ', map { quotemeta($_) } map { glob($_) } @_);
$out = &backquote_command("fuser $files 2>/dev/null");
$out =~ s/^\s+//g; $out =~ s/\s+$//g;
return split(/\s+/, $out);
}

# renice_proc(pid, nice)
sub renice_proc
{
return undef if (&is_readonly_mode());
local $out = &backquote_logged("renice ".quotemeta($_[1])." -p ".
			       quotemeta($_[0])." 2>&1");
if ($?) { return $out; }
return undef;
}

# get_new_pty()
# Returns the filehandles and names for a pty and tty
sub get_new_pty
{
if (!-e "/dev/ptyp0") {
	# Must use IO::Pty :(
	&error("IO::Pty Perl module is not installed");
	}
else {
	# Need to search through pty files
	opendir(DEV, "/dev");
	local @ptys = map { "/dev/$_" } (grep { /^pty/ } readdir(DEV));
	closedir(DEV);
	local ($pty, $tty);
	foreach $pty (@ptys) {
		open(PTY, "+>$pty") || next;
		local $tty = $pty; $tty =~ s/pty/tty/;
		open(TTY, "+>$tty") || next;
		local $old = select(PTY); $| = 1;
		select(TTY); $| = 1; select($old);
		return (*PTY, *TTY, $pty, $tty);
		}
	return ();
	}
}

$has_trace_command = $gconfig{'os_type'} eq 'solaris' &&
		     &has_command("truss");

# open_process_trace(pid, [&syscalls])
# Starts tracing on some process, and returns a trace object
sub open_process_trace
{
local $fh = time().$$;
local $sc;
if (@{$_[1]}) {
	$sc = "-t ".join(",", map { quotemeta($_) } grep { $_ ne "" }
			  @{$_[1]});
	}
local $tpid = open($fh, "truss $sc -i -p ".quotemeta($_[0])." 2>&1 |");
$line = <$fh>;
return { 'pid' => $_[0],
	 'tpid' => $tpid,
	 'fh' => $fh };
}

# close_process_trace(&trace)
# Halts tracing on some trace object
sub close_process_trace
{
kill('TERM', $_[0]->{'tpid'}) if ($_[0]->{'tpid'});
close($_[0]->{'fh'});
}

# read_process_trace(&trace)
# Returns an action structure representing one action by traced process, or
# undef if an error occurred
sub read_process_trace
{
local $fh = $_[0]->{'fh'};
local @tm = localtime(time());
while(1) {
	local $line = <$fh>;
	return undef if (!$line);
	if ($line =~ /^([^$]+)\((.*)$(\s*=\s*(\-?\d+)|\s+(Err\S+))?/) {
		local $action = { 'time' => time(),
				  'call' => $1,
				  'rv' => $4 ne "" ? $4 : $5 };
		local $args = $2;
		local @args;
		while(1) {
			if ($args =~ /^[ ,]*(\{[^}]*\})(.*)$/) {
				# A structure in { }
				push(@args, $1);
				$args = $2;
				}
			elsif ($args =~ /^[ ,]*"([^"]*)"\.*(.*)$/) {
				# A quoted string
				push(@args, $1);
				$args = $2;
				}
			elsif ($args =~ /^[ ,]*\[([^\]]*)\](.*)$/) {
				# A square-bracket number
				push(@args, $1);
				$args = $2;
				}
			elsif ($args =~ /^[ ,]*\<([^\>]*)\>(.*)$/) {
				# An angle-bracketed string
				push(@args, $1);
				$args = $2;
				}
			elsif ($args =~ /[ ,]*([^, ]+)(.*)$/) {
				# Just a number
				push(@args, $1);
				$args = $2;
				}
			else {
				last;
				}
			}
		$action->{'args'} = \@args;
		return $action;
		}
	}
}

# os_get_cpu_info()
# Returns a list containing the 5, 10 and 15 minute load averages
sub os_get_cpu_info
{
local $out = `uptime 2>&1`;
if ($out =~ /load average:\s+(\S+),\s+(\S+),\s+(\S+)/) {
	return ($1, $2, $3);
	}
else {
	return ( );
	}
}

# get_memory_info()
# Returns a list containing the real mem, free real mem, swap and free swap
# (In kilobytes).
sub get_memory_info
{
if (!&has_command("kstat")) {
	return ( );
	}
local %stat;
foreach my $s ("physmem", "freemem", "zone_memory_cap") {
	local $out = &backquote_command("kstat -p -m unix -s $s");
	if ($out =~ /\s+(\d+)/) {
		$stat{$s} = $1;
		}
	}
if ($stat{'zone_memory_cap'} > $stat{'physmem'}) {
	delete($stat{'zone_memory_cap'});
	}
local ($swaptotal, $swapfree);
&open_execute_command(SWAP, "swap -l", 1);
while(<SWAP>) {
	if (/^\S+\s+\d+,\d+\s+\d+\s+(\d+)\s+(\d+)/) {
		$swaptotal += $1;
		$swapfree += $2;
		}
	}
close(SWAP);
local $pagesize = &backquote_command("pagesize 2>/dev/null");
$pagesize = int($pagesize)/1024;
$pagesize ||= 8;	# Fallback
return (($stat{'zone_memory_cap'} || $stat{'physmem'})*$pagesize,
	$stat{'freemem'}*$pagesize,
	$swaptotal/2,
	$swapfree/2);
}

foreach $ia (keys %text) {
	if ($ia =~ /^sysv(_\S+)/) {
		$info_arg_map{$1} = $text{$ia};
		}
	}
delete($info_arg_map{'_stime'}) if (!$has_stime);

@nice_range = (-20 .. 19);

$has_fuser_command = 1;