leaking_addresses: remove command line options

#  - Scans dmesg output.

#  - Walks directory tree and parses each file (for each directory in @DIRS).

#

# You can configure the behaviour of the script;

#

#  - By adding paths, for directories you do not want to walk;

#     absolute paths: @skip_walk_dirs_abs

#     directory names: @skip_walk_dirs_any

#

#  - By adding paths, for files you do not want to parse;

#     absolute paths: @skip_parse_files_abs

#     file names: @skip_parse_files_any

#

# The use of @skip_xxx_xxx_any causes files to be skipped where ever they occur.

# For example adding 'fd' to @skip_walk_dirs_any causes the fd/ directory to be

# skipped for all PID sub-directories of /proc

#

# The same thing can be achieved by passing command line options to --dont-walk

# and --dont-parse. If absolute paths are supplied to these options they are

# appended to the @skip_xxx_xxx_abs arrays. If file names are supplied to these

# options, they are appended to the @skip_xxx_xxx_any arrays.

#

# Use --debug to output path before parsing, this is useful to find files that

# cause the script to choke.

#

# Command line options.

my $help = 0;

my $debug = 0;

my @dont_walk = ();

my @dont_parse = ();

# Do not parse these files (absolute path).

my @skip_parse_files_abs = ('/proc/kmsg',

Options:

	--dont-walk=<dir>      Don't walk tree starting at <dir>.

	--dont-parse=<file>    Don't parse <file>.

	-d, --debug                Display debugging output.

	-h, --help, --version      Display this help and exit.

If an absolute path is passed to --dont_XXX then this path is skipped. If a

single filename is passed then this file/directory will be skipped when

appearing under any subdirectory.

Example:

	# Just scan dmesg output.

	scripts/leaking_addresses.pl --dont_walk_abs /proc --dont_walk_abs /sys

Scans the running (64 bit) kernel for potential leaking addresses.

EOM

}

GetOptions(

	'dont-walk=s'		=> \@dont_walk,

	'dont-parse=s'		=> \@dont_parse,

	'd|debug'		=> \$debug,

	'h|help'		=> \$help,

	'version'		=> \$help

help(0) if ($help);

push_to_global();

parse_dmesg();

walk(@DIRS);

	printf(STDERR @_) if $debug;

}

sub push_in_abs_any

{

	my ($in, $abs, $any) = @_;

	foreach my $path (@$in) {

		if (File::Spec->file_name_is_absolute($path)) {

			push @$abs, $path;

		} elsif (index($path,'/') == -1) {

			push @$any, $path;

		} else {

			print 'path error: ' . $path;

		}

	}

}

# Push command line options to global arrays.

sub push_to_global

{

	push_in_abs_any(\@dont_walk, \@skip_walk_dirs_abs, \@skip_walk_dirs_any);

	push_in_abs_any(\@dont_parse, \@skip_parse_files_abs, \@skip_parse_files_any);

}

sub is_false_positive

{

	my ($match) = @_;