671 lines
19 KiB
ObjectPascal
671 lines
19 KiB
ObjectPascal
// ====================================================================
|
|
// Mystic BBS Software Copyright 1997-2013 By James Coyle
|
|
// ====================================================================
|
|
//
|
|
// This file is part of Mystic BBS.
|
|
//
|
|
// Mystic BBS is free software: you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation, either version 3 of the License, or
|
|
// (at your option) any later version.
|
|
//
|
|
// Mystic BBS is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
// GNU General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with Mystic BBS. If not, see <http://www.gnu.org/licenses/>.
|
|
//
|
|
// ====================================================================
|
|
Unit bbs_cfg_EchoMail;
|
|
|
|
{$I M_OPS.PAS}
|
|
|
|
Interface
|
|
|
|
Uses
|
|
BBS_Core,
|
|
BBS_Records;
|
|
|
|
Procedure AddExportByBase (Var MBase: RecMessageBase; Idx: LongInt);
|
|
Procedure RemoveExportFromBase (Var MBase: RecMessageBase; Idx: LongInt);
|
|
|
|
Function Configuration_EchoMailNodes (Edit: Boolean) : LongInt;
|
|
Function Configuration_EchomailAddress (Edit: Boolean) : Byte;
|
|
Procedure Configuration_NodeExport (Var MBase: RecMessageBase);
|
|
|
|
Implementation
|
|
|
|
Uses
|
|
m_DateTime,
|
|
m_Strings,
|
|
m_FileIO,
|
|
m_QuickSort,
|
|
bbs_Ansi_MenuBox,
|
|
bbs_Ansi_MenuForm,
|
|
bbs_cfg_Common,
|
|
bbs_Cfg_MsgBase,
|
|
BBS_Common,
|
|
BBS_DataBase;
|
|
|
|
Function IsExportNode (Var MBase: RecMessageBase; Idx: LongInt) : Boolean;
|
|
Var
|
|
ExpFile : File of RecEchoMailExport;
|
|
ExpNode : RecEchoMailExport;
|
|
Begin
|
|
Result := False;
|
|
|
|
Assign (ExpFile, MBase.Path + MBase.FileName + '.lnk');
|
|
|
|
If Not ioReset (ExpFile, SizeOf(RecEchoMailExport), fmRWDN) Then Exit;
|
|
|
|
While Not Eof(ExpFile) Do Begin
|
|
Read (ExpFile, ExpNode);
|
|
|
|
If ExpNode = Idx Then Begin
|
|
Result := True;
|
|
|
|
Break;
|
|
End;
|
|
End;
|
|
|
|
Close (ExpFile);
|
|
End;
|
|
|
|
Procedure AddExportByBase (Var MBase: RecMessageBase; Idx: LongInt);
|
|
Var
|
|
ExpFile : File of RecEchoMailExport;
|
|
Begin
|
|
If IsExportNode (MBase, Idx) Then Exit;
|
|
|
|
Assign (ExpFile, MBase.Path + MBase.FileName + '.lnk');
|
|
|
|
If Not ioReset (ExpFile, SizeOf(RecEchoMailExport), fmRWDN) Then
|
|
If Not ioReWrite (ExpFile, SizeOf(RecEchoMailExport), fmRWDN) Then
|
|
Exit;
|
|
|
|
Seek (ExpFile, FileSize(ExpFile));
|
|
Write (ExpFile, Idx);
|
|
Close (ExpFile);
|
|
End;
|
|
|
|
Procedure RemoveExportFromBase (Var MBase: RecMessageBase; Idx: LongInt);
|
|
Var
|
|
ExpFile : File of RecEchoMailExport;
|
|
ExpNode : RecEchoMailExport;
|
|
Begin
|
|
Assign (ExpFile, MBase.Path + MBase.FileName + '.lnk');
|
|
|
|
If Not ioReset (ExpFile, SizeOf(RecEchoMailExport), fmRWDN) Then Exit;
|
|
|
|
While Not Eof(ExpFile) Do Begin
|
|
Read (ExpFile, ExpNode);
|
|
|
|
If ExpNode = Idx Then
|
|
KillRecord (ExpFile, FilePos(ExpFile), SizeOf(RecEchoMailExport));
|
|
End;
|
|
|
|
Close (ExpFile);
|
|
End;
|
|
|
|
Procedure RemoveExportGlobal (Idx: LongInt);
|
|
Var
|
|
MBaseFile : File of RecMessageBase;
|
|
MBase : RecMessageBase;
|
|
Begin
|
|
Assign (MBaseFile, bbsCfg.DataPath + 'mbases.dat');
|
|
|
|
If Not ioReset(MBaseFile, SizeOf(RecMessageBase), fmRWDN) Then Exit;
|
|
|
|
While Not Eof(MBaseFile) Do Begin
|
|
Read (MBaseFile, MBase);
|
|
|
|
RemoveExportFromBase(MBase, Idx);
|
|
End;
|
|
|
|
Close (MBaseFile);
|
|
End;
|
|
|
|
Procedure EditSessionInfo (Var Node: RecEchoMailNode);
|
|
Var
|
|
Box : TAnsiMenuBox;
|
|
Form : TAnsiMenuForm;
|
|
Topic : String;
|
|
Begin
|
|
Topic := '|03(|09Echomail Session|03) |01-|09> |15';
|
|
Box := TAnsiMenuBox.Create;
|
|
Form := TAnsiMenuForm.Create;
|
|
|
|
Case Node.ProtType of
|
|
0 : Begin
|
|
Box.Header := ' BINKP ';
|
|
|
|
Box.Open (17, 7, 63, 15);
|
|
|
|
VerticalLine (30, 9, 13);
|
|
|
|
Form.AddStr ('H', ' Host' , 24, 9, 32, 9, 6, 20, 60, @Node.binkHost, Topic + '<hostname>:<port>');
|
|
Form.AddMask ('S', ' Password' , 20, 10, 32, 10, 10, 20, 20, @Node.binkPass, Topic);
|
|
Form.AddWord ('T', ' TimeOut' , 21, 11, 32, 11, 9, 4, 10, 9999, @Node.binkTimeOut, Topic + 'Inactive session timeout (seconds)');
|
|
Form.AddWord ('B', ' BlockSize' , 19, 12, 32, 12, 11, 5, 4096, 30720, @Node.binkBlock, Topic + 'Blocksize in bytes');
|
|
Form.AddTog ('M', ' CRAM-MD5' , 20, 13, 32, 13, 10, 6, 0, 2, 'No Yes Forced', @Node.binkMD5, Topic);
|
|
|
|
Form.Execute;
|
|
|
|
Box.Close;
|
|
End;
|
|
1 : Begin
|
|
Box.Header := ' FTP ';
|
|
|
|
Box.Open (15, 7, 65, 16);
|
|
|
|
VerticalLine (32, 9, 14);
|
|
|
|
Form.AddStr ('H', ' Hostname' , 22, 9, 34, 9, 10, 30, 60, @Node.ftpOutHost, Topic);
|
|
Form.AddStr ('L', ' Login' , 25, 10, 34, 10, 7, 20, 20, @Node.ftpOutLogin, Topic);
|
|
Form.AddMask ('P', ' Password' , 22, 11, 34, 11, 10, 20, 20, @Node.ftpOutPass, Topic);
|
|
Form.AddBol ('A', ' Passive' , 23, 12, 34, 12, 9, 3, @Node.ftpPassive, Topic);
|
|
Form.AddStr ('O', ' Out Directory', 17, 13, 34, 13, 15, 30, 60, @Node.ftpOutDir, Topic);
|
|
Form.AddStr ('I', ' In Directory' , 18, 14, 34, 14, 14, 30, 60, @Node.ftpInDir, Topic);
|
|
|
|
Form.Execute;
|
|
|
|
Box.Close;
|
|
|
|
End;
|
|
2 : Begin
|
|
Box.Header := ' Directory ';
|
|
|
|
Box.Open (15, 8, 64, 13);
|
|
|
|
VerticalLine (31, 10, 11);
|
|
|
|
Form.AddPath ('O', ' Outbound Dir', 17, 10, 33, 10, 14, 30, 60, @Node.DirOutDir, Topic);
|
|
Form.AddPath ('I', ' Inbound Dir' , 18, 11, 33, 11, 13, 30, 60, @Node.DirInDir, Topic);
|
|
|
|
Form.Execute;
|
|
|
|
Box.Close;
|
|
|
|
End;
|
|
End;
|
|
|
|
Form.Free;
|
|
Box.Free;
|
|
End;
|
|
|
|
Procedure EditNode (Var Node: RecEchoMailNode);
|
|
Var
|
|
Box : TAnsiMenuBox;
|
|
Form : TAnsiMenuForm;
|
|
Topic : String;
|
|
Begin
|
|
Topic := '|03(|09Echomail Node|03) |01-|09> |15';
|
|
Box := TAnsiMenuBox.Create;
|
|
Form := TAnsiMenuForm.Create;
|
|
|
|
Box.Header := ' Index ' + strI2S(Node.Index) + ' ';
|
|
|
|
Box.Open (10, 5, 70, 17);
|
|
|
|
VerticalLine (27, 7, 13);
|
|
VerticalLine (59, 7, 11);
|
|
|
|
Form.AddStr ('D', ' Description' , 14, 7, 29, 7, 13, 23, 35, @Node.Description, Topic + 'Node description');
|
|
Form.AddBol ('A', ' Active' , 19, 8, 29, 8, 8, 3, @Node.Active, Topic + 'Is node active?');
|
|
Form.AddStr ('R', ' Archive Type' , 13, 9, 29, 9, 14, 4, 4, @Node.ArcType, Topic + 'Archive type for packets');
|
|
Form.AddTog ('Y', ' Export Type' , 14, 10, 29, 10, 13, 6, 0, 3, 'Normal Crash Direct Hold', @Node.MailType, Topic);
|
|
Form.AddPass ('F', ' AllFix PW' , 16, 11, 29, 11, 11, 20, 20, @Node.AreaFixPass, Topic + 'Password for Area/FileFix');
|
|
Form.AddTog ('T', ' Session Type' , 13, 12, 29, 12, 14, 9, 0, 2, 'BinkP FTP Directory', @Node.ProtType, Topic + 'Transfer using BinkP, FTP, or to a file directory');
|
|
Form.AddStr ('U', ' Route Info' , 15, 13, 29, 13, 12, 40, 128, @Node.RouteInfo, Topic + 'Route info (ie "2:* 3:*")');
|
|
|
|
Form.AddNone ('S', ' Session Options', 32, 15, 32, 15, 17, Topic);
|
|
|
|
Form.AddWord ('Z', ' Zone' , 53, 7, 61, 7, 6, 5, 0, 65535, @Node.Address.Zone, Topic + 'Network Zone');
|
|
Form.AddWord ('N', ' Net' , 54, 8, 61, 8, 5, 5, 0, 65535, @Node.Address.Net, Topic + 'Network Net');
|
|
Form.AddWord ('O', ' Node' , 53, 9, 61, 9, 6, 5, 0, 65535, @Node.Address.Node, Topic + 'Network Node');
|
|
Form.AddWord ('P', ' Point' , 52, 10, 61, 10, 7, 5, 0, 65535, @Node.Address.Point, Topic + 'Network Point');
|
|
Form.AddStr ('I', ' Domain' , 51, 11, 61, 11, 8, 8, 8, @Node.Domain, Topic + 'Network Domain');
|
|
|
|
Repeat
|
|
If Form.Execute <> 'S' Then Break;
|
|
|
|
EditSessionInfo(Node);
|
|
Until False;
|
|
|
|
Box.Close;
|
|
|
|
Form.Free;
|
|
Box.Free;
|
|
End;
|
|
|
|
Procedure EditExportsByNode (Var Node: RecEchoMailNode);
|
|
Var
|
|
Box : TAnsiMenuBox;
|
|
List : TAnsiMenuList;
|
|
MBaseFile : File of RecMessageBase;
|
|
MBase : RecMessageBase;
|
|
|
|
Procedure MakeList;
|
|
Begin
|
|
List.Clear;
|
|
|
|
Reset (MBaseFile);
|
|
|
|
While Not Eof(MBaseFile) Do Begin
|
|
Read (MBaseFile, MBase);
|
|
|
|
If IsExportNode(MBase, Node.Index) Then
|
|
List.Add(strPadR(strI2S(MBase.Index), 6, ' ') + ' ' + strPadR('(' + MBase.EchoTag + ') ' + strStripPipe(MBase.Name), 47, ' '), 0);
|
|
End;
|
|
End;
|
|
|
|
Var
|
|
NewIdx : LongInt;
|
|
Begin
|
|
Assign (MBaseFile, bbsCfg.DataPath + 'mbases.dat');
|
|
|
|
If Not ioReset(MBaseFile, SizeOf(RecMessageBase), fmRWDN) Then
|
|
Exit;
|
|
|
|
Box := TAnsiMenuBox.Create;
|
|
List := TAnsiMenuList.Create;
|
|
|
|
List.NoWindow := True;
|
|
List.LoChars := #27#47;
|
|
List.SearchY := 21;
|
|
Box.Header := ' Exports to ' + Node.Description + ' ';
|
|
|
|
Box.Open (11, 5, 69, 21);
|
|
|
|
WriteXY (13, 6, 112, 'Index Base');
|
|
WriteXY (13, 7, 112, strRep(#196, 55));
|
|
WriteXY (13, 19, 112, strRep(#196, 55));
|
|
WriteXY (29, 20, 112, cfgCommandList);
|
|
|
|
Repeat
|
|
MakeList;
|
|
|
|
List.Open (11, 7, 69, 19);
|
|
|
|
Case List.ExitCode of
|
|
'/' : Case GetCommandOption(10, 'I-Insert|D-Delete|') of
|
|
'I' : Begin
|
|
Close (MBaseFile);
|
|
|
|
NewIdx := Configuration_MessageBaseEditor(False);
|
|
|
|
If NewIdx <> -1 Then
|
|
If GetMBaseByIndex(NewIdx, MBase) Then Begin
|
|
If MBase.EchoTag = '' Then
|
|
ShowMsgBox(0, 'Missing ECHOTAG for ' + strStripPipe(MBase.Name))
|
|
Else
|
|
AddExportByBase (MBase, Node.Index);
|
|
End;
|
|
End;
|
|
'D' : If List.ListMax > 0 Then
|
|
If ShowMsgBox(1, 'Delete this entry?') Then
|
|
If GetMBaseByIndex (strS2I(strWordGet(1, List.List[List.Picked]^.Name, ' ')), MBase) Then Begin
|
|
|
|
RemoveExportFromBase(MBase, Node.Index);
|
|
End;
|
|
End;
|
|
#27 : Break;
|
|
End;
|
|
Until False;
|
|
|
|
List.Close;
|
|
Box.Close;
|
|
|
|
List.Free;
|
|
Box.Free;
|
|
|
|
Close (MBaseFile);
|
|
End;
|
|
|
|
Function Configuration_EchoMailNodes (Edit: Boolean) : LongInt;
|
|
Var
|
|
Box : TAnsiMenuBox;
|
|
List : TAnsiMenuList;
|
|
EchoFile : File of RecEchoMailNode;
|
|
EchoNode : RecEchoMailNode;
|
|
|
|
Function GetPermanentIndex (Start: LongInt) : LongInt;
|
|
Var
|
|
TempNode : RecEchoMailNode;
|
|
SavedRec : LongInt;
|
|
Begin
|
|
Result := Start;
|
|
SavedRec := FilePos(EchoFile);
|
|
|
|
If Result = 0 Then Inc(Result);
|
|
|
|
Reset (EchoFile);
|
|
|
|
While Not Eof(EchoFile) Do Begin
|
|
Read (EchoFile, TempNode);
|
|
|
|
If Result = TempNode.Index Then Begin
|
|
If Result >= 2000000 Then Result := 1;
|
|
|
|
Inc (Result);
|
|
Reset (EchoFile);
|
|
End;
|
|
End;
|
|
|
|
Seek (EchoFile, SavedRec);
|
|
End;
|
|
|
|
Procedure MakeList;
|
|
Begin
|
|
List.Clear;
|
|
|
|
Reset (EchoFile);
|
|
|
|
While Not Eof(EchoFile) Do Begin
|
|
Read (EchoFile, EchoNode);
|
|
|
|
List.Add(strPadR(strI2S(FilePos(EchoFile)), 7, ' ') + ' ' + strPadL(strYN(EchoNode.Active), 3, ' ') + ' ' + strPadR(EchoNode.Description, 35, ' ') + ' ' + strPadL(Addr2Str(EchoNode.Address), 17, ' '), 0);
|
|
End;
|
|
|
|
List.Add('', 2);
|
|
End;
|
|
|
|
Procedure InsertRecord;
|
|
Begin
|
|
AddRecord (EchoFile, List.Picked, SizeOf(RecEchoMailNode));
|
|
|
|
FillChar (EchoNode, SizeOf(RecEchoMailNode), 0);
|
|
|
|
With EchoNode Do Begin
|
|
Description := 'New echomail node';
|
|
Index := GetPermanentIndex(FileSize(EchoFile));
|
|
ArcType := 'ZIP';
|
|
BinkBlock := 16 * 1024;
|
|
BinkTimeOut := 30;
|
|
End;
|
|
|
|
Write (EchoFile, EchoNode);
|
|
End;
|
|
|
|
Begin
|
|
Result := -1;
|
|
|
|
Assign (EchoFile, bbsCfg.DataPath + 'echonode.dat');
|
|
|
|
If Not ioReset(EchoFile, SizeOf(EchoNode), fmRWDN) Then
|
|
If Not ioReWrite(EchoFile, SizeOf(EchoNode), fmRWDN) Then
|
|
Exit;
|
|
|
|
Box := TAnsiMenuBox.Create;
|
|
List := TAnsiMenuList.Create;
|
|
|
|
List.NoWindow := True;
|
|
List.LoChars := #13#27#47;
|
|
List.AllowTag := True;
|
|
List.SearchY := 21;
|
|
|
|
Box.Header := ' EchoMail Nodes ';
|
|
|
|
If Not Edit Then Box.Header := ' Select' + Box.Header;
|
|
|
|
Box.Open (5, 5, 74, 21);
|
|
|
|
WriteXY (7, 6, 112, '### Active Description' + strRep(' ', 35) + 'Network');
|
|
WriteXY (7, 7, 112, strRep(#196, 66));
|
|
WriteXY (7, 19, 112, strRep(#196, 66));
|
|
WriteXY (28, 20, 112, cfgCommandList);
|
|
|
|
Repeat
|
|
MakeList;
|
|
|
|
List.Open (5, 7, 74, 19);
|
|
List.Close;
|
|
|
|
Case List.ExitCode of
|
|
'/' : If Edit Then
|
|
Case GetCommandOption(10, 'I-Insert|D-Delete|E-Exports|') of
|
|
'I' : Begin
|
|
InsertRecord;
|
|
MakeList;
|
|
End;
|
|
'D' : If (List.Picked < List.ListMax) Then
|
|
If ShowMsgBox(1, 'Delete this entry?') Then Begin
|
|
Seek (EchoFile, List.Picked - 1);
|
|
Read (EchoFile, EchoNode);
|
|
|
|
KillRecord (EchoFile, List.Picked, SizeOf(RecEchoMailNode));
|
|
|
|
RemoveExportGlobal(EchoNode.Index);
|
|
|
|
MakeList;
|
|
End;
|
|
'E' : If List.Picked < List.ListMax Then Begin
|
|
Seek (EchoFile, List.Picked - 1);
|
|
Read (EchoFile, EchoNode);
|
|
|
|
EditExportsByNode(EchoNode);
|
|
End;
|
|
End;
|
|
#13 : If List.Picked < List.ListMax Then Begin
|
|
Seek (EchoFile, List.Picked - 1);
|
|
Read (EchoFile, EchoNode);
|
|
|
|
If Not Edit Then Begin
|
|
Result := EchoNode.Index;
|
|
|
|
Break;
|
|
End;
|
|
|
|
EditNode (EchoNode);
|
|
|
|
Seek (EchoFile, List.Picked - 1);
|
|
Write (EchoFile, EchoNode);
|
|
End;
|
|
#27 : Break;
|
|
End;
|
|
Until False;
|
|
|
|
Close (EchoFile);
|
|
|
|
Box.Close;
|
|
List.Free;
|
|
Box.Free;
|
|
End;
|
|
|
|
Function Configuration_EchomailAddress (Edit: Boolean) : Byte;
|
|
|
|
Procedure EditAddress (Num: Byte);
|
|
Label
|
|
Start;
|
|
Var
|
|
Box : TAnsiMenuBox;
|
|
Form : TAnsiMenuForm;
|
|
Topic : String;
|
|
Count : Byte;
|
|
Begin
|
|
Start:
|
|
|
|
Topic := '|03(|09Echomail Network|03) |01-|09> |15';
|
|
Box := TAnsiMenuBox.Create;
|
|
Form := TAnsiMenuForm.Create;
|
|
|
|
Box.Open (14, 6, 66, 18);
|
|
|
|
VerticalLine (29, 9, 12);
|
|
VerticalLine (29, 14, 16);
|
|
|
|
WriteXY (21, 8, 112, 'Address');
|
|
|
|
Form.AddWord ('Z', ' Zone' , 23, 9, 31, 9, 6, 5, 0, 65535, @bbsCfg.NetAddress[Num].Zone, Topic + 'Network Zone');
|
|
Form.AddWord ('N', ' Net' , 24, 10, 31, 10, 5, 5, 0, 65535, @bbsCfg.NetAddress[Num].Net, Topic + 'Network Net');
|
|
Form.AddWord ('O', ' Node' , 23, 11, 31, 11, 6, 5, 0, 65535, @bbsCfg.NetAddress[Num].Node, Topic + 'Network Node');
|
|
Form.AddWord ('P', ' Point' , 22, 12, 31, 12, 7, 5, 0, 65535, @bbsCfg.NetAddress[Num].Point, Topic + 'Network Point');
|
|
|
|
Form.AddStr ('M', ' Domain', 21, 14, 31, 14, 8, 8, 8, @bbsCfg.NetDomain[Num], Topic + 'Network domain');
|
|
Form.AddStr ('D', ' Description', 16, 15, 31, 15, 13, 25, 25, @bbsCfg.NetDesc[Num], Topic + 'Network description');
|
|
Form.AddBol ('I', ' Primary', 20, 16, 31, 16, 9, 3, @bbsCfg.NetPrimary[Num], Topic + 'Is this a primary address?');
|
|
|
|
Form.Execute;
|
|
|
|
If bbsCfg.NetPrimary[Num] Then
|
|
For Count := 1 to 30 Do
|
|
If bbsCfg.NetPrimary[Count] and (Count <> Num) Then
|
|
bbsCfg.NetPrimary[Count] := False;
|
|
|
|
Box.Close;
|
|
Form.Free;
|
|
Box.Free;
|
|
|
|
If Addr2Str(bbsCfg.NetAddress[Num]) = '0:0/0' Then
|
|
bbsCfg.NetDomain[Num] := ''
|
|
Else
|
|
If bbsCfg.NetDomain[Num] = '' Then Begin
|
|
ShowMsgBox(0, 'You must supply a domain');
|
|
Goto Start;
|
|
End;
|
|
End;
|
|
|
|
Var
|
|
Box : TAnsiMenuBox;
|
|
List : TAnsiMenuList;
|
|
|
|
Procedure CreateList;
|
|
Var
|
|
A : Byte;
|
|
Begin
|
|
List.Clear;
|
|
|
|
For A := 1 to 30 Do
|
|
List.Add(strPadR(Addr2Str(bbsCfg.NetAddress[A]), 23, ' ') + ' ' + strPadR(bbsCfg.NetDomain[A], 8, ' ') + ' ' + strPadR(strYN(bbsCfg.NetPrimary[A]), 3, ' ') + ' ' + bbsCfg.NetDesc[A], 0);
|
|
End;
|
|
|
|
Var
|
|
Count : Byte;
|
|
Begin
|
|
Result := 0;
|
|
|
|
Box := TAnsiMenuBox.Create;
|
|
List := TAnsiMenuList.Create;
|
|
|
|
List.NoWindow := True;
|
|
|
|
Box.Open (7, 5, 74, 20);
|
|
|
|
WriteXY (9, 6, 112, 'Network Address Domain Pri Description');
|
|
WriteXY (9, 7, 112, strRep('Ä', 64));
|
|
|
|
Repeat
|
|
CreateList;
|
|
|
|
List.Open (7, 7, 74, 20);
|
|
|
|
Case List.ExitCode of
|
|
#13 : If Edit Then
|
|
EditAddress(List.Picked)
|
|
Else Begin
|
|
Result := List.Picked;
|
|
Break;
|
|
End;
|
|
#27 : Break;
|
|
End;
|
|
Until False;
|
|
|
|
For Count := 1 to 30 Do Begin
|
|
If bbsCfg.NetPrimary[Count] Then Break;
|
|
|
|
If Count = 30 Then ShowMsgBox(0, 'WARNING: No address is set to primary');
|
|
End;
|
|
|
|
List.Close;
|
|
Box.Close;
|
|
|
|
List.Free;
|
|
Box.Free;
|
|
End;
|
|
|
|
Procedure Configuration_NodeExport (Var MBase: RecMessageBase);
|
|
Var
|
|
ExportFile : File of RecEchoMailExport;
|
|
ExpNode : RecEchoMailExport;
|
|
Box : TAnsiMenuBox;
|
|
List : TAnsiMenuList;
|
|
|
|
Procedure MakeList;
|
|
Var
|
|
Node : RecEchoMailNode;
|
|
Begin
|
|
List.Clear;
|
|
|
|
ioReset (ExportFile, SizeOf(RecEchoMailExport), fmRWDN);
|
|
|
|
While Not Eof(ExportFile) Do Begin
|
|
Read (ExportFile, ExpNode);
|
|
|
|
If GetNodeByIndex(ExpNode, Node) Then
|
|
List.Add(strPadR(strI2S(FilePos(ExportFile)), 4, ' ') + ' ' + strPadR(Node.Description, 37, ' ') + ' ' + strPadL(Addr2Str(Node.Address), 12, ' '), 0)
|
|
Else
|
|
List.Add('XXX UNKNOWN - DELETE THIS', 0);
|
|
End;
|
|
End;
|
|
|
|
Var
|
|
NewIdx : RecEchoMailExport;
|
|
Begin
|
|
Assign (ExportFile, MBase.Path + MBase.FileName + '.lnk');
|
|
|
|
If Not ioReset(ExportFile, SizeOf(RecEchoMailExport), fmRWDN) Then
|
|
If Not ioReWrite(ExportFile, SizeOf(RecEchoMailExport), fmRWDN) Then
|
|
Exit;
|
|
|
|
Box := TAnsiMenuBox.Create;
|
|
List := TAnsiMenuList.Create;
|
|
|
|
List.NoWindow := True;
|
|
List.LoChars := #27#47;
|
|
List.SearchY := 21;
|
|
|
|
Box.Header := ' EchoMail Exports ';
|
|
|
|
Box.Open (11, 5, 69, 21);
|
|
|
|
WriteXY (13, 6, 112, '### Description' + strRep(' ', 32) + 'Address');
|
|
WriteXY (13, 7, 112, strRep(#196, 55));
|
|
WriteXY (13, 19, 112, strRep(#196, 55));
|
|
WriteXY (29, 20, 112, cfgCommandList);
|
|
|
|
Repeat
|
|
MakeList;
|
|
|
|
List.Open (11, 7, 69, 19);
|
|
|
|
Case List.ExitCode of
|
|
'/' : Case GetCommandOption(10, 'I-Insert|D-Delete|') of
|
|
'I' : Begin
|
|
NewIdx := Configuration_EchoMailNodes(False);
|
|
|
|
If (NewIdx > 0) And Not IsExportNode(MBase, NewIdx) Then Begin
|
|
Seek (ExportFile, FileSize(ExportFile));
|
|
Write (ExportFile, NewIdx);
|
|
End;
|
|
End;
|
|
'D' : If List.ListMax > 0 Then
|
|
If ShowMsgBox(1, 'Delete this entry?') Then
|
|
KillRecord (ExportFile, List.Picked, SizeOf(RecEchoMailExport));
|
|
End;
|
|
#27 : Break;
|
|
End;
|
|
Until False;
|
|
|
|
List.Close;
|
|
Box.Close;
|
|
|
|
List.Free;
|
|
Box.Free;
|
|
|
|
Close (ExportFile);
|
|
End;
|
|
|
|
End.
|