1161 lines
37 KiB
Plaintext
1161 lines
37 KiB
Plaintext
{$A+,B-,D+,E-,F+,I-,L+,N-,O+,R-,S+,V-}
|
||
|
||
UNIT Mail5;
|
||
|
||
INTERFACE
|
||
|
||
USES
|
||
Common;
|
||
|
||
PROCEDURE Post(ReplyTo: LongInt; VAR TToI: FromToInfo; PvtMsg: Boolean);
|
||
PROCEDURE ReadMessages(MenuOption: Str50);
|
||
PROCEDURE ScanMessages(MArea: Integer; AskUpDate: Boolean; MenuOption: Str50);
|
||
PROCEDURE StartNewScan(MenuOption: Str50);
|
||
PROCEDURE ScanYours;
|
||
FUNCTION FirstNew: Word;
|
||
|
||
IMPLEMENTATION
|
||
|
||
USES
|
||
Dos,
|
||
Mail0,
|
||
Mail1,
|
||
EMail,
|
||
Mail6,
|
||
Menus,
|
||
ShortMsg,
|
||
SysOp3,
|
||
TimeFunc;
|
||
|
||
VAR
|
||
TempLastRead: LongInt;
|
||
|
||
PROCEDURE Post(ReplyTo: LongInt; VAR TToI: FromToInfo; PvtMsg: Boolean);
|
||
VAR
|
||
MHeader,
|
||
MHeader2: MHeaderRec;
|
||
ok: Boolean;
|
||
|
||
PROCEDURE Nope(DisplayStr: AStr);
|
||
BEGIN
|
||
IF (ok) THEN
|
||
BEGIN
|
||
NL;
|
||
Print(DisplayStr);
|
||
NL;
|
||
END;
|
||
ok := FALSE;
|
||
END;
|
||
|
||
BEGIN
|
||
ok := TRUE;
|
||
LoadMsgArea(MsgArea);
|
||
IF (NOT AACS(MemMsgArea.PostACS)) THEN
|
||
Nope('Your access level does not allow you to post in this area.');
|
||
IF (AccountBalance < General.CreditPost) AND NOT (FNoCredits IN ThisUser.Flags) THEN
|
||
Nope('Insufficient account balance to post a message.');
|
||
IF ((RPost IN ThisUser.Flags) OR (NOT AACS(General.NormPubPost))) THEN
|
||
Nope('Your access priviledges do not include posting.');
|
||
IF ((PToday >= General.MaxPubPost) AND (NOT MsgSysOp)) THEN
|
||
Nope('Too many messages posted today.');
|
||
IF (ok) THEN
|
||
BEGIN
|
||
InitMsgArea(MsgArea);
|
||
MHeader.FileAttached := 0;
|
||
MHeader.Status := [];
|
||
IF (ReplyTo <> -1) THEN
|
||
BEGIN
|
||
MHeader.MTo := TToI;
|
||
IF (MHeader.MTo.Anon > 0) THEN
|
||
MHeader.MTo.A1S := UseName(MHeader.MTo.Anon,MHeader.MTo.A1S);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
FillChar(MHeader.MTo,SizeOf(MHeader.MTo),0);
|
||
InResponseTo := '';
|
||
END;
|
||
|
||
IF (MemMsgArea.PrePostFile <> '') THEN
|
||
BEGIN
|
||
PrintF(MemMsgArea.PrePostFile);
|
||
PauseScr(FALSE);
|
||
END;
|
||
|
||
IF (InputMessage(TRUE,(ReplyTo <> -1),TRUE,'',MHeader,'')) THEN
|
||
BEGIN
|
||
IF (ReplyTo <> -1) THEN
|
||
MHeader.ReplyTo := ((HiMsg + 1) - ReplyTo);
|
||
IF (PvtMsg) THEN
|
||
Include(MHeader.Status,Prvt);
|
||
SaveHeader((HiMsg + 1),MHeader);
|
||
IF (ReplyTo <> -1) THEN
|
||
BEGIN
|
||
LoadHeader(ReplyTo,MHeader2);
|
||
Inc(MHeader2.Replies);
|
||
SaveHeader(ReplyTo,MHeader2);
|
||
END;
|
||
SysOpLog(MHeader.Subject+' posted on ^5'+MemMsgArea.Name);
|
||
IF (MHeader.MTo.A1S <> '') THEN
|
||
SysOpLog(' To: "'+MHeader.MTo.A1S+'"');
|
||
Print('^9Message posted on ^5'+MemMsgArea.Name+'^9.');
|
||
NL;
|
||
Inc(ThisUser.MsgPost);
|
||
Inc(PToday);
|
||
IF NOT (FNoCredits IN ThisUser.Flags) THEN
|
||
AdjustBalance(General.CreditPost);
|
||
SaveURec(ThisUser,UserNum);
|
||
Update_Screen;
|
||
END;
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE ListMessages;
|
||
VAR
|
||
MHeader: MheaderRec;
|
||
S,
|
||
S1: STRING;
|
||
TempHiMsg: Word;
|
||
ADate: DateTime;
|
||
NumDone: Byte;
|
||
BEGIN
|
||
NumDone := 0;
|
||
TempHiMsg := HiMsg;
|
||
IF ((Msg_On < 1) OR (Msg_On > TempHiMsg)) THEN
|
||
Exit;
|
||
Abort := FALSE;
|
||
Next := FALSE; (* Added *)
|
||
Cls;
|
||
PrintACR(' <1C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ');
|
||
PrintACR(' <1C> Msg# <1C> Sender <1C> Receiver <1C> '+'Subject <1C>! Posted <1C>');
|
||
PrintACR(' <1C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
Dec(Msg_On);
|
||
WHILE ((NumDone < (PageLength - 7)) AND (Msg_On >= 0) AND (Msg_On < TempHiMsg) AND (NOT Next) AND (NOT Abort) AND
|
||
(NOT HangUp)) DO
|
||
BEGIN
|
||
Inc(Msg_On);
|
||
LoadHeader(Msg_On,MHeader);
|
||
IF ((NOT (UnValidated IN MHeader.Status)) AND NOT (Mdeleted IN MHeader.Status)) OR (MsgSysOp) THEN
|
||
BEGIN
|
||
IF (Mdeleted IN MHeader.Status) THEN
|
||
S := '''D '
|
||
ELSE IF (UnValidated IN MHeader.Status) THEN
|
||
S := '''U '
|
||
ELSE IF ToYou(MHeader) OR FromYou(MHeader) THEN
|
||
S := '''> '
|
||
ELSE IF (TempLastRead < MHeader.Date) THEN
|
||
S := '''* '
|
||
ELSE
|
||
S := ' ';
|
||
S := S + '"'+PadLeftInt(Msg_On,5)+' #';
|
||
IF (MARealName IN MemMsgArea.MAFlags) THEN
|
||
S1 := UseName(MHeader.From.Anon,MHeader.From.Real)
|
||
ELSE
|
||
S1 := UseName(MHeader.From.Anon,MHeader.From.A1S);
|
||
S := S + PadLeftStr(S1,18)+' $';
|
||
IF ((MARealName IN MemMsgArea.MAFlags) AND (MHeader.MTo.Real <> '')) THEN
|
||
S1 := UseName(MHeader.MTo.Anon,MHeader.MTo.Real)
|
||
ELSE
|
||
S1 := UseName(MHeader.MTo.Anon,MHeader.MTo.A1S);
|
||
S := S + PadLeftStr(S1,19)+' % ';
|
||
IF (MHeader.FileAttached = 0) THEN
|
||
S := S + PadLeftStr(MHeader.Subject,18)
|
||
ELSE
|
||
S := S + PadLeftStr(Stripname(MHeader.Subject),18);
|
||
PackToDate(ADate,MHeader.Date);
|
||
S := S + ' &'+ZeroPad(IntToStr(ADate.Month))+'/'+ ZeroPad(IntToStr(ADate.Day))+'/'+ZeroPad(IntToStr(ADate.Year));
|
||
IF (AllowMCI IN MHeader.Status) THEN
|
||
PrintACR(S)
|
||
ELSE
|
||
Print(S);
|
||
Inc(NumDone);
|
||
END;
|
||
Wkey;
|
||
IF (Next) THEN
|
||
BEGIN
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
END;
|
||
END;
|
||
IF (Msg_On = TempHiMsg) THEN
|
||
BEGIN
|
||
Dec(Msg_On);
|
||
LoadHeader(Msg_On,MHeader);
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE MainRead(OncOnly,AskUpdate,Pub: Boolean);
|
||
VAR
|
||
User: UserRecordType;
|
||
MHeader: MHeaderRec;
|
||
LastReadRecord: ScanRec;
|
||
Cmd,
|
||
NewMenuCmd: AStr;
|
||
Cmd1: Char;
|
||
SaveMenu,
|
||
CmdToExec,
|
||
Counter: Byte;
|
||
MsgNum,
|
||
ThreadStart: Word;
|
||
Done,
|
||
CmdNotHid,
|
||
CmdExists,
|
||
AskPost,
|
||
Contlist,
|
||
DoneScan,
|
||
HadUnVal: Boolean;
|
||
|
||
FUNCTION CantBeSeen: Boolean;
|
||
BEGIN
|
||
CantBeSeen := (NOT MsgSysOp) AND ((UnValidated IN MHeader.Status) OR (Mdeleted IN MHeader.Status) OR
|
||
((Prvt IN MHeader.Status) AND NOT (ToYou(MHeader) OR FromYou(MHeader))));
|
||
END;
|
||
|
||
BEGIN
|
||
AskPost := FALSE;
|
||
Contlist := FALSE;
|
||
DoneScan := FALSE;
|
||
HadUnVal := FALSE;
|
||
AllowContinue := TRUE;
|
||
ThreadStart := 0;
|
||
TReadPrompt := 0;
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
SaveMenu := CurMenu;
|
||
|
||
IF (MemMsgArea.MessageReadMenu <> 0) THEN
|
||
CurMenu := MemMsgArea.MessageReadMenu
|
||
ELSE
|
||
CurMenu := General.MessageReadMenu;
|
||
|
||
IF (NOT NewMenuToLoad) THEN
|
||
LoadMenuPW;
|
||
|
||
AutoExecCmd('FIRSTCMD');
|
||
|
||
REPEAT
|
||
IF (Contlist) AND (Abort) THEN
|
||
BEGIN
|
||
Contlist := FALSE;
|
||
NL;
|
||
Print('Continuous message listing off.');
|
||
TReadPrompt := 255;
|
||
END;
|
||
IF (Msg_On < 1) OR (Msg_On > HiMsg) THEN
|
||
BEGIN
|
||
IF (NOT Contlist) THEN
|
||
BEGIN
|
||
DoneScan := TRUE;
|
||
AskPost := TRUE;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
Contlist := FALSE;
|
||
Msg_On := HiMsg;
|
||
NL;
|
||
Print('Continuous message listing off.');
|
||
TReadPrompt := 255;
|
||
END;
|
||
END;
|
||
IF (NOT DoneScan) AND (TReadPrompt IN [0..2,8..10,18]) THEN
|
||
BEGIN
|
||
IF (Contlist) THEN
|
||
Next := TRUE;
|
||
LoadHeader(Msg_On,MHeader);
|
||
IF (UnValidated IN MHeader.Status) THEN
|
||
HadUnVal := TRUE;
|
||
WHILE (((Msg_On < HiMsg) AND (TReadPrompt <> 2)) OR ((Msg_On > 1) AND (TReadPrompt = 2))) AND
|
||
(CantBeSeen) DO
|
||
BEGIN
|
||
IF (TReadPrompt = 2) THEN
|
||
Dec(Msg_On)
|
||
ELSE
|
||
Inc(Msg_On);
|
||
LoadHeader(Msg_On,MHeader);
|
||
END;
|
||
IF ((Msg_On = 1) OR (Msg_On = HiMsg)) AND (CantBeSeen) THEN
|
||
BEGIN
|
||
DoneScan := TRUE;
|
||
AskPost := TRUE;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
IF ((CLSMsg IN ThisUser.SFlags) AND (NOT Contlist)) THEN
|
||
Cls
|
||
ELSE
|
||
NL;
|
||
ReadMsg(Msg_On,Msg_On,HiMsg);
|
||
IF (TempLastRead < MHeader.Date) AND (MHeader.Date <= GetPackDateTime) THEN
|
||
TempLastRead := MHeader.Date;
|
||
IF (Pub) THEN
|
||
Inc(MRead);
|
||
END;
|
||
END;
|
||
IF (NOT Contlist) AND (NOT DoneScan) THEN
|
||
REPEAT
|
||
TReadPrompt := 0;
|
||
MainMenuHandle(Cmd);
|
||
NewMenuCmd := '';
|
||
CmdToExec := 0;
|
||
Done := FALSE;
|
||
REPEAT
|
||
FCmd(Cmd,CmdToExec,CmdExists,CmdNotHid);
|
||
IF (CmdToExec <> 0) AND (MemCmd^[CmdToExec].CmdKeys <> '-^') AND
|
||
(MemCmd^[CmdToExec].CmdKeys <> '-/') AND (MemCmd^[CmdToExec].CmdKeys <> '-\') THEN
|
||
DoMenuCommand(Done,
|
||
MemCmd^[CmdToExec].CmdKeys,
|
||
MemCmd^[CmdToExec].Options,
|
||
NewMenuCmd,
|
||
MemCmd^[CmdToExec].NodeActivityDesc);
|
||
UNTIL (CmdToExec = 0) OR (Done) OR (HangUp);
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
CASE TReadPrompt OF
|
||
1 : ; { Read Again }
|
||
2 : Dec(Msg_On); { Previous Message }
|
||
3 : IF (NOT MsgSysOp) THEN
|
||
Print('You do not have the required access level for this option.')
|
||
ELSE
|
||
MoveMsg(Msg_On);
|
||
4 : IF (NOT CoSysOp) THEN
|
||
Print('You do not have the required access level for this option.')
|
||
ELSE
|
||
ExtractMsgToFile(Msg_On);
|
||
5 : IF (MsgSysOp) OR FromYou(MHeader) THEN
|
||
BEGIN
|
||
REPEAT
|
||
NL;
|
||
Prt('Message editing (^5?^4=^5Help^4): ');
|
||
MPL(1);
|
||
IF (MsgSysOp) THEN
|
||
Onek(Cmd1,'QVPRAFTSEOD?'^M)
|
||
ELSE
|
||
Onek(Cmd1,'QFTSEOD?'^M);
|
||
IF (NOT (Cmd1 IN ['Q',^M])) THEN
|
||
NL;
|
||
CASE Cmd1 OF
|
||
'?' : BEGIN
|
||
LCmds(15,5,'From','To');
|
||
LCmds(15,5,'Subject','Edit text');
|
||
LCmds(15,5,'Oops','Display header');
|
||
IF (MsgSysOp) THEN
|
||
BEGIN
|
||
LCmds(15,5,'Permanent','Validation');
|
||
LCmds(15,5,'Rescan','Anonymous');
|
||
END;
|
||
LCmds(15,5,'Quit','');
|
||
END;
|
||
'D' : FOR Counter := 1 TO 6 DO
|
||
IF (HeaderLine(MHeader,Msg_On,HiMsg,Counter) <> '') THEN
|
||
PrintACR(Headerline(MHeader,Msg_On,HiMsg,Counter));
|
||
'O' : IF PYNQ('Reload old information? ',0) THEN
|
||
LoadHeader(Msg_On,MHeader);
|
||
'E' : BEGIN
|
||
EditMessageText(Msg_On);
|
||
LoadHeader(Msg_On,MHeader);
|
||
END;
|
||
'S' : IF (MHeader.FileAttached = 0) OR (MsgSysOp) THEN
|
||
BEGIN
|
||
Prt('Subj: ');
|
||
InputDefault(MHeader.Subject,MHeader.Subject,40,[ColorsAllowed],FALSE)
|
||
END
|
||
ELSE
|
||
Print('Sorry, you can''t edit that.');
|
||
'T' : BEGIN
|
||
Print('^11. Posted to : ^5'+MHeader.MTo.A1S);
|
||
Print('^12. Real name : ^5'+MHeader.MTo.Real);
|
||
Print('^13. System name: ^5'+MHeader.MTo.Name);
|
||
NL;
|
||
Prt('Edit name (^51^4-^53^4) [^5Q^4]uit: ');
|
||
Onek(Cmd1,'Q123'^M);
|
||
IF (NOT (Cmd1 IN ['Q',^M])) THEN
|
||
NL;
|
||
CASE Cmd1 OF
|
||
'1' : BEGIN
|
||
Prt('Posted to: ');
|
||
InputDefault(MHeader.MTo.A1S,MHeader.MTo.A1S,36,[],FALSE);
|
||
END;
|
||
'2' : BEGIN
|
||
Prt('Real name: ');
|
||
InputDefault(MHeader.MTo.Real,MHeader.MTo.Real,36,[],FALSE);
|
||
END;
|
||
'3' : BEGIN
|
||
Prt('System name: ');
|
||
InputDefault(MHeader.MTo.Name,MHeader.MTo.Name,36,[],FALSE);
|
||
END;
|
||
END;
|
||
Cmd1 := #0;
|
||
END;
|
||
'F' : IF (MHeader.From.Anon > 0) OR (MsgSysOp) THEN
|
||
BEGIN
|
||
Print('^11. Posted to : ^5'+MHeader.From.A1S);
|
||
Print('^12. Real name : ^5'+MHeader.From.Real);
|
||
Print('^13. System name: ^5'+MHeader.From.Name);
|
||
NL;
|
||
Prt('Edit name (^51^4-^53^4) [^5Q^4]uit: ');
|
||
Onek(Cmd1,'Q123'^M);
|
||
IF (NOT (Cmd1 IN ['Q',^M])) THEN
|
||
NL;
|
||
CASE Cmd1 OF
|
||
'1' : BEGIN
|
||
Prt('Posted to: ');
|
||
InputDefault(MHeader.From.A1S,MHeader.From.A1S,36,[],FALSE);
|
||
END;
|
||
'2' : BEGIN
|
||
Prt('Real name: ');
|
||
InputDefault(MHeader.From.Real,MHeader.From.Real,36,[],FALSE);
|
||
END;
|
||
'3' : BEGIN
|
||
Prt('System name: ');
|
||
InputDefault(MHeader.From.Name,MHeader.From.Name,36,[],FALSE);
|
||
END;
|
||
END;
|
||
Cmd1 := #0;
|
||
END
|
||
ELSE
|
||
Print('Sorry, you can''t edit that.');
|
||
'A' : IF (MsgSysOp) THEN
|
||
BEGIN
|
||
IF (MHeader.From.Anon IN [1,2]) THEN
|
||
MHeader.From.Anon := 0
|
||
ELSE
|
||
BEGIN
|
||
Loadurec(User,MHeader.From.UserNum);
|
||
IF AACS1(User,MHeader.From.UserNum,General.CSOP) THEN
|
||
MHeader.From.Anon := 2
|
||
ELSE
|
||
MHeader.From.Anon := 1;
|
||
END;
|
||
Print('Message is '+AOnOff((MHeader.From.Anon = 0),'not ','')+'anonymous');
|
||
SysOpLog('Message is '+AOnOff((MHeader.From.Anon = 0),'not ','')+'anonymous');
|
||
END;
|
||
'R' : IF (MsgSysOp) THEN
|
||
BEGIN
|
||
IF (Sent IN MHeader.Status) THEN
|
||
BEGIN
|
||
Exclude(MHeader.Status,Sent);
|
||
IF NOT (MAScanOut IN MemMsgArea.MAFlags) THEN
|
||
UpdateBoard;
|
||
END
|
||
ELSE
|
||
Include(MHeader.Status,Sent);
|
||
Print('Message '+AOnOff((Sent IN MHeader.Status),'','not ')+'marked as scanned.');
|
||
SysOpLog('Message '+AOnOff((Sent IN MHeader.Status),'','not ')+'marked as scanned.');
|
||
END;
|
||
'P' : IF (MsgSysOp) THEN
|
||
BEGIN
|
||
IF (Permanent IN MHeader.Status) THEN
|
||
Exclude(MHeader.Status,Permanent)
|
||
ELSE
|
||
Include(MHeader.Status,Permanent);
|
||
Print('Message is '+AOnOff((Permanent IN MHeader.Status),'','not ')+'permanent.');
|
||
SysOpLog('Message is '+AOnOff((Permanent IN MHeader.Status),'','not ')+'permanent.');
|
||
END;
|
||
'V' : IF (MsgSysOp) THEN
|
||
BEGIN
|
||
IF (UnValidated IN MHeader.Status) THEN
|
||
Exclude(MHeader.Status,UnValidated)
|
||
ELSE
|
||
Include(MHeader.Status,UnValidated);
|
||
Print('Message '+AOnOff((UnValidated IN MHeader.Status),'un','')+'validated.');
|
||
SysOpLog('Message '+AOnOff((UnValidated IN MHeader.Status),'un','')+'validated.');
|
||
END;
|
||
END;
|
||
UNTIL (Cmd1 IN ['Q',^M]) OR (HangUp);
|
||
Cmd1 := #0;
|
||
SaveHeader(Msg_On,MHeader);
|
||
END;
|
||
6 : BEGIN
|
||
DumpQuote(MHeader);
|
||
IF (NOT Pub) THEN
|
||
AutoReply(MHeader)
|
||
ELSE
|
||
BEGIN
|
||
NL;
|
||
IF (Prvt IN MHeader.Status) THEN
|
||
Dyny := TRUE;
|
||
IF (MHeader.From.Anon = 0) OR (AACS(General.Anonpubread)) THEN
|
||
IF PYNQ('Is this to be a private reply? ',0) THEN
|
||
IF (MAPrivate IN MemMsgArea.MAFlags) THEN
|
||
IF PYNQ('Reply in Email? ',0) THEN
|
||
AutoReply(MHeader)
|
||
ELSE
|
||
Post(Msg_On,MHeader.From,TRUE)
|
||
ELSE
|
||
AutoReply(MHeader)
|
||
ELSE
|
||
Post(Msg_On,MHeader.From,FALSE)
|
||
ELSE
|
||
Post(Msg_On,MHeader.From,FALSE);
|
||
END;
|
||
END;
|
||
7 : BEGIN
|
||
Msg_On := (HiMsg + 1);
|
||
LoadHeader(HiMsg,MHeader);
|
||
IF (MHeader.Date <= GetPackDateTime) THEN
|
||
TempLastRead := MHeader.Date;
|
||
Next := FALSE;
|
||
END;
|
||
8 : IF ((Msg_On - MHeader.ReplyTo) > 0) AND (MHeader.ReplyTo > 0) THEN
|
||
BEGIN
|
||
IF (ThreadStart = 0) THEN
|
||
ThreadStart := Msg_On;
|
||
Dec(Msg_On,MHeader.ReplyTo);
|
||
END;
|
||
9 : IF ((ThreadStart >= 1) AND (ThreadStart <= HiMsg)) THEN
|
||
BEGIN
|
||
Msg_On := ThreadStart;
|
||
ThreadStart := 0;
|
||
END;
|
||
10 : BEGIN
|
||
Contlist := TRUE;
|
||
Abort := FALSE;
|
||
NL;
|
||
Print('Continuous message listing on.');
|
||
END;
|
||
11 : IF (Pub) THEN
|
||
BEGIN
|
||
IF (Permanent IN MHeader.Status) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('This is a permanent public message.');
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
IF (Msg_On >= 1) AND (Msg_On <= HiMsg) AND (MsgSysOp OR FromYou(MHeader)) THEN
|
||
BEGIN
|
||
LoadHeader(Msg_On,MHeader);
|
||
IF (Mdeleted IN MHeader.Status) THEN
|
||
Exclude(MHeader.Status,Mdeleted)
|
||
ELSE
|
||
Include(MHeader.Status,Mdeleted);
|
||
SaveHeader(Msg_On,MHeader);
|
||
IF NOT (Mdeleted IN MHeader.Status) THEN
|
||
BEGIN
|
||
IF FromYou(MHeader) THEN
|
||
BEGIN
|
||
IF (ThisUser.MsgPost < 2147483647) THEN
|
||
Inc(ThisUser.MsgPost);
|
||
AdjustBalance(General.Creditpost);
|
||
END;
|
||
NL;
|
||
Print('Public message undeleted.');
|
||
SysOpLog('* Undeleted public message '+MHeader.Subject);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
IF FromYou(MHeader) THEN
|
||
BEGIN
|
||
IF (ThisUser.MsgPost > 0) THEN
|
||
Dec(ThisUser.MsgPost);
|
||
AdjustBalance(-General.Creditpost);
|
||
END;
|
||
NL;
|
||
Print('Public message deleted.');
|
||
SysOpLog('* Deleted public message '+MHeader.Subject);
|
||
END;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
NL;
|
||
Print('You can only delete public messages from you.');
|
||
END;
|
||
END;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
IF (Msg_On >= 1) AND (Msg_On <= HiMsg) AND (MsgSysOp OR FromYou(MHeader) OR ToYou(MHeader)) THEN
|
||
BEGIN
|
||
LoadHeader(Msg_On,MHeader);
|
||
IF (Mdeleted IN MHeader.Status) THEN
|
||
Exclude(MHeader.Status,Mdeleted)
|
||
ELSE
|
||
Include(MHeader.Status,Mdeleted);
|
||
SaveHeader(Msg_On,MHeader);
|
||
IF NOT (MDeleted IN MHeader.Status) THEN
|
||
BEGIN
|
||
LoadURec(User,MHeader.MTO.UserNum);
|
||
IF (User.Waiting < 255) THEN
|
||
Inc(User.Waiting);
|
||
SaveURec(User,MHeader.MTO.UserNum);
|
||
NL;
|
||
Print('Private message undeleted.');
|
||
IF FromYou(MHeader) OR (MsgSysOp) THEN
|
||
SysOpLog('* Uneleted private message from '+MHeader.From.A1S)
|
||
ELSE IF ToYou(MHeader) OR (MsgSysOp) THEN
|
||
SysOpLog('* Undeleted private message to '+MHeader.MTo.A1S);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
LoadURec(User,MHeader.MTO.UserNum);
|
||
IF (User.Waiting > 0) THEN
|
||
Dec(User.Waiting);
|
||
SaveURec(User,MHeader.MTO.UserNum);
|
||
NL;
|
||
Print('Private message deleted.');
|
||
IF FromYou(MHeader) OR (MsgSysOp) THEN
|
||
SysOpLog('* Deleted private message from '+MHeader.From.A1S)
|
||
ELSE IF ToYou(MHeader) OR (MsgSysOp) THEN
|
||
SysOpLog('* Deleted private message to '+MHeader.MTo.A1S);
|
||
END;
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
NL;
|
||
Print('You can only delete private messages from/to you.');
|
||
END;
|
||
END;
|
||
12 : IF (NOT Pub) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('This option is not available when reading private messages.');
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
NL;
|
||
Print('Highest-read pointer for this area set to message #'+IntToStr(Msg_On)+'.');
|
||
IF (MHeader.Date <= GetPackDateTime) THEN
|
||
TempLastRead := MHeader.Date;
|
||
END;
|
||
13 : BEGIN
|
||
IF (AskUpdate) THEN
|
||
BEGIN
|
||
NL;
|
||
IF PYNQ('Update message read pointers for this area? ',0) THEN
|
||
SaveLastRead(GetPackDateTime);
|
||
END;
|
||
DoneScan := TRUE;
|
||
Next := TRUE;
|
||
END;
|
||
14 : BEGIN
|
||
DoneScan := TRUE;
|
||
Abort := TRUE;
|
||
END;
|
||
15 : ListMessages;
|
||
16 : IF (NOT CoSysOp) THEN
|
||
Print('You do not have the required access level for this option.')
|
||
ELSE IF (LastAuthor < 1) OR (LastAuthor > (MaxUsers - 1)) THEN
|
||
Print('The sender of this message does not have an account on this BBS.')
|
||
ELSE IF (CheckPW) THEN
|
||
UserEditor(LastAuthor);
|
||
17 : IF (NOT PUB) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('This option is not available when reading private messages.');
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
IF (MAForceRead IN MemMsgArea.MAFlags) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('^5'+MemMsgArea.Name+'^3 cannot be removed from your NewScan.')
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
NL;
|
||
Print('^5'+MemMsgArea.Name+'^3 '+AOnOff(NewScanMsgArea,'will NOT','WILL')+
|
||
' be scanned in future new scans.');
|
||
SysOpLog('* Toggled ^5'+MemMsgArea.Name+ '^1 '+AOnOff(NewScanMsgArea,'out of','back in')+ ' new scan.');
|
||
Reset(MsgAreaScanFile);
|
||
Seek(MsgAreaScanFile,(UserNum - 1));
|
||
Read(MsgAreaScanFile,LastReadRecord);
|
||
LastReadRecord.NewScan := NOT LastReadRecord.NewScan;
|
||
NewScanMsgArea := LastReadRecord.NewScan;
|
||
Seek(MsgAreaScanFile,(UserNum - 1));
|
||
Write(MsgAreaScanFile,LastReadRecord);
|
||
Close(MsgAreaScanFile);
|
||
END;
|
||
END;
|
||
18 : Inc(Msg_On);
|
||
19 : IF (NOT CoSysOp) THEN
|
||
Print('You do not have the required access level for this option.')
|
||
ELSE IF (LastAuthor < 1) OR (LastAuthor > (MaxUsers - 1)) THEN
|
||
Print('The sender of this message does not have an account on this BBS.')
|
||
ELSE
|
||
BEGIN
|
||
LoadURec(User,LastAuthor);
|
||
ShowUserInfo(1,LastAuthor,User);
|
||
END;
|
||
20 : IF (NOT CoSysOp) THEN
|
||
Print('You do not have the required access level for this option.')
|
||
ELSE IF (LastAuthor < 1) OR (LastAuthor > (MaxUsers - 1)) THEN
|
||
Print('The sender of this message does not have an account on this BBS.')
|
||
ELSE
|
||
BEGIN
|
||
LoadURec(User,LastAuthor);
|
||
AutoVal(User,LastAuthor);
|
||
END;
|
||
21 : ForwardMessage(Msg_On);
|
||
END;
|
||
UNTIL (TReadPrompt IN [1..2,7..10,13..15,18]) OR (Abort) OR (Next) OR (HangUp)
|
||
ELSE
|
||
Inc(Msg_On);
|
||
IF (OncOnly) AND (TReadPrompt IN [13,14,18]) THEN
|
||
DoneScan := TRUE;
|
||
UNTIL (DoneScan) OR (HangUp);
|
||
|
||
CurMenu := SaveMenu;
|
||
|
||
NewMenuToLoad := TRUE;
|
||
|
||
AllowContinue := FALSE;
|
||
|
||
IF ((Pub) AND (HadUnVal) AND (MsgSysOp)) THEN
|
||
BEGIN
|
||
NL;
|
||
IF PYNQ('Validate messages here? ',0) THEN
|
||
BEGIN
|
||
FOR MsgNum := 1 TO HiMsg DO
|
||
BEGIN
|
||
LoadHeader(MsgNum,MHeader);
|
||
IF (UnValidated IN MHeader.Status) THEN
|
||
Exclude(MHeader.Status,UnValidated);
|
||
SaveHeader(MsgNum,MHeader);
|
||
END;
|
||
END;
|
||
END;
|
||
|
||
IF ((Pub) AND (AskPost) AND (AACS(MemMsgArea.PostACS)) AND
|
||
(NOT (RPost IN ThisUser.Flags)) AND (PToday < General.MaxPubPost)) THEN
|
||
BEGIN
|
||
NL;
|
||
IF (TReadPrompt <> 7) THEN
|
||
IF PYNQ('Post on ^5'+MemMsgArea.Name+'^7? ',0) THEN
|
||
IF (MAPrivate IN MemMsgArea.MAFlags) THEN
|
||
BEGIN
|
||
NL;
|
||
Post(-1,MHeader.From,PYNQ('Is this to be a private message? ',0));
|
||
END
|
||
ELSE
|
||
Post(-1,MHeader.From,FALSE);
|
||
END;
|
||
END;
|
||
|
||
PROCEDURE ReadMessages(MenuOption: Str50);
|
||
VAR
|
||
InputStr: AStr;
|
||
SaveReadMsgArea: Integer;
|
||
BEGIN
|
||
SaveReadMsgArea := ReadMsgArea;
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
IF (MenuOption = '') THEN
|
||
MsgArea := -1;
|
||
InitMsgArea(MsgArea);
|
||
IF (HiMsg = 0) THEN
|
||
BEGIN
|
||
NL;
|
||
Print('No messages on ^5'+MemMsgArea.Name+'^1.');
|
||
IF (Novice IN ThisUser.Flags) THEN
|
||
PauseScr(FALSE);
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
Msg_On := 1;
|
||
REPEAT
|
||
ListMessages;
|
||
NL;
|
||
{ Prompt(FString.ReadQ); }
|
||
lRGLngStr(32,FALSE);
|
||
ScanInput(InputStr,'Q'^M);
|
||
IF (InputStr = ^M) THEN
|
||
IF ((Msg_On + 1) = HiMsg) THEN
|
||
Msg_On := 1
|
||
ELSE
|
||
Inc(Msg_On);
|
||
UNTIL (InputStr <> ^M) OR (HangUp);
|
||
IF (InputStr <> 'Q') AND (NOT HangUp) THEN
|
||
BEGIN
|
||
IF (StrToInt(InputStr) < 1) OR (StrToInt(InputStr) > HiMsg) THEN
|
||
Msg_On := 1
|
||
ELSE
|
||
Msg_On := StrToInt(InputStr);
|
||
IF (MsgArea <> -1) THEN
|
||
TempLastRead := LastMsgRead;
|
||
MainRead(FALSE,FALSE,(MsgArea <> -1));
|
||
IF (MsgArea <> - 1) THEN
|
||
SaveLastRead(TempLastRead);
|
||
END;
|
||
END;
|
||
MsgArea := SaveReadMsgArea;
|
||
LoadMsgArea(MsgArea);
|
||
END;
|
||
|
||
FUNCTION FirstNew: Word;
|
||
VAR
|
||
MHeader: MHeaderRec;
|
||
MaxMsgs,
|
||
Cn: Word;
|
||
Done: Boolean;
|
||
BEGIN
|
||
MaxMsgs := HiMsg;
|
||
Cn := 0;
|
||
IF (MaxMsgs > 0) THEN
|
||
BEGIN
|
||
Done := FALSE;
|
||
Cn := 1;
|
||
WHILE (CN <= MaxMsgs) AND (NOT Done) DO
|
||
BEGIN
|
||
LoadHeader(Cn,MHeader);
|
||
IF (LastMsgRead < MHeader.Date) THEN
|
||
Done := TRUE
|
||
ELSE
|
||
BEGIN
|
||
IF (CN < MaxMsgs) THEN
|
||
Inc(Cn,1)
|
||
ELSE
|
||
BEGIN
|
||
CN := 0;
|
||
Done := TRUE;
|
||
END;
|
||
END;
|
||
END;
|
||
END;
|
||
FirstNew := Cn;
|
||
END;
|
||
|
||
PROCEDURE ScanMessages(MArea: Integer; AskUpdate: Boolean; MenuOption: Str50);
|
||
VAR
|
||
ScanFor: STRING[40];
|
||
Cmd: Char;
|
||
SaveMsgArea,
|
||
MsgNum: Word;
|
||
ScanNew,
|
||
ScanGlobal: Boolean;
|
||
|
||
PROCEDURE Searchboard(MArea1: Integer; Cmd1: Char);
|
||
VAR
|
||
MsgHeader: MHeaderRec;
|
||
Searched: STRING;
|
||
TotLoad: Word;
|
||
Match,
|
||
AnyShown: Boolean;
|
||
BEGIN
|
||
IF (MsgArea <> MArea1) THEN
|
||
ChangeMsgArea(MArea1);
|
||
IF (MsgArea = MArea1) THEN
|
||
BEGIN
|
||
InitMsgArea(MsgArea);
|
||
AnyShown := FALSE;
|
||
LIL := 0;
|
||
CLS;
|
||
Prompt('^1Scanning ^5'+MemMsgArea.Name+' #'+IntToStr(CompMsgArea(MsgArea))+'^1...');
|
||
Reset(MsgHdrF);
|
||
Reset(MsgTxtF,1);
|
||
IF (IOResult <> 0) THEN
|
||
Exit;
|
||
IF (ScanNew) THEN
|
||
MsgNum := FirstNew
|
||
ELSE
|
||
MsgNum := 1;
|
||
IF (MsgNum > 0) AND (FileSize(MsgHdrF) > 0) THEN
|
||
WHILE (MsgNum <= FileSize(MsgHdrF)) AND (NOT Next) AND (NOT Abort) AND (NOT HangUp) DO
|
||
BEGIN
|
||
LoadHeader(MsgNum,MsgHeader);
|
||
Match := FALSE;
|
||
IF (Cmd1 IN ['Y',^M] ) THEN
|
||
IF ToYou(MsgHeader) THEN
|
||
Match := TRUE;
|
||
IF (Cmd1 IN ['F','A'] ) THEN
|
||
BEGIN
|
||
IF (MARealName IN MemMsgArea.MAFlags) THEN
|
||
Searched := MsgHeader.From.Real
|
||
ELSE
|
||
Searched := MsgHeader.From.A1S;
|
||
IF (MemMsgArea.MAtype = 0) THEN
|
||
Searched := Searched;
|
||
Searched := AllCaps(UseName(MsgHeader.From.Anon,Searched));
|
||
IF (Pos(ScanFor,Searched) > 0) THEN
|
||
Match := TRUE;
|
||
END;
|
||
IF (Cmd1 IN ['T','A'] ) THEN
|
||
BEGIN
|
||
IF (MARealName IN MemMsgArea.MAFlags) THEN
|
||
Searched := MsgHeader.MTo.Real
|
||
ELSE
|
||
Searched := MsgHeader.MTo.A1S;
|
||
IF (MemMsgArea.MAtype = 0) THEN
|
||
Searched := Searched;
|
||
Searched := AllCaps(UseName(MsgHeader.MTo.Anon,Searched));
|
||
IF (Pos(ScanFor,Searched) > 0) THEN
|
||
Match := TRUE;
|
||
END;
|
||
IF (Cmd1 IN ['S','A'] ) THEN
|
||
IF (Pos(ScanFor,AllCaps(MsgHeader.Subject)) > 0) THEN
|
||
Match := TRUE;
|
||
IF (Cmd1 = 'A') AND (NOT Match) AND (MsgHeader.TextSize > 0) AND
|
||
(((MsgHeader.Pointer - 1) + MsgHeader.TextSize) <= FileSize(MsgTxtF)) AND
|
||
(MsgHeader.Pointer > 0) THEN
|
||
WITH MsgHeader DO
|
||
BEGIN
|
||
Seek(MsgTxtF,(Pointer - 1));
|
||
TotLoad := 0;
|
||
REPEAT
|
||
BlockRead(MsgTxtF,Searched[0],1);
|
||
BlockRead(MsgTxtF,Searched[1],Ord(Searched[0]));
|
||
LastError := IOResult;
|
||
Inc(TotLoad,Length(Searched) + 1);
|
||
IF (Pos(ScanFor,AllCaps(Searched)) > 0) THEN
|
||
Match := TRUE;
|
||
UNTIL (TotLoad >= TextSize) OR (Match);
|
||
END;
|
||
IF (Match) THEN
|
||
BEGIN
|
||
Close(MsgHdrF);
|
||
Close(MsgTxtF);
|
||
Msg_On := MsgNum;
|
||
MainRead(TRUE,AskUpdate,(MsgArea <> -1));
|
||
NL;
|
||
Reset(MsgHdrF);
|
||
Reset(MsgTxtF,1);
|
||
AnyShown := TRUE;
|
||
END;
|
||
Wkey;
|
||
IF (Next) THEN
|
||
Abort := TRUE;
|
||
Inc(MsgNum);
|
||
END;
|
||
Close(MsgHdrF);
|
||
Close(MsgTxtF);
|
||
IF (NOT AnyShown) THEN
|
||
BackErase(14 + Lennmci(MemMsgArea.Name) + Length(IntToStr(CompMsgArea(MsgArea) ) ) );
|
||
END;
|
||
END;
|
||
|
||
BEGIN
|
||
SaveMsgArea := MsgArea;
|
||
ScanNew := FALSE;
|
||
ScanGlobal := FALSE;
|
||
MenuOption := AllCaps(MenuOption);
|
||
IF (MenuOption <> '') THEN
|
||
Cmd := 'Y'
|
||
ELSE
|
||
Cmd := #0;
|
||
IF (Pos('N',MenuOption) > 0) THEN
|
||
ScanNew := TRUE;
|
||
IF (Pos('G',MenuOption) > 0) THEN
|
||
ScanGlobal := TRUE;
|
||
IF (Cmd = #0) THEN
|
||
REPEAT
|
||
NL;
|
||
Prt('Scan method (^5?^4=^5Help^4): ');
|
||
Onek(Cmd,'FTSAY?Q'^M);
|
||
IF (Cmd = '?') THEN
|
||
BEGIN
|
||
NL;
|
||
LCmds(15,5,'From field','To field');
|
||
LCmds(15,5,'Subject field','All text');
|
||
LCmds(15,5,'Your messages','Quit');
|
||
END;
|
||
UNTIL (Cmd <> '?') OR (HangUp);
|
||
NL;
|
||
IF (Cmd <> 'Q') AND (Cmd <> ^M) THEN
|
||
BEGIN
|
||
IF (Cmd <> 'Y') THEN
|
||
BEGIN
|
||
Prt('Text to scan for: ');
|
||
Input(ScanFor,40);
|
||
IF (ScanFor = '') THEN
|
||
Exit;
|
||
NL;
|
||
END;
|
||
IF (MenuOption = '') THEN
|
||
BEGIN
|
||
Dyny := TRUE;
|
||
ScanNew := PYNQ('Scan new messages only? ',0);
|
||
END;
|
||
IF (ScanGlobal) OR ((MenuOption = '') AND PYNQ('Global scan? ',0)) THEN
|
||
BEGIN
|
||
MArea := 1;
|
||
WHILE (MArea <= NumMsgAreas) AND (NOT Next) AND (NOT Abort) AND (NOT HangUp) DO
|
||
BEGIN
|
||
IF (CompMsgArea(MArea) > 0) THEN
|
||
Searchboard(MArea,Cmd);
|
||
Wkey;
|
||
IF (Next) THEN
|
||
BEGIN
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
END;
|
||
Inc(MArea);
|
||
END;
|
||
END
|
||
ELSE
|
||
Searchboard(MArea,Cmd);
|
||
END;
|
||
MsgArea := SaveMsgArea;
|
||
LoadMsgArea(MsgArea);
|
||
END;
|
||
|
||
PROCEDURE ScanYours;
|
||
VAR
|
||
FoundMap: ARRAY [0..255] OF SET OF 0..7;
|
||
MsgHeader: MHeaderRec;
|
||
SaveMsgArea,
|
||
MArea: Integer;
|
||
MsgNum,
|
||
Found: Word;
|
||
SaveConfSystem,
|
||
AnyFound,
|
||
FirstTime: Boolean;
|
||
BEGIN
|
||
FillChar(FoundMap,SizeOf(FoundMap),0);
|
||
SaveMsgArea := MsgArea;
|
||
SaveConfSystem := ConfSystem;
|
||
ConfSystem := FALSE;
|
||
IF (SaveConfSystem) THEN
|
||
NewCompTables;
|
||
NL;
|
||
Prompt('^5Scanning for your new public messages ... ');
|
||
FirstTime := TRUE;
|
||
AnyFound := FALSE;
|
||
MArea := 1;
|
||
WHILE (MArea <= NumMsgAreas) AND (NOT HangUp) DO
|
||
BEGIN
|
||
IF (CompMsgArea(MArea) > 0) THEN
|
||
BEGIN
|
||
IF (MsgArea <> MArea) THEN
|
||
ChangeMsgArea(MArea);
|
||
IF (MsgArea = MArea) THEN
|
||
BEGIN
|
||
InitMsgArea(MsgArea);
|
||
IF (NewScanMsgArea) THEN
|
||
BEGIN
|
||
Reset(MsgHdrF);
|
||
Reset(MsgTxtF,1);
|
||
IF (IOResult = 0) THEN
|
||
BEGIN
|
||
Found := 0;
|
||
MsgNum := FirstNew;
|
||
IF (MsgNum > 0) AND (FileSize(MsgHdrF) > 0) THEN
|
||
WHILE (MsgNum <= FileSize(MsgHdrF)) AND (NOT HangUp) DO
|
||
BEGIN
|
||
LoadHeader(MsgNum,MsgHeader);
|
||
IF (ToYou(MsgHeader)) THEN
|
||
BEGIN
|
||
FoundMap[MArea DIV 8] := FoundMap[MArea DIV 8] + [MArea MOD 8];
|
||
Inc(Found);
|
||
END;
|
||
Inc(MsgNum);
|
||
END;
|
||
Close(MsgHdrF);
|
||
Close(MsgTxtF);
|
||
IF (Found > 0) THEN
|
||
BEGIN
|
||
IF (FirstTime) THEN
|
||
BEGIN
|
||
NL;
|
||
NL;
|
||
FirstTime := FALSE;
|
||
END;
|
||
Print(PadLeftStr(MemMsgArea.Name,30)+' ^1'+IntToStr(Found));
|
||
AnyFound := TRUE;
|
||
END;
|
||
END;
|
||
END;
|
||
END;
|
||
END;
|
||
Inc(MArea);
|
||
END;
|
||
IF (NOT AnyFound) THEN
|
||
Print('^5No messages found.')
|
||
ELSE
|
||
BEGIN
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
NL;
|
||
IF PYNQ('Read these now? ',0) THEN
|
||
BEGIN
|
||
MArea := 1;
|
||
WHILE (MArea <= NumMsgAreas) AND (NOT Next) AND (NOT Abort) AND (NOT HangUp) DO
|
||
BEGIN
|
||
IF (MArea MOD 8) IN FoundMap[MArea DIV 8] THEN
|
||
ScanMessages(MArea,TRUE,'N');
|
||
WKey;
|
||
IF (Next) THEN
|
||
BEGIN
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
END;
|
||
Inc(MArea);
|
||
END;
|
||
END;
|
||
END;
|
||
ConfSystem := SaveConfSystem;
|
||
IF (SaveConfSystem) THEN
|
||
NewCompTables;
|
||
MsgArea := SaveMsgArea;
|
||
LoadMsgArea(MsgArea);
|
||
LastError := IOResult;
|
||
END;
|
||
|
||
PROCEDURE StartNewScan(MenuOption: Str50);
|
||
VAR
|
||
MArea,
|
||
SaveMsgArea: Integer;
|
||
Global: Boolean;
|
||
|
||
PROCEDURE NewScan(MArea1: Integer);
|
||
BEGIN
|
||
IF (MsgArea <> MArea1) THEN
|
||
ChangeMsgArea(MArea1);
|
||
IF (MsgArea = MArea1) THEN
|
||
BEGIN
|
||
InitMsgArea(MsgArea);
|
||
TempLastRead := LastMsgRead;
|
||
Lil := 0;
|
||
{ Prompt('^3'+FString.NewScan1);}
|
||
lRGLngStr(8,FALSE);
|
||
Msg_On := FirstNew;
|
||
IF (Msg_On > 0) THEN
|
||
MainRead(FALSE,FALSE,(MsgArea <> -1));
|
||
(* Add backarase *)
|
||
END;
|
||
SaveLastRead(TempLastRead);
|
||
END;
|
||
|
||
BEGIN
|
||
SaveMsgArea := MsgArea;
|
||
MArea := MsgArea;
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
Global := FALSE;
|
||
IF (UpCase(MenuOption[1]) = 'C') THEN
|
||
MArea := MsgArea
|
||
ELSE IF (UpCase(MenuOption[1]) = 'G') THEN
|
||
Global := TRUE
|
||
ELSE IF (StrToInt(MenuOption) <> 0) THEN
|
||
MArea := StrToInt(MenuOption)
|
||
ELSE IF (MenuOption = '') THEN
|
||
BEGIN
|
||
NL;
|
||
Global := PYNQ('Scan all message areas? ',0)
|
||
END;
|
||
IF (NOT Global) THEN
|
||
NewScan(MArea)
|
||
ELSE
|
||
BEGIN
|
||
MArea := 1;
|
||
WHILE (MArea <= NumMsgAreas) AND (NOT Next) AND (NOT Abort) AND (NOT HangUp) DO
|
||
BEGIN
|
||
IF (CompMsgArea(MArea) > 0) THEN
|
||
BEGIN
|
||
InitMsgArea(MArea);
|
||
IF (NewScanMsgArea) OR ((MAForceRead IN MemMsgArea.MAFlags) AND (NOT CoSysOp)) THEN
|
||
NewScan(MArea);
|
||
END;
|
||
WKey;
|
||
IF (Next) THEN
|
||
BEGIN
|
||
Abort := FALSE;
|
||
Next := FALSE;
|
||
END;
|
||
Inc(MArea);
|
||
END;
|
||
SysOpLog('Global new scan of message areas');
|
||
END;
|
||
MsgArea := SaveMsgArea;
|
||
LoadMsgArea(MsgArea);
|
||
END;
|
||
|
||
END.
|