Commit 77e2de7e authored by Richard Levitte's avatar Richard Levitte
Browse files

Compaq sent a rather large patch, and here are the contents, adapted 

where necessary to the main trunk (0.9.8-dev).

This does not include rearrangements and work I've been doing, that'll
come in the next bunch of commits to this branch.  This set of changes
can't be expected to work on any VMS system, there are changes in here
that are very specific to Compaq's building system.

This set of changes will be surrounded by the tags BEFORE_COMPAQ_PATCH
and AFTER_COMPAQ_PATCH.
parent 606efc54

VMS/cert_tool/hostaddr.c

0 → 100644
+477 −0
Original line number Diff line number Diff line 


#ifdef VMS

#pragma module HOSTADDR "X-1"



/*

**

** Copyright (c) 2000 Compaq Computer Corporation

** COMPAQ Registered in U.S. Patent and Trademark Office.

**

** Confidential computer software. Valid license from Compaq or

** authorized sublicensor required for possession, use or copying.

** Consistent with FAR 12.211 and 12.212, Commercial Computer Software,

** Computer Software Documentation, and Technical Data for Commercial

** Items are licensed to the U.S. Government under vendor's standard

** commercial license.

**

*/



/*

**++

**

**  FACILITY:  Apache Web Server

**

**  ABSTRACT:

**

**	This program determine the hostaddr of the default node or of

**	a given hostname.

**

**	The command line syntax is:

**

**	    HOSTADDR [-l log-name] [-s sym-name] [host-name]

**

**	where:

**

**	    -l log-name	    specifies an optional logical name to receive hostname.

**

**	    -c sym-name	    specifies an optional symbol name to receive hostname.

**

**	    host-name	    specifies an optional host name to resolve.

**

**  AUTHOR:  Matthew Doremus			CREATION DATE:  07-Jul-2000

**

**  Modification History:

**

**	X-1	Matthew Doremus				07-Jul-2000

**		Initial development

**

**--

**

**  Compile/Link instructions:

**

**	OpenVMS Alpha/VAX:

**	    $ CC HOSTADDR+SYS$LIBRARY:SYS$LIB_C/LIBRARY

**	    $ LINK HOSTADDR

**

*/



/*

** Define __NEW_STARLET if it's not already defined

*/

#ifndef __NEW_STARLET

#define __NEW_STARLET

#define __NEW_STARLET_SET

#endif



/*

** Include the necessary header files

*/

#include <lib$routines>

#include <libclidef>

#include <descrip>

#include <stdlib>

#include <string>

#include <stdio>

#include <netdb>

#include <in>



/*

** Undefine __NEW_STARLET if we had defined it

*/

#ifndef __NEW_STARLET_SET

#undef  __NEW_STARLET_SET

#undef  __NEW_STARLET

#endif



/*

** Option Data Structure

*/

typedef struct _opt_data {

    char		*log_name;

    char		*sym_name;

    char		*host_name; 

    } OPT_DATA;



/*

** Local Routine Prototypes

*/

static void 

ParseCmdLine (

    int,

    char *[],

    OPT_DATA *);



static void

SetLogName (

    char *,

    char *);



static void

SetSymName (

    char *,

    char *);



static void 

Usage ();



/*

**

**  main - Main processing routine for the HOSTADDR utility

**

**  Functional Description:

**

**	This routine controls overall program execution.

**

**  Usage:

**

**      main argc, argv, envp

**

**  Formal parameters:

**

**      argc 		- (IN) argument count

**      argv         	- (IN) address of an argument array 

**      envp         	- (IN) address of an environment string 

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

int

main (

    int		argc,

    char	*argv[],

    char	*envp[]

    )

{

struct in_addr *addr_ptr;

char hostname[512+1];

struct hostent *hp;

OPT_DATA OptData;

char *hostaddr;

int addr_max,

    i;



/*

** Parse the command line

*/

ParseCmdLine (argc, argv, &OptData);



/*

** If no host name was given, then use gethostname otherwise

** use the host name given.

*/

if (! OptData.host_name)

    {

    if (gethostname (hostname, sizeof (hostname) - 1))

        {

        perror ("gethostname");

        exit (1);

        }

    }

else

    strcpy (hostname, OptData.host_name);



/*

** Get the host address using gethostbyname

*/

