From: Jonathan McDowell <noodles@earth.li>
Date: Sun, 18 Sep 2005 10:41:51 +0000 (+0000)
Subject: Enable ADD support for email interface.
X-Git-Tag: 0.3.3~17
X-Git-Url: http://the.earth.li/gitweb/?p=onak.git;a=commitdiff_plain;h=4845f6a8b29e77c5d829f9aa49048fd4b2a87e41

Enable ADD support for email interface.
onak-mail.pl didn't support ADD; this is still in use by some people,
so has now been added. Thanks to Ian Jackson for reporting, I'd
forgotten it didn't support this yet.
---

diff --git a/onak-mail.pl.in b/onak-mail.pl.in
index 263b727..5c1ce53 100644
--- a/onak-mail.pl.in
+++ b/onak-mail.pl.in
@@ -88,7 +88,7 @@ sub processmail($$$$$) {
 	# HELP, ADD, INCREMENTAL, VERBOSE INDEX <keyid>, INDEX <keyid>,
 	# GET <keyid>, LAST <days>
 	
-	if ($subject =~ /^INCREMENTAL$/i) {
+	if ($subject =~ /^(INCREMENTAL|ADD)$/i) {
 		my $site;
 		my $count;
 		my $i;
@@ -110,6 +110,21 @@ sub processmail($$$$$) {
 			$time[2], $time[1], $time[0];
 		print LOG "] onak-mail[$$]: Syncing with $count sites.\n";
 		close LOG;
+
+		if ($subject =~ /ADD/i) {
+			open(MAIL, "|$config{mta}");
+			print MAIL "From: $config{adminemail}\n";
+			print MAIL "To: $replyto\n";
+			print MAIL "Subject: Reply to ADD\n";
+			print MAIL "Precedence: list\n";
+			print MAIL "MIME-Version: 1.0\n";
+			print MAIL "Content-Type: text/plain\n";
+			print MAIL "\n";
+			print MAIL "Thank you for your recent key submission.",
+				" It has been processed and synced\n",
+				"with ", $count, " other keyservers.\n";
+			close MAIL;
+		}
 	
 		if ((! defined($newupdate[0])) || $newupdate[0] eq '') {
 			open (LOG, ">>$config{'logfile'}");