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,
mUtil_Common,
mUtil_Status,
mUtil_EchoCore;
mUtil_EchoCore,
mUtil_EchoFix;
// Also create SavePKTMsgToFile and change export to use it... and for
// downlinks too
@ -113,32 +114,32 @@ Var
Inc (Status);
If PKT.MsgArea = 'NETMAIL' Then Begin
// areafix etc here
If GetMBaseByNetZone (PKT.PKTHeader.DestZone, MBase) Then Begin
For Count := 1 to ForwardSize Do
If strUpper(strWordGet(1, ForwardList[Count], ';')) = strUpper(PKT.MsgTo) Then
PKT.MsgTo := strWordGet(2, ForwardList[Count], ';');
If Not ProcessedByAreaFix(PKT) Then
If GetMBaseByNetZone (PKT.PKTHeader.DestZone, MBase) Then Begin
For Count := 1 to ForwardSize Do
If strUpper(strWordGet(1, ForwardList[Count], ';')) = strUpper(PKT.MsgTo) Then
PKT.MsgTo := strWordGet(2, ForwardList[Count], ';');
CurTag := '';
CurTag := '';
If MsgBase <> NIL Then Begin
MsgBase^.CloseMsgBase;
If MsgBase <> NIL Then Begin
MsgBase^.CloseMsgBase;
Dispose (MsgBase, Done);
Dispose (MsgBase, Done);
MsgBase := NIL;
End;
MsgBase := NIL;
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);
End Else
Log (3, '!', ' No NETMAIL base for zone ' + strI2S(PKT.PKTHeader.DestZone));
Inc (TotalNet);
End Else
Log (3, '!', ' No NETMAIL base for zone ' + strI2S(PKT.PKTHeader.DestZone));
End Else Begin
If Dupes.IsDuplicate(PKT.MsgCRC) Then Begin
Log (3, '!', ' Duplicate message found in ' + PKT.MsgArea);