1400 lines
46 KiB
Plaintext
1400 lines
46 KiB
Plaintext
|
{$A+,B-,D+,E-,F+,I-,L+,N-,O+,R-,S+,V-}
|
|||
|
|
|
|||
|
|
UNIT Mail2;
|
|||
|
|
|
|||
|
|
INTERFACE
|
|||
|
|
|
|||
|
|
USES
|
|||
|
|
Common;
|
|||
|
|
|
|||
|
|
PROCEDURE Post(ReplyTo: LongInt; VAR TToI: FromToInfo; PvtMsg: Boolean);
|
|||
|
|
PROCEDURE ReadAllMessages(MenuOption: Str50);
|
|||
|
|
PROCEDURE ScanMessages(MArea: Integer; AskUpDate: Boolean; MenuOption: Str50);
|
|||
|
|
PROCEDURE StartNewScan(MenuOption: Str50);
|
|||
|
|
PROCEDURE ScanYours;
|
|||
|
|
FUNCTION FirstNew: Word;
|
|||
|
|
|
|||
|
|
IMPLEMENTATION
|
|||
|
|
|
|||
|
|
USES
|
|||
|
|
Dos,
|
|||
|
|
Common5,
|
|||
|
|
Mail0,
|
|||
|
|
Mail1,
|
|||
|
|
EMail,
|
|||
|
|
Mail3,
|
|||
|
|
Menus,
|
|||
|
|
ShortMsg,
|
|||
|
|
SysOp2G,
|
|||
|
|
SysOp3,
|
|||
|
|
TimeFunc;
|
|||
|
|
|
|||
|
|
VAR
|
|||
|
|
TempLastRead: LongInt;
|
|||
|
|
|
|||
|
|
PROCEDURE Post(ReplyTo: LongInt; VAR TToI: FromToInfo; PvtMsg: Boolean);
|
|||
|
|
VAR
|
|||
|
|
MHeader: MHeaderRec;
|
|||
|
|
PostOk: Boolean;
|
|||
|
|
BEGIN
|
|||
|
|
|
|||
|
|
LoadMsgArea(MsgArea);
|
|||
|
|
|
|||
|
|
PostOk := TRUE;
|
|||
|
|
|
|||
|
|
IF (NOT AACS(MemMsgArea.PostACS)) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7Your access level does not permit you to post in this message area!^1');
|
|||
|
|
PostOk := FALSE;
|
|||
|
|
END
|
|||
|
|
ELSE IF (AccountBalance < General.CreditPost) AND (NOT (FNoCredits IN ThisUser.Flags)) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7Insufficient account balance to post a public message!^1');
|
|||
|
|
PostOk := FALSE;
|
|||
|
|
END
|
|||
|
|
ELSE IF (RPost IN ThisUser.Flags) OR (NOT AACS(General.NormPubPost)) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7Your access priviledges do not include posting a public messages!^1');
|
|||
|
|
PostOk := FALSE;
|
|||
|
|
END
|
|||
|
|
ELSE IF (PublicPostsToday >= General.MaxPubPost) AND (NOT MsgSysOp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7You have already sent the maximum public messages allowed per day!^1');
|
|||
|
|
PostOk := FALSE;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
IF (NOT PostOk) THEN
|
|||
|
|
Exit;
|
|||
|
|
|
|||
|
|
InitMsgArea(MsgArea);
|
|||
|
|
|
|||
|
|
MHeader.Status := [];
|
|||
|
|
|
|||
|
|
MHeader.FileAttached := 0;
|
|||
|
|
|
|||
|
|
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),'',MHeader,'',78,500)) THEN
|
|||
|
|
BEGIN
|
|||
|
|
|
|||
|
|
IF (ReplyTo <> -1) THEN
|
|||
|
|
MHeader.ReplyTo := ((HiMsg + 1) - ReplyTo);
|
|||
|
|
|
|||
|
|
IF (PvtMsg) THEN
|
|||
|
|
Include(MHeader.Status,Prvt);
|
|||
|
|
|
|||
|
|
SaveHeader((HiMsg + 1),MHeader);
|
|||
|
|
|
|||
|
|
Print('^1Message posted on ^5'+MemMsgArea.Name+'^1.');
|
|||
|
|
|
|||
|
|
SysOpLog(MHeader.Subject+' posted on ^5'+MemMsgArea.Name);
|
|||
|
|
|
|||
|
|
IF (MHeader.MTo.A1S <> '') THEN
|
|||
|
|
SysOpLog(' To: "'+MHeader.MTo.A1S+'"');
|
|||
|
|
|
|||
|
|
IF (ReplyTo <> -1) THEN
|
|||
|
|
BEGIN
|
|||
|
|
LoadHeader(ReplyTo,MHeader);
|
|||
|
|
Inc(MHeader.Replies);
|
|||
|
|
SaveHeader(ReplyTo,MHeader);
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
IF (ThisUser.MsgPost < 2147483647) THEN
|
|||
|
|
Inc(ThisUser.MsgPost);
|
|||
|
|
|
|||
|
|
IF (PublicPostsToday < 255) THEN
|
|||
|
|
Inc(PublicPostsToday);
|
|||
|
|
|
|||
|
|
IF (NOT (FNoCredits IN ThisUser.Flags)) THEN
|
|||
|
|
AdjustBalance(General.CreditPost);
|
|||
|
|
|
|||
|
|
SaveURec(ThisUser,UserNum);
|
|||
|
|
|
|||
|
|
Update_Screen;
|
|||
|
|
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
PROCEDURE ListMessages(Pub: Boolean);
|
|||
|
|
VAR
|
|||
|
|
MHeader: MHeaderRec;
|
|||
|
|
S,
|
|||
|
|
S1: STRING;
|
|||
|
|
TempHiMsg: Word;
|
|||
|
|
ADate: DateTime;
|
|||
|
|
NumDone: Byte;
|
|||
|
|
BEGIN
|
|||
|
|
TempHiMsg := HiMsg;
|
|||
|
|
IF ((Msg_On < 1) OR (Msg_On > TempHiMsg)) THEN
|
|||
|
|
Exit;
|
|||
|
|
Abort := FALSE;
|
|||
|
|
Next := FALSE;
|
|||
|
|
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);
|
|||
|
|
NumDone := 0;
|
|||
|
|
WHILE ((NumDone < (PageLength - 7)) AND (Msg_On >= 0) AND (Msg_On < TempHiMsg) 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 (Pub) AND (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;
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
PROCEDURE MainRead(OncOnly,AskUpdate,Pub: Boolean);
|
|||
|
|
VAR
|
|||
|
|
User: UserRecordType;
|
|||
|
|
MHeader: MHeaderRec;
|
|||
|
|
Cmd,
|
|||
|
|
NewMenuCmd: AStr;
|
|||
|
|
Junk: Str36;
|
|||
|
|
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;
|
|||
|
|
IF (Pub) THEN
|
|||
|
|
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 (Pub) AND (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;
|
|||
|
|
IF (Pub) THEN
|
|||
|
|
AskPost := TRUE;
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
IF ((CLSMsg IN ThisUser.SFlags) AND (NOT Contlist)) THEN
|
|||
|
|
Cls
|
|||
|
|
ELSE
|
|||
|
|
NL;
|
|||
|
|
ReadMsg(Msg_On,Msg_On,HiMsg);
|
|||
|
|
IF (Pub) AND (TempLastRead < MHeader.Date) AND (MHeader.Date <= GetPackDateTime) THEN
|
|||
|
|
TempLastRead := MHeader.Date;
|
|||
|
|
IF (Pub) THEN
|
|||
|
|
IF (PublicReadThisCall < 32767) THEN
|
|||
|
|
Inc(PublicReadThisCall);
|
|||
|
|
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('^7You do not have the required access level for this option!^1')
|
|||
|
|
ELSE
|
|||
|
|
MoveMsg(Msg_On);
|
|||
|
|
|
|||
|
|
4 : IF (NOT CoSysOp) THEN
|
|||
|
|
Print('^7You do not have the required access level for this option!^1')
|
|||
|
|
ELSE
|
|||
|
|
ExtractMsgToFile(Msg_On,Mheader);
|
|||
|
|
|
|||
|
|
5 : IF (NOT FromYou(MHeader)) AND (NOT MsgSysOp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7You can only edit messages that you have sent!^1');
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
REPEAT
|
|||
|
|
NL;
|
|||
|
|
Prt('Message editing [^5?^4=^5Help^4]: ');
|
|||
|
|
IF (MsgSysOp) THEN
|
|||
|
|
Onek(Cmd1,'QADEFOPRSTV?'^M,TRUE,TRUE)
|
|||
|
|
ELSE
|
|||
|
|
Onek(Cmd1,'QDEFOST?'^M,TRUE,TRUE);
|
|||
|
|
CASE Cmd1 OF
|
|||
|
|
(*
|
|||
|
|
'D' : FOR Counter := 1 TO 6 DO
|
|||
|
|
IF (HeaderLine(MHeader,Msg_On,HiMsg,Counter,Junk) <> '') THEN
|
|||
|
|
PrintACR(Headerline(MHeader,Msg_On,HiMsg,Counter,Junk));
|
|||
|
|
'O' : IF PYNQ('Reload old information? ',0,FALSE) 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,TRUE,TRUE);
|
|||
|
|
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,TRUE,TRUE);
|
|||
|
|
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;
|
|||
|
|
*)
|
|||
|
|
'A' : IF (NOT MsgSysOp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7You do not have the required access level for this option!^1')
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
IF (MHeader.From.Anon IN [1,2]) THEN
|
|||
|
|
BEGIN
|
|||
|
|
MHeader.From.Anon := 0;
|
|||
|
|
NL;
|
|||
|
|
Print('Message status is not anonymous.');
|
|||
|
|
SysOpLog('Message status is not anonymous.');
|
|||
|
|
END
|
|||
|
|
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;
|
|||
|
|
NL;
|
|||
|
|
Print('Message status is anonymous.');
|
|||
|
|
SysOpLog('Message status is anonymous.');
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
'D' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
FOR Counter := 1 TO 6 DO
|
|||
|
|
IF (HeaderLine(MHeader,Msg_On,HiMsg,Counter,Junk) <> '') THEN
|
|||
|
|
PrintACR(Headerline(MHeader,Msg_On,HiMsg,Counter,Junk));
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
'E' : BEGIN
|
|||
|
|
EditMessageText(Msg_On);
|
|||
|
|
LoadHeader(Msg_On,MHeader);
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
'F' : IF (MHeader.From.Anon > 0) OR (MsgSysOp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^11. Posted from: ^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,^5<CR>^4=^5Quit^4]: ');
|
|||
|
|
Onek(Cmd1,^M'123',TRUE,TRUE);
|
|||
|
|
CASE Cmd1 OF
|
|||
|
|
'1' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
Prt('Posted from: ');
|
|||
|
|
InputDefault(MHeader.From.A1S,MHeader.From.A1S,36,[],FALSE);
|
|||
|
|
END;
|
|||
|
|
'2' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
Prt('Real name: ');
|
|||
|
|
InputDefault(MHeader.From.Real,MHeader.From.Real,36,[],FALSE);
|
|||
|
|
END;
|
|||
|
|
'3' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
Prt('System name: ');
|
|||
|
|
InputDefault(MHeader.From.Name,MHeader.From.Name,36,[],FALSE);
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
Cmd1 := #0;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
'O' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
IF PYNQ('Reload old information? ',0,FALSE) THEN
|
|||
|
|
LoadHeader(Msg_On,MHeader);
|
|||
|
|
END;
|
|||
|
|
'P' : IF (NOT Pub) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7This option is not available when reading private messages!^1');
|
|||
|
|
END
|
|||
|
|
ELSE IF (NOT MsgSysOp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7You do not have the required access level for this option!^1')
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
IF (Permanent IN MHeader.Status) THEN
|
|||
|
|
BEGIN
|
|||
|
|
Exclude(MHeader.Status,Permanent);
|
|||
|
|
NL;
|
|||
|
|
Print('Message status is not permanent.');
|
|||
|
|
SysOpLog('Message status is not permanent.');
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
Include(MHeader.Status,Permanent);
|
|||
|
|
NL;
|
|||
|
|
Print('Message status is permanent.');
|
|||
|
|
SysOpLog('Message status is permanent.');
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
|
|||
|
|
'R' : IF (NOT MsgSysOp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7You do not have the required access level for this option!^1')
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
IF (Sent IN MHeader.Status) THEN
|
|||
|
|
BEGIN
|
|||
|
|
Exclude(MHeader.Status,Sent);
|
|||
|
|
IF (PUB) AND (MemMsgArea.MAType IN [1..2]) AND (NOT (MAScanOut IN MemMsgArea.MAFlags)) THEN
|
|||
|
|
UpdateBoard;
|
|||
|
|
NL;
|
|||
|
|
Print('Message status is not sent.');
|
|||
|
|
SysOpLog('Message status is not sent.');
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
Include(MHeader.Status,Sent);
|
|||
|
|
NL;
|
|||
|
|
Print('Message status is sent.');
|
|||
|
|
SysOpLog('Message status is sent.');
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
'S' : IF (NOT MsgSysOp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7You do not have the required access level for this option!^1')
|
|||
|
|
END
|
|||
|
|
ELSE IF (MHeader.FileAttached > 0) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7There is no file attached to this message!^1');
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Prt('Subj: ');
|
|||
|
|
InputDefault(MHeader.Subject,MHeader.Subject,40,[ColorsAllowed],FALSE);
|
|||
|
|
SysOpLog('Message subject has been modified.');
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
'T' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
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,^5<CR>^4=^5Quit^4]: ');
|
|||
|
|
Onek(Cmd1,^M'123',TRUE,TRUE);
|
|||
|
|
CASE Cmd1 OF
|
|||
|
|
'1' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
Prt('Posted to: ');
|
|||
|
|
InputDefault(MHeader.MTo.A1S,MHeader.MTo.A1S,36,[],FALSE);
|
|||
|
|
END;
|
|||
|
|
'2' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
Prt('Real name: ');
|
|||
|
|
InputDefault(MHeader.MTo.Real,MHeader.MTo.Real,36,[],FALSE);
|
|||
|
|
END;
|
|||
|
|
'3' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
Prt('System name: ');
|
|||
|
|
InputDefault(MHeader.MTo.Name,MHeader.MTo.Name,36,[],FALSE);
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
Cmd1 := #0;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
'V' : IF (NOT Pub) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7This option is not available when reading private messages!^1');
|
|||
|
|
END
|
|||
|
|
ELSE IF (NOT MsgSysOp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7You do not have the required access level for this option!^1')
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
IF (UnValidated IN MHeader.Status) THEN
|
|||
|
|
BEGIN
|
|||
|
|
Exclude(MHeader.Status,UnValidated);
|
|||
|
|
NL;
|
|||
|
|
Print('Message status is validated.');
|
|||
|
|
SysOpLog('Message status is validated.');
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
Include(MHeader.Status,UnValidated);
|
|||
|
|
NL;
|
|||
|
|
Print('Message status is unvalidated.');
|
|||
|
|
SysOpLog('Message status is unvalidated.');
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
'?' : BEGIN
|
|||
|
|
NL;
|
|||
|
|
LCmds(15,3,'From','To');
|
|||
|
|
LCmds(15,3,'Subject','Edit text');
|
|||
|
|
LCmds(15,3,'Oops','Display header');
|
|||
|
|
IF (MsgSysOp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
LCmds(15,5,'Permanent','Validation');
|
|||
|
|
LCmds(15,5,'Rescan','Anonymous');
|
|||
|
|
END;
|
|||
|
|
LCmds(15,3,'Quit','');
|
|||
|
|
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 (MHeader.From.Anon = 0) OR (AACS(General.AnonPubRead)) THEN
|
|||
|
|
IF PYNQ('Is this to be a private reply? ',0,Prvt IN MHeader.Status) THEN
|
|||
|
|
IF (MAPrivate IN MemMsgArea.MAFlags) THEN
|
|||
|
|
IF PYNQ('Reply in Email? ',0,FALSE) 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);
|
|||
|
|
IF (Pub) THEN
|
|||
|
|
BEGIN
|
|||
|
|
LoadHeader(HiMsg,MHeader);
|
|||
|
|
IF (MHeader.Date <= GetPackDateTime) THEN
|
|||
|
|
TempLastRead := MHeader.Date;
|
|||
|
|
END;
|
|||
|
|
Next := FALSE;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
8 : IF (Pub) AND ((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 (Pub) AND ((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('^7This is a permanent public message!^1');
|
|||
|
|
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: ^5'+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: ^5'+MHeader.Subject);
|
|||
|
|
END;
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7You can only delete public messages from you!^1');
|
|||
|
|
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('* Undeleted private message from: ^5'+Caps(MHeader.From.A1S))
|
|||
|
|
ELSE IF ToYou(MHeader) OR (MsgSysOp) THEN
|
|||
|
|
SysOpLog('* Undeleted private message to: ^5'+Caps(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: ^5'+Caps(MHeader.From.A1S))
|
|||
|
|
ELSE IF ToYou(MHeader) OR (MsgSysOp) THEN
|
|||
|
|
SysOpLog('* Deleted private message to: ^5'+Caps(MHeader.MTo.A1S));
|
|||
|
|
END;
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7You can only delete private messages from or to you!^1');
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
12 : IF (NOT Pub) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7This option is not available when reading private messages!^1');
|
|||
|
|
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 (Pub) AND (AskUpdate) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
IF PYNQ('Update message read pointers for this area? ',0,FALSE) THEN
|
|||
|
|
BEGIN
|
|||
|
|
LoadLastReadRecord(LastReadRecord);
|
|||
|
|
LastReadRecord.LastRead := GetPackDateTime;
|
|||
|
|
SaveLastReadRecord(LastReadRecord);
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
DoneScan := TRUE;
|
|||
|
|
Next := TRUE;
|
|||
|
|
END;
|
|||
|
|
14 : BEGIN
|
|||
|
|
DoneScan := TRUE;
|
|||
|
|
Abort := TRUE;
|
|||
|
|
END;
|
|||
|
|
15 : ListMessages(Pub);
|
|||
|
|
16 : IF (NOT CoSysOp) THEN
|
|||
|
|
Print('^7You do not have the required access level for this option!^1')
|
|||
|
|
ELSE IF (LastAuthor < 1) OR (LastAuthor > (MaxUsers - 1)) THEN
|
|||
|
|
Print('^7The sender of this message does not have an account on this BBS!^1')
|
|||
|
|
ELSE IF (CheckPW) THEN
|
|||
|
|
UserEditor(LastAuthor);
|
|||
|
|
17 : IF (NOT PUB) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7This option is not available when reading private messages!^1');
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
IF (MAForceRead IN MemMsgArea.MAFlags) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7This message area can not be removed from your new scan!^1')
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
|
|||
|
|
NL;
|
|||
|
|
Print('^5'+MemMsgArea.Name+'^3 '+AOnOff(LastReadRecord.NewScan,'will NOT','WILL')+
|
|||
|
|
' be scanned in future new scans.');
|
|||
|
|
SysOpLog('* Toggled ^5'+MemMsgArea.Name+ '^1 '+AOnOff(LastReadRecord.NewScan,'out of','back in')+
|
|||
|
|
' new scan.');
|
|||
|
|
|
|||
|
|
LoadLastReadRecord(LastReadRecord);
|
|||
|
|
LastReadRecord.NewScan := (NOT LastReadRecord.NewScan);
|
|||
|
|
SaveLastReadRecord(LastReadRecord);
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
18 : Inc(Msg_On);
|
|||
|
|
19 : IF (NOT CoSysOp) THEN
|
|||
|
|
Print('^7You do not have the required access level for this option!^1')
|
|||
|
|
ELSE IF (LastAuthor < 1) OR (LastAuthor > (MaxUsers - 1)) THEN
|
|||
|
|
Print('^7The sender of this message does not have an account on this BBS!^1.')
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
LoadURec(User,LastAuthor);
|
|||
|
|
ShowUserInfo(1,LastAuthor,User);
|
|||
|
|
END;
|
|||
|
|
20 : IF (NOT CoSysOp) THEN
|
|||
|
|
Print('^7You do not have the required access level for this option!^1')
|
|||
|
|
ELSE IF (LastAuthor < 1) OR (LastAuthor > (MaxUsers - 1)) THEN
|
|||
|
|
Print('^7The sender of this message does not have an account on this BBS!^1')
|
|||
|
|
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
|
|||
|
|
IF PYNQ('%LFValidate all messages here? ',0,FALSE) 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;
|
|||
|
|
|
|||
|
|
IF ((Pub) AND (AskPost) AND (AACS(MemMsgArea.PostACS)) AND
|
|||
|
|
(NOT (RPost IN ThisUser.Flags)) AND (PublicPostsToday < General.MaxPubPost)) THEN
|
|||
|
|
IF (TReadPrompt <> 7) THEN
|
|||
|
|
IF PYNQ('%LFPost on ^5'+MemMsgArea.Name+'^7? ',0,FALSE) THEN
|
|||
|
|
IF (MAPrivate IN MemMsgArea.MAFlags) THEN
|
|||
|
|
Post(-1,MHeader.From,PYNQ('%LFIs this to be a private message? ',0,FALSE))
|
|||
|
|
ELSE
|
|||
|
|
Post(-1,MHeader.From,FALSE);
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
PROCEDURE ReadAllMessages(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
|
|||
|
|
Print('%LFNo messages on ^5'+MemMsgArea.Name+'^1.');
|
|||
|
|
IF (Novice IN ThisUser.Flags) THEN
|
|||
|
|
PauseScr(FALSE);
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
|
|||
|
|
Msg_On := 1;
|
|||
|
|
Inputstr := '?';
|
|||
|
|
REPEAT
|
|||
|
|
IF (InputStr = '?') THEN
|
|||
|
|
ListMessages(MsgArea <> -1);
|
|||
|
|
NL;
|
|||
|
|
{ Prompt(FString.ReadQ); }
|
|||
|
|
Prt('Select message (^51^4-^5'+IntToStr(HiMsg)+'^4) [^5?^4=^5First^4,^5<CR>^4=^5Next^4,^5Q^4=^5Quit^4)]: ');
|
|||
|
|
(*
|
|||
|
|
lRGLngStr(32,FALSE);
|
|||
|
|
*)
|
|||
|
|
ScanInput(InputStr,'Q?'^M);
|
|||
|
|
|
|||
|
|
IF (InputStr = 'Q') THEN
|
|||
|
|
Msg_On := 0
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
|
|||
|
|
IF (InputStr = ^M) THEN
|
|||
|
|
BEGIN
|
|||
|
|
InputStr := '?';
|
|||
|
|
IF (Msg_On >= HiMsg) THEN
|
|||
|
|
Msg_On := 1;
|
|||
|
|
END
|
|||
|
|
ELSE IF (InputStr = '?') THEN
|
|||
|
|
BEGIN
|
|||
|
|
Msg_On := 1;
|
|||
|
|
InputStr := '?';
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
Msg_On := StrToInt(InputStr);
|
|||
|
|
IF (Msg_On >= 1) AND (Msg_On <= HIMsg) THEN
|
|||
|
|
InputStr := 'Q'
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
Print('^7The range must be from 1 to '+IntToStr(HiMsg)+'^1');
|
|||
|
|
PauseScr(FALSE);
|
|||
|
|
Msg_On := 1;
|
|||
|
|
InputStr := '?';
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
UNTIL (InputStr = 'Q') OR (HangUp);
|
|||
|
|
|
|||
|
|
IF (Msg_On >= 1) AND (Msg_On <= HiMsg) AND (NOT HangUp) THEN
|
|||
|
|
BEGIN
|
|||
|
|
IF (MsgArea <> -1) THEN
|
|||
|
|
BEGIN
|
|||
|
|
LoadLastReadRecord(LastReadRecord);
|
|||
|
|
TempLastRead := LastReadRecord.LastRead;
|
|||
|
|
END;
|
|||
|
|
MainRead(FALSE,FALSE,(MsgArea <> -1));
|
|||
|
|
IF (MsgArea <> -1) THEN
|
|||
|
|
BEGIN
|
|||
|
|
LastReadRecord.LastRead := TempLastRead;
|
|||
|
|
SaveLastReadRecord(LastReadRecord);
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
END;
|
|||
|
|
MsgArea := SaveReadMsgArea;
|
|||
|
|
LoadMsgArea(MsgArea);
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
FUNCTION FirstNew: Word;
|
|||
|
|
VAR
|
|||
|
|
MHeader: MHeaderRec;
|
|||
|
|
MaxMsgs,
|
|||
|
|
MsgNum: Word;
|
|||
|
|
Done: Boolean;
|
|||
|
|
BEGIN
|
|||
|
|
MaxMsgs := HiMsg;
|
|||
|
|
MsgNum := 0;
|
|||
|
|
IF (MaxMsgs > 0) THEN
|
|||
|
|
BEGIN
|
|||
|
|
Done := FALSE;
|
|||
|
|
MsgNum := 1;
|
|||
|
|
WHILE (MsgNum <= MaxMsgs) AND (NOT Done) DO
|
|||
|
|
BEGIN
|
|||
|
|
LoadHeader(MsgNum,MHeader);
|
|||
|
|
IF (LastReadRecord.LastRead < MHeader.Date) THEN
|
|||
|
|
Done := TRUE
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
IF (MsgNum < MaxMsgs) THEN
|
|||
|
|
Inc(MsgNum,1)
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
MsgNum := 0;
|
|||
|
|
Done := TRUE;
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
FirstNew := MsgNum;
|
|||
|
|
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,0))+' ^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;
|
|||
|
|
NL;
|
|||
|
|
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,0))));
|
|||
|
|
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,'QFTSAY?'^M,TRUE,TRUE);
|
|||
|
|
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 (NOT (Cmd IN ['Q',^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
|
|||
|
|
ScanNew := PYNQ('Scan new messages only? ',0,TRUE);
|
|||
|
|
IF (ScanGlobal) OR ((MenuOption = '') AND PYNQ('Global scan? ',0,FALSE)) THEN
|
|||
|
|
BEGIN
|
|||
|
|
MArea := 1;
|
|||
|
|
WHILE (MArea >= 1) AND (MArea <= NumMsgAreas) AND (NOT Abort) AND (NOT HangUp) DO
|
|||
|
|
BEGIN
|
|||
|
|
Searchboard(MArea,Cmd);
|
|||
|
|
Wkey;
|
|||
|
|
Inc(MArea);
|
|||
|
|
END;
|
|||
|
|
END
|
|||
|
|
ELSE
|
|||
|
|
Searchboard(MArea,Cmd);
|
|||
|
|
END;
|
|||
|
|
MsgArea := SaveMsgArea;
|
|||
|
|
LoadMsgArea(MsgArea);
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
PROCEDURE ScanYours;
|
|||
|
|
VAR
|
|||
|
|
ScanAllPublicMsgFile: FILE OF Boolean;
|
|||
|
|
MsgHeader: MHeaderRec;
|
|||
|
|
MArea,
|
|||
|
|
SaveMsgArea: Integer;
|
|||
|
|
MsgNum,
|
|||
|
|
PubMsgsFound: Word;
|
|||
|
|
SaveConfSystem,
|
|||
|
|
AnyFound,
|
|||
|
|
FirstTime,
|
|||
|
|
MsgsFound: Boolean;
|
|||
|
|
BEGIN
|
|||
|
|
SaveMsgArea := MsgArea;
|
|||
|
|
SaveConfSystem := ConfSystem;
|
|||
|
|
ConfSystem := FALSE;
|
|||
|
|
IF (SaveConfSystem) THEN
|
|||
|
|
NewCompTables;
|
|||
|
|
Assign(ScanAllPublicMsgFile,TempDir+'SAPM'+IntToStr(ThisNode)+'.DAT');
|
|||
|
|
ReWrite(ScanAllPublicMsgFile);
|
|||
|
|
FOR MArea := 1 TO NumMsgAreas DO
|
|||
|
|
BEGIN
|
|||
|
|
MsgsFound := FALSE;
|
|||
|
|
Write(ScanAllPublicMsgFile,MsgsFound);
|
|||
|
|
END;
|
|||
|
|
Prompt('%LF^5Scanning for your new public messages ... ^1');
|
|||
|
|
FirstTime := TRUE;
|
|||
|
|
AnyFound := FALSE;
|
|||
|
|
MArea := 1;
|
|||
|
|
WHILE (MArea >= 1) AND (MArea <= NumMsgAreas) AND (NOT Abort) AND (NOT HangUp) DO
|
|||
|
|
BEGIN
|
|||
|
|
IF (MsgArea <> MArea) THEN
|
|||
|
|
ChangeMsgArea(MArea);
|
|||
|
|
IF (MsgArea = MArea) THEN
|
|||
|
|
BEGIN
|
|||
|
|
InitMsgArea(MsgArea);
|
|||
|
|
IF (LastReadRecord.NewScan) THEN
|
|||
|
|
BEGIN
|
|||
|
|
Reset(MsgHdrF);
|
|||
|
|
Reset(MsgTxtF,1);
|
|||
|
|
IF (IOResult = 0) THEN
|
|||
|
|
BEGIN
|
|||
|
|
PubMsgsFound := 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
|
|||
|
|
Seek(ScanAllPublicMsgFile,(MArea - 1));
|
|||
|
|
MsgsFound := TRUE;
|
|||
|
|
Write(ScanAllPublicMsgFile,MsgsFound);
|
|||
|
|
Inc(PubMsgsFound);
|
|||
|
|
END;
|
|||
|
|
Inc(MsgNum);
|
|||
|
|
END;
|
|||
|
|
Close(MsgHdrF);
|
|||
|
|
Close(MsgTxtF);
|
|||
|
|
IF (PubMsgsFound > 0) THEN
|
|||
|
|
BEGIN
|
|||
|
|
IF (FirstTime) THEN
|
|||
|
|
BEGIN
|
|||
|
|
NL;
|
|||
|
|
NL;
|
|||
|
|
FirstTime := FALSE;
|
|||
|
|
END;
|
|||
|
|
Print('^5'+PadLeftStr(MemMsgArea.Name,30)+' ^1'+IntToStr(PubMsgsFound));
|
|||
|
|
AnyFound := TRUE;
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
Inc(MArea);
|
|||
|
|
END;
|
|||
|
|
Close(ScanAllPublicMsgFile);
|
|||
|
|
IF (NOT AnyFound) THEN
|
|||
|
|
Print('^5No messages found.^1')
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
Abort := FALSE;
|
|||
|
|
Next := FALSE;
|
|||
|
|
NL;
|
|||
|
|
IF PYNQ('Read your new public messages now? ',0,FALSE) THEN
|
|||
|
|
BEGIN
|
|||
|
|
Assign(ScanAllPublicMsgFile,TempDir+'SAPM'+IntToStr(ThisNode)+'.DAT');
|
|||
|
|
Reset(ScanAllPublicMsgFile);
|
|||
|
|
MArea := 1;
|
|||
|
|
WHILE (MArea >= 1) AND (MArea <= NumMsgAreas) AND (NOT Abort) AND (NOT HangUp) DO
|
|||
|
|
BEGIN
|
|||
|
|
Seek(ScanAllPublicMsgFile,(MArea - 1));
|
|||
|
|
Read(ScanAllPublicMsgFile,MsgsFound);
|
|||
|
|
IF (MsgsFound) THEN
|
|||
|
|
ScanMessages(MArea,TRUE,'N');
|
|||
|
|
WKey;
|
|||
|
|
Inc(MArea);
|
|||
|
|
END;
|
|||
|
|
Close(ScanAllPublicMsgFile);
|
|||
|
|
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);
|
|||
|
|
IF (LastReadRecord.NewScan) OR ((MAForceRead IN MemMsgArea.MAFlags) AND (NOT CoSysOp)) THEN
|
|||
|
|
BEGIN
|
|||
|
|
TempLastRead := LastReadRecord.LastRead;
|
|||
|
|
Lil := 0;
|
|||
|
|
{ Prompt('^3'+FString.NewScan1);}
|
|||
|
|
lRGLngStr(8,FALSE);
|
|||
|
|
Msg_On := FirstNew;
|
|||
|
|
IF (Msg_On > 0) THEN
|
|||
|
|
MainRead(FALSE,FALSE,(MsgArea <> -1));
|
|||
|
|
|
|||
|
|
LastReadRecord.LastRead := TempLastRead;
|
|||
|
|
SaveLastReadRecord(LastReadRecord);
|
|||
|
|
|
|||
|
|
(* Add backarase *)
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
BEGIN
|
|||
|
|
SaveMsgArea := MsgArea;
|
|||
|
|
MArea := MsgArea;
|
|||
|
|
Global := FALSE;
|
|||
|
|
Abort := FALSE;
|
|||
|
|
Next := 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
|
|||
|
|
Global := PYNQ('%LFScan all message areas? ',0,FALSE);
|
|||
|
|
IF (NOT Global) THEN
|
|||
|
|
NewScan(MArea)
|
|||
|
|
ELSE
|
|||
|
|
BEGIN
|
|||
|
|
MArea := 1;
|
|||
|
|
WHILE (MArea >= 1) AND (MArea <= NumMsgAreas) AND (NOT Abort) AND (NOT HangUp) DO
|
|||
|
|
BEGIN
|
|||
|
|
NewScan(MArea);
|
|||
|
|
WKey;
|
|||
|
|
Inc(MArea);
|
|||
|
|
END;
|
|||
|
|
SysOpLog('Global new scan of message areas');
|
|||
|
|
END;
|
|||
|
|
MsgArea := SaveMsgArea;
|
|||
|
|
LoadMsgArea(MsgArea);
|
|||
|
|
END;
|
|||
|
|
|
|||
|
|
END.
|