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

File newscan list fix, flagging files in listings now properly checks DownloadACS

This commit is contained in:
mysticbbs 2012-08-06 23:21:27 -04:00
parent 3e2a6b0cc2
commit 65ec869195
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
mystic/bbs_filebase.pas
View File

@ -796,7 +796,7 @@ Var
If (Total MOD Config.FColumns = 0) And (Total > 0) Then Session.io.OutRawLn(''); If (Total MOD Config.FColumns = 0) And (Total > 0) Then Session.io.OutRawLn('');
End; End;
If EOF(FBaseFile) and (Config.FColumns MOD 2 <> 0) Then Session.io.OutRawLn(''); If EOF(FBaseFile) and (Total MOD Config.FColumns <> 0) Then Session.io.OutRawLn('');
If (Session.io.PausePtr = Session.User.ThisUser.ScreenSize) and (Session.io.AllowPause) Then If (Session.io.PausePtr = Session.User.ThisUser.ScreenSize) and (Session.io.AllowPause) Then
Case Session.io.MorePrompt of Case Session.io.MorePrompt of
@ -1140,6 +1140,7 @@ Begin
Old := FBase; Old := FBase;
Reset (FBaseFile); Reset (FBaseFile);
While Not Eof(FBaseFile) Do Begin While Not Eof(FBaseFile) Do Begin
Read (FBaseFile, FBase); Read (FBaseFile, FBase);
@ -1760,8 +1761,8 @@ Var
PageSize := Session.io.ScreenInfo[2].Y - Session.io.ScreenInfo[1].Y + 1; PageSize := Session.io.ScreenInfo[2].Y - Session.io.ScreenInfo[1].Y + 1;
botdesc := topdesc; BotDesc := TopDesc;
botpage := toppage; BotPage := TopPage;
If Session.User.Access(FBase.SysopACS) Then If Session.User.Access(FBase.SysopACS) Then
PrintMessage (339) PrintMessage (339)
@ -2067,7 +2068,10 @@ Var
Result := 1; Result := 1;
Break; Break;
End; End;
#32 : If ListSize > 0 Then Begin #32 : If Not Session.User.Access(FBase.DLACS) Then
PrintMessage(212)
Else
If ListSize > 0 Then Begin
If List[CurPos].Batch Then Begin If List[CurPos].Batch Then Begin
For A := 1 to BatchNum Do For A := 1 to BatchNum Do
If Batch[A].FileName = List[CurPos].FileName Then Begin If Batch[A].FileName = List[CurPos].FileName Then Begin
@ -2221,7 +2225,9 @@ Var
DrawPage; DrawPage;
End; End;
'F' : Begin 'F' : If Not Session.User.Access(FBase.DLACS) Then
Session.io.OutFullLn (Session.GetPrompt(224))
Else Begin
Repeat Repeat
If BatchNum = mysMaxBatchQueue Then Begin If BatchNum = mysMaxBatchQueue Then Begin
Session.io.OutFullLn (Session.GetPrompt(46)); Session.io.OutFullLn (Session.GetPrompt(46));
@ -2743,6 +2749,7 @@ Begin
End; End;
Session.io.OutFull (Session.GetPrompt(344)); Session.io.OutFull (Session.GetPrompt(344));
FName := Session.io.GetInput(70, 70, 11, ''); FName := Session.io.GetInput(70, 70, 11, '');
If FName = '' Then Exit; If FName = '' Then Exit;
@ -2899,6 +2906,7 @@ Begin
Close (FDirFile); Close (FDirFile);
End Else Begin End Else Begin
Session.SystemLog ('Download: ' + Batch[A].FileName + ' FAILED'); Session.SystemLog ('Download: ' + Batch[A].FileName + ' FAILED');
Session.io.OutFullLn (Session.GetPrompt(386)); Session.io.OutFullLn (Session.GetPrompt(386));
End; End;
End; End;