keyfile generator
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 21 Aug 2006 05:04:55 +0000 (05:04 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 21 Aug 2006 05:04:55 +0000 (05:04 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@5625 dcc99617-32d9-48b4-a31d-7c20da2025e4

Evergreen/src/extras/import/create-batgirl-keyfile.pl [new file with mode: 0755]

diff --git a/Evergreen/src/extras/import/create-batgirl-keyfile.pl b/Evergreen/src/extras/import/create-batgirl-keyfile.pl
new file mode 100755 (executable)
index 0000000..abec3ab
--- /dev/null
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use strict;
+use DBI;
+
+my $dbh = DBI->connect('DBI:mysql:database=reports;host=batgirl.gsu.edu','miker','poopie');
+
+warn "going for the data...";
+
+my $sth = $dbh->prepare('select CAT_KEY,FLEX_KEY from CATALOG');
+$sth->execute;
+
+warn "got it, writing file...";
+
+while (my $data = $sth->fetchrow_arrayref) {
+       print join('|', @$data) . "\n";
+}
+