#!/usr/local/bin/perl # index_user.cgi require './proc-lib.pl'; &ui_print_header(undef, $text{'index_title'}, "", "zone", !$no_module_config, 1); &index_links("zone"); @procs = sort { $b->{'cpu'} <=> $a->{'cpu'} } &list_processes(); @procs = grep { &can_view_process($_->{'user'}) } @procs; @zones = &unique(map { $_->{'_zone'} } @procs); foreach $z (@zones) { print "
$text{'pid'} | \n"; print "$text{'cpu'} | \n"; if ($info_arg_map{'_stime'}) { print "$text{'stime'} | \n"; } print "$text{'command'} | |
$p | \n"; } else { print "$p | \n"; } print "$pr->{'cpu'} | \n"; if ($info_arg_map{'_stime'}) { print "",$pr->{'_stime'} || " "," | \n";
}
print "",&html_escape(&cut_string($pr->{'args'})), " | \n"; print "
\n"; } print "\n"; &ui_print_footer("/", $text{'index'});