Browse Source

begin work on README and add JID display

master
Zane C. B-H 2 years ago
parent
commit
aaa5d264f9
  1. 15
      Proc-ProcessTable-ncps/README
  2. 7
      Proc-ProcessTable-ncps/bin/ncps
  3. 19
      Proc-ProcessTable-ncps/lib/Proc/ProcessTable/ncps.pm

15
Proc-ProcessTable-ncps/README

@ -1,16 +1,11 @@
Proc-ProcessTable-ncps
The README is used to introduce the module and provide instructions on
how to install the module, any machine dependencies it may have (for
example C compilers and installed libraries) and any other information
that should be provided before the module is installed.
A README file is required for CPAN modules since CPAN extracts the README
file from a module distribution so that people browsing the archive
can use it to get an idea of the module's uses. It is usually a good idea
to provide version information here so that people can decide whether
fixes for the module are worth downloading.
A enhanced version of ps that adjanced searching capabilities
>ncps -c ldap -F -f
User PID %CPU %MEM VSZ RSS Info Nic Pri MajF minF Start Time Command
kitsune 21031 0.0 0.05 28536832 18235392 Rs+ 0 172 0 3187 18:01 0 perl /usr/local/bin/ncps -c ldap -F -f
ldap 1379 0.0 0.03 194584576 11145216 SL uwait 0 172 20 4917 21-08:50 1:15 /usr/local/libexec/slapd -u ldap -g ldap
INSTALLATION

7
Proc-ProcessTable-ncps/bin/ncps

@ -26,6 +26,8 @@ sub help{
-F Show major faults.
-J Show jail IDs.
-n Show number of threads.
-p <pctcpu> CPU usage percent to search for.
@ -83,7 +85,8 @@ my $major_faults=0;
my $cminor_faults=0;
my $cmajor_faults=0;
my $numthr=0;
my $tty=0,
my $tty=0;
my $jid=0;
# get the commandline options
Getopt::Long::Configure ('no_ignore_case');
@ -118,6 +121,7 @@ GetOptions(
'cF' => \$cmajor_faults,
'n' => \$numthr,
'tty' => \$tty,
'J' => \$jid,
);
# print the version info if requested
@ -265,6 +269,7 @@ my $args={
minor_faults=>$minor_faults,
numthr=>$numthr,
tty=>$tty,
'jid'=>$jid,
match=>{
checks=>\@filters,
}

19
Proc-ProcessTable-ncps/lib/Proc/ProcessTable/ncps.pm

@ -71,8 +71,10 @@ sub new {
$self->{match}=Proc::ProcessTable::Match->new( $args{match} );
}
my @bool_feed=('major_faults', 'minor_faults', 'cmajor_faults',
'cminor_faults', 'numthr', 'tty');
my @bool_feed=(
'major_faults', 'minor_faults', 'cmajor_faults',
'cminor_faults', 'numthr', 'tty', 'jid'
);
foreach my $feed ( @bool_feed ){
$self->{$feed}=$args{$feed};
@ -201,6 +203,12 @@ sub run{
if (( $header_int % 2 ) != 0){ $padding=1; }else{ $padding=0; }
$tb->set_column_style($header_int, pad => $padding ); $header_int++;
}
# add jail ID if needed
if ( $self->{jid} ){
push( @headers, 'JID' );
if (( $header_int % 2 ) != 0){ $padding=1; }else{ $padding=0; }
$tb->set_column_style($header_int, pad => $padding ); $header_int++;
}
if (( $header_int % 2 ) != 0){ $padding=1; }else{ $padding=0; }
$tb->set_column_style($header_int, pad => $padding ); $header_int++;
push( @headers, 'Start' );
@ -423,6 +431,13 @@ sub run{
push( @new_line, color($self->nextColor).$proc->{ttydev}.color('reset') );
}
#
# jail ID
#
if ( $self->{jid} ){
push( @new_line, color($self->nextColor).$proc->{jid}.color('reset') );
}
#
# handles the start column
#

Loading…
Cancel
Save