'--help' => \$params->{'help'},
'--version' => \$params->{'version'},
'--quiet' => \$params->{'quiet'},
+ '--ignore-pid-namespaces' => \$params->{'ignore_pid_namespaces'},
'--verbose' => \$params->{'verbose'},
'-v' => \$params->{'verbose'},
'--config=s' => \$params->{'config'},
)) {
- dief ("$PROGRAM_NAME: Usage: $PROGRAM_NAME [--help|--version] [--verbose] [--quiet] [--config=<CONFIGFILE>]\n");
+ dief ("$PROGRAM_NAME: Usage: $PROGRAM_NAME [--help|--version] [--ignore-pid-namespaces] [--verbose] [--quiet] [--config=<CONFIGFILE>]\n");
};
if ($params->{'help'}) {
- print "$PROGRAM_NAME: Usage: $PROGRAM_NAME [--help|--version] [--verbose] [--quiet] [--config=<CONFIGFILE>]\n";
+ print "$PROGRAM_NAME: Usage: $PROGRAM_NAME [--help|--version] [--ignore-pid-namespaces] [--verbose] [--quiet] [--config=<CONFIGFILE>]\n";
print "Reports processes that are linked against libraries that no longer exist.\n";
print "The optional config file can specify ignore rules - see the sample config file.\n";
+ print "Can optionally ignore processes from other PID namespaces.\n";
exit (0);
};
if ($params->{'version'}) {
my $INVSERVER = inVserver();
+my $PID_NS_SUPPORT = (-f '/proc/self/ns/pid');
+my $PID_NS;
+if ($PID_NS_SUPPORT and $params->{'ignore_pid_namespaces'}) {
+ $PID_NS = readlink('/proc/self/ns/pid');
+}
+
print STDERR "Running $LSOF -n\n" if $params->{'verbose'};
open (LSOF, "$LSOF -n 2>/dev/null|") or dief ("Cannot run $LSOF -n: $!\n");
my @lsof=<LSOF>;
next;
}
+ if ($PID_NS_SUPPORT and $params->{'ignore_pid_namespaces'}) {
+ my $pidns = readlink('/proc/'.$pid.'/ns/pid');
+ next if (defined $pidns and $PID_NS ne $pidns);
+ }
+
unless ( $line =~ /^f/ ) {
dief("UNKNOWN strange line read from lsof\n");
# don't print it because it contains NULL characters...