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::DBmysql;
24 use Data::Dumper;
26 print "START\n";
27 my $table_name = "known_server";
29 print "\n############################################################\n";
30 print "$table_name\n";
32 my $dbh = GOSA::DBmysql->new('gosa_si', '127.0.0.1', 'gosa_si', 'gosa');
34 my $col_names = $dbh->get_table_columns($table_name);
35 print join(', ', @{ $col_names } )."\n" ;
37 my $answer = $dbh->show_table($table_name);
38 print $answer."\n";
41 print "\nFINISH\n";