1 |
slords |
1.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 |
|
|
{ |