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

Just moving around code

This commit is contained in:
g00r00 2013-10-03 22:24:07 -04:00
parent d3313c38f2
commit 223aed578b
4 changed files with 40 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
mystic/bbs_cfg_echomail.pas
View File

@ -8,7 +8,6 @@ Uses
BBS_Core,
BBS_Records;
Function GetNodeByIndex (Num: LongInt; Var TempNode: RecEchoMailNode) : Boolean;
Procedure AddExportByBase (Var MBase: RecMessageBase; Idx: LongInt);
Procedure RemoveExportFromBase (Var MBase: RecMessageBase; Idx: LongInt);
@ -108,29 +107,6 @@ Begin
Close (MBaseFile);
End;
Function GetNodeByIndex (Num: LongInt; Var TempNode: RecEchoMailNode) : Boolean;
Var
F : File;
Begin
Result := False;
Assign (F, bbsCfg.DataPath + 'echonode.dat');
If Not ioReset(F, SizeOf(RecEchoMailNode), fmRWDN) Then Exit;
While Not Eof(F) Do Begin
ioRead(F, TempNode);
If TempNode.Index = Num Then Begin
Result := True;
Break;
End;
End;
Close (F);
End;
Procedure EditSessionInfo (Var Node: RecEchoMailNode);
Var
Box : TAnsiMenuBox;

38
mystic/bbs_database.pas
View File

@ -66,8 +66,10 @@ Function IsThisUser (U: RecUser; Str: String) : Boolean;
// ECHOMAIL
Function GetFTNBundleExt (IncOnly: Boolean; Str: String) : String;
Function GetFTNPKTName : String;
Function GetFTNBundleExt (IncOnly: Boolean; Str: String) : String;
Function GetNodeByAddress (Addr: String; Var TempNode: RecEchoMailNode) : Boolean;
Function GetNodeByIndex (Num: LongInt; Var TempNode: RecEchoMailNode) : Boolean;
Function SaveEchoMailNode (Var TempNode: RecEchoMailNode) : Boolean;
Implementation
@ -722,6 +724,40 @@ Begin
Close (F);
End;
Function GetFTNPKTName : String;
Var
Hour, Min, Sec, hSec : Word;
Year, Month, Day, DOW : Word;
Begin
GetTime (Hour, Min, Sec, hSec);
GetDate (Year, Month, Day, DOW);
Result := strZero(Day) + strZero(Hour) + strZero(Min) + strZero(Sec);
End;
Function GetNodeByIndex (Num: LongInt; Var TempNode: RecEchoMailNode) : Boolean;
Var
F : File;
Begin
Result := False;
Assign (F, bbsCfg.DataPath + 'echonode.dat');
If Not ioReset(F, SizeOf(RecEchoMailNode), fmRWDN) Then Exit;
While Not Eof(F) Do Begin
ioRead(F, TempNode);
If TempNode.Index = Num Then Begin
Result := True;
Break;
End;
End;
Close (F);
End;
Initialization
bbsCfgStatus := GetBaseConfiguration(True, bbsCfg);

3
mystic/mis_client_binkp.pas
View File

@ -927,6 +927,9 @@ Begin
If Queue.Add(True, OutPath, DirInfo.Name, FileNewExt(DirInfo.Name, 'pkt')) Then
Queue.QData[Queue.QSize]^.Extra := OutPath;
//If Queue.Add(True, OutPath, DirInfo.Name, FileNewExt(GetFTNPktName, 'pkt')) Then
// Queue.QData[Queue.QSize]^.Extra := OutPath;
FindNext (DirInfo);
End;

36
mystic/mutil_common.pas
View File

@ -54,11 +54,9 @@ Function GetMBaseByTag (Tag: String; Var TempBase: RecMessageBase) : Boole
Function GetMBaseByNetZone (Zone: Word; Var TempBase: RecMessageBase) : Boolean;
Function MessageBaseOpen (Var Msg: PMsgBaseABS; Var Area: RecMessageBase) : Boolean;
Function SaveMessage (mArea: RecMessageBase; mFrom, mTo, mSubj: String; mAddr: RecEchoMailAddr; mText: RecMessageText; mLines: Integer) : Boolean;
Function GetFTNPKTName : String;
Function GetFTNArchiveName (Orig, Dest: RecEchoMailAddr) : String;
Function GetFTNFlowName (Dest: RecEchoMailAddr) : String;
Function GetFTNOutPath (EchoNode: RecEchoMailNode) : String;
Function GetNodeByIndex (Num: LongInt; Var TempNode: RecEchoMailNode) : Boolean;
Function GetNodeByRoute (Dest: RecEchoMailAddr; Var TempNode: RecEchoMailNode) : Boolean;
Function IsValidAKA (Zone, Net, Node, Point: Word) : Boolean;
@ -382,17 +380,6 @@ Begin
Result := True;
End;
Function GetFTNPKTName : String;
Var
Hour, Min, Sec, hSec : Word;
Year, Month, Day, DOW : Word;
Begin
GetTime (Hour, Min, Sec, hSec);
GetDate (Year, Month, Day, DOW);
Result := strZero(Day) + strZero(Hour) + strZero(Min) + strZero(Sec);
End;
Function GetFTNArchiveName (Orig, Dest: RecEchoMailAddr) : String;
Var
Net : LongInt;
@ -445,29 +432,6 @@ Begin;
Result := Result + strI2H((EchoNode.Address.Net SHL 16) OR EchoNode.Address.Node, 8) + '.pnt' + PathChar;
End;
Function GetNodeByIndex (Num: LongInt; Var TempNode: RecEchoMailNode) : Boolean;
Var
F : File;
Begin
Result := False;
Assign (F, bbsCfg.DataPath + 'echonode.dat');
If Not ioReset(F, SizeOf(RecEchoMailNode), fmRWDN) Then Exit;
While Not Eof(F) Do Begin
ioRead(F, TempNode);
If TempNode.Index = Num Then Begin
Result := True;
Break;
End;
End;
Close (F);
End;
Function GetNodeByRoute (Dest: RecEchoMailAddr; Var TempNode: RecEchoMailNode) : Boolean;
Function IsMatch (Str: String) : Boolean;