#!/usr/local/bin/perl
# index.cgi
# Display a list of all existing processes

require './proc-lib.pl';
&header($text{'index_title'}, "", "tree", !$no_module_config, 1);
print "<hr>\n";

&index_links("tree");
print "<table border width=100%>\n";
print "<tr $tb> <td><b>$text{'pid'}</b></td> <td><b>$text{'owner'}</b></td>\n";
print "         <td><b>$text{'command'}</b></td> </tr>\n";
@procs = sort { $a->{'pid'} <=> $b->{'pid'} } &list_processes();
foreach $pr (@procs) {
	$p = $pr->{'pid'}; $pp = $pr->{'ppid'};
	$argmap{$p} = $pr->{'args'};
	$usermap{$p} = $pr->{'user'};
	push(@{$children{$pp}}, $p);
	$inlist{$pr->{'pid'}}++;
	}
foreach $pr (@procs) {
	push(@roots, $pr->{'pid'}) if (!$inlist{$pr->{'ppid'}} ||
				       $pr->{'pid'} == $pr->{'ppid'});
	}
foreach $r (&unique(@roots)) {
	&walk_procs("", $r);
	}
print "</table><p>\n";

print "<hr>\n";
&footer("/", $text{'index'});


# walk_procs(indent, pid)
sub walk_procs
{
local(@ch, $_, $args);
if (!$hide{$usermap{$_[1]}} &&
    (!$user_processes_only || $usermap{$_[1]} eq $remote_user)) {
	if ($access{'edit'}) {
		print "<tr $cb><td>$_[0]<a href=\"edit_proc.cgi?$_[1]\">",
		      "$_[1]</a></td>\n";
		}
	else {
		print "<tr $cb> <td>$_[0]$_[1]</td>\n";
		}
	print "<td>$usermap{$_[1]}</td>\n";
	$args = &cut_string($argmap{$_[1]});
	print "<td>",&html_escape($args),"</td> </tr>\n";
	}
foreach (@{$children{$_[1]}}) {
	&walk_procs("$_[0]&nbsp;&nbsp;&nbsp;", $_) if ($_ != $_[1]);
	}
}

