Subj : Re: MPL docs?
To : G00R00
From : PSI-JACK
Date : Thu Jan 31 2019 07:20 pm
On 09/01/14, g00r00 said the following...
g0> 1. Note the current base.
g0> 2. Switch to the Netmail base
g0> 3. Post to the netmail base
g0> 4. Switch back to the original base.
Yes! I actally got it, hacked up from your original post resulting in the
following which allows posting and reading.
If you see any issues, let me know.
// Send/Read Netmail and return to previous message base.
Uses
User,
MBase;
Var
OriginalBase : Integer
Const
NetMailBaseNumber = '1';
Begin
If ParamCount < 1 Then Begin
WriteLn ('|CRERROR (NETMAIL.MPS): Invalid command line|DE');
Halt;
End;
GetThisUser;
OriginalBase := UserMBase;
MenuCmd('MA', NetMailBaseNumber);
If ParamCount >= 1 Then Begin
If Upper(ParamStr(1)) = 'POST' Then
MenuCmd('MP', '');
Else
If Upper(ParamStr(1)) = 'READ' Then
MenuCmd('MR', 'Y');
End;
MenuCmd('MA', Int2Str(OriginalBase));
End;
Took me a login to Cyberia to find the Int2Str because before I'd have a type
mismatch issue, but after I got that figured out, and looked through how the
basics are done within bulletin.mps, and your original example on netmail, I
was able to construct this with pretty good ease.
