tracefile: add --dir.
This commit is contained in:
parent
96f2c1c2cb
commit
774a5e5d67
1
Makefile
1
Makefile
|
@ -5,7 +5,6 @@ all: blink/blink.1 goodpasswd/goodpasswd.1 histogram/histogram.1 rand/rand.1 rrm
|
|||
%.1: %
|
||||
pod2man $< > $@
|
||||
|
||||
|
||||
install:
|
||||
mkdir -p /usr/local/bin
|
||||
parallel eval ln -sf `pwd`/*/{} /usr/local/bin/{} ::: blink reniced em field forever neno rn stdout tracefile w4it-for-port-open upsidedown histogram goodpasswd mtrr not summer timestamp transpose wssh aptsearch rand rrm
|
||||
|
|
|
@ -6,9 +6,9 @@ tracefile - list files being accessed
|
|||
|
||||
=head1 SYNOPSIS
|
||||
|
||||
B<tracefile> [-aenu] I<command>
|
||||
B<tracefile> [-adenu] I<command>
|
||||
|
||||
B<tracefile> [-aenu] -p I<pid>
|
||||
B<tracefile> [-adenu] -p I<pid>
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
|
@ -16,7 +16,7 @@ B<tracefile> will print the files being accessed by the command.
|
|||
|
||||
=head1 OPTIONS
|
||||
|
||||
=over 9
|
||||
=over 12
|
||||
|
||||
=item I<command>
|
||||
|
||||
|
@ -25,25 +25,43 @@ Command to run.
|
|||
|
||||
=item B<-a>
|
||||
|
||||
=item B<--all>
|
||||
|
||||
List all files.
|
||||
|
||||
|
||||
=item B<-d>
|
||||
|
||||
=item B<--dir>
|
||||
|
||||
List only dirs.
|
||||
|
||||
|
||||
=item B<-e>
|
||||
|
||||
=item B<--exist>
|
||||
|
||||
List only existing files.
|
||||
|
||||
|
||||
=item B<-n>
|
||||
|
||||
=item B<--nonexist>
|
||||
|
||||
List only non-existing files.
|
||||
|
||||
|
||||
=item B<-p> I<pid>
|
||||
|
||||
=item B<--pid> I<pid>
|
||||
|
||||
Trace process id.
|
||||
|
||||
|
||||
=item B<-u>
|
||||
|
||||
=item B<--unique>
|
||||
|
||||
List only files once.
|
||||
|
||||
=back
|
||||
|
@ -72,7 +90,7 @@ Report bugs to <tange@gnu.org>.
|
|||
|
||||
=head1 AUTHOR
|
||||
|
||||
Copyright (C) 2012 Ole Tange, http://ole.tange.dk and Free
|
||||
Copyright (C) 2012,2016 Ole Tange, http://ole.tange.dk and Free
|
||||
Software Foundation, Inc.
|
||||
|
||||
|
||||
|
@ -202,7 +220,7 @@ $Global::progname = "tracefile";
|
|||
Getopt::Long::Configure("bundling","pass_through");
|
||||
get_options_from_array(\@ARGV) || die_usage();
|
||||
|
||||
if(not ($opt::exists or $opt::nonexists or $opt::all)) {
|
||||
if(not ($opt::exists or $opt::nonexists or $opt::all or $opt::dir)) {
|
||||
$opt::all = 1;
|
||||
}
|
||||
|
||||
|
@ -227,6 +245,8 @@ while(<IN>) {
|
|||
or
|
||||
($opt::exists and -e $file)
|
||||
or
|
||||
($opt::dir and -d $file)
|
||||
or
|
||||
($opt::nonexists and not -e $file)) {
|
||||
$print = 1;
|
||||
}
|
||||
|
@ -241,6 +261,7 @@ sub options_hash {
|
|||
# Returns a hash of the GetOptions config
|
||||
return
|
||||
("debug|D" => \$opt::debug,
|
||||
"dir|d" => \$opt::dir,
|
||||
"uniq|unique|u" => \$opt::unique,
|
||||
"exists|exist|e" => \$opt::exists,
|
||||
"nonexists|nonexist|non-exists|non-exist|n" => \$opt::nonexists,
|
||||
|
|
Loading…
Reference in a new issue