From 4845f6a8b29e77c5d829f9aa49048fd4b2a87e41 Mon Sep 17 00:00:00 2001 From: Jonathan McDowell Date: Sun, 18 Sep 2005 10:41:51 +0000 Subject: [PATCH] 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. --- onak-mail.pl.in | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) 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 , INDEX , # GET , LAST - 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'}"); -- 2.39.2