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