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

Tons of stuff

This commit is contained in:
mysticbbs 2013-04-20 02:26:51 -04:00
parent 9ff40fb603
commit e3095cddd2
12 changed files with 421 additions and 101 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
mystic/bbs_cfg_echomail.pas
View File

@ -8,6 +8,10 @@ Uses
BBS_Core, BBS_Core,
BBS_Common; BBS_Common;
Function GetNodeByIndex (Num: LongInt; Var TempNode: RecEchoMailNode) : Boolean;
Procedure AddExportByBase (Var MBase: RecMessageBase; Idx: LongInt);
Procedure RemoveExportFromBase (Var MBase: RecMessageBase; Idx: LongInt);
Function Configuration_EchoMailNodes (Edit: Boolean) : LongInt; Function Configuration_EchoMailNodes (Edit: Boolean) : LongInt;
Function Configuration_EchomailAddress (Edit: Boolean) : Byte; Function Configuration_EchomailAddress (Edit: Boolean) : Byte;
Procedure Configuration_NodeExport (Var MBase: RecMessageBase); Procedure Configuration_NodeExport (Var MBase: RecMessageBase);
@ -140,12 +144,12 @@ Begin
Box.Open (3, 5, 76, 21); Box.Open (3, 5, 76, 21);
VerticalLine (19, 7, 12); VerticalLine (19, 7, 13);
VerticalLine (19, 15, 19); VerticalLine (19, 16, 20);
VerticalLine (53, 7, 11); VerticalLine (53, 7, 11);
// VerticalLine (53, 14, 19); // VerticalLine (53, 14, 19);
WriteXY (13, 14, 112, 'BINKP'); WriteXY (13, 15, 112, 'BINKP');
// WriteXY (49, 13, 112, 'FTP'); // WriteXY (49, 13, 112, 'FTP');
Form.AddStr ('D', ' Description' , 6, 7, 21, 7, 13, 23, 35, @Node.Description, Topic + 'Node description'); Form.AddStr ('D', ' Description' , 6, 7, 21, 7, 13, 23, 35, @Node.Description, Topic + 'Node description');
@ -154,12 +158,13 @@ Begin
Form.AddTog ('E', ' Network Type' , 5, 10, 21, 10, 14, 7, 0, 1, 'FidoNet QWK', @Node.NetType, Topic); Form.AddTog ('E', ' Network Type' , 5, 10, 21, 10, 14, 7, 0, 1, 'FidoNet QWK', @Node.NetType, Topic);
Form.AddTog ('L', ' Session Type' , 5, 11, 21, 11, 14, 5, 0, 1, 'BinkP FTP', @Node.ProtType, Topic); Form.AddTog ('L', ' Session Type' , 5, 11, 21, 11, 14, 5, 0, 1, 'BinkP FTP', @Node.ProtType, Topic);
Form.AddTog ('Y', ' Export Type' , 6, 12, 21, 12, 13, 6, 0, 3, 'Normal Crash Direct Hold', @Node.MailType, Topic); Form.AddTog ('Y', ' Export Type' , 6, 12, 21, 12, 13, 6, 0, 3, 'Normal Crash Direct Hold', @Node.MailType, Topic);
Form.AddStr ('U', ' Route Info' , 7, 13, 21, 13, 12, 54, 128, @Node.RouteInfo, Topic + 'Route info (ie "2:* 3:*")');
Form.AddStr ('H', ' Host' , 13, 15, 21, 15, 6, 20, 60, @Node.binkHost, Topic + '<hostname>:<port>'); Form.AddStr ('H', ' Host' , 13, 16, 21, 16, 6, 20, 60, @Node.binkHost, Topic + '<hostname>:<port>');
Form.AddMask ('S', ' Password' , 9, 16, 21, 16, 10, 20, 20, @Node.binkPass, Topic); Form.AddMask ('S', ' Password' , 9, 17, 21, 17, 10, 20, 20, @Node.binkPass, Topic);
Form.AddWord ('T', ' TimeOut' , 10, 17, 21, 17, 9, 4, 10, 9999, @Node.binkTimeOut, Topic + 'Inactive session timeout (seconds)'); Form.AddWord ('T', ' TimeOut' , 10, 18, 21, 18, 9, 4, 10, 9999, @Node.binkTimeOut, Topic + 'Inactive session timeout (seconds)');
Form.AddWord ('B', ' BlockSize' , 8, 18, 21, 18, 11, 5, 4096, 30720, @Node.binkBlock, Topic + 'Blocksize in bytes'); Form.AddWord ('B', ' BlockSize' , 8, 19, 21, 19, 11, 5, 4096, 30720, @Node.binkBlock, Topic + 'Blocksize in bytes');
Form.AddTog ('M', ' CRAM-MD5' , 9, 19, 21, 19, 10, 6, 0, 2, 'No Yes Forced', @Node.binkMD5, Topic); Form.AddTog ('M', ' CRAM-MD5' , 9, 20, 21, 20, 10, 6, 0, 2, 'No Yes Forced', @Node.binkMD5, Topic);
Form.AddWord ('Z', ' Zone' , 47, 7, 55, 7, 6, 5, 0, 65535, @Node.Address.Zone, Topic + 'Network Zone'); Form.AddWord ('Z', ' Zone' , 47, 7, 55, 7, 6, 5, 0, 65535, @Node.Address.Zone, Topic + 'Network Zone');
Form.AddWord ('N', ' Net' , 48, 8, 55, 8, 5, 5, 0, 65535, @Node.Address.Net, Topic + 'Network Net'); Form.AddWord ('N', ' Net' , 48, 8, 55, 8, 5, 5, 0, 65535, @Node.Address.Net, Topic + 'Network Net');
@ -393,7 +398,7 @@ Begin
Break; Break;
End; End;
EditNode(EchoNode); EditNode (EchoNode);
Seek (EchoFile, List.Picked - 1); Seek (EchoFile, List.Picked - 1);
Write (EchoFile, EchoNode); Write (EchoFile, EchoNode);
@ -412,12 +417,16 @@ End;
Function Configuration_EchomailAddress (Edit: Boolean) : Byte; Function Configuration_EchomailAddress (Edit: Boolean) : Byte;
Procedure EditAddress (Num: Byte); Procedure EditAddress (Num: Byte);
Label
Start;
Var Var
Box : TAnsiMenuBox; Box : TAnsiMenuBox;
Form : TAnsiMenuForm; Form : TAnsiMenuForm;
Topic : String; Topic : String;
Count : Byte; Count : Byte;
Begin Begin
Start:
Topic := '|03(|09Echomail Network|03) |01-|09> |15'; Topic := '|03(|09Echomail Network|03) |01-|09> |15';
Box := TAnsiMenuBox.Create; Box := TAnsiMenuBox.Create;
Form := TAnsiMenuForm.Create; Form := TAnsiMenuForm.Create;
@ -448,6 +457,11 @@ Function Configuration_EchomailAddress (Edit: Boolean) : Byte;
Box.Close; Box.Close;
Form.Free; Form.Free;
Box.Free; Box.Free;
If Config.NetDomain[Num] = '' Then Begin
ShowMsgBox(0, 'You must supply a domain');
Goto Start;
End;
End; End;
Var Var

