Cleanup

mystic/mis.pas

@@ -19,10 +19,10 @@
 //
 // ====================================================================
 
-{$I M_OPS.PAS}
-
 Program MIS;
 
+{$I M_OPS.PAS}
+
 Uses
   {$IFDEF DEBUG}
     HeapTrc,
@@ -204,6 +204,7 @@ Begin
   For Count := 22 DownTo 15 Do Begin
     If Offset > 0 Then Begin
       Dec(Offset);
+
       Console.WriteXY (4, Count, 7, strPadR(FocusPtr.ServerStatus.Strings[Offset], 74, ' '));
     End Else
       Console.WriteXY (4, Count, 7, strPadR(' ', 74, ' '));

mystic/mis_client_ftp.pas

@@ -851,7 +851,6 @@ Var
   TempBase : RecFileBase;
   BaseFile : File;
   CurDIR   : String;
-  DizFile  : Text;
   Desc     : FileDescBuffer;
   DescSize : Byte;
   Dir      : RecFileList;

mystic/mystic.pas

@@ -253,13 +253,15 @@ Begin
   Session.TempPath := bbsCfg.SystemPath + 'temp' + strI2S(Session.NodeNum) + PathChar;
   Session.Pipe     := TPipe.Create(bbsCfg.DataPath, False, Session.NodeNum);
 
+(*
   {$I-}
   MkDir (bbsCfg.SystemPath + 'temp' + strI2S(Session.NodeNum));
   {$I+}
 
   If IoResult <> 0 Then;
-
+*)
-  DirClean (Session.TempPath, '');
+  DirCreate (Session.TempPath);
+  DirClean  (Session.TempPath, '');
 
   Assign (Session.User.UserFile, bbsCfg.DataPath + 'users.dat');
   {$I-} Reset (Session.User.UserFile); {$I+}
@@ -477,10 +479,12 @@ Begin
   Else
     Session.SetTimeLeft(bbsCfg.LoginTime);
 
+(*
   {$IFNDEF UNIX}
     Screen.TextAttr := 7;
     Screen.ClearScreen;
   {$ENDIF}
+*)
 
   {$IFNDEF UNIX}
     UpdateStatusLine(0, '');