From 59f4f534d7e820a24b1ff517110a375793852c01 Mon Sep 17 00:00:00 2001 From: rettenbe Date: Wed, 9 Jul 2008 15:05:19 +0000 Subject: [PATCH] test script for bus.db, not needed any longer git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@11584 594d385d-05f5-0310-b6e9-bd551577e9d8 --- gosa-si/tests/sqlite-check-bus.pl | 62 ------------------------------- 1 file changed, 62 deletions(-) delete mode 100755 gosa-si/tests/sqlite-check-bus.pl diff --git a/gosa-si/tests/sqlite-check-bus.pl b/gosa-si/tests/sqlite-check-bus.pl deleted file mode 100755 index 19030d4fe..000000000 --- a/gosa-si/tests/sqlite-check-bus.pl +++ /dev/null @@ -1,62 +0,0 @@ -#!/usr/bin/perl -#=============================================================================== -# -# FILE: DBD-SQlite.pl -# -# USAGE: ./DBD-SQlite.pl -# -# DESCRIPTION: -# -# OPTIONS: --- -# REQUIREMENTS: --- -# BUGS: --- -# NOTES: --- -# AUTHOR: (), <> -# COMPANY: -# VERSION: 1.0 -# CREATED: 20.12.2007 08:54:52 CET -# REVISION: --- -#=============================================================================== - -use strict; -use warnings; -use GOSA::DBsqlite; - - -print "START\n"; -my $res; -my $db_name; - - - -$db_name = "/var/lib/gosa-si/gosa-si-bus_known_server.db"; -if (-e $db_name) { - print "\n############################################################\n"; -# $db_name =~ /\/([^\/]*?)\.db$/; -# my $table_name = $1; - my $table_name = "bus_known_server"; - print "$db_name\n"; - print "$table_name\n"; - my $sqlite = GOSA::DBsqlite->new($db_name); - my $col_names = $sqlite->get_table_columns($table_name); - print join(', ', @{ $col_names } )."\n" ; - my $answer = $sqlite->show_table($table_name); - print $answer."\n"; -} - -$db_name = "/var/lib/gosa-si/gosa-si-bus_known_clients.db"; -if (-e $db_name) { - print "\n############################################################\n"; -# $db_name =~ /\/([^\/]*?)\.db$/; -# my $table_name = $1; - my $table_name = "bus_known_clients"; - print "$db_name\n"; - print "$table_name\n"; - my $sqlite = GOSA::DBsqlite->new($db_name); - my $col_names = $sqlite->get_table_columns($table_name); - print join(', ', @{ $col_names } )."\n" ; - my $answer = $sqlite->show_table($table_name); - print $answer."\n"; -} - -print "\nFINISH\n"; -- 2.30.2