gosa-si/tests/sqlite-check-server.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 use Data::Dumper;
  25
  26 print "START\n";
  27 my $res;
  28 my $db_name;
  29
  30
  31 $db_name = "/var/lib/gosa-si/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
  40     print join(', ', @{ $col_names } )."\n" ;
  41     my $answer = $sqlite->show_table($table_name);
  42     print $answer."\n";
  43 }
  44
  45
  46 $db_name = "/var/lib/gosa-si/clients.db";
  47 if (-e $db_name) {
  48     print "\n############################################################\n";
  49     my $table_name = "known_clients";
  50     print "$db_name\n";
  51     print "$table_name\n";
  52
  53     my $sqlite = GOSA::DBsqlite->new($db_name);
  54     my $col_names = $sqlite->get_table_columns($table_name);
  55     print join(', ', @{ $col_names } )."\n" ;
  56     my $answer = $sqlite->show_table($table_name);
  57     print $answer."\n";
  58 }
  59
  60
  61 $db_name = "/var/lib/gosa-si/servers.db";
  62 if (-e $db_name) {
  63     print "\n############################################################\n";
  64     my $table_name = "known_server";
  65     print "$db_name\n";
  66     print "$table_name\n";
  67
  68     my $sqlite = GOSA::DBsqlite->new($db_name);
  69     my $col_names = $sqlite->get_table_columns($table_name);
  70     print join(', ', @{ $col_names } )."\n" ;
  71     my $answer = $sqlite->show_table($table_name);
  72     print $answer."\n";
  73 }
  74
  75
  76 $db_name = "/var/lib/gosa-si/users.db";
  77 if (-e $db_name) {
  78     print "\n############################################################\n";
  79     my $table_name = "login_users";
  80     print "$db_name\n";
  81     print "$table_name\n";
  82
  83     my $sqlite = GOSA::DBsqlite->new($db_name);
  84     my $col_names = $sqlite->get_table_columns($table_name);
  85     print join(', ', @{ $col_names } )."\n" ;
  86     my $answer = $sqlite->show_table($table_name);
  87     print $answer."\n";
  88 }
  89
  90
  91
  92 print "\nFINISH\n";