email grabber
[Evergreen.git] / Evergreen / src / extras / import / drain-batgirl-email.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use DBI;
5
6 my $dbh = DBI->connect('DBI:mysql:database=reports;host=batgirl.gsu.edu','miker','poopie');
7
8 print <<SQL;
9
10 DROP TABLE legacy_bill;
11 CREATE TABLE legacy_email (user_key int, email text);
12 COPY legacy_email (user_key, email) FROM STDIN;
13 SQL
14
15 warn "going for the data...";
16
17 my $sth = $dbh->prepare('select USER_KEY, EMAIL from USER');
18 $sth->execute;
19
20 warn "got it, writing file...";
21
22 while (my $cn = $sth->fetchrow_hashref) {
23         my @data = map { $$cn{uc($_)} } qw/user_key email/;
24         print join("\t", @data) . "\n";
25 }
26
27 print "\\.\n";
28
29