From f866b272f8835c55a268096fb0e9588b7f06ffd3 Mon Sep 17 00:00:00 2001
From: "Difrex(Denis Zheleztsov)" <dz@etegro.com>
Date: Tue, 6 May 2014 16:04:18 +0400
Subject: [PATCH] Fix removing unencrypted file

---
 Database.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Database.pm b/Database.pm
index 7dcfeae..4136f2e 100644
--- a/Database.pm
+++ b/Database.pm
@@ -54,6 +54,9 @@ sub mdo {
             {
                 print "\n$name\t$resource\t$username\n";
             }
+            # Remove unencrypted file
+            my @rm_cmd = ( "rm", "-f", "$db_file" );
+            system(@rm_cmd) == 0 or die "Cannot remove unencrypted database! $!\n";
             exit 0;
         }