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