A32 update

mystic/mide.ini

@@ -2,7 +2,7 @@
 ; =======================
 ;
 ; If you are editing this from within MIDE, make sure to save the file.  The
-; editor will need to be restarted for changes to take effect.
+; editor MUST be restarted for new changes to take effect.
 
 [General]
 
@@ -26,7 +26,7 @@
   ; attribute = foreground_color + background_color * 16
   ; foreground is 0-15 and background is 0-7
 
-  ; DARK SYNTAX COLORS
+  ; DARK SYNTAX COLORS (EXAMPLE)
   ; syn_normal  = 7
   ; syn_keyword = 10
   ; syn_string  = 12
@@ -35,7 +35,7 @@
   ; syn_hex     = 15
   ; syn_charstr = 12
 
-  ; FREEPASCAL SYNTAX COLORS
+  ; FREEPASCAL/BORLAND PASCAL IDE SYNTAX COLORS
   syn_normal  = 30
   syn_keyword = 31
   syn_string  = 27

mystic/mpl_common.pas

@@ -360,6 +360,14 @@ Begin
           AddPointer ({$IFDEF MPLPARSER} 'cfgtimeout',     {$ENDIF} iWord,   4,              {$IFNDEF MPLPARSER} @Config.Inactivity     {$ELSE} NIL {$ENDIF});
           AddPointer ({$IFDEF MPLPARSER} 'cfgseeinvis',    {$ENDIF} iString, 20,             {$IFNDEF MPLPARSER} @Config.AcsSeeInvis    {$ELSE} NIL {$ENDIF});
           AddPointer ({$IFDEF MPLPARSER} 'cfgtnnodes',     {$ENDIF} iByte,    1,             {$IFNDEF MPLPARSER} @Config.INetTNNodes    {$ELSE} NIL {$ENDIF});
+
+          AddPointer ({$IFDEF MPLPARSER} 'cfgnetdesc',     {$ENDIF} iString, 30 * 25 - 1, {$IFNDEF MPLPARSER} @Config.NetDesc {$ELSE} NIL {$ENDIF});
+          CV[X]^.ArrPos := 1;
+          {$IFNDEF MPLPARSER}
+            CV[X]^.VarSize   := 26;
+            CV[X]^.ArrDim[1] := 30;
+          {$ENDIF}
+
         End;
     3 : Begin
           {$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarMBase := X + 1; {$ENDIF}
@@ -370,6 +378,7 @@ Begin
           AddStr ({$IFDEF MPLPARSER} 'mbaseracs',     {$ENDIF} iString, 30);
           AddStr ({$IFDEF MPLPARSER} 'mbasepacs',     {$ENDIF} iString, 30);
           AddStr ({$IFDEF MPLPARSER} 'mbasesacs',     {$ENDIF} iString, 30);
+          AddVar ({$IFDEF MPLPARSER} 'mbasenetaddr',  {$ENDIF} iByte);
         End;
     4 : Begin
           {$IFNDEF MPLPARSER} TInterpEngine(S).IdxVarMGroup := X + 1; {$ENDIF}

mystic/mpl_execute.pas

@@ -242,6 +242,7 @@ Begin
   Move (M.ReadACS,  VarData[IdxVarMBase + 3 ]^.Data^, SizeOf(M.ReadACS));
   Move (M.PostACS,  VarData[IdxVarMBase + 4 ]^.Data^, SizeOf(M.PostACS));
   Move (M.SysopACS, VarData[IdxVarMBase + 5 ]^.Data^, SizeOf(M.SysopACS));
+  Move (M.NetAddr,  VarData[IdxVarMBase + 6 ]^.Data^, SizeOf(M.NetAddr));
 End;
 
 Function TInterpEngine.GetMBaseStats (Num: LongInt; SkipFrom, SkipRead: Boolean; Var Total, New, Yours: LongInt) : Boolean;

mystic/whatsnew.txt

@@ -3202,7 +3202,7 @@
    As usual with routing it can be confusing when you have very specific
    routing needs but if you have only single uplinks then it can be pretty
    straight forward.  EXISTING echomail users need to go in and add their
-   routing information.
+   routing information if they are using the internal tosser.
 
  + Message bases can now be tagged and deleted in bulk, along with their
    message base data files.
@@ -3248,4 +3248,15 @@
    this is supplied Mystic will go straight to reading mail instead of
    listing the messages and asking the user if they want to read e-mail.
 
+ + New MPL vars: CfgNetDesc (array 1..30 of string[25] contains network
+   descriptions) and MBaseNetAddr (contains the network address target of
+   the message base).  Ex:
+
+      Uses CFG, MBASE;
+
+      Begin
+        If GetMBase(1) Then
+          WriteLn ('Base #1 is in network: ' + CfgNetDesc[MBaseNetAddr]);
+      End.
+
    <ALPHA 32 RELEASED>