add -n
This commit is contained in:
parent
c83def735c
commit
479db965b0
|
@ -11,6 +11,7 @@ sub version{
|
|||
|
||||
sub help{
|
||||
print '
|
||||
|
||||
';
|
||||
}
|
||||
|
||||
|
@ -22,6 +23,7 @@ my $pipe=0;
|
|||
my $unix=0;
|
||||
my $vregroot=0;
|
||||
my $dont_dedup=0;
|
||||
my $dont_resolv=0;
|
||||
|
||||
# get the commandline options
|
||||
Getopt::Long::Configure ('no_ignore_case');
|
||||
|
@ -32,13 +34,13 @@ GetOptions(
|
|||
'v' => \$version,
|
||||
'version' => \$version,
|
||||
't' => \$txt,
|
||||
'P' => \$pipe,
|
||||
'p' => \$pipe,
|
||||
'u' => \$unix,
|
||||
'r' => \$vregroot,
|
||||
'd' => \$dont_dedup,
|
||||
'n' => \$dont_resolv,
|
||||
);
|
||||
|
||||
|
||||
# print the version info if requested
|
||||
if ( $version ){
|
||||
&version;
|
||||
|
@ -71,6 +73,7 @@ my $ppp=Proc::ProcessTable::piddler->new(
|
|||
pipe=>$pipe,
|
||||
vregroot=>$vregroot,
|
||||
dont_dedup=>$dont_dedup,
|
||||
dont_resolv=>$dont_resolv,
|
||||
}
|
||||
);
|
||||
|
||||
|
|
|
@ -106,11 +106,12 @@ sub new{
|
|||
unix=>0,
|
||||
vregroot=>0,
|
||||
dont_dedup=>0,
|
||||
dont_resolv=>0,
|
||||
};
|
||||
bless $self;
|
||||
|
||||
my @arg_feed=(
|
||||
'txt', 'pipe', 'unix', 'vregroot', 'dont_dedup'
|
||||
'txt', 'pipe', 'unix', 'vregroot', 'dont_dedup', 'dont_resolv'
|
||||
);
|
||||
|
||||
foreach my $feed ( @arg_feed ){
|
||||
|
@ -594,9 +595,13 @@ sub run{
|
|||
}
|
||||
}
|
||||
);
|
||||
my $ptr=1;
|
||||
if ( $self->{dont_resolv} ){
|
||||
$ptr=0;
|
||||
}
|
||||
my $ncnetstat=Net::Connection::ncnetstat->new(
|
||||
{
|
||||
ptr=>1,
|
||||
ptr=>$ptr,
|
||||
command=>0,
|
||||
command_long=>0,
|
||||
wchan=>0,
|
||||
|
|
Loading…
Reference in New Issue