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;
24 use Data::Dumper;
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);
40 print join(', ', @{ $col_names } )."\n" ;
41 my $answer = $sqlite->show_table($table_name);
42 print $answer."\n";
43 }
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";
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 }
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";
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 }
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";
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 }
90 $db_name = "/var/lib/gosa-si/fai.db";
91 if (-e $db_name) {
92 print "\n############################################################\n";
93 my $table_name = "fai_server";
94 print "$db_name\n";
95 print "$table_name\n";
97 my $sqlite = GOSA::DBsqlite->new($db_name);
98 my $col_names = $sqlite->get_table_columns($table_name);
99 print join(', ', @{ $col_names } )."\n" ;
100 my $answer = $sqlite->show_table($table_name);
101 print $answer."\n";
102 }
105 print "\nFINISH\n";