index_user.cgi

Unix下基于Web的管理工具

#!/usr/local/bin/perl
# index_user.cgi

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

&index_links("user");
@procs = sort { $b->{'cpu'} <=> $a->{'cpu'} } &list_processes();
@users = &unique(map { $_->{'user'} } @procs);
foreach $u (@users) {
	@uinfo = getpwnam($u);
	print "<dt><font size=+1>$u ",
		$uinfo[6] ? "($uinfo[6])" : "","</font><br>\n";
	print "<dd><table border width=90%>\n";
	print "<tr $tb> <td width=1% nowrap><b>$text{'pid'}</b></td>\n";
	print "         <td width=1%><b>$text{'cpu'}</b></td>\n";
	print "         <td width=98%><b>$text{'command'}</b></td> </tr>\n";
	foreach $pr (grep { $_->{'user'} eq $u } @procs) {
		$p = $pr->{'pid'};
		print "<tr $cb>\n";
		print "<td><a href=\"edit_proc.cgi?$p\">$p</a></td>\n";
		print "<td nowrap>$pr->{'cpu'}</td>\n";
		print "<td>",&cut_string($pr->{'args'},60),"</td>\n";
		print "</tr>\n";
		}
	print "</table><p>\n";
	}
print "</dl>\n";

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