eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Code cleanup

This commit is contained in:
mysticbbs 2013-05-23 20:45:27 -04:00
parent c901e86304
commit cd0f30f056
1 changed files with 3 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
mystic/mutil_common.pas
View File

@ -606,43 +606,7 @@ Function GetNodeByRoute (Dest: RecEchoMailAddr; Var TempNode: RecEchoMailNode) :
Result := True; Result := True;
End; End;
(*
Function IsOneMatch (Mask: String) : Boolean;
Var
Zone : String;
Net : String;
Node : String;
A : Byte;
B : Byte;
Count : Byte;
Begin
Result := False;
Zone := '';
Net := '';
Node := '';
A := Pos(':', Mask);
B := Pos('/', Mask);
If A <> 0 Then Begin
Zone := Copy(Mask, 1, A - 1);
If B = 0 Then B := 255;
Net := Copy(Mask, A + 1, B - 1 - A);
Node := Copy(Mask, B + 1, 255);
End;
If Zone = '' Then Zone := '*';
If Net = '' Then Net := '*';
If Node = '' Then Node := '*';
If (Zone <> '*') and (Dest.Zone <> strS2I(Zone)) Then Exit;
If (Net <> '*') and (Dest.Net <> strS2I(Net)) Then Exit;
If (Node <> '*') and (Dest.Node <> strS2I(Node)) Then Exit;
Result := True;
End;
*)
Var Var
Mask : String = ''; Mask : String = '';
OneRes : Boolean; OneRes : Boolean;
@ -718,9 +682,9 @@ Begin
// this? research it someday // this? research it someday
For Count := 1 to 30 Do Begin For Count := 1 to 30 Do Begin
Result := (bbsConfig.NetAddress[Count].Zone = Zone) And Result := (bbsConfig.NetAddress[Count].Zone = Zone) And
(bbsConfig.NetAddress[Count].Net = Net) And (bbsConfig.NetAddress[Count].Net = Net) And
(bbsConfig.NetAddress[Count].Node = Node); (bbsConfig.NetAddress[Count].Node = Node);
If Result Then Break; If Result Then Break;
End; End;