#!/usr/bin/env perl 
#===============================================================================
#
#         FILE: db-passwd-read-table.pl
#
#        USAGE: ./db-passwd-read-table.pl  
#
#  DESCRIPTION: 
#
#      OPTIONS: ---
# REQUIREMENTS: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: Stefan Suhren (su), suhren.stefan@fh-swf.de
# ORGANIZATION: FH Südwestfalen, Iserlohn
#      VERSION: 1.0
#      CREATED: 06.01.2016 14:44:13
#     REVISION: ---
#===============================================================================

use strict;
use warnings;
use utf8;

# Add database modul
use DBI;

# Get database config
my %dbconf = do 'dbinc.pl';

my $dbhandle = DBI->connect("DBI:mysql:host=$dbconf{dbhost};database=$dbconf{dbdatabase}", $dbconf{dbuser}, $dbconf{dbpasswd}, {RaiseError=>1}) or die 'DB not accessible';

my $passwdArray = $dbhandle->selectall_arrayref("SELECT * FROM stsuh_passwort") or die $dbhandle->errstr;

printf ("%-4s | %-13s | %-8s | %-6s | %-6s | %-35s | %-25s | %-20s\n", "nr", "loginname", "password", "uid", "gid", "comment", "homedir", "commandinterpreter");
printf ('%1$s'x140 . "\n", "-");
foreach my $passwdRow (@$passwdArray)
{
	printf ("%4d | %-13s | %-8s | %6d | %6d | %-35s | %-25s | %-20s\n", @$passwdRow);
}

$dbhandle->disconnect;