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;
{$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, ' '));

1
mystic/mis_client_ftp.pas
View File

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

8
mystic/mystic.pas
View File

@ -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, '');