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

# freebsd-lib.pl
# Functions for parsing freebsd ps output

use IO::Handle;

sub list_processes
{
local($pcmd, $line, $i, %pidmap, @plist);
if (@_) {
	$_[0] =~ /^\d+$/ || return ( );
	$pcmd = "-p ".quotemeta($_[0]);
	}
else {
	$pcmd = "";
	}
open(PS, "ps -axwwww -o pid,ppid,user,vsz,%cpu,time,nice,tty,ruser,rgid,pgid,lstart,lim,command $pcmd |");
for($i=0; $line=<PS>; $i++) {
	chop($line);
	if ($line =~ /ps -axwwww/ || $line =~ /^\s*PID/) { $i--; next; }
	$line =~ /^\s*(\d+)\s+(\d+)\s+(\S+)\s+(\d+)\s+([\d\.]+)\s+(\S+)\s+(-?\d+)\s+(\S+)\s+(\S+)\s+(\d+)\s+(\d+)\s+(-|\S+\s+\S+\s+\d+\s+\S+\s+\d+|\d+)\s+(\S+)\s+(.*)$/;

$plist[$i]->{"pid"} = $1;
	$plist[$i]->{"ppid"} = $2;
	$plist[$i]->{"user"} = $3;
	$plist[$i]->{"size"} = "$4 kB";
	$plist[$i]->{"bytes"} = $4*1024;
	$plist[$i]->{"cpu"} = $5;
	$plist[$i]->{"time"} = $6;
	$plist[$i]->{"nice"} = $7;
	$plist[$i]->{"_tty"} = $8;
	$plist[$i]->{"_ruser"} = $9;
	$plist[$i]->{"_rgroup"} = getgrgid($10);
	$plist[$i]->{"_pgid"} = $11;
	$plist[$i]->{"_stime"} = $12;
	$plist[$i]->{"_lim"} = $13 eq "-" ? "Unlimited" : $13;
	$plist[$i]->{"args"} = $14;
	}
close(PS);
return @plist;
}

# 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;
}

foreach $ia (keys %text) {
	if ($ia =~ /^freebsd(_\S+)/) {
		$info_arg_map{$1} = $text{$ia};
		}
	}

@nice_range = (-20 .. 20);

$has_fuser_command = 0;

# get_new_pty()
# Returns the filehandles and names for a pty and tty
sub get_new_pty
{
local @ptys;
opendir(DEV, "/dev");
@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 ();
}

# close_controlling_pty()
# Disconnects this process from it's controlling PTY, if connected
sub close_controlling_pty
{
if (open(DEVTTY, "</dev/tty")) {
	# Special ioctl to disconnect (TIOCNOTTY)
	ioctl(DEVTTY, 536900721, 0);
	close(DEVTTY);
	}
}

# open_controlling_pty(ptyfh, ttyfh, ptyfile, ttyfile)
# Makes a PTY returned from get_new_pty the controlling TTY (/dev/tty) for
# this process.
sub open_controlling_pty
{
local ($ptyfh, $ttyfh, $pty, $tty) = @_;

# Call special ioctl to attach /dev/tty to this new tty (TIOCSCTTY)
ioctl($ttyfh, 536900705, 0);
}

