Forward fix

This commit is contained in:
mysticbbs 2013-04-22 13:38:35 -04:00
parent 4c66c491d9
commit aece754baa
1 changed files with 2 additions and 2 deletions

View File

@ -117,7 +117,7 @@ Var
// areafix etc here // areafix etc here
If GetMBaseByNetZone (PKT.PKTHeader.DestZone, MBase) Then Begin If GetMBaseByNetZone (PKT.PKTHeader.DestZone, MBase) Then Begin
For Count := 1 to 50 Do For Count := 1 to ForwardSize Do
If strUpper(strWordGet(1, ForwardList[Count], ';')) = strUpper(PKT.MsgTo) Then If strUpper(strWordGet(1, ForwardList[Count], ';')) = strUpper(PKT.MsgTo) Then
PKT.MsgTo := strWordGet(2, ForwardList[Count], ';'); PKT.MsgTo := strWordGet(2, ForwardList[Count], ';');
@ -418,4 +418,4 @@ Begin
ProcessResult (rDONE, True); ProcessResult (rDONE, True);
End; End;
End. End.