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

37
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,32 +114,32 @@ Var
Inc (Status); Inc (Status);
If PKT.MsgArea = 'NETMAIL' Then Begin If PKT.MsgArea = 'NETMAIL' Then Begin
// areafix etc here
If GetMBaseByNetZone (PKT.PKTHeader.DestZone, MBase) Then Begin If Not ProcessedByAreaFix(PKT) Then
For Count := 1 to ForwardSize Do If GetMBaseByNetZone (PKT.PKTHeader.DestZone, MBase) Then Begin
If strUpper(strWordGet(1, ForwardList[Count], ';')) = strUpper(PKT.MsgTo) Then For Count := 1 to ForwardSize Do
PKT.MsgTo := strWordGet(2, ForwardList[Count], ';'); If strUpper(strWordGet(1, ForwardList[Count], ';')) = strUpper(PKT.MsgTo) Then
PKT.MsgTo := strWordGet(2, ForwardList[Count], ';');
CurTag := ''; CurTag := '';
If MsgBase <> NIL Then Begin If MsgBase <> NIL Then Begin
MsgBase^.CloseMsgBase; MsgBase^.CloseMsgBase;
Dispose (MsgBase, Done); Dispose (MsgBase, Done);
MsgBase := NIL; MsgBase := NIL;
End; End;
MessageBaseOpen(MsgBase, MBase); MessageBaseOpen(MsgBase, MBase);
SavePKTMsgToBase(MsgBase, PKT, True); SavePKTMsgToBase(MsgBase, PKT, True);
Log (2, '+', ' Netmail from ' + PKT.MsgFrom + ' to ' + PKT.MsgTo); Log (2, '+', ' Netmail from ' + PKT.MsgFrom + ' to ' + PKT.MsgTo);
Inc (TotalNet); Inc (TotalNet);
End Else End Else
Log (3, '!', ' No NETMAIL base for zone ' + strI2S(PKT.PKTHeader.DestZone)); Log (3, '!', ' No NETMAIL base for zone ' + strI2S(PKT.PKTHeader.DestZone));
End Else Begin End Else Begin
If Dupes.IsDuplicate(PKT.MsgCRC) Then Begin If Dupes.IsDuplicate(PKT.MsgCRC) Then Begin
Log (3, '!', ' Duplicate message found in ' + PKT.MsgArea); Log (3, '!', ' Duplicate message found in ' + PKT.MsgArea);