summaryrefslogtreecommitdiff
path: root/bin/raps2
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-07-04 09:31:49 +0200
committerDaniel Friesel <derf@finalrewind.org>2011-07-04 09:31:49 +0200
commit2db2afec688b8b44ddeca55cd8226c1db923b17f (patch)
tree91877fa82cd8f200f7e717f07bcc9fcec0afe08d /bin/raps2
parenta7de7940496eca5dcc7ce433d026b0d92bb54475 (diff)
Move cmd_* functions into raps2, rename pw_get to pw_load and pw_add to pw_save
Diffstat (limited to 'bin/raps2')
-rwxr-xr-xbin/raps2180
1 files changed, 172 insertions, 8 deletions
diff --git a/bin/raps2 b/bin/raps2
index 62e70e1..e05a7d5 100755
--- a/bin/raps2
+++ b/bin/raps2
@@ -7,22 +7,186 @@ use warnings;
use 5.010;
use App::Raps2;
+use File::BaseDir qw(data_files data_home);
+use File::Slurp qw(read_dir);
my $raps2 = App::Raps2->new();
my ( $action, @args ) = @ARGV;
our $VERSION = '0.4';
+sub cmd_add {
+ my ($name) = @_;
+
+ my $pwfile = data_home('raps2') . "/${name}";
+
+ if ( -e $pwfile ) {
+ say STDERR "Account already exists: ${name}";
+ exit 2;
+ }
+
+ $raps2->get_master_password();
+
+ my $salt = $raps2->pw->create_salt();
+ my $url = $raps2->ui->read_line('URL');
+ my $login = $raps2->ui->read_line('Login');
+ my $pass = $raps2->ui->read_pw( 'Password', 1 );
+ my $extra = $raps2->ui->read_multiline('Additional content');
+
+ $raps2->pw_save(
+ file => $pwfile,
+ salt => $salt,
+ url => $url,
+ login => $login,
+ password => $pass,
+ extra => $extra,
+ );
+
+ return;
+}
+
+sub cmd_dump {
+ my ($name) = @_;
+
+ my $pwfile = data_files("raps2/${name}");
+
+ if ( not defined $pwfile ) {
+ say STDERR "Account does not exist: ${name}";
+ exit 2;
+ }
+
+ $raps2->get_master_password();
+
+ my $key = $raps2->pw_load( file => $pwfile );
+
+ $raps2->ui->output(
+ [ 'URL', $key->{url} ],
+ [ 'Login', $key->{login} ],
+ [ 'Password', $key->{password} ],
+ );
+ if ( $key->{extra} ) {
+ print $key->{extra};
+ }
+
+ return;
+}
+
+sub cmd_edit {
+ my ($name) = @_;
+
+ my $pwfile = data_files("raps2/${name}");
+
+ if ( not defined $pwfile ) {
+ say STDERR "Account does not exist: ${name}";
+ exit 2;
+ }
+
+ $raps2->get_master_password();
+
+ my $key = $raps2->pw_load( file => $pwfile );
+
+ my $salt = $key->{salt};
+ my $url = $raps2->ui->read_line( 'URL', $key->{url} );
+ my $login = $raps2->ui->read_line( 'Login', $key->{login} );
+ my $pass = $key->{password};
+ my $new_pass = $raps2->ui->read_pw( 'New password (empty to keep old)', 1 );
+ my $extra = $key->{extra} // q{};
+
+ if ( length($new_pass) ) {
+ $pass = $new_pass;
+ }
+
+ $raps2->pw_save(
+ file => $pwfile,
+ salt => $salt,
+ url => $url,
+ login => $login,
+ password => $pass,
+ extra => $extra,
+ );
+
+ return;
+}
+
+sub cmd_get {
+ my ($name) = @_;
+
+ my $pwfile = data_files("raps2/${name}");
+
+ if ( not defined $pwfile ) {
+ say STDERR "Account does not exist: ${name}";
+ exit 2;
+ }
+
+ $raps2->get_master_password();
+
+ my $key = $raps2->pw_load( file => $pwfile );
+
+ $raps2->ui->to_clipboard( $key->{password} );
+
+ if ( $key->{extra} ) {
+ print $key->{extra};
+ }
+
+ return;
+}
+
+sub cmd_info {
+ my ($name) = @_;
+
+ my $pwfile = data_files("raps2/${name}");
+
+ if ( not defined $pwfile ) {
+ say STDERR "Account does not exist: ${name}";
+ exit 2;
+ }
+
+ my %key = $raps2->file_to_hash($pwfile);
+ $raps2->ui->output( [ 'URL', $key{url} ], [ 'Login', $key{login} ], );
+
+ return;
+}
+
+sub cmd_list {
+ my @files = read_dir( data_home('raps2') );
+
+ for my $file ( sort @files ) {
+ my %key = $raps2->file_to_hash( data_files("raps2/${file}") );
+ $raps2->ui->list(
+ [ 'Account', $file ],
+ [ 'Login', $key{login} ],
+ [ 'URL', $key{url} ],
+ );
+ }
+
+ return;
+}
+
+sub cmd_remove {
+ my ($name) = @_;
+
+ my $pwfile = data_files("raps2/${name}");
+
+ if ( defined $pwfile ) {
+ unlink($pwfile);
+ }
+ else {
+ say STDERR "Account did not exist: ${name}";
+ }
+
+ return;
+}
+
given ($action) {
- when ('add') { $raps2->cmd_add(@args) }
- when ('del') { $raps2->cmd_remove(@args) }
- when ('dump') { $raps2->cmd_dump(@args) }
- when ('edit') { $raps2->cmd_edit(@args) }
- when ('get') { $raps2->cmd_get(@args) }
- when ('info') { $raps2->cmd_info(@args) }
- when ('list') { $raps2->cmd_list(@args) }
+ when ('add') { cmd_add(@args) }
+ when ('del') { cmd_remove(@args) }
+ when ('dump') { cmd_dump(@args) }
+ when ('edit') { cmd_edit(@args) }
+ when ('get') { cmd_get(@args) }
+ when ('info') { cmd_info(@args) }
+ when ('list') { cmd_list(@args) }
when ('version') { say "raps2 version ${VERSION}" }
- default { die "Unknown action: $action\n" }
+ default { die "Unknown action: ${action}\n" }
}
__END__