e-smith-email/sme8/e-smith-email-4.16.0-relay_ehlo.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-email-4.16.0/root/usr/local/sbin/smtp-auth-proxy.pl mezzanine_patched_e-smith-email-4.16.0/root/usr/local/sbin/smtp-auth-proxy.pl
--- e-smith-email-4.16.0/root/usr/local/sbin/smtp-auth-proxy.pl 2005-08-24 18:20:01.000000000 -0400
+++ mezzanine_patched_e-smith-email-4.16.0/root/usr/local/sbin/smtp-auth-proxy.pl       2006-05-02 14:17:33.000000000 -0400
@@ -79,6 +79,9 @@
         warn "No SMTP connection to ISP server\n";
         exit;
     }
+
+    my @ehlo = $smtp->message;
+
     if ($smtp->supports("AUTH"))
     {
         unless ($smtp->auth($name, $pass))
@@ -94,6 +97,13 @@
         warn "Upstream SMTP server does not support authentication\n";
     }
     print "220 ", $smtp->banner;
+
+    my $discard = <STDIN>; # Swallow EHLO
+    while (my $msg = shift @ehlo) {
+        my $sep = (@messages?"-":" ");
+        print "250$sep$msg";
+  }
+
     die "can't fork: $!" unless defined ($kidpid = fork());
     if ($kidpid)
     {
1	diff -Nur -x '.orig' -x '.rej' e-smith-email-4.16.0/root/usr/local/sbin/smtp-auth-proxy.pl mezzanine_patched_e-smith-email-4.16.0/root/usr/local/sbin/smtp-auth-proxy.pl
2	--- e-smith-email-4.16.0/root/usr/local/sbin/smtp-auth-proxy.pl 2005-08-24 18:20:01.000000000 -0400
3	+++ mezzanine_patched_e-smith-email-4.16.0/root/usr/local/sbin/smtp-auth-proxy.pl 2006-05-02 14:17:33.000000000 -0400
4	@@ -79,6 +79,9 @@
5	warn "No SMTP connection to ISP server\n";
6	exit;
7	}
8	+
9	+ my @ehlo = $smtp->message;
10	+
11	if ($smtp->supports("AUTH"))
12	{
13	unless ($smtp->auth($name, $pass))
14	@@ -94,6 +97,13 @@
15	warn "Upstream SMTP server does not support authentication\n";
16	}
17	print "220 ", $smtp->banner;
18	+
19	+ my $discard = <STDIN>; # Swallow EHLO
20	+ while (my $msg = shift @ehlo) {
21	+ my $sep = (@messages?"-":" ");
22	+ print "250$sep$msg";
23	+ }
24	+
25	die "can't fork: $!" unless defined ($kidpid = fork());
26	if ($kidpid)
27	{