projects
/
mgsmtp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bind to user-specified address (BindAddress)
[mgsmtp.git]
/
Relay.pas
diff --git
a/Relay.pas
b/Relay.pas
index cf3876027bef390a883e18f7771258ceced65416..3df2b330ca14ec3d79d61d5200980f7f74597ded 100644
(file)
--- a/
Relay.pas
+++ b/
Relay.pas
@@
-1,6
+1,6
@@
{
MegaBrutal's SMTP Server (MgSMTP)
{
MegaBrutal's SMTP Server (MgSMTP)
- Copyright (C) 2010-201
5
MegaBrutal
+ Copyright (C) 2010-201
8
MegaBrutal
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as published by
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as published by
@@
-331,7
+331,9
@@
var MXList: TStrings; i: integer;
begin
MXList:= GetCorrectMXRecordList(RelayServerName);
if MXList.Count >= 1 then begin
begin
MXList:= GetCorrectMXRecordList(RelayServerName);
if MXList.Count >= 1 then begin
- TCP:= TTCPRFCConnection.Create(MXList.Strings[0], RelayServerPort);
+ TCP:= TTCPRFCConnection.Create;
+ TCP.SetBindAddress(MainServerConfig.BindAddress);
+ TCP.Connect(MXList.Strings[0], RelayServerPort);
TCP.SetSockTimeOut(DEF_SOCK_TIMEOUT);
i:= 1;
while (not TCP.Connected) and (i < MXList.Count) do begin
TCP.SetSockTimeOut(DEF_SOCK_TIMEOUT);
i:= 1;
while (not TCP.Connected) and (i < MXList.Count) do begin