From fc6a16ae1e323fac955410e894402c972c2f71e5 Mon Sep 17 00:00:00 2001
From: "Zane C. Bowers-Hadley" <vvelox@vvelox.net>
Date: Wed, 21 Aug 2019 05:37:03 -0500
Subject: [PATCH] add more options

---
 Proc-ProcessTable-ncps/bin/ncps | 153 ++++++++++++++++++++++++++++++--
 1 file changed, 145 insertions(+), 8 deletions(-)

diff --git a/Proc-ProcessTable-ncps/bin/ncps b/Proc-ProcessTable-ncps/bin/ncps
index 7bd4605..e882616 100755
--- a/Proc-ProcessTable-ncps/bin/ncps
+++ b/Proc-ProcessTable-ncps/bin/ncps
@@ -12,19 +12,31 @@ sub version{
 sub help{
 	print '
 
--z    Show zombies procs.
--s    Show swapped out procs.
+-c <regex>    Search procs using the matching regex.
+--ci          Invert the command search.
 
--p <regex>   Search procs using the matching regex.
+-m <pctmem>   Memory usage percent to search for.
+--mi          Invert the memory usage search.
 
--u <users>   A string search for users.
+-p <pctcpu>   CPU usage percent to search for.
+--pi          Invert the CPU usage search.
 
--t <time search>   A numeric search for CPU time-c <pctcpu search>   A numeric search for CPU usage percent
+--pid <pids>  PIDs to search for.
+--pidi        Invert the PID search.
 
--m <pctmem search>   A numeric search for memory usage percent
+-r <RSSs>     A comma seperated list of RSS values to search for.
+--ri          Invert the RSS search.
 
--w <wait channels>   A string search for wait channels.
---wi
+-s            Show swapped out procs.
+--si          Invert the swapped out search.
+
+-t <times>    A comma seperated value of time, in seconds, to search for.
+--ti          Invert the time search.
+
+-w <wchans>   A string search for wait channels.
+--wi          Invert the wait channel search.
+
+-z            Show zombies procs.
 
 ';
 }
@@ -32,8 +44,23 @@ sub help{
 # defaults
 my $wait_channels_string;
 my $wait_channels_invert=0;
+my $zombie=0,
+my $swapped=0,
+my $swapped_invert=0;
 my $version;
 my $help;
+my $commands_string;
+my $commands_invert=0;
+my $pids_string;
+my $pids_invert=0;
+my $cpu_string;
+my $cpu_invert=0;
+my $mem_string;
+my $mem_invert=0;
+my $rss_string;
+my $rss_invert=0;
+my $time_string;
+my $time_invert=0;
 
 # get the commandline options
 Getopt::Long::Configure ('no_ignore_case');
@@ -45,6 +72,21 @@ GetOptions(
 		   'help' => \$help,
 		   'v' => \$version,
 		   'version' => \$version,
+		   'z'=> \$zombie,
+		   's'=> \$swapped,
+		   'si' => \$swapped_invert,
+		   'c=s' => \$commands_string,
+		   'ci' => \$commands_invert,
+		   'pid=s' => \$pids_string,
+		   'pidi' => \$pids_invert,
+		   'p=s' => \$cpu_string,
+		   'pi' => \$cpu_invert,
+		   'm=s' => \$mem_string,
+		   'mi' => \$mem_invert,
+		   'r=s' => \$rss_string,
+		   'ri' => \$rss_invert,
+		   't=s' => \$time_string,
+		   'ti' => \$time_invert,
 		   );
 
 # print the version info if requested
@@ -75,6 +117,101 @@ if ( defined( $wait_channels_string ) ){
 					 });
 }
 
+#
+# handles swappped procs search
+#
+if ( $swapped ){
+	push( @filters, {
+					 type=>'Swapped',
+					 invert=>$swapped_invert,
+					 args=>{},
+					 });
+}
+
+#
+# handles the commands search
+#
+if ( defined( $commands_string ) ){
+	my @commands=split(/\,/, $commands_string );
+	push( @filters, {
+					 type=>'Command',
+					 invert=>$commands_invert,
+					 args=>{
+							commands=>\@commands,
+							},
+					 });
+}
+
+#
+# handles the PIDs search
+#
+if ( defined( $pids_string ) ){
+	my @pids=split(/\,/, $pids_string );
+	push( @filters, {
+					 type=>'PID',
+					 invert=>$pids_invert,
+					 args=>{
+							pids=>\@pids,
+							},
+					 });
+}
+
+#
+# handles the CPU search
+#
+if ( defined( $cpu_string ) ){
+	my @cpus=split(/\,/, $cpu_string );
+	push( @filters, {
+					 type=>'PctCPU',
+					 invert=>$cpu_invert,
+					 args=>{
+							pctcpus=>\@cpus,
+							},
+					 });
+}
+
+#
+# handles the memory search
+#
+if ( defined( $mem_string ) ){
+	my @mems=split(/\,/, $mem_string );
+	push( @filters, {
+					 type=>'PctMem',
+					 invert=>$mem_invert,
+					 args=>{
+							pctmems=>\@mems,
+							},
+					 });
+}
+
+#
+# handles the RSS search
+#
+if ( defined( $rss_string ) ){
+	my @rss=split(/\,/, $rss_string );
+	push( @filters, {
+					 type=>'RSS',
+					 invert=>$rss_invert,
+					 args=>{
+							rss=>\@rss,
+							},
+					 });
+}
+
+#
+# handles the time search
+#
+if ( defined( $time_string ) ){
+	my @times=split(/\,/, $time_string );
+	push( @filters, {
+					 type=>'Time',
+					 invert=>$time_invert,
+					 args=>{
+							times=>\@times,
+							},
+					 });
+}
+
 my $args={
 		  invert=>0,
 		  match=>{