6 my $dbh = DBI->connect('DBI:mysql:database=reports;host=batgirl.gsu.edu','miker','poopie');
10 DROP TABLE legacy_bill;
11 CREATE TABLE legacy_bill (bill_amount int, balance int, bill_date date, cat_key int, call_key int, item_key int, user_key int, paid bool, reason text, library text, bill_key1 int, bill_key2 int);
12 COPY legacy_bill (bill_amount, balance, bill_date, cat_key, call_key, item_key, user_key, paid, reason, library, bill_key1, bill_key2) FROM STDIN;
15 warn "going for the data...";
17 my $sth = $dbh->prepare('select * from BILL');
20 warn "got it, writing file...";
22 while (my $cn = $sth->fetchrow_hashref) {
23 my @data = map { $$cn{uc($_)} } qw/bill_amount balance bill_date cat_key call_key item_key user_key paid reason library bill_key1 bill_key2/;
32 print join("\t", @data) . "\n";
36 print "CREATE INDEX lb_bk1_idx ON legacy_bill (bill_key1);\n";
37 print "CREATE INDEX lb_usr_idx ON legacy_bill (user_key);\n";