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

Some archive view cleanup

This commit is contained in:
mysticbbs 2012-09-04 08:27:49 -04:00
parent 5c4f5db288
commit 3ee183cb09
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
mystic/bbs_filebase.pas
View File

@ -791,18 +791,21 @@ Var
SR : ArcSearchRec; SR : ArcSearchRec;
Begin Begin
Result := False; Result := False;
Arc := New(PArchive, Init);
If Not FileExist(FName) Then Exit;
Arc := New(PArchive, Init);
If Not Arc^.Name(FName) Then Begin If Not Arc^.Name(FName) Then Begin
Dispose (Arc, Done); Dispose (Arc, Done);
If FileExist(FName) Then Begin If FileExist(FName) Then Begin
ExecuteArchive (FName, '', '_view_.tmp', 3); ExecuteArchive (FName, '', '_view_.tmp', 3);
Session.io.OutFile (Session.TempPath + '_view_.tmp', True, 0);
FileErase (Session.TempPath + '_view_.tmp');
End;
Result := True; Result := Session.io.OutFile (Session.TempPath + '_view_.tmp', True, 0);
FileErase (Session.TempPath + '_view_.tmp');
End;
Exit; Exit;
End; End;
@ -894,15 +897,13 @@ Begin
Result := 0; Result := 0;
End; End;
Function TFileBase.ArchiveView (FName : String) : Boolean; Function TFileBase.ArchiveView (FName: String) : Boolean;
Var Var
Mask : String[70]; Mask : String[70];
Begin Begin
Result := False; Result := ArchiveList(FName);
If Not ArchiveList(FName) Then Exit; If Not Result Then Exit;
Result := True;
Repeat Repeat
Session.io.OutFull (Session.GetPrompt(304)); Session.io.OutFull (Session.GetPrompt(304));