trunk/gosa-si/tests/db-check-server.pl

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