[1981] in Moira Commits
/svn/moira r4120 - trunk/moira/gen
daemon@ATHENA.MIT.EDU (Garry Zacheiss)
Mon Jul 1 13:38:13 2013
Date: Mon, 1 Jul 2013 13:38:06 -0400
From: Garry Zacheiss <zacheiss@MIT.EDU>
Message-Id: <201307011738.r61Hc6Dh016637@drugstore.mit.edu>
To: moira-commits@MIT.EDU
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Author: zacheiss
Date: 2013-07-01 13:38:05 -0400 (Mon, 01 Jul 2013)
New Revision: 4120
Modified:
trunk/moira/gen/warehouse.gen
Log:
Include account creation time.
Modified: trunk/moira/gen/warehouse.gen
===================================================================
--- trunk/moira/gen/warehouse.gen 2013-06-19 12:09:50 UTC (rev 4119)
+++ trunk/moira/gen/warehouse.gen 2013-07-01 17:38:05 UTC (rev 4120)
@@ -11,7 +11,7 @@
$dbh = DBI->connect("dbi:Oracle:moira", "moira", "moira") || exit $MR_DBMS_ERR;
-$sth = $dbh->prepare("SELECT login, clearid, first, last, middle " .
+$sth = $dbh->prepare("SELECT login, clearid, first, last, middle, TO_CHAR(created, 'YYYYMMDD') " .
"FROM users WHERE (status = 1 OR status = 2 OR " .
"status = 5 OR status = 6 OR status = 7 OR status = 9 OR status = 10 " .
"OR status = 11 OR status = 12)");
@@ -21,10 +21,10 @@
umask 022;
open(OUT, ">$outfile") || exit $MR_OCONFIG;
-while (($login, $clearid, $first, $last, $middle) = $sth->fetchrow_array) {
+while (($login, $clearid, $first, $last, $middle, $created) = $sth->fetchrow_array) {
next if (length($clearid) < 2);
next if ($clearid eq "0" || $clearid eq "\0" || $clearid =~ /^.\D/);
- $row = "$login\t$clearid\t$first\t$last\t$middle\n";
+ $row = "$login\t$clearid\t$first\t$last\t$middle\t$created\n";
$row =~ s/\0//g;
print OUT $row;
}