122
mystic/bbs_cfg_msgbase.pas
View File

@ -215,10 +215,15 @@ Var
Var Var
GBox : TAnsiMenuBox; GBox : TAnsiMenuBox;
Form : TAnsiMenuForm; Form : TAnsiMenuForm;
Active : Array[1..26] of Boolean; Active : Array[1..28] of Boolean;
ActCnt : Byte; ActCnt : Byte;
Count : LongInt; Count : LongInt;
Topic : String; Topic : String;
DelIdx : LongInt = -1;
DelStr : String = '';
AddIdx : LongInt = -1;
AddStr : String = '';
EN : RecEchoMailNode;
Begin Begin
FillChar (Active, SizeOf(Active), 0); FillChar (Active, SizeOf(Active), 0);
@ -230,10 +235,10 @@ Var
GBox.Open (6, 5, 75, 21); GBox.Open (6, 5, 75, 21);
VerticalLine (26, 7, 19); VerticalLine (26, 7, 20);
VerticalLine (64, 7, 19); VerticalLine (64, 7, 20);
For Count := 1 to 13 Do For Count := 1 to 14 Do
Form.AddBol ('!', '> ', 8, 6 + Count, 10, 6 + Count, 2, 3, @Active[Count], Topic + ChangeStr); Form.AddBol ('!', '> ', 8, 6 + Count, 10, 6 + Count, 2, 3, @Active[Count], Topic + ChangeStr);
Form.AddPath ('P', ' Path' , 20, 7, 28, 7, 6, 16, 80, @Global.Path, Topic + 'Message base storage path'); Form.AddPath ('P', ' Path' , 20, 7, 28, 7, 6, 16, 80, @Global.Path, Topic + 'Message base storage path');
@ -249,9 +254,10 @@ Var
Form.AddStr ('M', ' L Template' , 14, 17, 28, 17, 12, 16, 20, @Global.ITemplate, Topic + 'Template for lightbar message list'); Form.AddStr ('M', ' L Template' , 14, 17, 28, 17, 12, 16, 20, @Global.ITemplate, Topic + 'Template for lightbar message list');
Form.AddTog ('A', ' Base Type' , 15, 18, 28, 18, 11, 9, 0, 3, 'Local EchoMail Newsgroup Netmail', @Global.NetType, Topic + 'Message base type'); Form.AddTog ('A', ' Base Type' , 15, 18, 28, 18, 11, 9, 0, 3, 'Local EchoMail Newsgroup Netmail', @Global.NetType, Topic + 'Message base type');
Form.AddTog ('B', ' Base Format' , 13, 19, 28, 19, 13, 6, 0, 1, 'JAM Squish', @Global.BaseType, Topic + 'Message base storage format'); Form.AddTog ('B', ' Base Format' , 13, 19, 28, 19, 13, 6, 0, 1, 'JAM Squish', @Global.BaseType, Topic + 'Message base storage format');
Form.AddNone ('7', ' Export Add' , 14, 20, 28, 20, 12, Topic + 'Add EchoNode Export');
For Count := 1 to 13 Do For Count := 1 to 14 Do
Form.AddBol ('!', '> ', 45, 6 + Count, 47, 6 + Count, 2, 3, @Active[Count + 13], Topic + ChangeStr); Form.AddBol ('!', '> ', 45, 6 + Count, 47, 6 + Count, 2, 3, @Active[Count + 14], Topic + ChangeStr);
Form.AddAttr ('Q', ' Quote Color' , 51, 7, 66, 7, 13, @Global.ColQuote, Topic + 'Color for quoted text'); Form.AddAttr ('Q', ' Quote Color' , 51, 7, 66, 7, 13, @Global.ColQuote, Topic + 'Color for quoted text');
Form.AddAttr ('X', ' Text Color' , 52, 8, 66, 8, 12, @Global.ColText, Topic + 'Color for message text'); Form.AddAttr ('X', ' Text Color' , 52, 8, 66, 8, 12, @Global.ColText, Topic + 'Color for message text');
@ -266,18 +272,37 @@ Var
Form.AddBits ('5', ' Autosigs' , 54, 17, 66, 17, 10, MBAutoSigs, @Global.Flags, Topic + 'Allow auto signatures in this base?'); Form.AddBits ('5', ' Autosigs' , 54, 17, 66, 17, 10, MBAutoSigs, @Global.Flags, Topic + 'Allow auto signatures in this base?');
Form.AddBits ('6', ' Kill Kludge' , 51, 18, 66, 18, 13, MBKillKludge, @Global.Flags, Topic + 'Filter out kludge lines'); Form.AddBits ('6', ' Kill Kludge' , 51, 18, 66, 18, 13, MBKillKludge, @Global.Flags, Topic + 'Filter out kludge lines');
Form.AddBits ('V', ' Private' , 55, 19, 66, 19, 9, MBPrivate, @Global.Flags, Topic + 'Is this a private base?'); Form.AddBits ('V', ' Private' , 55, 19, 66, 19, 9, MBPrivate, @Global.Flags, Topic + 'Is this a private base?');
Form.AddNone ('8', ' Export Kill' , 51, 20, 66, 20, 13, Topic + 'Remove EchoNode Export');
Form.LoExitChars := #21#27; Form.LoExitChars := #21#27;
Repeat Repeat
WriteXY (28, 12, 113, strPadR(strAddr2Str(Config.NetAddress[Global.NetAddr]), 19, ' ')); WriteXY (28, 12, 113, strPadR(strAddr2Str(Config.NetAddress[Global.NetAddr]), 19, ' '));
If AddStr <> '' Then
WriteXY (28, 20, 113, strPadR(AddStr, 12, ' '));
If DelStr <> '' Then
WriteXY (66, 20, 113, strPadR(DelStr, 8, ' '));
Case Form.Execute of Case Form.Execute of
'7' : Begin
AddIdx := Configuration_EchoMailNodes(False);
If GetNodeByIndex(AddIdx, EN) Then
AddStr := strAddr2Str(EN.Address);
End;
'8' : Begin
DelIdx := Configuration_EchoMailNodes(False);
If GetNodeByIndex(DelIdx, EN) Then
DelStr := strAddr2Str(EN.Address);
End;
'D' : Global.NetAddr := Configuration_EchoMailAddress(False); 'D' : Global.NetAddr := Configuration_EchoMailAddress(False);
#21 : Begin #21 : Begin
ActCnt := 0; ActCnt := 0;
For Count := 1 to 26 Do For Count := 1 to 28 Do
If Active[Count] Then Inc(ActCnt); If Active[Count] Then Inc(ActCnt);
If ShowMsgBox(1, 'Update ' + strI2S(ActCnt) + ' settings per base?') Then Begin If ShowMsgBox(1, 'Update ' + strI2S(ActCnt) + ' settings per base?') Then Begin
@ -300,22 +325,28 @@ Var
If Active[12] Then MBase.NetType := Global.NetType; If Active[12] Then MBase.NetType := Global.NetType;
If Active[13] Then MBase.BaseType := Global.BaseType; If Active[13] Then MBase.BaseType := Global.BaseType;
If Active[14] Then MBase.ColQuote := Global.ColQuote; If Active[15] Then MBase.ColQuote := Global.ColQuote;
If Active[15] Then MBase.ColText := Global.ColText; If Active[16] Then MBase.ColText := Global.ColText;
If Active[16] Then MBase.ColTear := Global.ColTear; If Active[17] Then MBase.ColTear := Global.ColTear;
If Active[17] Then MBase.ColOrigin := Global.ColOrigin; If Active[18] Then MBase.ColOrigin := Global.ColOrigin;
If Active[18] Then MBase.ColKludge := Global.ColKludge; If Active[19] Then MBase.ColKludge := Global.ColKludge;
If Active[19] Then MBase.MaxMsgs := Global.MaxMsgs; If Active[20] Then MBase.MaxMsgs := Global.MaxMsgs;
If Active[20] Then MBase.MaxAge := Global.MaxAge; If Active[21] Then MBase.MaxAge := Global.MaxAge;
If Active[21] Then MBase.DefNScan := Global.DefNScan; If Active[22] Then MBase.DefNScan := Global.DefNScan;
If Active[22] Then MBase.DefQScan := Global.DefQScan; If Active[23] Then MBase.DefQScan := Global.DefQScan;
If Active[23] Then BitSet(1, 4, MBase.Flags, (Global.Flags AND MBRealNames <> 0)); If Active[24] Then BitSet(1, 4, MBase.Flags, (Global.Flags AND MBRealNames <> 0));
If Active[24] Then BitSet(3, 4, MBase.Flags, (Global.Flags AND MBAutoSigs <> 0)); If Active[25] Then BitSet(3, 4, MBase.Flags, (Global.Flags AND MBAutoSigs <> 0));
If Active[25] Then BitSet(2, 4, MBase.Flags, (Global.Flags AND MBKillKludge <> 0)); If Active[26] Then BitSet(2, 4, MBase.Flags, (Global.Flags AND MBKillKludge <> 0));
If Active[26] Then BitSet(5, 4, MBase.Flags, (Global.Flags AND MBPrivate <> 0)); If Active[27] Then BitSet(5, 4, MBase.Flags, (Global.Flags AND MBPrivate <> 0));
Seek (MBaseFile, Count - 1); Seek (MBaseFile, Count - 1);
Write (MBaseFile, MBase); Write (MBaseFile, MBase);
If Active[14] And (AddIdx <> -1) Then
AddExportByBase (MBase, AddIdx);
If Active[28] And (DelIdx <> -1) Then
RemoveExportFromBase (MBase, DelIdx);
End; End;
Break; Break;
@ -418,9 +449,24 @@ Var
End; End;
End; End;
Write(MBaseFile, MBase); Write (MBaseFile, MBase);
End; End;
Procedure EraseData;
Begin
FileErase (MBase.Path + MBase.FileName + '.jhr');
FileErase (MBase.Path + MBase.FileName + '.jlr');
FileErase (MBase.Path + MBase.FileName + '.jdt');
FileErase (MBase.Path + MBase.FileName + '.jdx');
FileErase (MBase.Path + MBase.FileName + '.sqd');
FileErase (MBase.Path + MBase.FileName + '.sqi');
FileErase (MBase.Path + MBase.FileName + '.sql');
FileErase (MBase.Path + MBase.FileName + '.scn');
End;
Var
KillData : Boolean;
Count : LongInt;
Begin Begin
Result := -1; Result := -1;
@ -459,24 +505,34 @@ Begin
AssignRecord(False); AssignRecord(False);
MakeList; MakeList;
End; End;
'D' : If (List.Picked > 1) and (List.Picked < List.ListMax) Then 'D' : If List.Marked > 0 Then Begin
If ShowMsgBox(1, 'Delete ' + strI2S(List.Marked) + ' bases?') Then Begin
KillData := ShowMsgBox(1, 'Delete data files for ' + strI2S(List.Marked) + ' bases?');
For Count := List.ListMax DownTo 1 Do
If List.List[Count].Tagged = 1 Then Begin
Seek (MBaseFile, Count - 1);
Read (MBaseFile, MBase);
KillRecord (MBaseFile, Count, SizeOf(MBase));
FileErase (MBase.Path + MBase.FileName + '.lnk');
If KillData Then EraseData;
End;
MakeList;
End;
End Else
If (List.Picked > 1) and (List.Picked < List.ListMax) Then
If ShowMsgBox(1, 'Delete this entry?') Then Begin If ShowMsgBox(1, 'Delete this entry?') Then Begin
Seek (MBaseFile, List.Picked - 1); Seek (MBaseFile, List.Picked - 1);
Read (MBaseFile, MBase); Read (MBaseFile, MBase);
KillRecord (MBaseFile, List.Picked, SizeOf(MBase)); KillRecord (MBaseFile, List.Picked, SizeOf(MBase));
FileErase (MBase.Path + MBase.FileName + '.lnk');
If ShowMsgBox(1, 'Delete data files?') Then Begin If ShowMsgBox(1, 'Delete data: ' + strStripPipe(MBase.Name)) Then
FileErase (MBase.Path + MBase.FileName + '.jhr'); EraseData;
FileErase (MBase.Path + MBase.FileName + '.jlr');
FileErase (MBase.Path + MBase.FileName + '.jdt');
FileErase (MBase.Path + MBase.FileName + '.jdx');
FileErase (MBase.Path + MBase.FileName + '.sqd');
FileErase (MBase.Path + MBase.FileName + '.sqi');
FileErase (MBase.Path + MBase.FileName + '.sql');
FileErase (MBase.Path + MBase.FileName + '.scn');
FileErase (MBase.Path + MBase.FileName + '.lnk');
End;
MakeList; MakeList;
End; End;

