From 56b48066a25e90d3e555e838bb321286ba9e2c88 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Thu, 23 May 2013 20:45:47 -0400
Subject: [PATCH] This isnt even used anymore.. someone must be working on
 Mystic 2?

---
 mystic/mis_server.pas | 22 +++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/mystic/mis_server.pas b/mystic/mis_server.pas
index 2a9caa2..463a730 100644
--- a/mystic/mis_server.pas
+++ b/mystic/mis_server.pas
@@ -217,27 +217,43 @@ Begin
 
     If (ClientMax > 0) And (ClientActive >= ClientMax) Then Begin
       Inc (ClientRefused);
+
       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);
+
       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');
+
+      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');
+
+      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);
       Inc (ClientActive);
+
       Status ('Connect: ' + NewClient.PeerIP + ' (' + NewClient.PeerName + ')');
 
       NewClientProc(Self, Config, NodeInfo, NewClient);