From f6432cfa194ed5cb47ec0909642feb7ae73caff2 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 21 Aug 2006 05:04:55 +0000
Subject: [PATCH] keyfile generator

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5625 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../extras/import/create-batgirl-keyfile.pl    | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 Evergreen/src/extras/import/create-batgirl-keyfile.pl

diff --git a/Evergreen/src/extras/import/create-batgirl-keyfile.pl b/Evergreen/src/extras/import/create-batgirl-keyfile.pl
new file mode 100755
index 0000000000..abec3aba34
--- /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";
+}
+
-- 
2.43.2