/* 
Subject: 
          RE: Determining DB "connectibility"
    Date: 
          Tue, 14 Aug 2001 16:42:53 -0400
   From: 
          "Mario Paranhos" <mxp@bravepoint.com>
      To: 
          webspeed@peg.com
*/


FUNCTION severIsUp RETURN LOGICAL (INPUT pServer AS CHARACTER,
                                   INPUT pPort AS CHARACTER):
  DEFINE VARIABLE lStatus AS LOGICAL NO-UNDO.
  CREATE SOCKET hSocket.
  ASSIGN lStatus = hSocket:CONNECT("-H " + pServer + " -S " + pPort)
NO-ERROR.
  hSocket:DISCONNECT().
  DELETE OBJECT hSocket.
  ASSIGN hSocket = ?.
  RETURN lStatus.

END FUNCTION. /* serverIsUp */