don't do the fortune cookie if the client speaks ESMTP instead of just

plain old SMTP. git-svn-id: https://svn.perl.org/qpsmtpd/branches/v010@55 958fd67b-6ff1-0310-b445-bb7760255be9
smtpd · Sep 8, 2002 · 7f5aedf · 7f5aedf
1 parent 48e3d9d
commit 7f5aedf
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/plugins/quit_fortune b/plugins/quit_fortune
@@ -5,6 +5,11 @@ sub register {
 
 sub quit_handler {
   my $qp = shift->qp;
+
+  # if she talks EHLO she is probably too sophisticated to enjoy the
+  # fun, so skip it.
+  return (DECLINED) if ($qp->connection->hello || '') eq "ehlo";
+
   my @fortune = `/usr/games/fortune -s`;
   @fortune = map { chop; s/^/  \/ /; $_ } @fortune;
   $qp->respond(221, $qp->config('me') . " closing connection.", @fortune);