summaryrefslogtreecommitdiff
path: root/bin/raps2
diff options
context:
space:
mode:
Diffstat (limited to 'bin/raps2')
-rwxr-xr-xbin/raps220
1 files changed, 16 insertions, 4 deletions
diff --git a/bin/raps2 b/bin/raps2
index 90d094f..2451e6f 100755
--- a/bin/raps2
+++ b/bin/raps2
@@ -11,17 +11,25 @@ use File::BaseDir qw(data_files data_home);
use File::Slurp qw(read_dir);
use Getopt::Long qw(:config no_ignore_case);
-my $raps2 = App::Raps2->new();
-my ( $action, @args ) = @ARGV;
+my ( $default_cost, $echo_generated, $pwgen_cmd );
our $VERSION = '0.50';
GetOptions(
- 'h|help' => sub { cmd_help(0) },
- 'V|version' => sub { say "raps2 version ${VERSION}"; exit 0 },
+ 'c|cost=i' => \$default_cost,
+ 'e|echo' => \$echo_generated,
+ 'h|help' => sub { cmd_help(0) },
+ 'p|pwgen_cmd=s' => \$pwgen_cmd,
+ 'V|version' => sub { say "raps2 version ${VERSION}"; exit 0 },
) or cmd_help(1);
+my ( $action, @args ) = @ARGV;
+my $raps2 = App::Raps2->new(
+ cost => $default_cost,
+ pwgen_cmd => $pwgen_cmd
+);
+
sub file_must_exist {
my ( $file, $name ) = @_;
@@ -70,6 +78,10 @@ sub cmd_add {
. $raps2->conf('pwgen_cmd');
exit 3;
}
+
+ if ($echo_generated) {
+ $raps2->ui->output( [ 'Generated password', $pass ] );
+ }
}
$raps2->pw_save(