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;
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 print join(', ', @{ $col_names } )."\n" ;
40 my $answer = $sqlite->show_table($table_name);
41 print $answer."\n";
42 }
45 $db_name = "/var/lib/gosa-si/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";
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 }
62 $db_name = "/var/lib/gosa-si/servers.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";
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 }
79 $db_name = "/var/lib/gosa-si/bus-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 }
94 $db_name = "/var/lib/gosa-si/bus-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 }
109 print "\nFINISH\n";