deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

sshkeys-lint learns '-h'

Browse source
This commit is contained in:
Sitaram Chamarty 2012-02-27 19:58:36 +05:30
parent c50b0813f6
commit d9ae3ed697
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/sshkeys-lint
View file

@ -8,7 +8,8 @@ use warnings;
use Getopt::Long; use Getopt::Long;
my $admin = 0; my $admin = 0;
my $quiet = 0; my $quiet = 0;
GetOptions('admin|a=s' => \$admin, 'quiet|q' => \$quiet); my $help = 0;
GetOptions('admin|a=s' => \$admin, 'quiet|q' => \$quiet, 'help|h' => $help);
use Data::Dumper; use Data::Dumper;
$Data::Dumper::Deepcopy = 1; $Data::Dumper::Deepcopy = 1;
@ -31,7 +32,7 @@ sub msg {
print "sshkeys-lint: " . ( $warning ? "WARNING: " : "" ) . $_ for @_; print "sshkeys-lint: " . ( $warning ? "WARNING: " : "" ) . $_ for @_;
} }
@ARGV or not -t or usage(); usage() if not @ARGV and -t or $help;
our @pubkeyfiles = @ARGV; @ARGV = (); our @pubkeyfiles = @ARGV; @ARGV = ();
# ------------------------------------------------------------------------ # ------------------------------------------------------------------------