Reformatting
This commit is contained in:
mysticbbs
parent
f4162f4da3
commit
c25341b0f1
|
|
@ -145,7 +145,9 @@ Begin
|
|||
|
||||
If OpenCreateBase(TempMsg, TempBase) Then Begin
|
||||
Result := TempMsg^.NumberOfMsgs;
|
||||
|
||||
TempMsg^.CloseMsgBase;
|
||||
|
||||
Dispose (TempMsg, Done);
|
||||
End;
|
||||
End;
|
||||
|
|
@ -321,7 +323,9 @@ Begin
|
|||
Until False;
|
||||
|
||||
Close (MBaseFile);
|
||||
|
||||
MBase := Old;
|
||||
|
||||
Exit;
|
||||
End;
|
||||
|
||||
|
|
@ -329,16 +333,21 @@ Begin
|
|||
|
||||
If A > 0 Then Begin
|
||||
Inc (A);
|
||||
|
||||
Reset (MBaseFile);
|
||||
|
||||
If A <= FileSize(MBaseFile) Then Begin
|
||||
Seek (MBaseFile, A-1);
|
||||
Read (MBaseFile, MBase);
|
||||
|
||||
If Session.User.Access(MBase.ListACS) Then Begin
|
||||
Session.User.ThisUser.LastMBase := FilePos(MBaseFile)
|
||||
End Else
|
||||
MBase := Old;
|
||||
End;
|
||||
|
||||
Close (MBaseFile);
|
||||
|
||||
Exit;
|
||||
End;
|
||||
|
||||
|
|
@ -463,7 +472,9 @@ Var
|
|||
|
||||
Repeat
|
||||
Read (MBaseFile, MBase);
|
||||
|
||||
If Session.User.Access(MBase.ListACS) Then Inc(B);
|
||||
|
||||
If A = B Then Break;
|
||||
Until False;
|
||||
|
||||
|
|
@ -519,8 +530,11 @@ Begin
|
|||
|
||||
Repeat
|
||||
Session.io.OutFull (Session.GetPrompt(95));
|
||||
|
||||
Temp := Session.io.GetInput(11, 11, 12, '');
|
||||
|
||||
If (Temp = '') or (Temp = 'Q') Then Break;
|
||||
|
||||
If Temp = '?' Then
|
||||
List_Bases
|
||||
Else Begin
|
||||
|
|
@ -538,6 +552,7 @@ Begin
|
|||
Until False;
|
||||
|
||||
Close (MBaseFile);
|
||||
|
||||
MBase := Old;
|
||||
End;
|
||||
|
||||
|
|
@ -589,6 +604,7 @@ Begin
|
|||
Close (GroupFile);
|
||||
|
||||
Group := tGroup;
|
||||
|
||||
Exit;
|
||||
End;
|
||||
|
||||
|
|
@ -640,10 +656,12 @@ Begin
|
|||
If Config.MShowBases Then Begin
|
||||
Reset (MBaseFile);
|
||||
Read (MBaseFile, tMBase); { Skip EMAIL base }
|
||||
|
||||
While Not Eof(MBaseFile) Do Begin
|
||||
Read (MBaseFile, tMBase);
|
||||
If Session.User.Access(tMBase.ListACS) Then Inc(Areas);
|
||||
End;
|
||||
|
||||
Close (MBaseFile);
|
||||
End;
|
||||
|
||||
|
|
@ -927,7 +945,9 @@ Var
|
|||
Procedure ReadText;
|
||||
Begin
|
||||
MsgBase^.MsgTxtStartUp;
|
||||
|
||||
Lines := 0;
|
||||
|
||||
While Not MsgBase^.EOM and (Lines < mysMaxMsgLines) Do Begin
|
||||
Inc (Lines);
|
||||
MsgText[Lines] := MsgBase^.GetString(79);
|
||||
|
|
@ -956,9 +976,12 @@ Begin
|
|||
Case Session.io.OneKey('ABQ!', True) of
|
||||
'A' : Begin
|
||||
Session.io.OutFull (Session.GetPrompt(297));
|
||||
|
||||
If MBase.NetType = 3 Then Begin
|
||||
Temp1 := Session.io.GetInput(30, 30, 11, MsgBase^.GetTo);
|
||||
|
||||
Session.io.OutFull (Session.GetPrompt(298));
|
||||
|
||||
If strStr2Addr(Session.io.GetInput(20, 20, 12, strAddr2Str(DestAddr)), DestAddr) Then Begin
|
||||
MsgBase^.SetTo(Temp1);
|
||||
MsgBase^.SetDest(DestAddr)
|
||||
|
|
@ -974,10 +997,12 @@ Begin
|
|||
End;
|
||||
'B' : Begin
|
||||
Session.io.OutFull (Session.GetPrompt(299));
|
||||
|
||||
MsgBase^.SetSubj(Session.io.GetInput(50, 50, 11, MsgBase^.GetSubj));
|
||||
End;
|
||||
'!' : Begin
|
||||
Temp1 := MsgBase^.GetSubj;
|
||||
|
||||
If Editor(Lines, 78, mysMaxMsgLines, False, False, Temp1) Then
|
||||
MsgBase^.SetSubj(Temp1)
|
||||
Else
|
||||
|
|
@ -1033,10 +1058,12 @@ Begin
|
|||
If OK Then Begin
|
||||
Assign (TF, FN);
|
||||
Reset (TF);
|
||||
|
||||
While Not Eof(TF) and (CurLine < mysMaxMsgLines) Do Begin
|
||||
ReadLn (TF, MsgText[CurLine]);
|
||||
Inc (CurLine);
|
||||
End;
|
||||
|
||||
Close (TF);
|
||||
End;
|
||||
|
||||
|
|
@ -1195,13 +1222,18 @@ Var
|
|||
WriteLn (TF, 'Date: ' + MsgBase^.GetDate + ' ' + MsgBase^.GetTime);
|
||||
WriteLn (TF, 'Base: ' + MBase.Name);
|
||||
WriteLn (TF, '');
|
||||
|
||||
MsgBase^.MsgTxtStartUp;
|
||||
|
||||
While Not MsgBase^.EOM Do Begin
|
||||
Temp := MsgBase^.GetString(79);
|
||||
If Temp[1] <> #1 Then WriteLn (TF, Temp);
|
||||
End;
|
||||
|
||||
Close (TF);
|
||||
|
||||
Session.io.OutFullLn (Session.GetPrompt(327));
|
||||
|
||||
If Not Session.LocalMode Then Begin
|
||||
Session.FileBase.SendFile(FN);
|
||||
FileErase(FN);
|
||||
|
|
@ -1273,6 +1305,7 @@ Var
|
|||
|
||||
If MBase.NetType = 3 Then Begin
|
||||
MsgBase^.GetOrig(NetAddr);
|
||||
|
||||
Session.io.PromptInfo[1] := Session.io.PromptInfo[1] + ' (' + strAddr2Str(NetAddr) + ')';
|
||||
End;
|
||||
|
||||
|
|
@ -1302,6 +1335,7 @@ Var
|
|||
B : Byte;
|
||||
Begin
|
||||
B := Pos('>', strStripL(Str, ' '));
|
||||
|
||||
If (B > 0) and (B < 5) Then Begin
|
||||
Session.io.AnsiColor(MBase.ColQuote);
|
||||
Session.io.OutPipe (Str);
|
||||
|
|
@ -1391,15 +1425,17 @@ Var
|
|||
If MsgBase^.GetMsgNum > LastRead Then LastRead := MsgBase^.GetMsgNum;
|
||||
|
||||
CurMsg := MsgBase^.GetMsgNum;
|
||||
Session.io.AllowArrow := True;
|
||||
Lines := 0;
|
||||
PageStart := 1;
|
||||
|
||||
Session.io.AllowArrow := True;
|
||||
|
||||
MsgBase^.MsgTxtStartUp;
|
||||
|
||||
While Not MsgBase^.EOM And (Lines < mysMaxMsgLines) Do Begin
|
||||
Inc (Lines);
|
||||
MsgText[Lines] := MsgBase^.GetString(79);//HERE
|
||||
|
||||
MsgText[Lines] := MsgBase^.GetString(79);
|
||||
|
||||
If MsgText[Lines][1] = #1 Then Begin
|
||||
If Copy(MsgText[Lines], 1, 6) = #1 + 'MSGID' Then
|
||||
|
|
@ -1414,7 +1450,7 @@ Var
|
|||
Session.io.ScreenInfo[4].Y := 0;
|
||||
Session.io.ScreenInfo[5].Y := 0;
|
||||
|
||||
Session.io.OutFile ('ansimrd', True, 0);
|
||||
Session.io.OutFile (MBase.RTemplate, True, 0);
|
||||
|
||||
PageSize := Session.io.ScreenInfo[2].Y - Session.io.ScreenInfo[1].Y + 1;
|
||||
|
||||
|
|
@ -1686,7 +1722,7 @@ Var
|
|||
Begin
|
||||
CheckNodeMessages;
|
||||
|
||||
Session.io.OutFile ('ansimlst', True, 0);
|
||||
Session.io.OutFile (MBase.ITemplate, True, 0);
|
||||
|
||||
PageSize := Session.io.ScreenInfo[2].Y - Session.io.ScreenInfo[1].Y + 1;
|
||||
End;
|
||||
|
|
@ -1870,6 +1906,7 @@ Var
|
|||
#77,
|
||||
#81 : Begin
|
||||
MsgBase^.SeekFirst(MsgInfo[PageTotal].Num);
|
||||
|
||||
If Read_Page(False, False, False) Then Begin
|
||||
If PagePos > PageTotal Then PagePos := PageTotal;
|
||||
End Else Begin
|
||||
|
|
@ -1888,7 +1925,9 @@ Var
|
|||
Case Ch of
|
||||
#13 : Begin
|
||||
MsgBase^.SeekFirst(MsgInfo[PagePos].Num);
|
||||
|
||||
SeekNextMsg (True, False);
|
||||
|
||||
If Ansi_View_Message Then Break;
|
||||
|
||||
MsgBase^.SeekFirst(MsgInfo[1].Num);
|
||||
|
|
@ -2045,15 +2084,20 @@ Var
|
|||
End;
|
||||
'J' : Begin
|
||||
B := MsgBase^.GetMsgNum;
|
||||
|
||||
Session.io.OutFull (Session.GetPrompt(334));
|
||||
|
||||
A := strS2I(Session.io.GetInput(9, 9, 12, ''));
|
||||
|
||||
If (A > 0) and (A <= MsgBase^.GetHighMsgNum) Then Begin
|
||||
MsgBase^.SeekFirst(A);
|
||||
|
||||
If Not SeekNextMsg(True, False) Then Begin
|
||||
MsgBase^.SeekFirst(B);
|
||||
SeekNextMsg(True, False);
|
||||
End;
|
||||
End;
|
||||
|
||||
Break;
|
||||
End;
|
||||
'L' : Begin
|
||||
|
|
@ -2065,6 +2109,7 @@ Var
|
|||
|
||||
While SeekNextMsg(False, False) Do Begin
|
||||
Assign_Header_Info;
|
||||
|
||||
Session.io.OutFullLn (Session.GetPrompt(412));
|
||||
|
||||
If (Session.io.PausePtr = Session.User.ThisUser.ScreenSize) and (Session.io.AllowPause) Then
|
||||
|
|
@ -2082,6 +2127,7 @@ Var
|
|||
'M' : Begin
|
||||
If Move_Message Then
|
||||
If Not SeekNextMsg(False, False) Then Exit;
|
||||
|
||||
Break;
|
||||
End;
|
||||
#13,
|
||||
|
|
@ -2091,10 +2137,12 @@ Var
|
|||
MsgBase^.SeekFirst(MsgBase^.GetMsgNum);
|
||||
SeekNextMsg(True, False);
|
||||
End;
|
||||
|
||||
Break;
|
||||
End;
|
||||
'Q' : Begin
|
||||
GetMessageScan;
|
||||
|
||||
If MScan.NewScan = 2 Then
|
||||
Session.io.OutFullLn(Session.GetPrompt(302))
|
||||
Else Begin
|
||||
|
|
@ -2108,7 +2156,9 @@ Var
|
|||
End;
|
||||
'T' : Begin
|
||||
Session.io.PromptInfo[1] := MBase.Name;
|
||||
|
||||
GetMessageScan;
|
||||
|
||||
Case MScan.NewScan of
|
||||
0 : Begin
|
||||
MScan.NewScan := 1;
|
||||
|
|
@ -2128,12 +2178,14 @@ Var
|
|||
'[' : If MsgBase^.GetRefer > 0 Then Begin
|
||||
MsgBase^.SeekFirst(MsgBase^.GetRefer);
|
||||
MsgBase^.MsgStartUp;
|
||||
|
||||
Break;
|
||||
End Else
|
||||
Session.io.OutFullLn (Session.GetPrompt(128));
|
||||
']' : If MsgBase^.GetSeeAlso > 0 Then Begin
|
||||
MsgBase^.SeekFirst(MsgBase^.GetSeeAlso);
|
||||
MsgBase^.MsgStartUp;
|
||||
|
||||
Break;
|
||||
End Else
|
||||
Session.io.OutFullLn (Session.GetPrompt(199));
|
||||
|
|
@ -2142,17 +2194,13 @@ Var
|
|||
Until False;
|
||||
End;
|
||||
|
||||
(**************************************************************************)
|
||||
(**************************************************************************)
|
||||
(**************************************************************************)
|
||||
(**************************************************************************)
|
||||
(**************************************************************************)
|
||||
(**************************************************************************)
|
||||
(**************************************************************************)
|
||||
(**************************************************************************)
|
||||
{ F = Forward S = Search E = Electronic Mail
|
||||
N = New messages Y = Your messages G = Global scan
|
||||
P = Global personal scan B = By You T = Global text search }
|
||||
|
||||
Var
|
||||
MsgNum : LongInt;
|
||||
Begin
|
||||
|
|
@ -2163,6 +2211,7 @@ Begin
|
|||
|
||||
If MBase.FileName = '' Then Begin
|
||||
Session.io.OutFullLn (Session.GetPrompt(110));
|
||||
|
||||
Exit;
|
||||
End;
|
||||
|
||||
|
|
@ -2173,6 +2222,7 @@ Begin
|
|||
|
||||
If Not (Mode in ['B', 'T', 'S', 'E', 'F', 'G', 'N', 'P', 'Y']) Then Begin
|
||||
Session.io.OutFull (Session.GetPrompt(112));
|
||||
|
||||
Mode := Session.io.OneKey('BFNSYQ', True);
|
||||
End;
|
||||
|
||||
|
|
@ -2180,7 +2230,9 @@ Begin
|
|||
'Q' : Exit;
|
||||
'S' : If SearchStr = '' Then Begin
|
||||
Session.io.OutFull (Session.GetPrompt(396));
|
||||
|
||||
SearchStr := Session.io.GetInput(50, 50, 12, '');
|
||||
|
||||
If SearchStr = '' Then Exit;
|
||||
End;
|
||||
End;
|
||||
|
|
@ -2197,7 +2249,9 @@ Begin
|
|||
Session.io.OutFullLn (Session.GetPrompt(124))
|
||||
Else
|
||||
If Not (Mode in ['G', 'P', 'T']) Then Session.io.OutFullLn (Session.GetPrompt(114));
|
||||
|
||||
Dispose (MsgBase, Done);
|
||||
|
||||
Exit;
|
||||
End;
|
||||
|
||||
|
|
@ -2220,7 +2274,9 @@ Begin
|
|||
|
||||
If Mode = 'F' Then Begin
|
||||
Session.io.PromptInfo[1] := strI2S(MsgBase^.GetHighMsgNum);
|
||||
|
||||
Session.io.OutFull (Session.GetPrompt(338));
|
||||
|
||||
MsgNum := strS2I(Session.io.GetInput(6, 6, 12, ''));
|
||||
End;
|
||||
|
||||
|
|
@ -2253,7 +2309,9 @@ Begin
|
|||
If WereMsgs Then Begin
|
||||
If Not (Mode in ['B', 'E', 'P']) And ReadRes Then
|
||||
If ListMode = 0 Then Begin
|
||||
|
||||
Session.io.OutFull('|CR');
|
||||
|
||||
If Session.io.GetYN(Session.GetPrompt(383), False) Then
|
||||
PostMessage (False, '');
|
||||
End Else
|
||||
|
|
@ -2331,30 +2389,37 @@ Begin
|
|||
If MBase.NetType = 3 Then Begin { NetMail Base: Get To *and* Address }
|
||||
If MsgTo = '' Then Begin
|
||||
Session.io.OutFull (Session.GetPrompt(119));
|
||||
|
||||
MsgTo := Session.io.GetInput (30, 30, 18, '');
|
||||
End;
|
||||
|
||||
If MsgAddr = '' Then Begin
|
||||
Session.io.OutFull (Session.GetPrompt(342));
|
||||
|
||||
MsgAddr := Session.io.GetInput (20, 20, 12, '');
|
||||
|
||||
If Not strStr2Addr(MsgAddr, DestAddr) Then MsgTo := '';
|
||||
End;
|
||||
End Else
|
||||
If MBase.Flags and MBPrivate <> 0 Then Begin
|
||||
If MsgTo = '' Then Begin
|
||||
Session.io.OutFull (Session.GetPrompt(450));
|
||||
|
||||
MsgTo := Session.io.GetInput (30, 30, 18, '');
|
||||
|
||||
If Not Session.User.SearchUser(MsgTo, MBase.Flags and MBRealNames <> 0) Then MsgTo := '';
|
||||
End Else
|
||||
If strUpper(MsgTo) = 'SYSOP' Then MsgTo := Config.SysopName;
|
||||
|
||||
If Session.User.FindUser(MsgTo, False) Then Begin
|
||||
Session.io.PromptInfo[1] := MsgTo;
|
||||
|
||||
Session.io.OutFullLn (Session.GetPrompt(108));
|
||||
End Else
|
||||
MsgTo := '';
|
||||
End Else Begin
|
||||
Session.io.OutFull (Session.GetPrompt(119));
|
||||
|
||||
MsgTo := Session.io.GetInput (30, 30, 18, 'All');
|
||||
End;
|
||||
|
||||
|
|
@ -2366,7 +2431,9 @@ Begin
|
|||
If MsgSubj = '' Then
|
||||
Repeat
|
||||
Session.io.OutFull (Session.GetPrompt(120));
|
||||
|
||||
MsgSubj := Session.io.GetInput (60, 60, 11, '');
|
||||
|
||||
If MsgSubj = '' Then
|
||||
If Forced Then
|
||||
Session.io.OutFull (Session.GetPrompt(307))
|
||||
|
|
@ -2407,6 +2474,7 @@ Begin
|
|||
MsgBase^.SetKillSent (Config.netKillSent);
|
||||
|
||||
DestAddr := Config.NetAddress[MBase.NetAddr];
|
||||
|
||||
MsgBase^.SetOrig (DestAddr);
|
||||
End;
|
||||
|
||||
|
|
@ -2514,7 +2582,9 @@ Begin
|
|||
Session.io.OutFullLn (Session.GetPrompt(124));
|
||||
|
||||
MsgBase^.CloseMsgBase;
|
||||
|
||||
Dispose (MsgBase, Done);
|
||||
|
||||
MBase := Old;
|
||||
End;
|
||||
|
||||
|
|
@ -2747,13 +2817,17 @@ Begin
|
|||
OldUser := Session.User.ThisUser;
|
||||
|
||||
Reset (Session.User.UserFile);
|
||||
|
||||
While Not Eof(Session.User.UserFile) Do Begin
|
||||
If (Session.User.ThisUser.Flags AND UserDeleted = 0) and Session.User.Access(ACS) Then Begin
|
||||
Read (Session.User.UserFile, Session.User.ThisUser);
|
||||
|
||||
Session.io.PromptInfo[1] := Session.User.ThisUser.Handle;
|
||||
|
||||
Session.io.OutFullLn (Session.GetPrompt(392));
|
||||
End;
|
||||
End;
|
||||
|
||||
Close (Session.User.UserFile);
|
||||
|
||||
Session.User.ThisUser := OldUser;
|
||||
|
|
@ -2769,7 +2843,9 @@ Begin
|
|||
While NamePos < 25 Do Begin
|
||||
Session.io.PromptInfo[1] := strI2S(NamePos);
|
||||
Session.io.OutFull (Session.GetPrompt(390));
|
||||
|
||||
Str := Session.io.GetInput (30, 30, 18, '');
|
||||
|
||||
If Str <> '' Then Begin
|
||||
If Session.User.SearchUser(Str, MBase.Flags And MBRealNames <> 0) Then Begin
|
||||
Inc (NamePos);
|
||||
|
|
@ -2843,8 +2919,10 @@ Begin
|
|||
OldUser := Session.User.ThisUser;
|
||||
|
||||
Reset (Session.User.UserFile);
|
||||
|
||||
While Not Eof(Session.User.UserFile) Do Begin
|
||||
Read (Session.User.UserFile, Session.User.ThisUser);
|
||||
|
||||
If (Session.User.ThisUser.Flags AND UserDeleted = 0) and Session.User.Access(ACS) Then Begin
|
||||
MsgTo := Session.User.ThisUser.Handle;
|
||||
Session.User.ThisUser := OldUser;
|
||||
|
|
@ -2854,6 +2932,7 @@ Begin
|
|||
// rewritten.. probably do away with global MBAse records
|
||||
End;
|
||||
End;
|
||||
|
||||
Close (Session.User.UserFile);
|
||||
|
||||
Session.User.ThisUser := OldUser;
|
||||
|
|
@ -2913,10 +2992,13 @@ Begin
|
|||
|
||||
Reset (MBaseFile);
|
||||
Read (MBaseFile, MBase); {SKIP EMAIL BASE}
|
||||
|
||||
While Not Eof(MBaseFile) Do Begin
|
||||
Read (MBaseFile, MBase);
|
||||
|
||||
If Session.User.Access(MBase.ReadACS) Then Begin
|
||||
GetMessageScan;
|
||||
|
||||
If MScan.QwkScan > 0 Then Begin
|
||||
Write (tFile, MBase.Index, CRLF); {conf #}
|
||||
Write (tFile, MBase.QwkName, CRLF); {conf name}
|
||||
|
|
|
|||
Loading…
Reference in New Issue