gosa-si/tests/sqlite-check-packages-list.pl

   1 #!/usr/bin/perl
   2 #===============================================================================
   3 #
   4 #         FILE:  sqlite_check_packages_list.pl
   5 #
   6 #        USAGE:  ./sqlite_check_packages_list.pl
   7 #
   8 #  DESCRIPTION:
   9 #
  10 #      OPTIONS:  ---
  11 # REQUIREMENTS:  ---
  12 #         BUGS:  ---
  13 #        NOTES:  ---
  14 #       AUTHOR:   (), <>
  15 #      COMPANY:
  16 #      VERSION:  1.0
  17 #      CREATED:  28.02.2008 11:09:15 CET
  18 #     REVISION:  ---
  19 #===============================================================================
  20
  21 use strict;
  22 use warnings;
  23 use GOSA::DBsqlite;
  24 use Data::Dumper;
  25
  26 sub daemon_log {}
  27 print "START\n";
  28 my $res;
  29 my $db_name;
  30
  31
  32 $db_name = "/var/lib/gosa-si/packages.db";
  33 if (-e $db_name) {
  34     print "\n############################################################\n";
  35     my $table_name = "packages_list";
  36     print "$db_name\n";
  37     print "$table_name\n";
  38
  39     my $sqlite = GOSA::DBsqlite->new($db_name);
  40     my $col_names = $sqlite->get_table_columns($table_name);
  41     print join(', ', @{ $col_names } )."\n" ;
  42     my $answer = $sqlite->show_table($table_name);
  43     print $answer."\n";
  44 }
  45
  46
  47 print "\nFINISH\n";