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

A32/Nodelist match option

This commit is contained in:
mysticbbs 2013-04-14 13:30:57 -04:00
parent d08486a89f
commit 9ff40fb603
5 changed files with 26 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_cfg_syscfg.pas
View File

@ -469,9 +469,9 @@ Begin
Form.AddBol ('S', ' Show Message Header', 6, 9, 29, 9, 21, 3, @Config.MShowHeader, Topic + 'Redisplay header after each page');
Form.AddBol ('B', ' Bases in Group List', 6, 10, 29, 10, 21, 3, @Config.MShowBases, Topic + 'Calculate bases in group list?');
Form.AddByte ('X', ' Max AutoSig Lines', 8, 11, 29, 11, 19, 3, 1, 99, @Config.MaxAutoSig, Topic + 'Max autosig lines');
Form.AddStr ('R', ' Crosspost ACS', 12, 12, 29, 12, 15, 20, 30, @Config.AcsCrossPost, Topic + 'ACS to allow crosspost messages');
Form.AddStr ('A', ' Attachment ACS', 11, 13, 29, 13, 16, 20, 30, @Config.AcsFileAttach, Topic + 'ACS to allow file attachments');
Form.AddStr ('S', ' Node Lookup ACS', 10, 14, 29, 14, 17, 20, 30, @Config.AcsNodeLookup, Topic + 'ACS to allow nodelist search');
Form.AddBol ('S', ' Force NL Match', 11, 12, 29, 12, 16, 3, @Config.ForceNodeList, Topic + 'Force nodelist lookup match when sending netmail?');
Form.AddStr ('R', ' Crosspost ACS', 12, 13, 29, 13, 15, 20, 30, @Config.AcsCrossPost, Topic + 'ACS to allow crosspost messages');
Form.AddStr ('A', ' Attachment ACS', 11, 14, 29, 14, 16, 20, 30, @Config.AcsFileAttach, Topic + 'ACS to allow file attachments');
Form.AddBol ('T', ' External FSE', 13, 15, 29, 15, 14, 3, @Config.FSEditor, Topic + 'Use external editor');
Form.AddStr ('F', ' FSE Command Line', 9, 16, 29, 16, 18, 40, 60, @Config.FSCommand, Topic + 'FSE command line');
Form.AddStr ('D', ' Default Origin', 11, 17, 29, 17, 16, 40, 50, @Config.Origin, Topic + 'Origin line for new bases');

13
mystic/bbs_msgbase.pas
View File

@ -182,6 +182,7 @@ Var
Listed : LongInt;
ListType : Byte;
HasList : Boolean;
Addr : RecEchoMailAddr;
Begin
HasList := FileExist(Config.DataPath + 'nodelist.txt');
NodeList := TNodeListSearch.Create;
@ -268,6 +269,18 @@ Begin
Break;
End;
End Else
If (Listed = 0) And Not FromMenu And Not Config.ForceNodelist Then Begin
If strStr2Addr(Result, Addr) Then Begin
Session.io.PromptInfo[1] := strAddr2Str(Addr);
Session.io.PromptInfo[7] := MsgTo;
If Session.io.GetYN(Session.GetPrompt(502), True) Then Begin
Result := strAddr2Str(NodeData.Address);
Break;
End;
End;
End Else Begin
Session.io.PromptInfo[1] := strComma(Listed);

2
mystic/mutil_echoimport.pas
View File

@ -382,7 +382,7 @@ Begin
(FileExt = 'SA') Then
ImportPacketBundle(DirInfo.Name)
Else
Log (2, '!', ' Unknown inbound file: ' + DirInfo.Name);
Log (2, '!', ' Unknown inbound file ' + DirInfo.Name);
End;
FindNext (DirInfo);

6
mystic/records.pas
View File

@ -23,7 +23,7 @@
Const
mysSoftwareID = 'Mystic'; // no idea
mysCopyYear = '1997-2013'; // its been a long time!
mysVersion = '1.10 A31'; // current version
mysVersion = '1.10 A32'; // current version
mysDataChanged = '1.10 A11'; // version of last records change
{$IFDEF WIN32}
@ -323,8 +323,8 @@ Type
//inetSMTPPW : String[30];
//EmailValidationLevel
//AllowEmailPWReset
Reserved : Array[1..812] of Char;
ForceNodeList : Boolean;
Reserved : Array[1..811] of Char;
End;
Const

6
mystic/whatsnew.txt
View File

@ -3123,3 +3123,9 @@
wierdness during message replies let me know.
<ALPHA 31 RELEASED>
+ New option in System Config -> Message Base settings called "Forced NL
Match". If this is set to TRUE, Mystic will force a user who is sending
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
not find a match they will still have the option to send the netmail.