From ab265f85673b2eaa1f9de108ad962dba602b71de Mon Sep 17 00:00:00 2001 From: Stefan Suhren Date: Fri, 8 Jan 2016 18:17:14 +0100 Subject: Make errors more descriptive --- Aufgabe7/db-passwd-read-table.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Aufgabe7/db-passwd-read-table.pl') diff --git a/Aufgabe7/db-passwd-read-table.pl b/Aufgabe7/db-passwd-read-table.pl index 8e06a80..e7290b8 100644 --- a/Aufgabe7/db-passwd-read-table.pl +++ b/Aufgabe7/db-passwd-read-table.pl @@ -28,9 +28,9 @@ 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}) or die 'DB not accessible'; +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"); +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", "-"); -- cgit v1.2.3-70-g09d2