if (! (hp = gethostbyname (hostname)))

    {

    perror ("gethostbyname");

    exit (1);

    }



/*

** Format the host address(es) into a comma separated list

*/

addr_max = hp->h_length / sizeof (struct in_addr);

hostaddr = malloc ((addr_max * (15 + 1)) + 1);

addr_ptr = (struct in_addr *) hp->h_addr;

for (i = 0; i < addr_max; i++)

    {

    if (i > 0)

	strcat (hostaddr, ",");

    addr_ptr = addr_ptr + (i * sizeof (struct in_addr));

    sprintf (hostaddr + strlen (hostaddr), "%d.%d.%d.%d",

	addr_ptr->s_net, addr_ptr->s_host, 

	addr_ptr->s_lh, addr_ptr->s_impno);

    }



/*

** Define a logical name if one was provided

*/

if (OptData.log_name)

    SetLogName (OptData.log_name, hostaddr);



/*

** Define a symbol name if one was provided

*/

if (OptData.sym_name)

    SetSymName (OptData.sym_name, hostaddr);



/*

** print the host address if no logical or symbol name was provided

*/

if (! OptData.log_name && ! OptData.sym_name)

    printf ("%s\n", hostaddr);



}



/*

**

**  ParseCmdLine - Parse the command line options

**

**  Functional Description:

**

**      This routine parses the command line options.

**

**  Usage:

**

**      ParseCmdLine argc, argv, OptData

**

**  Formal parameters:

**

**      argc 		- (IN) argument count

**      argv         	- (IN) address of an argument array 

**      OptData		- (OUT) address of command option data structure 

**			  which will contain the parsed input.

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

static void

ParseCmdLine (

    int			argc,

    char		*argv[],

    OPT_DATA		*OptData

    )

{

int option,

    i;



/*

** Initialize the option data

*/

OptData->log_name = NULL;

OptData->sym_name = NULL;

OptData->host_name = NULL;



/*

** Process the command line options

*/

while ((option = getopt (argc, argv, "l:s:?")) != EOF) 

    {

    switch (option) 

	{

	/* 

	** Output to logical name ?

	*/

	case 'l':

	    OptData->log_name = strdup (optarg);

	    break;



	/* 

	** Output to symbol name ?

	*/

	case 's':

	    OptData->sym_name = strdup (optarg);

	    break;



	/* 

	** Invalid argument ?

	*/

	case '?':

	default:

	    Usage ();

	    exit (1);

	    break;

	}

    }



/*

** Are the number of parameters correct ?

*/

if (argc - optind > 1)

    {

    Usage ();

    exit (1);

    }



/*

** Host Name provided ?

*/

if (argc - optind == 1)

    OptData->host_name = strdup (argv[optind]);



}



/*

**

**  SetLogName - Set a logical name & value

**

**  Functional Description:

**

**      This routine sets a logical name & value.

**

**  Usage:

**

**      SetLogName LogName, LogValue

**

**  Formal parameters:

**

**      LogName		- (IN) address of the logical name

**      LogValue       	- (IN) address of the logical value

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

static void

SetLogName (

    char 		*LogName,

    char		*LogValue

    )

{

struct dsc$descriptor_s log_nam_desc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};

struct dsc$descriptor_s log_val_desc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};

int status;



/*

** Setup the logical name & value descriptors

*/

log_nam_desc.dsc$w_length = strlen (LogName);

log_nam_desc.dsc$a_pointer = LogName;

log_val_desc.dsc$w_length = strlen (LogValue);

log_val_desc.dsc$a_pointer = LogValue;



/*

** Set the logical name & value

*/

status = lib$set_logical (&log_nam_desc, &log_val_desc, 0, 0, 0);

if (! (status & 1))

    exit (status);



}



/*

**

**  SetSymName - Set a symbol name & value

**

**  Functional Description:

**

**      This routine sets a symbol name & value.

**

**  Usage:

**

**      SetSymName SymName, SymValue

**

**  Formal parameters:

**

**      SymName		- (IN) address of the symbol name

**      SymValue       	- (IN) address of the Symbol value

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

static void

SetSymName (

    char 		*SymName,

    char		*SymValue

    )

{

struct dsc$descriptor_s sym_nam_desc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};

struct dsc$descriptor_s sym_val_desc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};

int status;



/*

** Setup the symbol name & value descriptors

*/

