REGISTERED_FLAG is now REGISTERED with correct integer

[gosa.git] / gosa-si / tests / sqlite-check.pl

diff --git a/gosa-si/tests/sqlite-check.pl b/gosa-si/tests/sqlite-check.pl
index 63f2ac6d8e3192f82755e2a7bf9365eb66876e86..a6b1bd953a606812a209169d3c4c4ee711593b1b 100755 (executable)
--- a/gosa-si/tests/sqlite-check.pl
+++ b/gosa-si/tests/sqlite-check.pl
@@ -27,11 +27,11 @@ print "START\n";
 my $res;
 my $db_name;
 
-$db_name = "/var/lib/gosa-si/jobs.db";
+    
+$db_name = "/var/lib/gosa-si/gosa-si-server_jobs.db";
 if (-e $db_name) {
     print "\n############################################################\n";
-    $db_name =~ /\/([^\/]*?)\.db$/;
-    my $table_name = $1;
+    my $table_name = "jobs";
     print "$db_name\n";
     print "$table_name\n";
     my $sqlite = GOSA::DBsqlite->new($db_name);
@@ -42,12 +42,12 @@ if (-e $db_name) {
 }
 
 
-$db_name = "/var/lib/gosa-si/known_clients.db";
+$db_name = "/var/lib/gosa-si/gosa-si-server_known_clients.db";
 if (-e $db_name) {
     print "\n############################################################\n";
-    $db_name =~ /\/([^\/]*?)\.db$/;
-    my $table_name = $1;
-
+#    $db_name =~ /\/([^\/]*?)\.db$/;
+#    my $table_name = $1;
+    my $table_name = "known_clients";
     print "$db_name\n";
     print "$table_name\n";
 
@@ -59,12 +59,12 @@ if (-e $db_name) {
 }
 
 
-$db_name = "/var/lib/gosa-si/known_server.db";
+$db_name = "/var/lib/gosa-si/gosa-si-server_known_server.db";
 if (-e $db_name) {
     print "\n############################################################\n";
-    $db_name =~ /\/([^\/]*?)\.db$/;
-    my $table_name = $1;
-
+#    $db_name =~ /\/([^\/]*?)\.db$/;
+#    my $table_name = $1;
+    my $table_name = "known_server";
     print "$db_name\n";
     print "$table_name\n";
 
@@ -76,11 +76,12 @@ if (-e $db_name) {
 }
 
 
-$db_name = "/var/lib/gosa-si/bus_known_server.db";
+$db_name = "/var/lib/gosa-si/gosa-si-bus_known_server.db";
 if (-e $db_name) {
     print "\n############################################################\n";
-    $db_name =~ /\/([^\/]*?)\.db$/;
-    my $table_name = $1;
+#    $db_name =~ /\/([^\/]*?)\.db$/;
+#    my $table_name = $1;
+    my $table_name = "bus_known_server";
     print "$db_name\n";
     print "$table_name\n";
     my $sqlite = GOSA::DBsqlite->new($db_name);
@@ -90,6 +91,19 @@ if (-e $db_name) {
     print $answer."\n";
 }
 
-
+$db_name = "/var/lib/gosa-si/gosa-si-bus_known_clients.db";
+if (-e $db_name) {
+    print "\n############################################################\n";
+#    $db_name =~ /\/([^\/]*?)\.db$/;
+#    my $table_name = $1;
+    my $table_name = "bus_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";
+}
 
 print "\nFINISH\n";