Difrex/PM
Difrex/PM
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Comment option

Browse Source
This commit is contained in:
Difrex(Denis Zheleztsov) 2014-05-07 15:30:18 +04:00
parent f866b272f8
commit 17cdb89cfa
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Database.pm
View File

@ -48,11 +48,15 @@ sub mdo {
my $sth = $dbh->prepare($q); my $sth = $dbh->prepare($q);
my $rv = $sth->execute(); my $rv = $sth->execute();
print "\nNAME\tRESOURCE\tUSERNAME\n";
printf "%-11s %-11s %-11s\n", "NAME", "RESOURCE", "USERNAME";
while ( my ( $name, $resource, $username ) while ( my ( $name, $resource, $username )
= $sth->fetchrow_array() ) = $sth->fetchrow_array() )
{ {
print "\n$name\t$resource\t$username\n"; printf "%-11s %-11s %-11s\n",
$name, $resource, "\t$username";
} }
# Remove unencrypted file # Remove unencrypted file
my @rm_cmd = ( "rm", "-f", "$db_file" ); my @rm_cmd = ( "rm", "-f", "$db_file" );