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

TPipe class

This commit is contained in:
mysticbbs 2012-09-06 04:33:15 -04:00
parent efebe66988
commit 44c5230db7
6 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
mystic/bbs_core.pas
View File

@ -11,7 +11,7 @@ Uses
{$ENDIF} {$ENDIF}
m_FileIO, m_FileIO,
m_Strings, m_Strings,
m_Pipe_Disk, m_Pipe,
m_DateTime, m_DateTime,
BBS_Common, BBS_Common,
BBS_IO, BBS_IO,
@ -34,7 +34,7 @@ Type
FileBase : TFileBase; FileBase : TFileBase;
Menu : TMenuEngine; Menu : TMenuEngine;
IO : TBBSIO; IO : TBBSIO;
Pipe : TPipeDisk; Pipe : TPipe;
EventFile : File of EventRec; EventFile : File of EventRec;
ThemeFile : File of RecTheme; ThemeFile : File of RecTheme;
VoteFile : File of VoteRec; VoteFile : File of VoteRec;
@ -331,6 +331,8 @@ Begin
If TimerStart > TimerMinutes Then Begin If TimerStart > TimerMinutes Then Begin
Dec (TimerStart, 1440); Dec (TimerStart, 1440);
Dec (TimerEnd, 1440); Dec (TimerEnd, 1440);
SetTimeLeft (User.Security.Time);
End; End;
ElapsedTime := TimerMinutes - TimerStart; ElapsedTime := TimerMinutes - TimerStart;

6
mystic/bbs_msgbase.pas
View File

@ -990,11 +990,11 @@ Begin
MsgNew^.SetOrig (Addr); MsgNew^.SetOrig (Addr);
End; End;
Else Else
MsgNew^.SetTo(ToWho); MsgNew^.SetTo (ToWho);
End; End;
MsgNew^.SetSubj(Subj); MsgNew^.SetSubj (Subj);
MsgNew^.SetRefer(MsgBase^.GetMsgNum); MsgNew^.SetRefer (MsgBase^.GetMsgNum);
AppendMessageText (MsgNew, Lines, ReplyID); AppendMessageText (MsgNew, Lines, ReplyID);

1
mystic/mis_common.pas
View File

@ -240,5 +240,4 @@ Begin
Result := True; Result := True;
End; End;
End. End.

4
mystic/mystic.pas
View File

@ -40,7 +40,7 @@ Uses
m_DateTime, m_DateTime,
m_Output, m_Output,
m_Input, m_Input,
m_Pipe_Disk, m_Pipe,
bbs_Common, bbs_Common,
bbs_Core, bbs_Core,
bbs_NodeInfo, bbs_NodeInfo,
@ -231,7 +231,7 @@ Begin
FileMode := 66; FileMode := 66;
Session.TempPath := Config.SystemPath + 'temp' + strI2S(Session.NodeNum) + PathChar; Session.TempPath := Config.SystemPath + 'temp' + strI2S(Session.NodeNum) + PathChar;
Session.Pipe := TPipeDisk.Create(Config.DataPath, False, Session.NodeNum); Session.Pipe := TPipe.Create(Config.DataPath, False, Session.NodeNum);
{$I-} {$I-}
MkDir (Config.SystemPath + 'temp' + strI2S(Session.NodeNum)); MkDir (Config.SystemPath + 'temp' + strI2S(Session.NodeNum));

6
mystic/nodespy.pas
View File

@ -37,7 +37,7 @@ Uses
m_FileIO, m_FileIO,
m_DateTime, m_DateTime,
m_Strings, m_Strings,
m_Pipe_Disk, m_Pipe,
m_Input, m_Input,
m_Output, m_Output,
m_io_Base, m_io_Base,
@ -494,7 +494,7 @@ End;
Procedure SnoopNode (Node: Byte); Procedure SnoopNode (Node: Byte);
Var Var
Pipe : TPipeDisk; Pipe : TPipe;
Buffer : Array[1..4 * 1024] of Char; Buffer : Array[1..4 * 1024] of Char;
BufRead : LongInt; BufRead : LongInt;
Update : LongInt; Update : LongInt;
@ -532,7 +532,7 @@ Begin
SendNodeMessage(Node, 11); SendNodeMessage(Node, 11);
Pipe := TPipeDisk.Create(Config.DataPath, True, Node); Pipe := TPipe.Create(Config.DataPath, True, Node);
If Not Pipe.ConnectPipe(1500) Then Begin If Not Pipe.ConnectPipe(1500) Then Begin
ShowMsgBox (0, 'Unable to establish a session. Try again'); ShowMsgBox (0, 'Unable to establish a session. Try again');