unixsoc depend on handshake-only

cardano-cli/src/Cardano/CLI/Run/Ping.hs

@@ -65,6 +65,7 @@ pingClient stdout stderr cmd = CNP.pingClient stdout stderr opts
   where opts = CNP.PingOpts
           { CNP.pingOptsQuiet          = pingCmdQuiet cmd
           , CNP.pingOptsJson           = pingCmdJson cmd
+          -- TODO: set to 0 when --handshake-only
           , CNP.pingOptsCount          = pingCmdCount cmd
           , CNP.pingOptsHost           = maybeHostEndPoint (pingCmdEndPoint cmd)
           , CNP.pingOptsUnixSock       = maybeUnixSockEndPoint (pingCmdEndPoint cmd)
@@ -145,14 +146,22 @@ pHost =
     , Opt.help "Hostname/IP, e.g. relay.iohk.example."
     ]
 
+pHanshakeOnly :: Opt.Parser ()
+pHanshakeOnly =
+  ( Opt.flag' () $ mconcat
+    [ Opt.long "handshake-only"
+    , Opt.help "Perform only the handshake process without sending a ping."
+    ])
+
 pUnixSocket :: Opt.Parser String
 pUnixSocket =
-  Opt.strOption $ mconcat
+  pHanshakeOnly *>
+  ( Opt.strOption $ mconcat
     [ Opt.long "unixsock"
     , Opt.short 'u'
     , Opt.metavar "SOCKET"
     , Opt.help "Unix socket, e.g. file.socket."
-    ]
+    ])
 
 pEndPoint :: Opt.Parser EndPoint
 pEndPoint = fmap HostEndPoint pHost <|> fmap UnixSockEndPoint pUnixSocket
@@ -202,6 +211,9 @@ pPing = PingCmd
   <*> ( Opt.switch $ mconcat
         [ Opt.long "query-versions"
         , Opt.short 'Q'
-        , Opt.help "Query the supported protocol versions using the handshake protocol and terminate the connection."
+        , Opt.help $ mconcat
+          [ "Query the supported protocol versions using the handshake protocol and terminate the connection. "
+          , "(deprecated; use under --handshake-only instead)."
+          ]
         ]
       )