keyfile generator

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5625 dcc99617-32d9-48b4-a31d-7c20da2025e4

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
+++ b/Evergreen/src/extras/import/create-batgirl-keyfile.pl
@@ -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";
+}
+