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 (executable)
index 4d04279..0000000
--- 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";