From a3fe82d9e3ef1ecd6367fae65138dd6df6612297 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sun, 3 Sep 2006 03:22:31 +0000
Subject: [PATCH 1/1] email grabber

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

diff --git a/Evergreen/src/extras/import/drain-batgirl-email.pl b/Evergreen/src/extras/import/drain-batgirl-email.pl
new file mode 100755
index 0000000000..f83375b8f4
--- /dev/null
+++ b/Evergreen/src/extras/import/drain-batgirl-email.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+
+use strict;
+use DBI;
+
+my $dbh = DBI->connect('DBI:mysql:database=reports;host=batgirl.gsu.edu','miker','poopie');
+
+print <<SQL;
+
+DROP TABLE legacy_bill;
+CREATE TABLE legacy_email (user_key int, email text);
+COPY legacy_email (user_key, email) FROM STDIN;
+SQL
+
+warn "going for the data...";
+
+my $sth = $dbh->prepare('select USER_KEY, EMAIL from USER');
+$sth->execute;
+
+warn "got it, writing file...";
+
+while (my $cn = $sth->fetchrow_hashref) {
+	my @data = map { $$cn{uc($_)} } qw/user_key email/;
+	print join("\t", @data) . "\n";
+}
+
+print "\\.\n";
+
+
-- 
2.43.2