HP TCP/IP Services for OpenVMS Industry Standard 64 Version V5.6
on an HP rx2600 (1.50GHz/6.0MB) running OpenVMS 8.3
I have the latest OVMS 8.3 Patch Bundle V18 installed.
From the
HP TCP/IP Services for OpenVMS
Sockets API and System Services Programming Guide, Appendix E.6:
************************************
#include <in.h> /* define internet related constants,
/* functions, and structures */
#include <inet.h> /* define network address info */
#include <netdb.h> /* define network database library info */
#include <socket.h> /* define BSD 4.x socket api */
#include <stdio.h> /* define standard i/o functions */
#include <stdlib.h> /* define standard library functions */
#include <string.h> /* define string handling functions */
#include <unixio.h> /* define unix i/o */
#define SERV_BACKLOG 1 /* server backlog */
#define SERV_PORTNUM 12345 /* server port number */
int main( void ); /* server main */
int
main( void )
{
int optval = 1; /* SO_REUSEADDR'S option value (on) */
int conn_sockfd; /* connection socket descriptor */
int listen_sockfd; /* listen socket descriptor */
int gni_error; /* return status for getnameinfo() */
unsigned int client_addrlen; /* returned length of client socket */
/* address structure */
struct sockaddr_in6 client_addr; /* client socket address structure */
struct sockaddr_in6 serv_addr; /* server socket address structure */
char buf[] = "Hello, world!"; /* server data buffer */
char node[NI_MAXHOST]; /* buffer to receive node name */
char port[NI_MAXHOST]; /* buffer to receive port number */
char addrbuf[INET6_ADDRSTRLEN]; /* buffer to receive host's address */
memset( &client_addr, 0, sizeof(client_addr) );
memset( &serv_addr, 0, sizeof(serv_addr) );
serv_addr.sin6_family = AF_INET6;
serv_addr.sin6_port = htons( SERV_PORTNUM );
serv_addr.sin6_addr = in6addr_any;
if ( (listen_sockfd = socket(AF_INET6, SOCK_STREAM, 0)) < 0 )
{
perror( "Failed to create socket" );
exit( EXIT_FAILURE );
}
if ( setsockopt(listen_sockfd,
SOL_SOCKET, SO_REUSEADDR, &optval, sizeof(optval)) < 0 )
{
perror( "Failed to set socket option" );
exit( EXIT_FAILURE );
}
if ( bind(listen_sockfd,
(struct sockaddr *) &serv_addr, sizeof(serv_addr)) < 0 )
{
perror( "Failed to bind socket" );
exit( EXIT_FAILURE );
}
if ( listen(listen_sockfd, SERV_BACKLOG) < 0 )
{
perror( "Failed to set socket passive" );
exit( EXIT_FAILURE );
}
printf( "Waiting for a client connection on port: %d\n",
ntohs(serv_addr.sin6_port)
);
client_addrlen = sizeof(client_addr);
conn_sockfd = accept( listen_sockfd,
(struct sockaddr *) &client_addr,
&client_addrlen
);
if ( conn_sockfd < 0 )
{
perror( "Failed to accept client connection" );
exit( EXIT_FAILURE );
}
gni_error = getnameinfo( (struct sockaddr *)&client_addr,client_addrlen,
node, sizeof(node), NULL, 0, NI_NAMEREQD
);
if ( gni_error )
{
printf( "Failed to translate client address: %s\n",
gai_strerror(gni_error)
);
exit( EXIT_FAILURE );
}
gni_error = getnameinfo( (struct sockaddr *)&client_addr, client_addrlen,
addrbuf, sizeof(addrbuf), port, sizeof(port),
NI_NUMERICHOST | NI_NUMERICSERV
);
if ( gni_error )
{
printf( "Failed to translate client address and/or port: %s\n",
gai_strerror(gni_error)
);
exit( EXIT_FAILURE );
}
printf( "Accepted connection from host: %s (%s), port: %s\n",
node, addrbuf, port
);
if ( send(conn_sockfd, buf, sizeof(buf), 0) < 0 )
{
perror( "Failed to write data to client connection" );
exit( EXIT_FAILURE );
}
printf( "Data sent: %s\n", buf ); /* output server's data buffer */
if ( shutdown(conn_sockfd, 2) < 0 )
{
perror( "Failed to shutdown client connection" );
exit( EXIT_FAILURE );
}
if ( close(conn_sockfd) < 0 )
{
perror( "Failed to close socket" );
exit( EXIT_FAILURE );
}
if ( close(listen_sockfd) < 0 )
{
perror( "Failed to close socket" );
exit( EXIT_FAILURE );
}
exit( EXIT_SUCCESS );
}
************************
It fails at the bind() call. I am wondering if there is something that I need to turn on in TCPIP for IPV6 but I never did anything like that on our 7.3 AXP. I did run the TCPIP$IP6_SETUP script.
