/* efw_simple_ping.p: Checks for connection */
/*****************************************************************
   History:
   --------
   11/06/03 CJC Initial Coding

   Function:
   ---------
   Inputs an IP Address and Port checks for connection. Returns blank if there is no ERROR,
   and returns "ERROR: no response from sever" if no connection is made.

   Notes:
   ------
     
*****************************************************************/

  DEFINE VARIABLE vh-socket               AS HANDLE NO-UNDO.
  DEFINE VARIABLE vl-connected            AS LOGICAL NO-UNDO.
  DEFINE VARIABLE vc-port                 AS CHARACTER NO-UNDO.

  DEFINE INPUT PARAMETER  pvc-ip-address  AS CHARACTER NO-UNDO.
  DEFINE INPUT PARAMETER  pvi-port        AS INTEGER NO-UNDO.
  DEFINE OUTPUT PARAMETER pvc-conn-status AS CHARACTER NO-UNDO.
  
    CREATE SOCKET vh-socket.

    vc-port = STRING(pvi-port).

    IF pvi-port < 1 OR pvi-port > 65536 THEN pvc-conn-status = "ERROR: invalid port # entered.".

    IF pvc-conn-status = "" THEN DO:

      vl-connected = vh-socket:CONNECT("-H " + pvc-ip-address + " -S " + vc-port) NO-ERROR.

      IF vl-connected THEN vh-socket:DISCONNECT().

      DELETE OBJECT vh-socket.

    END. /* if conn-status = "" the do: */

    IF vl-connected = NO AND pvc-conn-status = "" THEN pvc-conn-status = "ERROR: No response from server."