Nonsense
This commit is contained in:
parent
07d282f40d
commit
709d049d03
|
@ -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
|
||||||
|
|
|
@ -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);
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue