diff options
author | Oliver Tappe | 2006-09-29 14:47:57 +0200 |
---|---|---|
committer | Oliver Tappe | 2006-09-29 14:47:57 +0200 |
commit | 5905cecfeb84eb991f6934cfdae0654eb324b263 (patch) | |
tree | f1d5ecfe0b7ab2916b1cdc52ef089c653d20223f /config-db | |
parent | * moved confirmatory question to setup-test-data script, as that's where it is (diff) | |
download | core-5905cecfeb84eb991f6934cfdae0654eb324b263.tar.gz core-5905cecfeb84eb991f6934cfdae0654eb324b263.tar.xz core-5905cecfeb84eb991f6934cfdae0654eb324b263.zip |
* removed superfluous script
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@400 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db')
-rwxr-xr-x | config-db/anydata-test.pl | 27 |
1 files changed, 0 insertions, 27 deletions
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 |