sym_nam_desc.dsc$w_length = strlen (SymName);

sym_nam_desc.dsc$a_pointer = SymName;

sym_val_desc.dsc$w_length = strlen (SymValue);

sym_val_desc.dsc$a_pointer = SymValue;



/*

** Set the symbol name & value

*/

status = lib$set_symbol (&sym_nam_desc, &sym_val_desc, &LIB$K_CLI_LOCAL_SYM);

if (! (status & 1))

    exit (status);



}



/*

**

**  Usage - Display the acceptable unix style command usage

**

**  Functional Description:

**

**      This routine displays to standard output the appropriate unix style 

**	command usage.

**

**  Usage:

**

**      Usage 

**

**  Formal parameters:

**

**      None

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

static void

Usage ()

{



fprintf (stdout, "Usage: HOSTADDR [-l log-name] [-s sym-name] [host-name]\n");



}

#endif    /* #ifdef VMS */

VMS/cert_tool/hostname.c

0 → 100644
+513 −0
Original line number Diff line number Diff line 


#ifdef VMS

#pragma module HOSTNAME "X-1"



/*

**

** Copyright (c) 2000 Compaq Computer Corporation

** COMPAQ Registered in U.S. Patent and Trademark Office.

**

** Confidential computer software. Valid license from Compaq or

** authorized sublicensor required for possession, use or copying.

** Consistent with FAR 12.211 and 12.212, Commercial Computer Software,

** Computer Software Documentation, and Technical Data for Commercial

** Items are licensed to the U.S. Government under vendor's standard

** commercial license.

**

*/



/*

**++

**

**  FACILITY:  Apache Web Server

**

**  ABSTRACT:

**

**	This program determine the hostname of the default node or of

**	a given hostaddr.

**

**	The command line syntax is:

**

**	    HOSTNAME [-l log-name] [-s sym-name] [host-addr]

**

**	where:

**

**	    -l log-name	    specifies an optional logical name to receive hostname.

**

**	    -c sym-name	    specifies an optional symbol name to receive hostname.

**

**	    host-addr	    specifies an optional host address to resolve.

**

**  AUTHOR:  Matthew Doremus			CREATION DATE:  07-Jul-2000

**

**  Modification History:

**

**	X-1	Matthew Doremus				07-Jul-2000

**		Initial development

**

**--

**

**  Compile/Link instructions:

**

**	OpenVMS Alpha/VAX:

**	    $ CC HOSTNAME+SYS$LIBRARY:SYS$LIB_C/LIBRARY

**	    $ LINK HOSTNAME

**

*/



/*

** Define __NEW_STARLET if it's not already defined

*/

#ifndef __NEW_STARLET

#define __NEW_STARLET

#define __NEW_STARLET_SET

#endif



/*

** Include the necessary header files

*/

#include <lib$routines>

#include <libclidef>

#include <descrip>

#include <stdlib>

#include <string>

#include <stdio>

#include <netdb>

#include <in>

#include <socket>



/*

** Undefine __NEW_STARLET if we had defined it

*/

#ifndef __NEW_STARLET_SET

#undef  __NEW_STARLET_SET

#undef  __NEW_STARLET

#endif



/*

** Option Data Structure

*/

typedef struct _opt_data {

    char		*log_name;

    char		*sym_name;

    unsigned char	host_addr[4]; 

    } OPT_DATA;



/*

** Local Routine Prototypes

*/

static void 

ParseCmdLine (

    int,

    char *[],

    OPT_DATA *);



static void

SetLogName (

    char *,

    char *);



static void

SetSymName (

    char *,

    char *);



static void 

Usage ();



/*

**

**  main - Main processing routine for the HOSTNAME utility

**

**  Functional Description:

**

**	This routine controls overall program execution.

**

**  Usage:

**

**      main argc, argv, envp

**

**  Formal parameters:

**

**      argc 		- (IN) argument count

**      argv         	- (IN) address of an argument array 

**      envp         	- (IN) address of an environment string 

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

int

main (

    int		argc,

    char	*argv[],

    char	*envp[]

    )

{

struct in_addr host_addr;

char hostname[512+1];

struct hostent *hp;

OPT_DATA OptData;

int i;



/*

** Parse the command line

*/