# get_memory_info()
# Returns a list containing the real mem, free real mem, swap and free swap
# (In kilobytes).
sub get_memory_info
{
my $sysctl = {};
# Get only the specific values we need not all with -a
my @needed = qw(
	hw.physmem
	hw.pagesize
	vm.stats.vm.v_inactive_count
	vm.stats.vm.v_cache_count
	vm.stats.vm.v_free_count
	);
my $sysctl_output = &backquote_command("/sbin/sysctl " .
	join(" ", @needed) . " 2>/dev/null");
return ( ) if ($?);
foreach my $line (split(/\n/, $sysctl_output)) {
	if ($line =~ m/^([^:]+):\s+(.+)\s*$/s) {
		$sysctl->{$1} = $2;
		}
	}
return ( ) if (!$sysctl->{"hw.physmem"});
my $mem_inactive = $sysctl->{"vm.stats.vm.v_inactive_count"} *
		   $sysctl->{"hw.pagesize"};
my $mem_cache = $sysctl->{"vm.stats.vm.v_cache_count"} *
		$sysctl->{"hw.pagesize"};
my $mem_free = $sysctl->{"vm.stats.vm.v_free_count"} *
	       $sysctl->{"hw.pagesize"};

my ($swapinfo_output) = &backquote_command("/usr/sbin/swapinfo");
my ($swap_total, $swap_free) = (0, 0);
foreach my $line (split(/\n/, $swapinfo_output)) {
	if ($line =~ /^(\S+)\s+(\d+)\s+(\d+)\s+(\d+)/) {
		$swap_total += $2 * 1024;
		$swap_free += $4 * 1024;
		}
	}

return ( $sysctl->{"hw.physmem"} / 1024,
	 ($mem_inactive + $mem_cache + $mem_free) / 1024,
	 $swap_total,
	 $swap_free );
}

# os_get_cpu_info()
# Returns a list containing the 5, 10 and 15 minute load averages, and the
# CPU mhz, model, vendor, cache and count
sub os_get_cpu_info
{
local $out = &backquote_command("uptime");
local @load;
if ($out =~ /load\s+(average|averages):\s+([0-9\.]+),\s+([0-9\.]+),\s+([0-9\.]+)/) {
	@load = ($2, $3, $4);
	}
else {
	return ( );
	}
$out = &backquote_command("sysctl hw.model hw.ncpu");
if ($out =~ /hw.model:\s+(\S+)\s+(\S.*\S)\s+\@\s+(\S+)/) {
	push(@load, $3, $2, $1, undef);
	}
elsif ($out =~ /hw.model:\s+(\S+)\s+(\S.*\S)/) {
	push(@load, undef, $2, $1, undef);
	}
else {
	return @load;
	}
if ($out =~ /hw.ncpu:\s+(\d+)/) {
	push(@load, $1);
	}
return @load;
}

# get_cpu_io_usage()
# Returns a list containing CPU user, kernel and idle time
# blocks in and out
sub get_cpu_io_usage
{
my $out = &backquote_command("vmstat 0.1 2 2>/dev/null");
if ($?) {
	$out = &backquote_command("vmstat 1 2 2>/dev/null");
	}
return ( ) if ($?);
my @lines = split(/\r?\n/, $out);
my @w = split(/\s+/, $lines[$#lines]);
shift(@w) if ($w[0] eq '');
my ($bi, $bo) = (0, 0);
my $out2 = &backquote_command("iostat -Ix -d -t da 0.25 2 2>/dev/null");
if (!$?) {
	foreach my $l (split(/\r?\n/, $out2)) {
		# Getting the 4th and 5th columns of the last line for direct access device
		# device           r/i         w/i         kr/i         kw/i qlen   tsvc_t/i      sb/i  
		# ada0          3457.0    134574.0      61068.0    8443152.0    0       36.3      19.2
		if ($l =~ /^.*?da\d+\s+\S+\s+\S+\s+(\S+)\s+(\S+)\s+\d/) {
			$bi = int($1) * 4; # kr/i per period, i.e. 0.25 seconds
			$bo = int($2) * 4; # kw/i per period, i.e. 0.25 seconds
			}
		}
	}
return ( $w[-3], $w[-2], $w[-1], 0, 0, $bi, $bo );
}

# has_disk_stats()
# Returns 1 if disk I/O stats are available
sub has_disk_stats
{
return &has_command("iostat") ? 1 : 0;
}

# has_network_stats()
# Returns 1 if network I/O stats are available
sub has_network_stats
{
return &has_command("netstat") ? 1 : 0;
}