diff --git a/mystic/mutil_common.pas b/mystic/mutil_common.pas index 056281d..dfb350f 100644 --- a/mystic/mutil_common.pas +++ b/mystic/mutil_common.pas @@ -2,6 +2,37 @@ Unit MUTIL_Common; {$I M_OPS.PAS} +(* +add domain into this? how would this be used in routing? where is routing +configuration going? + +Function IsAddressMatch (Str: String; Addr: RecEchoMailAddr) : Boolean; +Var + Zone : String; + Net : String; + Node : String; + A : Byte; + B : Byte; +Begin + Result := False; + + A := Pos(':', Str); + B := Pos('/', Str); + + If (A = 0) or (B <= A) Then Exit; + + Zone := Copy(Str, 1, A - 1); + Net := Copy(Str, A + 1, B - 1 - A); + Node := Copy(Str, B + 1, 255); + + If (Zone <> '*') and (Addr.Zone <> strS2I(Zone)) Then Exit; + If (Net <> '*') and (Addr.Net <> strS2I(Net)) Then Exit; + If (Node <> '*') and (Addr.Node <> strS2I(Node)) Then Exit; + + Result := True; +End; +*) + Interface Uses diff --git a/mystic/mutil_echoexport.pas b/mystic/mutil_echoexport.pas index 23ac677..c5bdd9a 100644 --- a/mystic/mutil_echoexport.pas +++ b/mystic/mutil_echoexport.pas @@ -164,7 +164,14 @@ Var GetTime (DT.Hour, DT.Min, DT.Sec, Temp); If MBase.NetType = 3 Then Begin - // need to incorporate routing here?!? + // if is NOT a msg originated from ourself, skip it unless + // both orig and dest are not ourself? hmmm.... + + // need to incorporate routing here... this all needs reworked + // ALWAYS send directly if the message is directed to one of our + // uplinks, else, perform routing to figure it out? + // add configuration for routing somewhere... hmm need to research + // and think all of this through TempStr3 := GetFTNOutPath(EchoNode);