ParseCmdLine (argc, argv, &OptData);



/*

** If no host address was given, then use gethostname otherwise

** use gethostbyaddr.

*/

if (! OptData.host_addr[0] && ! OptData.host_addr[1] && 

    ! OptData.host_addr[2] && ! OptData.host_addr[3])

    {

    if (gethostname (hostname, sizeof (hostname) - 1))

        {

        perror ("gethostname");

        exit (1);

        }



    if (! (hp = gethostbyname (hostname)))

	{

        perror ("gethostbyname");

	exit (1);

	}

    }

else

    {

    host_addr.s_net = OptData.host_addr[0];

    host_addr.s_host = OptData.host_addr[1];

    host_addr.s_lh = OptData.host_addr[2];

    host_addr.s_impno = OptData.host_addr[3];

    	

    if (! (hp = gethostbyaddr (&host_addr, sizeof (host_addr), AF_INET)))

	{

        perror ("gethostbyaddr");

	exit (1);

	}

    }



/*

** Let's try to determine the best available fully qualified hostname.

*/

if (hp->h_name)

    {

    strcpy (hostname, hp->h_name);

    if (! strchr (hostname, '.'))

	{

	for (i = 0; hp->h_aliases[i]; i++)

	    {

	    if (strchr (hp->h_aliases[i], '.') && 

	        ! strncasecmp (hp->h_aliases[i], hostname, strlen (hostname)))

		{     

		strcpy (hostname, hp->h_aliases[i]);

		break;

		}

	    }

	}

    }

else

    strcpy (hostname, "(unavailable)");



/*

** Define a logical name if one was provided

*/

if (OptData.log_name)

    SetLogName (OptData.log_name, hostname);



/*

** Define a symbol name if one was provided

*/

if (OptData.sym_name)

    SetSymName (OptData.sym_name, hostname);



/*

** print the host name if no logical or symbol name was provided

*/

if (! OptData.log_name && ! OptData.sym_name)

    printf ("%s\n", hostname);



}



/*

**

**  ParseCmdLine - Parse the command line options

**

**  Functional Description:

**

**      This routine parses the command line options.

**

**  Usage:

**

**      ParseCmdLine argc, argv, OptData

**

**  Formal parameters:

**

**      argc 		- (IN) argument count

**      argv         	- (IN) address of an argument array 

**      OptData		- (OUT) address of command option data structure 

**			  which will contain the parsed input.

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

static void

ParseCmdLine (

    int			argc,

    char		*argv[],

    OPT_DATA		*OptData

    )

{

int option,

    i;



/*

** Initialize the option data

*/

OptData->log_name = NULL;

OptData->sym_name = NULL;

OptData->host_addr[0] = 0;

OptData->host_addr[1] = 0;

OptData->host_addr[2] = 0;

OptData->host_addr[3] = 0;



/*

** Process the command line options

*/

while ((option = getopt (argc, argv, "l:s:?")) != EOF) 

    {

    switch (option) 

	{

	/* 

	** Output to logical name ?

	*/

	case 'l':

	    OptData->log_name = strdup (optarg);

	    break;



	/* 

	** Output to symbol name ?

	*/

	case 's':

	    OptData->sym_name = strdup (optarg);

	    break;



	/* 

	** Invalid argument ?

	*/

	case '?':

	default:

	    Usage ();

	    exit (1);

	    break;

	}

    }



/*

** Are the number of parameters correct ?

*/

if (argc - optind > 1)

    {

    Usage ();

    exit (1);

    }



/*

** Host Address provided ?

*/

if (argc - optind == 1)

    {

    char *addr_ptr = argv[optind],

         *addr_sep;



    for (i = 0; i < 4; i++)

	{

        if ((addr_sep = strchr (addr_ptr, '.')) && (i < 3))

	    *addr_sep = '\0';



	if (strlen (addr_ptr) == 0 || atoi (addr_ptr) > 255 ||

	    strspn (addr_ptr, "0123456789") != strlen (addr_ptr))

	    {

	    printf ("Invalid TCP/IP address format.\n");

	    exit (1);

	    }



	OptData->host_addr[i] = atoi (addr_ptr);

	if (addr_sep)

	    addr_ptr = addr_sep + 1;

	}    

    }

}



