This commit is contained in:
mysticbbs 2013-04-01 17:36:30 -04:00
parent 07d282f40d
commit 709d049d03
2 changed files with 39 additions and 1 deletions

View File

@ -2,6 +2,37 @@ Unit MUTIL_Common;
{$I M_OPS.PAS} {$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 Interface
Uses Uses

View File

@ -164,7 +164,14 @@ Var
GetTime (DT.Hour, DT.Min, DT.Sec, Temp); GetTime (DT.Hour, DT.Min, DT.Sec, Temp);
If MBase.NetType = 3 Then Begin 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); TempStr3 := GetFTNOutPath(EchoNode);