From b5e66e1b48319f95dfd14f9050a3e20e76ce1f57 Mon Sep 17 00:00:00 2001
From: zacheiss <zacheiss>
Date: Thu, 8 Jun 2006 22:41:56 +0000
Subject: [PATCH] Include KERBEROS members of lists that are in the ATHENA
 realm.

---
 gen/events.gen | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gen/events.gen b/gen/events.gen
index 34dc4427..ab883122 100755
--- a/gen/events.gen
+++ b/gen/events.gen
@@ -44,6 +44,27 @@ while (($name) = $sth->fetchrow_array) {
 	$maybecomma = ",";
     }
 
+    $sth3 = $dbh->prepare("SELECT UNIQUE s.string FROM strings s, " .
+			  "imembers i, list l WHERE l.name = " . 
+			  $dbh->quote($name) .
+			  "AND l.list_id = i.list_id " .
+			  "AND i.member_type = 'KERBEROS' " .
+			  "AND i.member_id = s.string_id") || exit $MR_DBMS_ERR;
+    $sth3->execute || exit $MR_DBMS_ERR;
+
+    while (($member) = $sth3->fetchrow_array) {
+	# If principal is @ATHENA.MIT.EDU, strip realm, otherwise skip.
+	if ($member =~ /\@ATHENA.MIT.EDU/) {
+	    $member =~ s/\@ATHENA.MIT.EDU//;
+	} else {
+	    next;
+	}
+	$row = "$maybecomma$member";
+	$row =~ s/\0//g;
+	print OUT $row;
+	$maybecomma = ",";
+    }
+
     $row = "\n";
     $row =~ s/\0//g;
     print OUT $row;
-- 
2.45.2