gosa-si/tests/sqlite-check.pl

   1 #!/usr/bin/perl
   2 #===============================================================================
   3 #
   4 #         FILE:  DBD-SQlite.pl
   5 #
   6 #        USAGE:  ./DBD-SQlite.pl
   7 #
   8 #  DESCRIPTION:
   9 #
  10 #      OPTIONS:  ---
  11 # REQUIREMENTS:  ---
  12 #         BUGS:  ---
  13 #        NOTES:  ---
  14 #       AUTHOR:   (), <>
  15 #      COMPANY:
  16 #      VERSION:  1.0
  17 #      CREATED:  20.12.2007 08:54:52 CET
  18 #     REVISION:  ---
  19 #===============================================================================
  20
  21 use strict;
  22 use warnings;
  23 use GOSA::DBsqlite;
  24
  25
  26 print "START\n";
  27 my $res;
  28 my $db_name;
  29
  30
  31 $db_name = "/var/lib/gosa-si/gosa-si-server_jobs.db";
  32 if (-e $db_name) {
  33     print "\n############################################################\n";
  34     my $table_name = "jobs";
  35     print "$db_name\n";
  36     print "$table_name\n";
  37     my $sqlite = GOSA::DBsqlite->new($db_name);
  38     my $col_names = $sqlite->get_table_columns($table_name);
  39     print join(', ', @{ $col_names } )."\n" ;
  40     my $answer = $sqlite->show_table($table_name);
  41     print $answer."\n";
  42 }
  43
  44
  45 $db_name = "/var/lib/gosa-si/gosa-si-server_known_clients.db";
  46 if (-e $db_name) {
  47     print "\n############################################################\n";
  48 #    $db_name =~ /\/([^\/]*?)\.db$/;
  49 #    my $table_name = $1;
  50     my $table_name = "known_clients";
  51     print "$db_name\n";
  52     print "$table_name\n";
  53
  54     my $sqlite = GOSA::DBsqlite->new($db_name);
  55     my $col_names = $sqlite->get_table_columns($table_name);
  56     print join(', ', @{ $col_names } )."\n" ;
  57     my $answer = $sqlite->show_table($table_name);
  58     print $answer."\n";
  59 }
  60
  61
  62 $db_name = "/var/lib/gosa-si/gosa-si-server_known_server.db";
  63 if (-e $db_name) {
  64     print "\n############################################################\n";
  65 #    $db_name =~ /\/([^\/]*?)\.db$/;
  66 #    my $table_name = $1;
  67     my $table_name = "known_server";
  68     print "$db_name\n";
  69     print "$table_name\n";
  70
  71     my $sqlite = GOSA::DBsqlite->new($db_name);
  72     my $col_names = $sqlite->get_table_columns($table_name);
  73     print join(', ', @{ $col_names } )."\n" ;
  74     my $answer = $sqlite->show_table($table_name);
  75     print $answer."\n";
  76 }
  77
  78
  79 $db_name = "/var/lib/gosa-si/gosa-si-bus_known_server.db";
  80 if (-e $db_name) {
  81     print "\n############################################################\n";
  82 #    $db_name =~ /\/([^\/]*?)\.db$/;
  83 #    my $table_name = $1;
  84     my $table_name = "bus_known_server";
  85     print "$db_name\n";
  86     print "$table_name\n";
  87     my $sqlite = GOSA::DBsqlite->new($db_name);
  88     my $col_names = $sqlite->get_table_columns($table_name);
  89     print join(', ', @{ $col_names } )."\n" ;
  90     my $answer = $sqlite->show_table($table_name);
  91     print $answer."\n";
  92 }
  93
  94 $db_name = "/var/lib/gosa-si/gosa-si-bus_known_clients.db";
  95 if (-e $db_name) {
  96     print "\n############################################################\n";
  97 #    $db_name =~ /\/([^\/]*?)\.db$/;
  98 #    my $table_name = $1;
  99     my $table_name = "bus_known_clients";
 100     print "$db_name\n";
 101     print "$table_name\n";
 102     my $sqlite = GOSA::DBsqlite->new($db_name);
 103     my $col_names = $sqlite->get_table_columns($table_name);
 104     print join(', ', @{ $col_names } )."\n" ;
 105     my $answer = $sqlite->show_table($table_name);
 106     print $answer."\n";
 107 }
 108
 109 print "\nFINISH\n";