my ($exitcode, $fd) = @_;
version ($fd, 0);
print $fd "Usage: $PROGRAM_NAME --help\n";
- print $fd "Usage: $PROGRAM_NAME";
+ print $fd "Usage: $PROGRAM_NAME [--fresh <minseconds>] [--maxage <seconds>]";
exit $exitcode
};
Getopt::Long::config('bundling');
if (!GetOptions (
'h|help' => \$params->{'help'},
+ 'f|fresh=i' => \$TOO_FRESH,
+ 'm|maxage=i' => \$MAX_AGE,
)) {
die ("$PROGRAM_NAME: Usage: $PROGRAM_NAME [-fwhv]\n");
};
my $fprdb_fname = "/var/lib/dsa/ssh-weak-keys.db" ;
my ($outfile, $help);
my $dsa_nowarn = 0;
+my $debian_org = 1;
GetOptions( 'help|h' => \$help, #Help function
'statusfile|s=s' => \$outfile,
'fprdb|f=s' => \$fprdb_fname,
- 'n|dsa_nowarn' => \$dsa_nowarn,
+ 'n|dsa_nowarn' => \$dsa_nowarn,
+ 'd|debian-org!' => \$debian_org,
);
pod2usage(1) if $help;
my %key_sizes;
-
-#&from_user_all;
-&from_debianorg_places;
+if ($debian_org) {
+ &from_debianorg_places;
+} else {
+ &from_user_all;
+}
&from_ssh_host(qw(localhost));
my $status="OK";