From 17cdb89cfa19006079554f41bc8c13bd5897b3d7 Mon Sep 17 00:00:00 2001
From: "Difrex(Denis Zheleztsov)" <dz@etegro.com>
Date: Wed, 7 May 2014 15:30:18 +0400
Subject: [PATCH] Comment option

---
 Database.pm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/Database.pm b/Database.pm
index 4136f2e..b435c63 100644
--- a/Database.pm
+++ b/Database.pm
@@ -48,11 +48,15 @@ sub mdo {
 
             my $sth = $dbh->prepare($q);
             my $rv  = $sth->execute();
-            print "\nNAME\tRESOURCE\tUSERNAME\n";
+
+
+
+            printf "%-11s %-11s %-11s\n", "NAME", "RESOURCE", "USERNAME";
             while ( my ( $name, $resource, $username )
                 = $sth->fetchrow_array() )
             {
-                print "\n$name\t$resource\t$username\n";
+                printf "%-11s %-11s %-11s\n",
+                $name, $resource, "\t$username";
             }
             # Remove unencrypted file
             my @rm_cmd = ( "rm", "-f", "$db_file" );