index e3ebba80e282b745a4c079d7d3f7473351565f56..95c420c9ea5a68948bb4a5f9b9d3db62782237ad 100755 (executable)
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/foreign_clients.db";
-if (-e $db_name) {
- print "\n############################################################\n";
- my $table_name = "foreign_clients";
- 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 = "foreign_clients";
+
+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";