A27

mystic/bbs_filebase.pas

@@ -1156,6 +1156,7 @@ Var
     Session.io.OutFullLn (Session.GetPrompt(200));
 
     Total  := 0;
+    FileMode := 66;
 
     Reset (FBaseFile);
 
@@ -1195,6 +1196,7 @@ Var
   Begin
     B := 0;
 
+    FileMode := 66;
     Reset (FBaseFile);
 
     Repeat

mystic/bbs_general.pas

@@ -345,6 +345,8 @@ Begin
 
   If Name = '' Then Exit;
 
+  FileMode := 66;
+
   Assign (BBSFile, Config.DataPath + Name + '.bbi');
   {$I-} Reset(BBSFile); {$I+}
   If IoResult <> 0 Then Begin
@@ -582,6 +584,8 @@ Begin
     MaxField := strS2I(Copy(Data, A + 1, Length(Data)));
   End;
 
+  FileMode := 66;
+
   Assign (OneLineFile, Config.DataPath + 'oneliner.dat');
   {$I-} Reset (OneLineFile); {$I+}
 

mystic/bbs_msgbase.pas

@@ -647,11 +647,10 @@ Begin
     End;
 End;
 
+(*
 Procedure TMsgBase.ToggleNewScan (QWK: Boolean; Data: String);
-Var
-  Total: LongInt;
 
-  Procedure List_Bases;
+  Procedure NewScanListBases;
   Begin
     Session.io.PausePtr   := 1;
     Session.io.AllowPause := True;
@@ -679,9 +678,67 @@ Var
         GetMessageScan;
 
         If ((MScan.NewScan > 0) And Not QWK) or ((MScan.QwkScan > 0) And QWK) Then
-          Session.io.PromptInfo[3] := 'Yes'
+          Session.io.PromptInfo[3] := 'Yes' {++lang++}
         Else
-          Session.io.PromptInfo[3] := 'No';
+          Session.io.PromptInfo[3] := 'No'; {++lang++}
+
+        Session.io.OutFull (Session.GetPrompt(93));
+
+        If (Total MOD Config.MColumns = 0) And (Total > 0) Then Session.io.OutRawLn('');
+      End;
+
+      If EOF(MBaseFile) and (Total MOD Config.MColumns <> 0) Then Session.io.OutRawLn('');
+
+      If (Session.io.PausePtr = Session.User.ThisUser.ScreenSize) and (Session.io.AllowPause) Then
+        Case Session.io.MorePrompt of
+          'N' : Break;
+          'C' : Session.io.AllowPause := False;
+        End;
+    End;
+
+    Session.io.OutFull (Session.GetPrompt(430));
+  End;
+
+Begin
+End;
+*)
+
+Procedure TMsgBase.ToggleNewScan (QWK: Boolean; Data: String);
+Var
+  Total: LongInt;
+
+  Procedure List_Bases;
+  Begin
+    Session.io.PausePtr   := 1;
+    Session.io.AllowPause := True;
+
+    If QWK Then
+      Session.io.OutFullLn (Session.GetPrompt(90))
+    Else
+      Session.io.OutFullLn (Session.GetPrompt(91));
+
+    Session.io.OutFullLn (Session.GetPrompt(92));
+
+    Total    := 0;
+    FileMode := 66;
+
+    Reset (MBaseFile);
+
+    While Not Eof(MBaseFile) Do Begin
+      Read (MBaseFile, MBase);
+
+      If Session.User.Access(MBase.ListACS) Then Begin
+        Inc (Total);
+
+        Session.io.PromptInfo[1] := strI2S(Total);
+        Session.io.PromptInfo[2] := MBase.Name;
+
+        GetMessageScan;
+
+        If ((MScan.NewScan > 0) And Not QWK) or ((MScan.QwkScan > 0) And QWK) Then
+          Session.io.PromptInfo[3] := 'Yes' {++lang++}
+        Else
+          Session.io.PromptInfo[3] := 'No'; {++lang++}
 
         Session.io.OutFull (Session.GetPrompt(93));
 
@@ -704,7 +761,8 @@ Var
   Var
     B : Word;
   Begin
-    B := 0;
+    B        := 0;
+    FileMode := 66;
 
     Reset (MBaseFile);
 
@@ -3924,8 +3982,9 @@ Begin
   If Session.User.ThisUser.QwkFiles Then
     Session.FileBase.ExportFileList(True, True);
 
-  Old  := MBase;
+  FileMode := 66;
-  Temp := strPadR('Produced By ' + mysSoftwareID + ' BBS v' + mysVersion + '. ' + CopyID, 128, ' ');
+  Old      := MBase;
+  Temp     := strPadR('Produced By ' + mysSoftwareID + ' BBS v' + mysVersion + '. ' + CopyID, 128, ' ');
 
   Assign     (DataFile, Session.TempPath + 'messages.dat');
   ReWrite    (DataFile, 1);

mystic/bbs_nodelist.pas

@@ -82,6 +82,8 @@ Begin
     SearchNode := Copy(SearchStr, B + 1, 255);
   End;
 
+  FileMode := 66;
+
   Assign     (ListFile, NodeList);
   SetTextBuf (ListFile, ListBuffer);
   Reset      (ListFile);

mystic/mis_client_telnet.pas

@@ -9,7 +9,7 @@ Interface
     {$LinkLib libutil.a}
   {$ENDIF}
   {$IFDEF CPU64}
-    {$LinkLib libutil_64.a}
+    {$LinkLib libutil.a}
   {$ENDIF}
 {$ENDIF}
 

mystic/todo.pas

@@ -8,6 +8,7 @@ design elements/issues.
 BUGS AND POSSIBLE ISSUES
 ========================
 
+! LBP menus arent scrolling correctly in Linux
 ! MUTIL FILESBBS import is not skipping FILES.BBS?
 ! Make sure MIS in Linux works with DOSEMU
 ! Node chat goes haywire at 1000 lines scrollback
@@ -28,11 +29,12 @@ FUTURE / IDEAS / WORK IN PROGRESS / NOTES
 =========================================
 
 - Option for QuickScan that only prints a base if it has new messages.
+- Option for quickscan to show information about the messages (from,subj)
 - QWK via email
 - Either add Public/Private fusion type message base or allow reply via
   email or netmail option.
 - mUTIL scans MSGS directory and auto-creates anything that has data files
-  not related to a BBS message base
+  not related to a BBS message base.. uses a template
 - Blind upload for single file upload (also message upload)
 - Email validation
 - Recode FCHECK into MUTIL, but also add the option to phsyically delete the