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

CopyYear update. Removal of a few unused functions

This commit is contained in:
mysticbbs 2012-03-14 02:23:52 -04:00
parent 6da459954f
commit a89ea1f22a
1 changed files with 1 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
mystic/bbs_common.pas
View File

@ -24,7 +24,7 @@ Uses
Const Const
WinConsoleTitle = 'Mystic Node '; WinConsoleTitle = 'Mystic Node ';
CopyID = 'Copyright (C) 1997-2012 By James Coyle. All Rights Reserved.'; CopyID = 'Copyright (C) ' + mysCopyYear + ' By James Coyle. All Rights Reserved.';
DateTypeStr : Array[1..4] of String[8] = ('MM/DD/YY', 'DD/MM/YY', 'YY/DD/MM', 'Ask '); DateTypeStr : Array[1..4] of String[8] = ('MM/DD/YY', 'DD/MM/YY', 'YY/DD/MM', 'Ask ');
GetKeyFunc : Function (Forced : Boolean) : Boolean = NIL; GetKeyFunc : Function (Forced : Boolean) : Boolean = NIL;
@ -47,13 +47,11 @@ Var
Procedure EditAccessFlags (Var Flags : AccessFlagType); Procedure EditAccessFlags (Var Flags : AccessFlagType);
Function DrawAccessFlags (Var Flags : AccessFlagType) : String; Function DrawAccessFlags (Var Flags : AccessFlagType) : String;
Function NoGetKeyFunc (Forced : Boolean) : Boolean; Function NoGetKeyFunc (Forced : Boolean) : Boolean;
Function getColor (A: Byte) : Byte;
Procedure KillRecord (Var dFile; RecNum: LongInt; RecSize: Word); Procedure KillRecord (Var dFile; RecNum: LongInt; RecSize: Word);
Procedure AddRecord (var dFile; RecNum: LongInt; RecSize: Word); Procedure AddRecord (var dFile; RecNum: LongInt; RecSize: Word);
Function Bool_Search (Mask: String; Str: String) : Boolean; Function Bool_Search (Mask: String; Str: String) : Boolean;
Function strAddr2Str (Addr: RecEchoMailAddr) : String; Function strAddr2Str (Addr: RecEchoMailAddr) : String;
Function strStr2Addr (S : String; Var Addr: RecEchoMailAddr) : Boolean; Function strStr2Addr (S : String; Var Addr: RecEchoMailAddr) : Boolean;
Function CheckPath (Str: String) : String;
Function ShellDOS (ExecPath: String; Command: String) : LongInt; Function ShellDOS (ExecPath: String; Command: String) : LongInt;
{$IFNDEF UNIX} {$IFNDEF UNIX}
@ -104,19 +102,6 @@ Begin
Until False; Until False;
End; End;
Function GetColor (A: Byte) : Byte;
{ Used by SYSOPx.PAS files only }
Var
FG,
BG : Byte;
Begin
Session.io.OutFull ('|CRFG Color: ');
FG := strS2I(Session.io.GetInput(2, 2, 12, strI2S(A AND $F)));
Session.io.OutFull ('BG Color: ');
BG := strS2I(Session.io.GetInput(2, 2, 12, strI2S((A SHR 4) AND 7)));
getColor := FG + BG * 16;
End;
Procedure AddRecord (var dFile; RecNum: LongInt; RecSize: Word); Procedure AddRecord (var dFile; RecNum: LongInt; RecSize: Word);
Var Var
F : File Absolute dFile; F : File Absolute dFile;
@ -223,23 +208,6 @@ Begin
Result := False; Result := False;
End; End;
Function CheckPath (Str: String) : String;
Begin
While Str[Length(Str)] = PathChar Do Dec(Str[0]);
If Not DirExists(Str) Then Begin
If Session.io.GetYN ('|CR|12Directory doesn''t exist. Create? |11', True) Then Begin
{$I-} MkDir (Str); {$I+}
If IoResult <> 0 Then
Session.io.OutFull ('|CR|14Error creating directory!|CR|PA');
End;
End;
CheckPath := Str + PathChar;
End;
Function ShellDOS (ExecPath: String; Command: String) : LongInt; Function ShellDOS (ExecPath: String; Command: String) : LongInt;
{$IFNDEF UNIX} {$IFNDEF UNIX}
Var Var