From 5905cecfeb84eb991f6934cfdae0654eb324b263 Mon Sep 17 00:00:00 2001 From: Oliver Tappe Date: Fri, 29 Sep 2006 12:47:57 +0000 Subject: * removed superfluous script git-svn-id: http://svn.openslx.org/svn/openslx/trunk@400 95ad53e4-c205-0410-b2fa-d234c58c8868 --- config-db/anydata-test.pl | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100755 config-db/anydata-test.pl diff --git a/config-db/anydata-test.pl b/config-db/anydata-test.pl deleted file mode 100755 index c8fe19a9..00000000 --- a/config-db/anydata-test.pl +++ /dev/null @@ -1,27 +0,0 @@ -#! /usr/bin/perl - -use DBI; - -my $dbh = DBI->connect("dbi:AnyData(PrintError => 0):") - or die "no connect"; - -mkdir "datafiles-test"; - -my $dbPath = '/home/zooey/Sources/odlx/config-db/datafiles-sqlite'; - - my $dbh = DBI->connect('dbi:AnyData:(RaiseError=>1)'); - $dbh->func( - 'test', - 'DBI', - DBI->connect("dbi:SQLite:dbname=$dbPath/odlx", undef, undef), - {sql=>"SELECT * FROM meta"}, - 'ad_import'); - -$dbh->func( 'test', 'CSV', 'xxx', - { col_map => [ 'schema_version', 'next_system_id', 'next_client_id' ], - 'pretty_print' => 'indented' }, - 'ad_export'); - -#print $dbh->func( 'test', 'XML', 'ad_export'); - -$dbh->disconnect; \ No newline at end of file -- cgit v1.2.3-55-g7522