
Chapter 9. Porting open system applications to a z/TPF system 197
/* issue SSL_get_peer_certificate_subject_info() */
c_len = sizeof(country);
st_len = sizeof(state);
city_len = sizeof(city);
company_len = sizeof(company);
c_unit_len = sizeof(company_unit);
name_len = sizeof(common_name);
email_len = sizeof(email);
SSL_get_peer_certificate_subject_info(myssl, country, c_len, state, st_len, city,
city_len, company, company_len, company_unit, c_unit_len,
common_name, name_len, email, email_len);
/*Send message to the server.*/
err=SSL_write(myssl,"Hello there!!!!",sizeof("Hello there!!!!")+1);
/*Read servers response.*/
err = SSL_read (myssl, ...