Add TPingClient to Services unit and new ShellNetwork unit with ping …

…shell command
ultibohub · Nov 1, 2022 · 3531e15 · 3531e15
1 parent 8aefe39
commit 3531e15
Show file tree

Hide file tree

Showing 9 changed files with 1,066 additions and 62 deletions.
diff --git a/source/__version.id b/source/__version.id
@@ -1 +1 @@
-2.5.235
+2.5.239
diff --git a/source/rtl/ultibo/Makefile b/source/rtl/ultibo/Makefile
@@ -517,6 +517,7 @@ ULTIBO_FONTS=Latin1_8x8 \
 ULTIBO_EXTRAS=ConsoleShell \
 	      RemoteShell \
 	      ShellFilesystem \
+	      ShellNetwork \
 	      ShellUpdate \
 	      ShellUSB \
 	      WebStatus \

diff --git a/source/rtl/ultibo/Makefile.fpc b/source/rtl/ultibo/Makefile.fpc
@@ -239,6 +239,7 @@ ULTIBO_FONTS=Latin1_8x8 \
 ULTIBO_EXTRAS=ConsoleShell \
               RemoteShell \
               ShellFilesystem \
+              ShellNetwork \
               ShellUpdate \
               ShellUSB \
               WebStatus \

diff --git a/source/rtl/ultibo/core/arp.pas b/source/rtl/ultibo/core/arp.pas
@@ -1,7 +1,7 @@
 {
 Ultibo ARP (Address Resolution Protocol) unit.
 
-Copyright (C) 2015 - SoftOz Pty Ltd.
+Copyright (C) 2022 - SoftOz Pty Ltd.
 
 Arch
 ====
@@ -47,10 +47,6 @@ interface
 
 uses GlobalConfig,GlobalConst,GlobalTypes,GlobalSock,Threads,SysUtils,Classes,Network,Transport,Protocol,Ultibo,UltiboClasses;
 
-//To Do //Look for:
-
-//--
-
 {==============================================================================}
 {Global definitions}
 {$INCLUDE GlobalDefines.inc}
@@ -1291,7 +1287,7 @@ function TARPTransport.AddAddress(const AAddress:TInAddr;const AHardware:THardwa
     EventPulse(FAddressAdd);
 
     {Reset Event (Manual Reset)}
-    EventReset(FAddressAdd); //To Do //Critical //This can be removed now that EventPulse has been fixed ?
+    {EventReset(FAddressAdd);} {Not required, reset by EventPulse}
 
     {Lock Address}
     if ALock then if AState = NETWORK_LOCK_READ then Result.ReaderLock else Result.WriterLock;
@@ -1358,7 +1354,7 @@ function TARPTransport.RemoveAddress(const AAddress:TInAddr;AAdapter:TNetworkAda
           EventPulse(FAddressRemove);
 
           {Reset Event (Manual Reset)}
-          EventReset(FAddressRemove); //To Do //Critical //This can be removed now that EventPulse has been fixed ?
+          {EventReset(FAddressRemove);} {Not required, reset by EventPulse}
 
           {Unlock Address}
           Address.WriterUnlock;
@@ -1435,7 +1431,7 @@ procedure TARPTransport.FlushAddresses(All:Boolean);
            EventPulse(FAddressRemove);
 
            {Reset Event (Manual Reset)}
-           EventReset(FAddressRemove); //To Do //Critical //This can be removed now that EventPulse has been fixed ?
+           {EventReset(FAddressRemove);} {Not required, reset by EventPulse}
 
            {Unlock Address}
            Current.WriterUnlock;
@@ -2734,7 +2730,7 @@ function TRARPTransport.AddAddress(const AAddress:TInAddr;const AHardware:THardw
     EventPulse(FAddressAdd);
 
     {Reset Event (Manual Reset)}
-    EventReset(FAddressAdd); //To Do //Critical //This can be removed now that EventPulse has been fixed ?
+    {EventReset(FAddressAdd);} {Not required, reset by EventPulse}
 
     {Lock Address}
     if ALock then if AState = NETWORK_LOCK_READ then Result.ReaderLock else Result.WriterLock;
@@ -2801,7 +2797,7 @@ function TRARPTransport.RemoveAddress(const AAddress:TInAddr;AAdapter:TNetworkAd
           EventPulse(FAddressRemove);
 
           {Reset Event (Manual Reset)}
-          EventReset(FAddressRemove); //To Do //Critical //This can be removed now that EventPulse has been fixed ?
+          {EventReset(FAddressRemove);} {Not required, reset by EventPulse}
 
           {Unlock Address}
           Address.WriterUnlock;
@@ -2878,7 +2874,7 @@ procedure TRARPTransport.FlushAddresses(All:Boolean);
            EventPulse(FAddressRemove);
 
            {Reset Event (Manual Reset)}
-           EventReset(FAddressRemove); //To Do //Critical //This can be removed now that EventPulse has been fixed ?
+           {EventReset(FAddressRemove);} {Not required, reset by EventPulse}
 
            {Unlock Address}
            Current.WriterUnlock;

diff --git a/source/rtl/ultibo/core/globalconst.pas b/source/rtl/ultibo/core/globalconst.pas
@@ -50,12 +50,12 @@ interface
 {Global constants}
 const
  {Version constants}
- ULTIBO_RELEASE_DATE             = '28 October 2022';
+ ULTIBO_RELEASE_DATE             = '1 November 2022';
  ULTIBO_RELEASE_NAME             = 'Beetroot';
- ULTIBO_RELEASE_VERSION          = '2.5.235';
+ ULTIBO_RELEASE_VERSION          = '2.5.239';
  ULTIBO_RELEASE_VERSION_MAJOR    = 2;
  ULTIBO_RELEASE_VERSION_MINOR    = 5;
- ULTIBO_RELEASE_VERSION_REVISION = 235;
+ ULTIBO_RELEASE_VERSION_REVISION = 239;
 
  FPC_COMPILER_VERSION = {$I %FPCVERSION%}; {The version of FPC used to compile the RTL}
 

diff --git a/source/rtl/ultibo/core/protocol.pas b/source/rtl/ultibo/core/protocol.pas
@@ -1,7 +1,7 @@
 {
 Ultibo Network Protocol interface unit.
 
-Copyright (C) 2021 - SoftOz Pty Ltd.
+Copyright (C) 2022 - SoftOz Pty Ltd.
 
 Arch
 ====
@@ -4111,7 +4111,7 @@ function TProtocolSocket.SignalChange:Boolean;
  Result:=(EventPulse(FSocketChange) = ERROR_SUCCESS);
 
  {Reset Event (Manual Reset)}
- Result:=Result and (EventReset(FSocketChange) = ERROR_SUCCESS);
+ {Result:=Result and (EventReset(FSocketChange) = ERROR_SUCCESS);} {Not required, reset by EventPulse}
 end;
 
 {==============================================================================}