Updated for 1.10
This commit is contained in:
mysticbbs
parent
7d65434f36
commit
30d8153781
|
|
@ -32,129 +32,131 @@ Uses
|
|||
{$I RECORDS.PAS}
|
||||
|
||||
Var
|
||||
inFile : Text;
|
||||
desFile : File;
|
||||
FDirFile : File of FDirRec;
|
||||
FDir : FDirRec;
|
||||
Desc : Array[1..99] of String[50];
|
||||
Str : String = '';
|
||||
A : Byte;
|
||||
Total : Integer;
|
||||
NoSave : Boolean;
|
||||
DupeCheck : Boolean;
|
||||
|
||||
D: DirStr;
|
||||
N: NameStr;
|
||||
E: ExtStr;
|
||||
InFile : Text;
|
||||
DesFile : File;
|
||||
FDirFile : File of RecFileList;
|
||||
FDir : RecFileList;
|
||||
Desc : Array[1..99] of String[50];
|
||||
Str : String = '';
|
||||
A : Byte;
|
||||
Total : Integer;
|
||||
NoSave : Boolean;
|
||||
DupeCheck : Boolean;
|
||||
D : DirStr;
|
||||
N : NameStr;
|
||||
E : ExtStr;
|
||||
|
||||
Function IsDupeFile (FN : String) : Boolean;
|
||||
Begin
|
||||
IsDupeFile := False;
|
||||
IsDupeFile := False;
|
||||
|
||||
If Not DupeCheck Then Exit;
|
||||
If Not DupeCheck Then Exit;
|
||||
|
||||
Reset (FDirFile);
|
||||
Reset (FDirFile);
|
||||
|
||||
While Not Eof(FDirFile) Do Begin
|
||||
Read (FDirFile, FDir);
|
||||
While Not Eof(FDirFile) Do Begin
|
||||
Read (FDirFile, FDir);
|
||||
|
||||
If FDir.Flags and FDirDeleted <> 0 Then Continue;
|
||||
If FDir.Flags and FDirDeleted <> 0 Then Continue;
|
||||
|
||||
{$IFDEF FS_SENSITIVE}
|
||||
If FDir.FileName = FN Then Begin
|
||||
{$ELSE}
|
||||
If strUpper(FDir.FileName) = strUpper(FN) Then Begin
|
||||
{$ENDIF}
|
||||
IsDupeFile := True;
|
||||
Exit;
|
||||
End;
|
||||
End;
|
||||
{$IFDEF FS_SENSITIVE}
|
||||
If FDir.FileName = FN Then Begin
|
||||
{$ELSE}
|
||||
If strUpper(FDir.FileName) = strUpper(FN) Then Begin
|
||||
{$ENDIF}
|
||||
Result := True;
|
||||
Exit;
|
||||
End;
|
||||
End;
|
||||
End;
|
||||
|
||||
Begin
|
||||
WriteLn;
|
||||
WriteLn ('PCB2MBBS : PCBoard to Mystic BBS File Base Converter');
|
||||
WriteLn ('Copyright (C) 1998-2012 By James Coyle. All Rights Reserved');
|
||||
WriteLn;
|
||||
WriteLn ('Compiled for Mystic BBS v' + mysVersion);
|
||||
WriteLn;
|
||||
WriteLn;
|
||||
WriteLn ('PCB2MBBS : PCBoard to Mystic BBS File Base Converter');
|
||||
WriteLn ('Copyright (C) 1998-2012 By James Coyle. All Rights Reserved');
|
||||
WriteLn;
|
||||
WriteLn ('Compiled for Mystic BBS v' + mysVersion);
|
||||
WriteLn;
|
||||
|
||||
If ParamCount < 2 Then Begin
|
||||
WriteLn ('Usage: [PCBoard File] [Mystic BBS File] -DUPE');
|
||||
Halt(1);
|
||||
End;
|
||||
If ParamCount < 2 Then Begin
|
||||
WriteLn ('Usage: [PCBoard File] [Mystic BBS File] -DUPE');
|
||||
Halt(1);
|
||||
End;
|
||||
|
||||
DupeCheck := strUpper(ParamStr(3)) = '-DUPE';
|
||||
DupeCheck := strUpper(ParamStr(3)) = '-DUPE';
|
||||
|
||||
Assign (inFile, ParamStr(1));
|
||||
{$I-} Reset(inFile); {$I+}
|
||||
If IoResult <> 0 Then Begin
|
||||
WriteLn ('ERROR: PCBoard file listing (', ParamStr(1), ') not found.');
|
||||
Halt(1);
|
||||
End;
|
||||
Assign (InFile, ParamStr(1));
|
||||
{$I-} Reset(InFile); {$I+}
|
||||
|
||||
FSplit (ParamStr(2), D, N, E);
|
||||
If IoResult <> 0 Then Begin
|
||||
WriteLn ('ERROR: PCBoard file listing (', ParamStr(1), ') not found.');
|
||||
Halt (1);
|
||||
End;
|
||||
|
||||
Assign (FDirFile, D + N + '.dir');
|
||||
{$I-} Reset (FDirFile); {$I+}
|
||||
If IoResult <> 0 Then ReWrite (FDirFile);
|
||||
FSplit (ParamStr(2), D, N, E);
|
||||
|
||||
Assign (desFile, D + N + '.des');
|
||||
{$I-} Reset (desFile, 1); {$I+}
|
||||
If IoResult <> 0 Then ReWrite (desFile, 1);
|
||||
Assign (FDirFile, D + N + '.dir');
|
||||
{$I-} Reset (FDirFile); {$I+}
|
||||
|
||||
Total := 0;
|
||||
If IoResult <> 0 Then ReWrite (FDirFile);
|
||||
|
||||
Write ('Processing: ');
|
||||
Assign (DesFile, D + N + '.des');
|
||||
{$I-} Reset (DesFile, 1); {$I+}
|
||||
|
||||
While Not Eof(inFile) Do Begin
|
||||
If (Str[26] = '-') and (Str[29] = '-') Then Begin
|
||||
If IoResult <> 0 Then ReWrite (DesFile, 1);
|
||||
|
||||
If IsDupeFile(Copy(Str, 1, Pos(' ', Str) - 1)) Then
|
||||
NoSave := True
|
||||
Else Begin
|
||||
NoSave := False;
|
||||
Total := 0;
|
||||
|
||||
Inc (Total);
|
||||
GotoXY (13, WhereY);
|
||||
Write (Total, ' files ... ');
|
||||
End;
|
||||
Write ('Processing: ');
|
||||
|
||||
FDir.FileName := Copy(Str, 1, Pos(' ', Str) - 1);
|
||||
FDir.Size := strS2I(Copy(Str, 13, 9));
|
||||
FDir.DateTime := DateStr2Dos(Copy(Str, 24, 8));
|
||||
FDir.Uploader := 'PCB2MBBS';
|
||||
FDir.Flags := 0;
|
||||
FDir.DLs := 0;
|
||||
FDir.Lines := 1;
|
||||
FDir.Pointer := FileSize(desFile);
|
||||
While Not Eof(inFile) Do Begin
|
||||
If (Str[26] = '-') and (Str[29] = '-') Then Begin
|
||||
If IsDupeFile(Copy(Str, 1, Pos(' ', Str) - 1)) Then
|
||||
NoSave := True
|
||||
Else Begin
|
||||
NoSave := False;
|
||||
|
||||
Desc[1] := Copy(Str, 34, Length(Str));
|
||||
Inc (Total);
|
||||
GotoXY (13, WhereY);
|
||||
Write (Total, ' files ... ');
|
||||
End;
|
||||
|
||||
Repeat
|
||||
ReadLn (inFile, Str);
|
||||
If Str[32] = '|' Then Begin
|
||||
Inc (FDir.Lines);
|
||||
Desc[FDir.Lines] := Copy(Str, 34, Length(Str));
|
||||
End;
|
||||
Until (Str[32] <> '|') or Eof(inFile);
|
||||
FillChar (FDir, SizeOf(FDir), #0);
|
||||
|
||||
If Not NoSave Then Begin
|
||||
Write (FDirFile, FDir);
|
||||
Seek (desFile, FDir.Pointer);
|
||||
FDir.FileName := Copy(Str, 1, Pos(' ', Str) - 1);
|
||||
FDir.Size := strS2I(Copy(Str, 13, 9));
|
||||
FDir.DateTime := DateStr2Dos(Copy(Str, 24, 8));
|
||||
FDir.Uploader := 'PCB2MBBS';
|
||||
FDir.DescLines := 1;
|
||||
FDir.DescPtr := FileSize(DesFile);
|
||||
|
||||
For A := 1 to FDir.Lines Do Begin
|
||||
BlockWrite (desFile, Desc[A][0], 1);
|
||||
BlockWrite (desFile, Desc[A][1], Ord(Desc[A][0]));
|
||||
End;
|
||||
End;
|
||||
End Else
|
||||
If Not Eof(InFile) Then ReadLn (inFile, Str);
|
||||
End;
|
||||
Desc[1] := Copy(Str, 34, Length(Str));
|
||||
|
||||
Close (inFile);
|
||||
Close (FDirFile);
|
||||
Close (desFile);
|
||||
Repeat
|
||||
ReadLn (inFile, Str);
|
||||
|
||||
WriteLn ('DONE.');
|
||||
If Str[32] = '|' Then Begin
|
||||
Inc (FDir.DescLines);
|
||||
Desc[FDir.DescLines] := Copy(Str, 34, Length(Str));
|
||||
End;
|
||||
Until (Str[32] <> '|') or Eof(inFile);
|
||||
|
||||
If Not NoSave Then Begin
|
||||
Write (FDirFile, FDir);
|
||||
Seek (DesFile, FDir.DescPtr);
|
||||
|
||||
For A := 1 to FDir.DescLines Do Begin
|
||||
BlockWrite (desFile, Desc[A][0], 1);
|
||||
BlockWrite (desFile, Desc[A][1], Ord(Desc[A][0]));
|
||||
End;
|
||||
End;
|
||||
End Else
|
||||
If Not Eof(InFile) Then ReadLn (inFile, Str);
|
||||
End;
|
||||
|
||||
Close (InFile);
|
||||
Close (FDirFile);
|
||||
Close (DesFile);
|
||||
|
||||
WriteLn ('DONE.');
|
||||
End.
|
||||
|
|
|
|||
Loading…
Reference in New Issue