/*

**

**  SetLogName - Set a logical name & value

**

**  Functional Description:

**

**      This routine sets a logical name & value.

**

**  Usage:

**

**      SetLogName LogName, LogValue

**

**  Formal parameters:

**

**      LogName		- (IN) address of the logical name

**      LogValue       	- (IN) address of the logical value

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

static void

SetLogName (

    char 		*LogName,

    char		*LogValue

    )

{

struct dsc$descriptor_s log_nam_desc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};

struct dsc$descriptor_s log_val_desc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};

int status;



/*

** Setup the logical name & value descriptors

*/

log_nam_desc.dsc$w_length = strlen (LogName);

log_nam_desc.dsc$a_pointer = LogName;

log_val_desc.dsc$w_length = strlen (LogValue);

log_val_desc.dsc$a_pointer = LogValue;



/*

** Set the logical name & value

*/

status = lib$set_logical (&log_nam_desc, &log_val_desc, 0, 0, 0);

if (! (status & 1))

    exit (status);



}



/*

**

**  SetSymName - Set a symbol name & value

**

**  Functional Description:

**

**      This routine sets a symbol name & value.

**

**  Usage:

**

**      SetSymName SymName, SymValue

**

**  Formal parameters:

**

**      SymName		- (IN) address of the symbol name

**      SymValue       	- (IN) address of the Symbol value

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

static void

SetSymName (

    char 		*SymName,

    char		*SymValue

    )

{

struct dsc$descriptor_s sym_nam_desc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};

struct dsc$descriptor_s sym_val_desc = {0, DSC$K_DTYPE_T, DSC$K_CLASS_S, 0};

int status;



/*

** Setup the symbol name & value descriptors

*/

sym_nam_desc.dsc$w_length = strlen (SymName);

sym_nam_desc.dsc$a_pointer = SymName;

sym_val_desc.dsc$w_length = strlen (SymValue);

sym_val_desc.dsc$a_pointer = SymValue;



/*

** Set the symbol name & value

*/

status = lib$set_symbol (&sym_nam_desc, &sym_val_desc, &LIB$K_CLI_LOCAL_SYM);

if (! (status & 1))

    exit (status);



}



/*

**

**  Usage - Display the acceptable unix style command usage

**

**  Functional Description:

**

**      This routine displays to standard output the appropriate unix style 

**	command usage.

**

**  Usage:

**

**      Usage 

**

**  Formal parameters:

**

**      None

**

**  Implicit Parameters:

**

**      None

**

**  Routine Value:

**

**      None

**

**  Side Effects:

**

**      None

**

*/

static void

Usage ()

{



fprintf (stdout, "Usage: HOSTNAME [-l log-name] [-s sym-name] [host-addr]\n");



}

#endif      /* #ifdef VMS */

VMS/cert_tool/ssl$auth_cert.com

0 → 100644
+639 −0

File added.

Preview size limit exceeded, changes collapsed.

VMS/cert_tool/ssl$auto_cert.com

0 → 100644
+101 −0
Original line number Diff line number Diff line 
$!

$!------------------------------------------------------------------------------

$! SSL$AUTO_CERT.COM - SSL Automatic Self-Signed Certificate procedure

$!------------------------------------------------------------------------------

$!

$ Verify = F$VERIFY (0)

$!

$ Set NoOn

$ Set NoControl=Y

$!

$!------------------------------------------------------------------------------

$! Define Symbols

$!------------------------------------------------------------------------------

$! 

$ OPENSSL       :== $ SSL$EXE:OPENSSL

$ HOSTNAME      :== $ SSL$EXE:SSL$HOSTNAME

$!

$ HOSTNAME -s HOST_NAME

$ PID = F$GETJPI ("","PID")

$ USER = F$EDIT (F$GETJPI ("","USERNAME"),"TRIM")

$ KEY_FILE = "SSL$KEY:SERVER.KEY"

$ CRT_FILE = "SSL$CRT:SERVER.CRT"

$!

$!------------------------------------------------------------------------------

$! Create a Temporary SSL Configuration

$!------------------------------------------------------------------------------

$!

$ OPEN /WRITE CFILE SYS$LOGIN:SSL_'PID'.CNF

$ WRITE CFILE "[req]"

$ WRITE CFILE "default_bits = 1024"

$ WRITE CFILE "distinguished_name = REQ_distinguished_name"

