- implement FR #60390, SERVER_PORT missing

diff --git a/sapi/cli/php_cli_server.c b/sapi/cli/php_cli_server.c
index 9d3c8191aefd601d91b35549aa4875199dbd7b07..de4f4b65b5132c44f0cf2f5df3f9510766b1148a 100644 (file)
--- a/sapi/cli/php_cli_server.c
+++ b/sapi/cli/php_cli_server.c
@@ -577,6 +577,12 @@ static void sapi_cli_server_register_variables(zval *track_vars_array TSRMLS_DC)
                sapi_cli_server_register_variable(track_vars_array, "SERVER_PROTOCOL", tmp TSRMLS_CC);
                efree(tmp);
        }
+       {
+               char *tmp;
+               spprintf(&tmp, 0, "%i",  client->server->port);
+               sapi_cli_server_register_variable(track_vars_array, "SERVER_PORT", tmp TSRMLS_CC);
+       }
+
        sapi_cli_server_register_variable(track_vars_array, "REQUEST_URI", client->request.request_uri TSRMLS_CC);
        sapi_cli_server_register_variable(track_vars_array, "REQUEST_METHOD", SG(request_info).request_method TSRMLS_CC);
        sapi_cli_server_register_variable(track_vars_array, "SCRIPT_NAME", client->request.vpath TSRMLS_CC);