1 |
diff -up e-smith-email-5.2.0/root/usr/local/sbin/smtp-auth-proxy.pl.HeloHost e-smith-email-5.2.0/root/usr/local/sbin/smtp-auth-proxy.pl |
2 |
--- e-smith-email-5.2.0/root/usr/local/sbin/smtp-auth-proxy.pl.HeloHost 2008-03-11 18:03:25.000000000 +0100 |
3 |
+++ e-smith-email-5.2.0/root/usr/local/sbin/smtp-auth-proxy.pl 2009-12-21 21:57:02.000000000 +0100 |
4 |
@@ -29,6 +29,8 @@ sub options { |
5 |
$prop->{SystemName} = $config->get_value('SystemName'); |
6 |
$prop->{DomainName} = $config->get_value('DomainName'); |
7 |
$prop->{PeerPort} = $smtp_proxy_rec->prop('PeerPort') || 25; |
8 |
+ $prop->{Helo} = $config->get('smtpd')->prop('HeloHost') || |
9 |
+ "$prop->{SystemName}.$prop->{DomainName}"; |
10 |
} |
11 |
|
12 |
esmith::SMTPAuthProxy->run( |
13 |
@@ -52,6 +54,7 @@ sub process_request |
14 |
my $user = $self->get_property('user'); |
15 |
my $domain_name = $self->get_property('DomainName'); |
16 |
my $system_name = $self->get_property('SystemName'); |
17 |
+ my $helo = $self->get_property('Helo'); |
18 |
my $name = $self->get_property('Userid'); |
19 |
my $pass = $self->get_property('Passwd'); |
20 |
my $debug = (($self->get_property('Debug') || 'disabled') eq 'enabled') |
21 |
@@ -74,7 +77,7 @@ sub process_request |
22 |
|
23 |
my $class = ($port == 465) ? 'Net::SMTP::SSL' : 'Net::SMTP'; |
24 |
my $smtp = $class->new($smarthost, |
25 |
- Hello => "${system_name}.${domain_name}", |
26 |
+ Hello => Hello => $helo, |
27 |
Debug => $debug, |
28 |
Port => $port, |
29 |
); |