From: rettenbe Date: Thu, 17 Apr 2008 14:00:43 +0000 (+0000) Subject: delete sqlite-check-fai.pl X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=91792042de86f9259fcff7e8cc36d470ff3380fe;p=gosa.git delete sqlite-check-fai.pl git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@10544 594d385d-05f5-0310-b6e9-bd551577e9d8 --- diff --git a/gosa-si/tests/sqlite-check-fai.pl b/gosa-si/tests/sqlite-check-fai.pl deleted file mode 100755 index 4d04279de..000000000 --- a/gosa-si/tests/sqlite-check-fai.pl +++ /dev/null @@ -1,58 +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; -use Data::Dumper; - -print "START\n"; -my $res; -my $db_name; - -$db_name = "/var/lib/gosa-si/fai.db"; -if (-e $db_name) { - print "\n############################################################\n"; - my $table_name = "fai_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/fai.db"; -if (-e $db_name) { - print "\n############################################################\n"; - my $table_name = "fai_release"; - 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";