X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=gosa-si%2Ftests%2Fsqlite-check-server.pl;h=6ef37571c73a5f74b7927d487a09fb1798e3dfe7;hb=c7c87bf20a909ed7ff997aa879cd9146e74316af;hp=333d930509d8c069fc433c3d8c4dfde7bea82628;hpb=a0ce96003039d0b59d200c07108156f9f7ff8ade;p=gosa.git diff --git a/gosa-si/tests/sqlite-check-server.pl b/gosa-si/tests/sqlite-check-server.pl index 333d93050..6ef37571c 100755 --- a/gosa-si/tests/sqlite-check-server.pl +++ b/gosa-si/tests/sqlite-check-server.pl @@ -23,41 +23,12 @@ use warnings; use GOSA::DBsqlite; use Data::Dumper; +sub daemon_log {} print "START\n"; my $res; my $db_name; -$db_name = "/var/lib/gosa-si/jobs.db"; -if (-e $db_name) { - print "\n############################################################\n"; - my $table_name = "jobs"; - 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"; -} - - -$db_name = "/var/lib/gosa-si/clients.db"; -if (-e $db_name) { - print "\n############################################################\n"; - my $table_name = "known_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"; -} - - $db_name = "/var/lib/gosa-si/servers.db"; if (-e $db_name) { print "\n############################################################\n"; @@ -72,21 +43,4 @@ if (-e $db_name) { print $answer."\n"; } - -$db_name = "/var/lib/gosa-si/users.db"; -if (-e $db_name) { - print "\n############################################################\n"; - my $table_name = "login_users"; - 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"; -} - - - print "\nFINISH\n";