eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleanup

This commit is contained in:
mysticbbs 2013-09-13 23:08:58 -04:00
parent 82cd604c2f
commit d85a08090a
3 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/mis.pas
View File

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

1
mystic/mis_client_ftp.pas
View File

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

6
mystic/mystic.pas
View File

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