$ WRITE CFILE "[REQ_distinguished_name]"

$ WRITE CFILE "countryName = Country Name ?"

$ WRITE CFILE "countryName_default = "

$ WRITE CFILE "stateOrProvinceName = State or Province Name ?"

$ WRITE CFILE "stateOrProvinceName_default = "

$ WRITE CFILE "localityName = City Name ?"

$ WRITE CFILE "localityName_default = "

$ WRITE CFILE "0.organizationName = Organization Name ?"

$ WRITE CFILE "0.organizationName_default = "

$ WRITE CFILE "organizationalUnitName = Organization Unit Name ?

$ WRITE CFILE "organizationalUnitName_default = "

$ WRITE CFILE "commonName = Common Name ?"

$ WRITE CFILE "commonName_default = ''HOST_NAME'"

$ WRITE CFILE "emailAddress = Email Address ?"

$ WRITE CFILE "emailAddress_default = ''USER'@''HOST_NAME'"

$ CLOSE CFILE

$!

$!------------------------------------------------------------------------------

$! Create the Self-Signed Server Certificiate

$!------------------------------------------------------------------------------

$!

$ DEFINE /USER /NOLOG SYS$ERROR  NL:

$ DEFINE /USER /NOLOG SYS$OUTPUT NL:

$ SHOW SYSTEM /FULL /OUT=SYS$LOGIN:SSL_'PID'.RND

$!

$ OPEN /WRITE OFILE SYS$LOGIN:SSL_'PID'.COM

$ WRITE OFILE "$ DEFINE /USER /NOLOG RANDFILE    SYS$LOGIN:SSL_''PID'.RND"

$ WRITE OFILE "$ DEFINE /USER /NOLOG SYS$ERROR   SYS$LOGIN:SSL_''PID'.LOG"

$ WRITE OFILE "$ DEFINE /USER /NOLOG SYS$OUTPUT  SYS$LOGIN:SSL_''PID'.LOG"

$ WRITE OFILE "$ DEFINE /USER /NOLOG SYS$COMMAND SYS$INPUT"

$ WRITE OFILE "$ OPENSSL req -nodes -new -days 30 -x509 -config SYS$LOGIN:SSL_''PID'.CNF -keyout ''KEY_FILE' -out ''CRT_FILE'"

$ WRITE OFILE ""

$ WRITE OFILE ""

$ WRITE OFILE ""

$ WRITE OFILE ""

$ WRITE OFILE ""

$ WRITE OFILE ""

$ WRITE OFILE ""

$ CLOSE OFILE

$!

$ @SYS$LOGIN:SSL_'PID'.COM

$!

$ DELETE /NOLOG /NOCONFIRM SYS$LOGIN:SSL_'PID'.CNF;*

$ DELETE /NOLOG /NOCONFIRM SYS$LOGIN:SSL_'PID'.RND;*

$ DELETE /NOLOG /NOCONFIRM SYS$LOGIN:SSL_'PID'.COM;*

$!

$ DEFINE /USER /NOLOG SYS$ERROR  NL:

$ DEFINE /USER /NOLOG SYS$OUTPUT NL:

$ SEARCH SYS$LOGIN:SSL_'PID'.LOG /OUT=SYS$LOGIN:SSL_'PID'.ERR ":error:"

$!

$ IF F$SEARCH ("SYS$LOGIN:SSL_''PID'.ERR") .NES. "" 

$ THEN 

$     IF F$FILE_ATTRIBUTE ("SYS$LOGIN:SSL_''PID'.ERR","ALQ") .NE. 0

$     THEN 

$         TYPE SYS$LOGIN:SSL_'PID'.LOG

$     ENDIF

$     DELETE /NOLOG /NOCONFIRM SYS$LOGIN:SSL_'PID'.ERR;*

$ ENDIF

$!

$ DELETE /NOLOG /NOCONFIRM SYS$LOGIN:SSL_'PID'.LOG;*

$!

$!------------------------------------------------------------------------------

$! Exit

$!------------------------------------------------------------------------------

$!

$EXIT:

$!

$ Verify = F$VERIFY (Verify)

$!

$ EXIT

VMS/cert_tool/ssl$cert_tool.com

0 → 100644
+231 −0

File added.

Preview size limit exceeded, changes collapsed.