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

AreaFix has to start somewhere

This commit is contained in:
mysticbbs 2013-05-23 20:45:01 -04:00
parent dcc5deb77c
commit bf96b00476
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/mutil_echoimport.pas
View File

@ -19,7 +19,8 @@ Uses
BBS_MsgBase_Squish, BBS_MsgBase_Squish,
mUtil_Common, mUtil_Common,
mUtil_Status, mUtil_Status,
mUtil_EchoCore; mUtil_EchoCore,
mUtil_EchoFix;
// Also create SavePKTMsgToFile and change export to use it... and for // Also create SavePKTMsgToFile and change export to use it... and for
// downlinks too // downlinks too
@ -113,8 +114,8 @@ Var
Inc (Status); Inc (Status);
If PKT.MsgArea = 'NETMAIL' Then Begin If PKT.MsgArea = 'NETMAIL' Then Begin
// areafix etc here
If Not ProcessedByAreaFix(PKT) Then
If GetMBaseByNetZone (PKT.PKTHeader.DestZone, MBase) Then Begin If GetMBaseByNetZone (PKT.PKTHeader.DestZone, MBase) Then Begin
For Count := 1 to ForwardSize 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