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

Ratio enforcement change

This commit is contained in:
mysticbbs 2012-09-02 21:13:07 -04:00
parent 4805b01add
commit 1eee10408e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/bbs_filebase.pas
View File

@ -870,7 +870,7 @@ Begin
Exit; Exit;
End; End;
If Session.User.Security.DLRatio > 0 Then If (Session.User.Security.DLRatio > 0) and ((Session.User.ThisUser.DLs <> 0) or (Session.User.ThisUser.ULs <> 0)) Then
If (Session.User.ThisUser.ULs * Session.User.Security.DLRatio) <= (Session.User.ThisUser.DLs + BatchNum + DL) Then Begin If (Session.User.ThisUser.ULs * Session.User.Security.DLRatio) <= (Session.User.ThisUser.DLs + BatchNum + DL) Then Begin
Result := 3; Result := 3;
Exit; Exit;
@ -880,7 +880,7 @@ Begin
For A := 1 to BatchNum Do For A := 1 to BatchNum Do
Inc (DLK, Batch[A].Size DIV 1024); Inc (DLK, Batch[A].Size DIV 1024);
If Session.User.Security.DLKRatio > 0 Then If (Session.User.Security.DLKRatio > 0) and ((Session.User.ThisUser.DLs <> 0) or (Session.User.ThisUser.ULs <> 0)) Then
If (Session.User.ThisUser.ULk * Session.User.Security.DLkRatio) <= (Session.User.ThisUser.DLk + DLk) Then Begin If (Session.User.ThisUser.ULk * Session.User.Security.DLkRatio) <= (Session.User.ThisUser.DLk + DLk) Then Begin
Result := 3; Result := 3;
Exit; Exit;
@ -3500,6 +3500,7 @@ Begin
'E' : Session.Menu.ExecuteCommand ('MW', '/TO:' + strReplace(FDir.Uploader, ' ', '_')); 'E' : Session.Menu.ExecuteCommand ('MW', '/TO:' + strReplace(FDir.Uploader, ' ', '_'));
'I' : Begin 'I' : Begin
Session.io.OutFullLn ('|CR|14Importing file_id.diz...'); Session.io.OutFullLn ('|CR|14Importing file_id.diz...');
If ImportDIZ(FDir.FileName) Then Begin If ImportDIZ(FDir.FileName) Then Begin
FDir.DescPtr := FileSize(DataFile); FDir.DescPtr := FileSize(DataFile);
Seek (DataFile, FDir.DescPtr); Seek (DataFile, FDir.DescPtr);