80
mystic/bbs_msgbase.pas
View File

@ -139,6 +139,7 @@ Begin
For Count := 1 to 30 Do For Count := 1 to 30 Do
If Config.NetAddress[Count].Zone = Dest.Zone Then Begin If Config.NetAddress[Count].Zone = Dest.Zone Then Begin
Result := Config.NetAddress[Count]; Result := Config.NetAddress[Count];
Exit; Exit;
End; End;
End; End;
@ -276,7 +277,7 @@ Begin
Session.io.PromptInfo[7] := MsgTo; Session.io.PromptInfo[7] := MsgTo;
If Session.io.GetYN(Session.GetPrompt(502), True) Then Begin If Session.io.GetYN(Session.GetPrompt(502), True) Then Begin
Result := strAddr2Str(NodeData.Address); Result := strAddr2Str(Addr);
Break; Break;
End; End;
@ -295,7 +296,8 @@ Function TMsgBase.IsQuotedText (Str: String) : Boolean;
Var Var
Temp : Byte; Temp : Byte;
Begin Begin
Temp := Pos('>', strStripL(Str, ' ')); Temp := Pos('>', Str);
// Temp := Pos('>', strStripL(Str, ' '));
Result := (Temp > 0) and (Temp < 5); Result := (Temp > 0) and (Temp < 5);
End; End;
@ -1127,30 +1129,56 @@ Var
DoWrap : Boolean = True; DoWrap : Boolean = True;
QuoteFile : Text; QuoteFile : Text;
Lines : SmallInt; Lines : SmallInt;
Total : LongInt;
ReplyBase : RecMessageBase; ReplyBase : RecMessageBase;
Begin Begin
ReplyBase := MBase; ReplyBase := MBase;
(* If Not Email Then Begin
Session.io.OutFull('|CR|09Reply |01[|10ENTER|01] |09Current Base, |01[|10B|01]|09ase, |01[|10N|01]|09etmail, |01[|10E|01]|09mail, |01[|10ESC|01] |09Abort: |11'); Session.io.PromptInfo[1] := MBase.Name;
Session.io.PromptInfo[2] := MsgBase^.GetFrom;
Session.io.PromptInfo[3] := MsgBase^.GetSubj;
Case Session.io.OneKey (#13#27 + 'BNE', True) of If ListMode = 0 Then
#27 : Exit; Session.io.OutFull(Session.GetPrompt(509))
'B' : Begin Else
//Total := ListAreas(Config.MCompress); Session.io.OutFull(Session.GetPrompt(510));
//NEW something like: (and use it in other areas too)
//PromptMessageBase (Var Base: RMB, IgnoreGroups): LongInt; -1 is abort, otherwise = physical area
End;
'E' : Begin
Reset (MBaseFile);
Read (MBaseFile, ReplyBase);
Close (MBaseFile);
Email := True; Case Session.io.OneKey (#13#27 + 'QBNE', True) of
End; // load email area set email := true 'Q',
'N' : ; // load netmail area #27 : Exit;
'B' : Begin
Total := ListAreas(Config.MCompress);
Repeat
Session.io.OutFull(Session.GetPrompt(511));
Case Session.io.OneKeyRange(#13 + '?Q', 1, Total) of
#13,
'Q': Exit;
'?': Total := ListAreas(Config.MCompress);
Else
Break;
End;
Until False;
If Not GetBaseCompressed(Session.io.RangeValue, ReplyBase) Then
Exit;
End;
'E' : Begin
Reset (MBaseFile);
Read (MBaseFile, ReplyBase);
Close (MBaseFile);
Email := True;
End;
End;
End; End;
*)
Session.io.PromptInfo[1] := ReplyBase.Name;
Session.io.OutFullLn(Session.GetPrompt(512));
If Not Session.User.Access(ReplyBase.PostACS) Then Begin If Not Session.User.Access(ReplyBase.PostACS) Then Begin
Session.io.OutFullLn (Session.GetPrompt(105)); Session.io.OutFullLn (Session.GetPrompt(105));
Exit; Exit;
@ -1812,7 +1840,6 @@ Var
Var Var
Ch : Char; Ch : Char;
A : LongInt;
CurMsg : LongInt; CurMsg : LongInt;
Begin Begin
Result := False; Result := False;
@ -1971,15 +1998,15 @@ Var
Session.io.OutFull (Session.GetPrompt(403)); Session.io.OutFull (Session.GetPrompt(403));
A := strS2I(Session.io.GetInput(9, 9, 12, '')); If Session.io.OneKeyRange(#13 + 'Q', 1, MsgBase^.GetHighMsgNum) = #0 Then Begin
MsgBase^.SeekFirst(Session.io.RangeValue);
If (A > 0) and (A <= MsgBase^.GetHighMsgNum) Then Begin
MsgBase^.SeekFirst(A);
If Not SeekNextMsg(True, False) Then Begin If Not SeekNextMsg(True, False) Then Begin
MsgBase^.SeekFirst(CurMsg); MsgBase^.SeekFirst(CurMsg);
SeekNextMsg(True, False); SeekNextMsg(True, False);
End; End;
End; End;
Break; Break;
End; End;
'L' : Exit; 'L' : Exit;
@ -2554,10 +2581,8 @@ Var
Session.io.OutFull (Session.GetPrompt(334)); Session.io.OutFull (Session.GetPrompt(334));
A := strS2I(Session.io.GetInput(9, 9, 12, '')); If Session.io.OneKeyRange(#13 + 'Q', 1, MsgBase^.GetHighMsgNum) = #0 Then Begin
MsgBase^.SeekFirst(Session.io.RangeValue);
If (A > 0) and (A <= MsgBase^.GetHighMsgNum) Then Begin
MsgBase^.SeekFirst(A);
If Not SeekNextMsg(True, False) Then Begin If Not SeekNextMsg(True, False) Then Begin
MsgBase^.SeekFirst(B); MsgBase^.SeekFirst(B);
@ -2623,6 +2648,7 @@ Var
End; End;
'R' : Begin 'R' : Begin
ReplyMessage (Mode = 'E', ListMode, ReplyID); ReplyMessage (Mode = 'E', ListMode, ReplyID);
Break; Break;
End; End;
'T' : Begin 'T' : Begin

10
mystic/default.txt
View File

@ -1004,3 +1004,13 @@
507 |10|$R15|&3 |09|$R20|&2 |11|$R42|&5 507 |10|$R15|&3 |09|$R20|&2 |11|$R42|&5
; QuicScan message list footer ; QuicScan message list footer
508 |09|$D79=|CR 508 |09|$D79=|CR
; Message reply options (standard)
; &1=base name &2=reply to name &3=msg subject
509 |16|CL|09|17 ° |15Message Reply |$X79 |16|CR|CR|03 Area: |11|&1|CR |03To: |11|&2|CR|03 Subject: |11|$R65|&3|CR|CR|09Reply area (|11ENTER|09) Current, |09(|11B|09)ase, |09(|11E|09)mail, |09(|11Q|09)uit? |14
; Message reply options (lightbar)
; &1=base name &2=reply to name &3=msg subject
510 |16|CL|09|17 ° |15Message Reply |$X79 |16|CR|CR|03 Area: |11|&1|CR |03To: |11|&2|CR|03 Subject: |11|$R65|&3|CR|CR|09Reply area (|11ENTER|09) Current, |09(|11B|09)ase, |09(|11E|09)mail, |09(|11Q|09)uit? |14
; Message reply select base prompt
511 |CR|09Select message base for reply [|10?|09/|10List|09]: |11
; Message "replying to X base" prompt &1=base name
512 |CR|03Posting reply message to base |11|&1|03.

1
mystic/mpl_common.pas
View File

@ -381,6 +381,7 @@ Begin
AddStr ({$IFDEF MPLPARSER} 'fbasename', {$ENDIF} iString, 40); AddStr ({$IFDEF MPLPARSER} 'fbasename', {$ENDIF} iString, 40);
AddStr ({$IFDEF MPLPARSER} 'fbaseacs', {$ENDIF} iString, 30); AddStr ({$IFDEF MPLPARSER} 'fbaseacs', {$ENDIF} iString, 30);
AddStr ({$IFDEF MPLPARSER} 'fbasefn', {$ENDIF} iString, 40);
End; End;
6 : Begin 6 : Begin
{$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarFGroup := X + 1; {$ENDIF} {$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarFGroup := X + 1; {$ENDIF}

1
mystic/mpl_execute.pas
View File

@ -292,6 +292,7 @@ Procedure TInterpEngine.GetFBaseVars (Var F: RecFileBase);
Begin Begin
Move (F.Name, VarData[IdxVarFBase ]^.Data^, SizeOf(F.Name)); Move (F.Name, VarData[IdxVarFBase ]^.Data^, SizeOf(F.Name));
Move (F.ListACS, VarData[IdxVarFBase + 1 ]^.Data^, SizeOf(F.ListACS)); Move (F.ListACS, VarData[IdxVarFBase + 1 ]^.Data^, SizeOf(F.ListACS));
Move (F.FileName, VarData[IdxVarFBase + 2 ]^.Data^, SizeOf(F.FileName));
End; End;
Function TInterpEngine.GetFBaseRecord (Num: LongInt) : Boolean; Function TInterpEngine.GetFBaseRecord (Num: LongInt) : Boolean;

9
mystic/mutil.ini
View File

@ -417,6 +417,12 @@
dupe_db_size = 32000 dupe_db_size = 32000
; If you want to forward netmail from one user name to another, you can
; define up to 50 remapped names below using the format <orig>;<new>
;
; forward = sysop;g00r00
; forward = system operator;g00r00
; If you want MUTIL to auto create message bases when it finds an ; If you want MUTIL to auto create message bases when it finds an
; echomail message for a non-existing base, set this value to true ; echomail message for a non-existing base, set this value to true
; and use the options below to define the default values ; and use the options below to define the default values
@ -451,4 +457,5 @@
[ExportEchoMail] [ExportEchoMail]
; no options for this area yet ; no options

106
mystic/mutil_common.pas
View File

@ -93,6 +93,7 @@ Function GetFTNArchiveName (Orig, Dest: RecEchoMailAddr) : String;
Function GetFTNFlowName (Dest: RecEchoMailAddr) : String; Function GetFTNFlowName (Dest: RecEchoMailAddr) : String;
Function GetFTNOutPath (EchoNode: RecEchoMailNode) : String; Function GetFTNOutPath (EchoNode: RecEchoMailNode) : String;
Function GetNodeByIndex (Num: LongInt; Var TempNode: RecEchoMailNode) : Boolean; Function GetNodeByIndex (Num: LongInt; Var TempNode: RecEchoMailNode) : Boolean;
Function GetNodeByRoute (Dest: RecEchoMailAddr; Var TempNode: RecEchoMailNode) : Boolean;
Function IsValidAKA (Zone, Net, Node: Word) : Boolean; Function IsValidAKA (Zone, Net, Node: Word) : Boolean;
Implementation Implementation
@ -582,6 +583,111 @@ Begin
Close (F); Close (F);
End; End;
Function GetNodeByRoute (Dest: RecEchoMailAddr; Var TempNode: RecEchoMailNode) : Boolean;
Function IsMatch (Str: String) : Boolean;
Function IsOneMatch (Mask: String) : Boolean;
Var
Zone : String;
Net : String;
Node : String;
A : Byte;
B : Byte;
Count : Byte;
Begin
Result := False;
Zone := '';
Net := '';
Node := '';
A := Pos(':', Mask);
B := Pos('/', Mask);
If A <> 0 Then Begin
Zone := Copy(Mask, 1, A - 1);
If B = 0 Then B := 255;
Net := Copy(Mask, A + 1, B - 1 - A);
Node := Copy(Mask, B + 1, 255);
End;
If Zone = '' Then Zone := '*';
If Net = '' Then Net := '*';
If Node = '' Then Node := '*';
If (Zone <> '*') and (Dest.Zone <> strS2I(Zone)) Then Exit;
If (Net <> '*') and (Dest.Net <> strS2I(Net)) Then Exit;
If (Node <> '*') and (Dest.Node <> strS2I(Node)) Then Exit;
Result := True;
End;
Var
Mask : String = '';
IsNot : Boolean;
OneRes : Boolean;
Procedure GetNextAddress;
Begin
If Pos('!', Str) > 0 Then Begin
Mask := Copy(Str, 1, Pos('!', Str) - 1);
Delete (Str, 1, Pos('!', Str) - 1);
End Else
If Pos(' ', Str) > 0 Then Begin
Mask := Copy(Str, 1, Pos(' ', Str) - 1);
Delete (Str, 1, Pos(' ', Str));
End Else Begin
Mask := Str;
Str := '';
End;
End;
Begin
Result := False;
Str := strStripB(Str, ' ');
If Str = '' Then Exit;
Repeat
GetNextAddress;
If Mask = '' Then Break;
OneRes := IsOneMatch(Mask);
While (Str[1] = '!') and (Mask <> '') Do Begin
Delete (Str, 1, 1);
GetNextAddress;
OneRes := OneRes AND (NOT IsOneMatch(Mask));
End;
Result := Result OR OneRes;
Until Str = '';
End;
Var
F : File;
Begin
Result := False;
Assign (F, bbsConfig.DataPath + 'echonode.dat');
If Not ioReset(F, SizeOf(RecEchoMailNode), fmRWDN) Then Exit;
While Not Eof(F) And Not Result Do Begin
ioRead(F, TempNode);
Result := IsMatch(TempNode.RouteInfo);
End;
Close (F);
End;
Function IsValidAKA (Zone, Net, Node: Word) : Boolean; Function IsValidAKA (Zone, Net, Node: Word) : Boolean;
Var Var
Count : Byte; Count : Byte;

23
mystic/mutil_echoexport.pas
View File

@ -154,25 +154,18 @@ Var
TempStr2 : String; TempStr2 : String;
TempStr3 : String; TempStr3 : String;
Begin Begin
// if msg originated from this echomail address then do not export
If (EchoNode.Address.Zone = MsgBase^.GetOrigAddr.Zone) and If (EchoNode.Address.Zone = MsgBase^.GetOrigAddr.Zone) and
(EchoNode.Address.Net = MsgBase^.GetOrigAddr.Net) and (EchoNode.Address.Net = MsgBase^.GetOrigAddr.Net) and
(EchoNode.Address.Node = MsgBase^.GetOrigAddr.Node) Then Exit; (EchoNode.Address.Node = MsgBase^.GetOrigAddr.Node) Then Exit;
Log (2, '+', ' Export Msg #' + strI2S(MsgBase^.GetMsgNum) + ' to ' + strAddr2Str(EchoNode.Address)); Log (2, '+', ' Export #' + strI2S(MsgBase^.GetMsgNum) + ' to ' + strAddr2Str(EchoNode.Address));
GetDate (DT.Year, DT.Month, DT.Day, Temp); GetDate (DT.Year, DT.Month, DT.Day, Temp);
GetTime (DT.Hour, DT.Min, DT.Sec, Temp); GetTime (DT.Hour, DT.Min, DT.Sec, Temp);
If MBase.NetType = 3 Then Begin If MBase.NetType = 3 Then Begin
// if is NOT a msg originated from ourself, skip it unless
// both orig and dest are not ourself? hmmm....
// need to incorporate routing here... this all needs reworked
// ALWAYS send directly if the message is directed to one of our
// uplinks, else, perform routing to figure it out?
// add configuration for routing somewhere... hmm need to research
// and think all of this through
TempStr3 := GetFTNOutPath(EchoNode); TempStr3 := GetFTNOutPath(EchoNode);
DirCreate (TempStr3); DirCreate (TempStr3);
@ -342,13 +335,13 @@ Begin
While Not Eof(ExportFile) Do Begin While Not Eof(ExportFile) Do Begin
Read (ExportFile, ExportIndex); Read (ExportFile, ExportIndex);
// check base type and export network or echo? or
// do it from exportmessage?
If MBase.NetType = 3 Then Begin If MBase.NetType = 3 Then Begin
If GetNodeByIndex(ExportIndex, EchoNode) Then If GetNodeByRoute(MsgBase^.GetDestAddr, EchoNode) Then
If EchoNode.Active and (EchoNode.Address.Zone = MsgBase^.GetDestAddr.Zone) Then If EchoNode.Active Then Begin
ExportMessage; ExportMessage;
Break;
End;
End Else End Else
If GetNodeByIndex(ExportIndex, EchoNode) Then If GetNodeByIndex(ExportIndex, EchoNode) Then
If EchoNode.Active Then If EchoNode.Active Then

49
mystic/mutil_echoimport.pas
View File

@ -65,16 +65,18 @@ End;
Procedure uEchoImport; Procedure uEchoImport;
Var Var
TotalEcho : LongInt; TotalEcho : LongInt;
TotalNet : LongInt; TotalNet : LongInt;
TotalDupes : LongInt; TotalDupes : LongInt;
EchoNode : RecEchoMailNode; EchoNode : RecEchoMailNode;
DupeIndex : LongInt; DupeIndex : LongInt;
DupeMBase : RecMessageBase; DupeMBase : RecMessageBase;
CreateBases : Boolean; CreateBases : Boolean;
PKT : TPKTReader; PKT : TPKTReader;
Dupes : TPKTDupe; Dupes : TPKTDupe;
Status : LongInt; Status : LongInt;
ForwardList : Array[1..50] of String[35];
ForwardSize : Byte = 0;
Procedure ImportPacketFile (PktFN: String); Procedure ImportPacketFile (PktFN: String);
Var Var
@ -101,9 +103,6 @@ Var
BarOne.Reset; BarOne.Reset;
// set status for PKT name
// do percentage bar init
CurTag := ''; CurTag := '';
MsgBase := NIL; MsgBase := NIL;
Status := 20; Status := 20;
@ -118,6 +117,10 @@ 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
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
@ -357,6 +360,24 @@ Begin
DupeIndex := INI.ReadInteger(Header_ECHOIMPORT, 'dupe_msg_index', -1); DupeIndex := INI.ReadInteger(Header_ECHOIMPORT, 'dupe_msg_index', -1);
Count := INI.ReadInteger(Header_ECHOIMPORT, 'dupe_db_size', 32000); Count := INI.ReadInteger(Header_ECHOIMPORT, 'dupe_db_size', 32000);
// Read in forward list from INI
FillChar (ForwardList, SizeOf(ForwardList), #0);
Ini.SetSequential(True);
Repeat
FileExt := INI.ReadString(Header_ECHOIMPORT, 'forward', '');
If FileExt = '' Then Break;
Inc (ForwardSize);
ForwardList[ForwardSize] := FileExt;
Until ForwardSize = 50;
INI.SetSequential(False);
Dupes := TPKTDupe.Create(Count); Dupes := TPKTDupe.Create(Count);
PKT := TPKTReader.Create; PKT := TPKTReader.Create;
@ -397,4 +418,4 @@ Begin
ProcessResult (rDONE, True); ProcessResult (rDONE, True);
End; End;
End. End.

5
mystic/records.pas
View File

@ -59,7 +59,7 @@ Const
mysMaxMenuCmds = 25; // Max menu commands per item mysMaxMenuCmds = 25; // Max menu commands per item
mysMaxMenuInput = 12; mysMaxMenuInput = 12;
mysMaxMenuStack = 8; mysMaxMenuStack = 8;
mysMaxThemeText = 508; mysMaxThemeText = 512;
fn_SemFileEcho = 'echomail.now'; fn_SemFileEcho = 'echomail.now';
fn_SemFileNews = 'newsmail.now'; fn_SemFileNews = 'newsmail.now';
@ -116,7 +116,8 @@ Type
OutFiles : Cardinal; OutFiles : Cardinal;
OutSize : Cardinal; OutSize : Cardinal;
binkPass : String[20]; binkPass : String[20];
Res : Array[1..491] of Byte; RouteInfo : String[128];
Res : Array[1..362] of Byte;
End; End;
RecSauceInfo = Packed Record RecSauceInfo = Packed Record

84
mystic/whatsnew.txt
View File

@ -3129,3 +3129,87 @@
netmail to match an address found in the nodelist. If it is set to false netmail to match an address found in the nodelist. If it is set to false
Mystic will still allow a user to search the nodelist, but if it does Mystic will still allow a user to search the nodelist, but if it does
not find a match they will still have the option to send the netmail. not find a match they will still have the option to send the netmail.
+ When replying to a message, Mystic now gives the option to reply in the
current message base, BBS email base, or by selecting a new message base.
Four new prompts have been added for this:
; Message reply options (standard)
; &1=base name &2=reply to name &3=msg subject
509 |16|CL|09|17 ° |15Message Reply |$X79 |16|CR|CR|03 Area: |11|&1|CR |03To: |11|&2|CR|03 Subject: |11|$R65|&3|CR|CR|09Reply area (|11ENTER|09) Current, |09(|11B|09)ase, |09(|11E|09)mail, |09(|11Q|09)uit? |14
; Message reply options (lightbar)
; &1=base name &2=reply to name &3=msg subject
510 |16|CL|09|17 ° |15Message Reply |$X79 |16|CR|CR|03 Area: |11|&1|CR |03To: |11|&2|CR|03 Subject: |11|$R65|&3|CR|CR|09Reply area (|11ENTER|09) Current, |09(|11B|09)ase, |09(|11E|09)mail, |09(|11Q|09)uit? |14
; Message reply select base prompt
511 |CR|09Select message base for reply [|10?|09/|10List|09]: |11
; Message "replying to X base" prompt &1=base name
512 |CR|03Posting reply message to base |11|&1|03.
+ The message jump command in both lightbar and standard message readers
now use intelligent input for the message number.
+ MUTIL can now optionally remap incoming netmail messages by defining up to
50 sets of mappings under [EchoImport] address. For example:
[EchoImport]
forward = sysop;g00r00
forward = system operator;g00r00
+ Netmail exporting has been rewritten and now requires routing information
configured for each Echomail node. The first requirement is that any
netmail base must first be linked for export if you want it to be checked
for routing of netmail posted in that base.
Once linked, it must match the "Routing Info" defined for that node. In
general if you only have one uplink for that zone/network, you can use the
first example below. But if you have many uplinks for a single network it
will of course become more complicated.
Routing info is defined in the format of addresses separated by spaces and
uses an asterisk (*) as a wildcard. In addition to an address, a "NOT" can
be applied to each address by appending a ! and another address mask to it
which will then be excluded.
For example if you have are a FidoNet node in zone 1 and you want to route
all netmail posted to zones 1 through 5 to a specific downlink, you'd
configure the following Routing Info for that echomail node:
Routing Info | 1:* 2:* 3:* 4:* 5:*
For most cases that will do. For networks that only have one zone you'd
simply route just that zone. IE RandomNet zone 66 would just have 66:*
and you are done. But...
If for example, you had two FidoNet uplinks one at (1:123/1) and you
wanted to route all Netmail to your first uplink EXCEPT for Netmail
specifically addressed to your second uplink's NET you'd do this for your
primary uplink:
Routing Info | 1:*!1:123/* 2:* 3:* 4:* 5:*
This will cause ALL zone 1-5 netmail to be routed to that uplink EXCEPT
for netmail with a destination to 1:123/*. And then you'd configure your
second uplink to route ONLY net 123:
Routing Info | 1:123/*
Remember, only exported echomail nodes are eligible for routing, so in the
above example you'd link both FidoNet bases to your export and Mystic.
As usual with routing it can be confusing when you have very specific
routing needs but if you have only single uplinks then it can be pretty
straight forward. EXISTING echomail users need to go in and add their
routing information.
+ Message bases can now be tagged and deleted in bulk, along with their
message base data files.
+ Message base global editor can now add and/or remove an echomail link to
a selected list of bases.
+ New MPL filebase variable: "fbasefn" returns the file base's filename.
<ALPHA 32 RELEASED>