diff options
Diffstat (limited to 'bin/raps2')
-rwxr-xr-x | bin/raps2 | 20 |
1 files changed, 16 insertions, 4 deletions
@@ -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( |