Forum Moderators: bakedjake
GeorgeGG
Added:
#!/usr/bin/perl -w
use strict;
use diagnostics;
my @LINES_PS;
print "Content-type: text/html\n\n";
print "\n<HR SIZE=5><B>PS</B>\n";
open(FILE,"ps -ef ¦");
@LINES_PS = <FILE>;
close(FILE);
foreach $line (@LINES_PS)
{
if(index($line, "your_user_name") >= 0)
{
print $line;
}
}