Forward fix
This commit is contained in:
parent
4c66c491d9
commit
aece754baa
|
@ -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.
|
||||||
|
|
Loading…
Reference in New Issue