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

Properly generates a unique index now

This commit is contained in:
mysticbbs 2013-02-17 00:32:15 -05:00
parent 6fbfbc0713
commit c396b5f416
1 changed files with 52 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

77
mystic/bbs_cfg_filebase.pas
View File

@ -9,6 +9,7 @@ Procedure Configuration_FileBaseEditor;
Implementation Implementation
Uses Uses
m_DateTime,
m_Strings, m_Strings,
m_FileIO, m_FileIO,
bbs_Ansi_MenuBox, bbs_Ansi_MenuBox,
@ -69,19 +70,43 @@ Var
List : TAnsiMenuList; List : TAnsiMenuList;
Copied : RecFileBase; Copied : RecFileBase;
HasCopy : Boolean = False; HasCopy : Boolean = False;
FBaseFile : TBufFile; FBaseFile : File of RecFileBase;
FBase : RecFileBase; FBase : RecFileBase;
Function GetPermanentIndex (Start: LongInt) : LongInt;
Var
TempBase : RecFileBase;
SavedRec : LongInt;
Begin
Result := Start;
SavedRec := FilePos(FBaseFile);
Reset (FBaseFile);
While Not Eof(FBaseFile) Do Begin
Read (FBaseFile, TempBase);
If Result = TempBase.Index Then Begin
If Result >= 2000000 Then Result := 0;
Inc (Result);
Reset (FBaseFile);
End;
End;
Seek (FBaseFile, SavedRec);
End;
Procedure MakeList; Procedure MakeList;
Begin Begin
List.Clear; List.Clear;
FBaseFile.Reset; Reset (FBaseFile);
While Not FBaseFile.EOF Do Begin While Not Eof(FBaseFile) Do Begin
FBaseFile.Read (FBase); Read (FBaseFile, FBase);
List.Add(strPadR(strI2S(FBaseFile.FilePos), 5, ' ') + ' ' + strStripPipe(FBase.Name), 0); List.Add(strPadR(strI2S(FilePos(FBaseFile)), 5, ' ') + ' ' + strStripPipe(FBase.Name), 0);
End; End;
List.Add('', 2); List.Add('', 2);
@ -89,7 +114,7 @@ Var
Procedure InsertRecord; Procedure InsertRecord;
Begin Begin
FBaseFile.RecordInsert (List.Picked); AddRecord (FBaseFile, List.Picked, SizeOf(RecFileBase));
FillChar (FBase, SizeOf(RecFileBase), 0); FillChar (FBase, SizeOf(RecFileBase), 0);
@ -102,18 +127,18 @@ Var
SysopACS := 's255'; SysopACS := 's255';
Template := 'ansiflst'; Template := 'ansiflst';
Flags := FBShowUpload; Flags := FBShowUpload;
Created := CurDateDos;
Index := GetPermanentIndex(FileSize(FBaseFile));
End; End;
FBaseFile.Write(FBase); Write (FBaseFile, FBase);
End; End;
Begin Begin
FBaseFile := TBufFile.Create(4096); Assign (FBaseFile, Config.DataPath + 'fbases.dat');
If Not FBaseFile.Open(Config.DataPath + 'fbases.dat', fmOpenCreate, fmReadWrite + fmDenyNone, SizeOf(RecFileBase)) Then Begin If Not ioReset(FBaseFile, SizeOf(FBase), fmRWDN) Then
FBaseFile.Free;
Exit; Exit;
End;
Box := TAnsiMenuBox.Create; Box := TAnsiMenuBox.Create;
List := TAnsiMenuList.Create; List := TAnsiMenuList.Create;
@ -123,7 +148,7 @@ Begin
List.AllowTag := True; List.AllowTag := True;
List.SearchY := 21; List.SearchY := 21;
If FBaseFile.FileSize = 0 Then InsertRecord; If FileSize(FBaseFile) = 0 Then InsertRecord;
Box.Open (15, 5, 65, 21); Box.Open (15, 5, 65, 21);
@ -146,10 +171,10 @@ Begin
End; End;
'D' : If (List.Picked < List.ListMax) Then 'D' : If (List.Picked < List.ListMax) Then
If ShowMsgBox(1, 'Delete this entry?') Then Begin If ShowMsgBox(1, 'Delete this entry?') Then Begin
FBaseFile.Seek (List.Picked - 1); Seek (FBaseFile, List.Picked - 1);
FBaseFile.Read (FBase); Read (FBaseFile, FBase);
FBaseFile.RecordDelete (List.Picked); KillRecord (FBaseFile, List.Picked, SizeOf(FBase));
If ShowMsgBox(1, 'Delete data files?') Then Begin If ShowMsgBox(1, 'Delete data files?') Then Begin
FileErase (Config.DataPath + FBase.FileName + '.dir'); FileErase (Config.DataPath + FBase.FileName + '.dir');
@ -160,34 +185,36 @@ Begin
MakeList; MakeList;
End; End;
'C' : If List.Picked <> List.ListMax Then Begin 'C' : If List.Picked <> List.ListMax Then Begin
FBaseFile.Seek (List.Picked - 1); Seek (FBaseFile, List.Picked - 1);
FBaseFile.Read (Copied); Read (FBaseFile, Copied);
HasCopy := True; HasCopy := True;
End; End;
'P' : If HasCopy Then Begin 'P' : If HasCopy Then Begin
FBaseFile.RecordInsert (List.Picked); AddRecord (FBaseFile, List.Picked, SizeOf(FBase));
FBaseFile.Write (Copied);
Copied.Index := GetPermanentIndex(FileSize(FBaseFile));
Copied.Created := CurDateDos;
Write (FBaseFile, Copied);
MakeList; MakeList;
End; End;
End; End;
#13 : If List.Picked < List.ListMax Then Begin #13 : If List.Picked < List.ListMax Then Begin
FBaseFile.Seek (List.Picked - 1); Seek (FBaseFile, List.Picked - 1);
FBaseFile.Read (FBase); Read (FBaseFile, FBase);
EditFileBase(FBase); EditFileBase(FBase);
FBaseFile.Seek (List.Picked - 1); Seek (FBaseFile, List.Picked - 1);
FBaseFile.Write (FBase); Write (FBaseFile, FBase);
End; End;
#27 : Break; #27 : Break;
End; End;
Until False; Until False;
Box.Close; Box.Close;
FBaseFile.Free;
List.Free; List.Free;
Box.Free; Box.Free;
End; End;