Use getsockname() to read the server port since we don't know that it's

the same as startup->port anymore.

src/sbbs3/websrvr.c

@@ -761,9 +761,12 @@ static void add_env(http_session_t *session, const char *name,const char *value)
 /***************************************/
 static void init_enviro(http_session_t *session)  {
 	char	str[128];
+	union xp_sockaddr sockaddr;
+	socklen_t socklen = sizeof(sockaddr);
 
 	add_env(session,"SERVER_SOFTWARE",VERSION_NOTICE);
-	sprintf(str,"%d",startup->port);
+	getsockname(session->socket, &sockaddr.addr, &socklen);
+	sprintf(str,"%d",inet_addrport(&sockaddr));
 	add_env(session,"SERVER_PORT",str);
 	add_env(session,"GATEWAY_INTERFACE","CGI/1.1");
 	if(!strcmp(session->host_name,session->host_ip))