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

This isnt even used anymore.. someone must be working on Mystic 2?

This commit is contained in:
mysticbbs 2013-05-23 20:45:47 -04:00
parent cd0f30f056
commit 56b48066a2
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
mystic/mis_server.pas
View File

@ -217,27 +217,43 @@ Begin
If (ClientMax > 0) And (ClientActive >= ClientMax) Then Begin If (ClientMax > 0) And (ClientActive >= ClientMax) Then Begin
Inc (ClientRefused); Inc (ClientRefused);
Status ('BUSY: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')'); Status ('BUSY: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')');
If Not NewClient.WriteFile(TextPath + 'busy.txt') Then NewClient.WriteLine('BUSY');
If Not NewClient.WriteFile(TextPath + 'busy.txt') Then
NewClient.WriteLine('BUSY');
WaitMS(3000); WaitMS(3000);
NewClient.Free; NewClient.Free;
End Else End Else
If IsBlockedIP(NewClient) Then Begin If IsBlockedIP(NewClient) Then Begin
Inc (ClientBlocked); Inc (ClientBlocked);
Status('BLOCK: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')'); Status('BLOCK: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')');
If Not NewClient.WriteFile(TextPath + 'blocked.txt') Then NewClient.WriteLine('BLOCKED');
If Not NewClient.WriteFile(TextPath + 'blocked.txt') Then
NewClient.WriteLine('BLOCKED');
WaitMS(3000); WaitMS(3000);
NewClient.Free; NewClient.Free;
End Else End Else
If (ClientMaxIPs > 0) and (DuplicateIPs(NewClient) >= ClientMaxIPs) Then Begin If (ClientMaxIPs > 0) and (DuplicateIPs(NewClient) >= ClientMaxIPs) Then Begin
Inc (ClientRefused); Inc (ClientRefused);
Status('MULTI: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')'); Status('MULTI: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')');
If Not NewClient.WriteFile(TextPath + 'dupeip.txt') Then NewClient.WriteLine('Only ' + strI2S(ClientMaxIPs) + ' connection(s) per user');
If Not NewClient.WriteFile(TextPath + 'dupeip.txt') Then
NewClient.WriteLine('Only ' + strI2S(ClientMaxIPs) + ' connection(s) per user');
WaitMS(3000); WaitMS(3000);
NewClient.Free; NewClient.Free;
End Else Begin End Else Begin
Inc (ClientTotal); Inc (ClientTotal);
Inc (ClientActive); Inc (ClientActive);
Status ('Connect: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')'); Status ('Connect: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')');
NewClientProc(Self, Config, NodeInfo, NewClient); NewClientProc(Self, Config, NodeInfo, NewClient);