Commit 158ef048 authored by Richard Levitte's avatar Richard Levitte
Browse files

Bugs corrected

parent 511e596b

crypto/bio/bss_log.c

+19 −7
Original line number Diff line number Diff line
@@ -257,7 +257,7 @@ static void xcloselog(BIO* bp) 


#elif defined(VMS)



static int VMS_OPC_target = OPC$M_NM_NTWORK;

static int VMS_OPC_target = LOG_DAEMON;



static void xopenlog(BIO* bp, const char* name, int level)

{
@@ -271,20 +271,32 @@ static void xsyslog(BIO *bp, int priority, const char *string) 
	char buf[10240];

	unsigned int len;

        struct dsc$descriptor_s buf_dsc;

	$DESCRIPTOR(fao_cmd, "!AZ");

	$DESCRIPTOR(fao_cmd, "!AZ: !AZ");

	char *priority_tag;



	switch (priority)

	  {

	  case LOG_EMERG: priority_tag = "Emergency"; break;

	  case LOG_ALERT: priority_tag = "Alert"; break;

	  case LOG_CRIT: priority_tag = "Critical"; break;

	  case LOG_ERR: priority_tag = "Error"; break;

	  case LOG_WARNING: priority_tag = "Warning"; break;

	  case LOG_NOTICE: priority_tag = "Notice"; break;

	  case LOG_INFO: priority_tag = "Info"; break;

	  case LOG_DEBUG: priority_tag = "DEBUG"; break;

	  }



	buf_dsc.dsc$b_dtype = DSC$K_DTYPE_T;

	buf_dsc.dsc$b_class = DSC$K_CLASS_S;

	buf_dsc.dsc$a_pointer = buf;

	buf_dsc.dsc$w_length = sizeof(buf) - 1;



	lib$sys_fao(&fao_cmd, &len, &buf_dsc, string);

	lib$sys_fao(&fao_cmd, &len, &buf_dsc, priority_tag, string);



	/* we knoe there's an 8 byte header.  That's documented */

	opcdef_p = (struct opcdef *) Malloc(8 + strlen(string));

	/* we know there's an 8 byte header.  That's documented */

	opcdef_p = (struct opcdef *) Malloc(8 + len);

	opcdef_p->opc$b_ms_type = OPC$_RQ_RQST;

	opcdef_p->opc$b_ms_target = VMS_OPC_target;

	memcpy(opcdef_p->opc$b_ms_target, &priority, 3);

	memcpy(opcdef_p->opc$z_ms_target_classes, &VMS_OPC_target, 3);

	opcdef_p->opc$l_ms_rqstid = 0;

	memcpy(&opcdef_p->opc$l_ms_text, buf, len);