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

Dupe IP fix

This commit is contained in:
mysticbbs 2012-08-19 16:46:22 -04:00
parent 679234a555
commit c31d31f5c4
2 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mystic/HISTORY.txt
View File

@ -4685,6 +4685,8 @@
an Amiga, for example). Mystic will now properly internally view LHA
extensions, as well as properly look for LHA in the archive configuration.
! Fixed a bug when viewing an archive that is not supported with the
internal view that could cause the lightbar file list display to get
messed up.
! Fixed a bug when viewing an archive that could cause the lightbar file
list display to not get redrawn after.
! Duplicate IP check in MIS was not working properly. It is now.

15
mystic/mis_server.pas
View File

@ -137,6 +137,7 @@ Begin
If IoResult = 0 Then Begin
While Not Eof(TF) Do Begin
ReadLn (TF, Str);
If CheckIP (Client.PeerIP, Str) Then Begin
Result := True;
Break;
@ -152,19 +153,10 @@ Var
Count : Byte;
Begin
Result := 0;
(*
For Count := 0 to ClientMax - 1 Do
If ClientList[Count] <> NIL Then // use Assigned?
If Client.PeerIP = TIOSocket(ClientList[Count]).PeerIP Then
Inc(Result);*)
For Count := 0 to ClientMax - 1 Do
If Assigned(ClientList[Count]) Then Begin
// writeln('client ip:', client.peerip);
// writeln('comp ip :', TIOSocket(clientlist[count]).fpeerip);
// waitms(3000);
If Client.PeerIP = TIOSocket(ClientList[Count]).PeerIP Then
If Client.PeerIP = TServerClient(ClientList[Count]).Client.FPeerIP Then
Inc(Result);
End;
End;
@ -227,18 +219,21 @@ Begin
Inc (ClientRefused);
Status ('BUSY: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')');
If Not NewClient.WriteFile(TextPath + 'busy.txt') Then NewClient.WriteLine('BUSY');
WaitMS(3000);
NewClient.Free;
End Else
If IsBlockedIP(NewClient) Then Begin
Inc (ClientBlocked);
Status('BLOCK: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')');
If Not NewClient.WriteFile(TextPath + 'blocked.txt') Then NewClient.WriteLine('BLOCKED');
WaitMS(3000);
NewClient.Free;
End Else
If (ClientMaxIPs > 0) and (DuplicateIPs(NewClient) >= ClientMaxIPs) Then Begin
Inc (ClientRefused);
Status('MULTI: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')');
If Not NewClient.WriteFile(TextPath + 'dupeip.txt') Then NewClient.WriteLine('Only ' + strI2S(ClientMaxIPs) + ' connection(s) per user');
WaitMS(3000);
NewClient.Free;
End Else Begin
Inc (ClientTotal);