From 06d064c1d6ba7a98c32527c0ca865c73fd65458e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 16 May 2011 10:57:17 +0200
Subject: Add "raps2 del"

---
 bin/raps2        |  5 +++++
 lib/App/Raps2.pm | 18 ++++++++++++++++++
 2 files changed, 23 insertions(+)

diff --git a/bin/raps2 b/bin/raps2
index aef2b5a..3847457 100755
--- a/bin/raps2
+++ b/bin/raps2
@@ -19,6 +19,7 @@ $raps2->load_config();
 
 given ($action) {
 	when ('add')  { $raps2->cmd_add(@args) }
+	when ('del')  { $raps2->cmd_remove(@args) }
 	when ('dump') { $raps2->cmd_dump(@args) }
 	when ('get')  { $raps2->cmd_get(@args) }
 	when ('info') { $raps2->cmd_info(@args) }
@@ -59,6 +60,10 @@ Adds I<account> to the store.  It will ask you for the store's master
 password, some metadata and the new password and then store them.  Note that
 only the password is encrypted, the metadata is saved as clear-text.
 
+=item B<del> I<account>
+
+Remove I<account> from the store.
+
 =item B<dump> I<account>
 
 Dump everything saved for I<account>, including the clear-text password, to
diff --git a/lib/App/Raps2.pm b/lib/App/Raps2.pm
index 50d7005..273abee 100644
--- a/lib/App/Raps2.pm
+++ b/lib/App/Raps2.pm
@@ -346,6 +346,24 @@ sub cmd_list {
 	}
 }
 
+=item $raps2->cmd_remove(I<$name>)
+
+Remove (unlink) the account I<name>.
+
+=cut
+
+sub cmd_remove {
+	my ($self, $name) = @_;
+	my $pwfile = $self->{xdg_data} . "/${name}";
+
+	if (-e $pwfile) {
+		unlink($pwfile);
+	}
+	else {
+		say STDERR 'File did not exist, so could not be removed';
+	}
+}
+
 =back
 
 =head1 DEPENDENCIES
-- 
cgit v1.2.3