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

Compliles for linux again

This commit is contained in:
mysticbbs 2012-06-30 21:22:09 -04:00
parent 3e5b558071
commit 53f119631c
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/bbs_core.pas
View File

@ -344,7 +344,7 @@ Begin
Read (ThemeFile, Theme); Read (ThemeFile, Theme);
{$IFDEF FS_SENSITIVE} {$IFDEF FS_SENSITIVE}
If Lang.FileName = Str Then Begin If Theme.FileName = Str Then Begin
{$ELSE} {$ELSE}
If strUpper(Theme.FileName) = strUpper(Str) Then Begin If strUpper(Theme.FileName) = strUpper(Str) Then Begin
{$ENDIF} {$ENDIF}

2
mystic/bbs_user.pas
View File

@ -385,7 +385,7 @@ Procedure TBBSUser.DetectGraphics;
Var Var
Loop : Byte; Loop : Byte;
Begin Begin
If Session.Lang.Flags AND ThmAllowANSI = 0 Then Begin If Session.Theme.Flags AND ThmAllowANSI = 0 Then Begin
Session.io.Graphics := 0; Session.io.Graphics := 0;
Exit; Exit;
End; End;

4
mystic/mis_client_telnet.pas
View File

@ -112,6 +112,8 @@ Var
bRead : LongInt; bRead : LongInt;
bWrite : LongInt; bWrite : LongInt;
Begin Begin
Client.FTelnetServer := True;
Proc := TProcess.Create(Nil); Proc := TProcess.Create(Nil);
Num := ND.GetFreeNode; Num := ND.GetFreeNode;
@ -154,6 +156,8 @@ Begin
Proc.Free; Proc.Free;
FileMode := 66;
FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat'); FileErase (bbsConfig.DataPath + 'chat' + strI2S(NI.Num) + '.dat');
NI.Busy := False; NI.Busy := False;