Updated error handler

[gosa.git] / gosa-si / tests / db-check-fai-server.pl

diff --git a/gosa-si/tests/db-check-fai-server.pl b/gosa-si/tests/db-check-fai-server.pl
index 1d237e8245b1bb2c2e31f1dd60b1631b6daf9bd2..1d6add484d156f39f60a0c86384e0bb913a47d41 100755 (executable)
--- a/gosa-si/tests/db-check-fai-server.pl
+++ b/gosa-si/tests/db-check-fai-server.pl
@@ -20,25 +20,22 @@
 
 use strict;
 use warnings;
-use GOSA::DBsqlite;
+use GOSA::DBmysql;
 use Data::Dumper;
 
 print "START\n";
-my $res;
-my $db_name;
-
-$db_name = "/var/lib/gosa-si/fai_server.db";
-if (-e $db_name) {
-    print "\n############################################################\n";
-    my $table_name = "fai_server";
-    print "$db_name\n";
-    print "$table_name\n";
-
-    my $sqlite = GOSA::DBsqlite->new($db_name);
-    my $col_names = $sqlite->get_table_columns($table_name);
-    print join(', ', @{ $col_names } )."\n" ;
-    my $answer = $sqlite->show_table($table_name);
-    print $answer."\n";
-}
+my $table_name = "fai_server";
+
+print "\n############################################################\n";
+print "$table_name\n";
+
+my $dbh = GOSA::DBmysql->new('gosa_si', '127.0.0.1', 'gosa_si', 'gosa');
+
+my $col_names = $dbh->get_table_columns($table_name);
+print join(', ', @{ $col_names } )."\n" ;
+
+my $answer = $dbh->show_table($table_name);
+print $answer."\n";
+
 
 print "\nFINISH\n";