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 #===============================================================================
21 use strict;
22 use warnings;
23 use GOSA::DBsqlite;
26 print "START\n";
27 my $res;
28 my $db_name;
32 $db_name = "/var/lib/gosa-si/gosa-si-bus_known_server.db";
33 if (-e $db_name) {
34 print "\n############################################################\n";
35 # $db_name =~ /\/([^\/]*?)\.db$/;
36 # my $table_name = $1;
37 my $table_name = "bus_known_server";
38 print "$db_name\n";
39 print "$table_name\n";
40 my $sqlite = GOSA::DBsqlite->new($db_name);
41 my $col_names = $sqlite->get_table_columns($table_name);
42 print join(', ', @{ $col_names } )."\n" ;
43 my $answer = $sqlite->show_table($table_name);
44 print $answer."\n";
45 }
47 $db_name = "/var/lib/gosa-si/gosa-si-bus_known_clients.db";
48 if (-e $db_name) {
49 print "\n############################################################\n";
50 # $db_name =~ /\/([^\/]*?)\.db$/;
51 # my $table_name = $1;
52 my $table_name = "bus_known_clients";
53 print "$db_name\n";
54 print "$table_name\n";
55 my $sqlite = GOSA::DBsqlite->new($db_name);
56 my $col_names = $sqlite->get_table_columns($table_name);
57 print join(', ', @{ $col_names } )."\n" ;
58 my $answer = $sqlite->show_table($table_name);
59 print $answer."\n";
60 }
62 print "\nFINISH\n";