aa2

lastrelease.txt

@@ -1 +1 @@
-0.4.3Aa1 0.4.2Da2 x {LastOfficial} {LastBeta} {TestNet}
+0.4.3Aa2 0.4.2Da2 x {LastOfficial} {LastBeta} {TestNet}

masterpaskalform.pas

@@ -576,11 +576,11 @@   TForm1 = class(TForm)
   RestartFileName = 'launcher.sh';
   updateextension = 'tgz';
   {$ENDIF}
-  NodeRelease = 'Aa1';
+  NodeRelease = 'Aa2';
   OficialRelease = true;
   BetaRelease    = false;
   VersionRequired = '0.4.2';
-  BuildDate = 'April 2024';
+  BuildDate = 'August 2024';
   {Developer addresses}
   ADMINHash = 'N4PeJyqj8diSXnfhxSQdLpo8ddXTaGd';
   AdminPubKey = 'BL17ZOMYGHMUIUpKQWM+3tXKbcXF0F+kd4QstrB0X7iWvWdOSrlJvTPLQufc1Rkxl6JpKKj/KSHpOEBK+6ukFK4=';
@@ -2781,7 +2781,13 @@ procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
       MemStream.Free;
       TryCloseServerConnection(AContext);
       end
-
+   {
+   else if not IsSeedNode(IPUser) then
+     begin
+     TryCloseServerConnection(AContext,'');
+     exit;
+     end
+   }
    else if Copy(LLine,1,4) <> 'PSK ' then  // invalid protocol
       begin
       ToLog('events',TimeToStr(now)+format(rs0058,[IPUser])); //ToLog('events',TimeToStr(now)+'SERVER: Invalid client->'+IPUser);

mpred.pas

@@ -963,6 +963,7 @@ function GetOrderSources(orderid:string):string;
 
 Function GetNodeStatusString():string;
 Begin
+if BuildingBlock>0 then result := '';
 //NODESTATUS 1{Peers} 2{LastBlock} 3{Pendings} 4{Delta} 5{headers} 6{version} 7{UTCTime} 8{MNsHash}
 //           9{MNscount} 10{LasBlockHash} 11{BestHashDiff} 12{LastBlockTimeEnd} 13{LBMiner}
 //           14{ChecksCount} 15{LastBlockPoW} 16{LastBlockDiff} 17{summary} 18{GVTs} 19{nosoCFG}

nosoconsensus.pas

@@ -398,10 +398,14 @@   TConsensusData = record
   Css_ValidNodes := ValidNodes;
   if ReachedNodes >0 then Css_Percentage := (ValidNodes * 100) div ReachedNodes
   else Css_Percentage := 0;
-  EnterCriticalSection(CSConsensus);
-  setlength(consensus,0);
-  Consensus := copy(result,0,length(result));
-  LeaveCriticalSection(CSConsensus);
+  if StrToIntDef(result[cLastBlock],0) >= StrToIntDef(Consensus[cLastBlock],0) then
+    begin
+    EnterCriticalSection(CSConsensus);
+    setlength(consensus,0);
+    Consensus := copy(result,0,length(result));
+    LeaveCriticalSection(CSConsensus);
+    end;
+
   Css_Completed := true;
   RunningConsensus := false;
   EndPerformance('CalculateConsensus');