index_cpu.cgi

Unix下基于Web的管理工具

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

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

&index_links("cpu");
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{'cpu'}</b></td> <td><b>$text{'command'}</b></td> </tr>\n";
@procs = sort { $b->{'cpu'} <=> $a->{'cpu'} } &list_processes();
foreach $pr (@procs) {
	$p = $pr->{'pid'};
	print "<tr $cb> <td><a href=\"edit_proc.cgi?$p\">$p</a></td>\n";
	print "         <td>$pr->{'user'}</td>\n";
	print "         <td>$pr->{'cpu'}</td>\n";
	print "         <td>",&cut_string($pr->{'args'},60),"</td> </tr>\n";
	}
print "</table><p>\n";

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