minor changes

src/core/UConst.pas

@@ -108,7 +108,7 @@ Const
   CT_BlockChain_Protocol_Available: Word = 4; // Protocol 4 flag
   CT_Protocol_Upgrade_v2_MinBlock = {$IFDEF PRODUCTION}115000{$ELSE}50{$ENDIF};
   CT_Protocol_Upgrade_v3_MinBlock = {$IFDEF PRODUCTION}210000{$ELSE}250{$ENDIF};
-  CT_Protocol_Upgrade_v4_MinBlock = {$IFDEF PRODUCTION}999999{$ELSE}400{$ENDIF}; // NOTE: Upgrade to V4 not decided!   TODO!
+  CT_Protocol_Upgrade_v4_MinBlock = {$IFDEF PRODUCTION}99999999{$ELSE}400{$ENDIF}; // NOTE: Upgrade to V4 not decided!   TODO!
 
 
   CT_MagicNetIdentification = {$IFDEF PRODUCTION}$0A043580{$ELSE}$04000000{$ENDIF}; // Unix timestamp 168048000 ... It's Albert birthdate!

src/core/UNetProtection.pas

@@ -210,7 +210,7 @@ begin
   currts := UnivDateTimeToUnix( DateTime2UnivDateTime(now) );
   json := Lock(AIp,True);
   Try
-    arr := json.GetAsArray('diconnect');
+    arr := json.GetAsArray('disconnect');
     objinfo := arr.GetAsObject(arr.Count);
     objinfo.GetAsVariant('updated_ts').Value := currts;
     objinfo.GetAsVariant('reason').Value := AReason;

src/core/URPC.pas

@@ -870,6 +870,7 @@ function TRPCProcess.ProcessMethod(const method: String; params: TPCJSONObject;
     i : Integer;
     json, newJson : TPCJSONObject;
     ipInfo : TIpInfo;
+    aDisconnectedOnly : Boolean;
   begin
     aip := Trim(params.AsString('ip',''));
     if aip<>'' then begin
@@ -883,13 +884,16 @@ function TRPCProcess.ProcessMethod(const method: String; params: TPCJSONObject;
         TNetData.NetData.IpInfos.Unlock;
       End;
     end else begin
+      aDisconnectedOnly := params.AsBoolean('only-disconnected',False);
       for i :=0 to TNetData.NetData.IpInfos.Count-1 do begin
         ipInfo := TNetData.NetData.IpInfos.Lock(i);
         Try
-          newJson := TPCJSONObject.Create;
-          newJson.GetAsVariant('ip').Value := ipInfo.ip;
-          newJson.GetAsObject('values').Assign(ipInfo.json);
-          GetResultArray.Insert(GetResultArray.Count,newJson);
+          if (Not aDisconnectedOnly) Or (Assigned(ipInfo.json.FindName('disconnect'))) then begin
+            newJson := TPCJSONObject.Create;
+            newJson.GetAsVariant('ip').Value := ipInfo.ip;
+            newJson.GetAsObject('values').Assign(ipInfo.json);
+            GetResultArray.Insert(GetResultArray.Count,newJson);
+          end;
         Finally
           TNetData.NetData.IpInfos.Unlock;
         End;