Bind to user-specified address (BindAddress)

[mgsmtp.git] / Common.pas

diff --git a/Common.pas b/Common.pas
index fadccc59f8b17f0ca294d84740c7af03e946d546..8677ead2930bae7372d9145358cc90233f6cc6d0 100644 (file)
--- a/Common.pas
+++ b/Common.pas
@@ -74,9 +74,11 @@ type
       FTimeOffset: integer;
       FTimeOffsetStr: string;
       FListenAddresses: TStrings;
+      FBindAddress: string;
    public
       function GetVersionStr: string;
       property ListenAddresses: TStrings read FListenAddresses;
+      property BindAddress: string read FBindAddress;
       property Databytes: longint read FDatabytes;
       {property TimeCorrection: integer read FTimeCorrection;}
       property TimeOffset: integer read FTimeOffset;
@@ -483,6 +485,8 @@ begin
       portlist.Free;
    end;
 
+   FBindAddress:=    Config.ReadString('Server', 'BindAddress', '0.0.0.0');
+
    FDatabytes:=      Config.ReadInteger('Server', 'Databytes', 1024 * 1024 * 1024);
    FTimeOffset:=     Config.ReadInteger('Server', 'TimeOffset', Config.ReadInteger('Server', 'TimeCorrection', 0) * 100);
    FTimeOffsetStr:=  MakeTimeOffsetStr(FTimeOffset);