Add http_last_reponse_header() function

This is to provide an alternative to the  magic variable

Author: Girgias

ext/standard/basic_functions.h

@@ -73,6 +73,9 @@ typedef struct _php_basic_globals {
 
 	zval active_ini_file_section;
 
+	/* http_fopen_wrapper.c */
+	zval last_http_headers;
+
 	/* pageinfo.c */
 	zend_long page_uid;
 	zend_long page_gid;

ext/standard/basic_functions.stub.php

@@ -2973,6 +2973,8 @@ function pfsockopen(string $hostname, int $port = -1, &$error_code = null, &$err
 /** @refcount 1 */
 function http_build_query(array|object $data, string $numeric_prefix = "", ?string $arg_separator = null, int $encoding_type = PHP_QUERY_RFC1738): string {}
 
+function http_last_response_header(): ?array {}
+
 /* image.c */
 
 /**

ext/standard/basic_functions_arginfo.h

@@ -17,6 +17,7 @@
 #include "php_http.h"
 #include "php_ini.h"
 #include "url.h"
+#include "basic_functions.h"
 
 static void php_url_encode_scalar(zval *scalar, smart_str *form_str,
 	int encoding_type, zend_ulong index_int,
@@ -235,3 +236,12 @@ PHP_FUNCTION(http_build_query)
 	RETURN_STR(smart_str_extract(&formstr));
 }
 /* }}} */
+
+PHP_FUNCTION(http_last_response_header)
+{
+	zend_parse_parameters_none();
+
+	if (!Z_ISUNDEF(BG(last_http_headers))) {
+		ZVAL_DUP(return_value, &BG(last_http_headers));
+	}
+}

ext/standard/http.c

@@ -982,13 +982,19 @@ php_stream *php_stream_url_wrap_http(php_stream_wrapper *wrapper, const char *pa
 {
 	php_stream *stream;
 	zval headers;
+
 	ZVAL_UNDEF(&headers);
 
+	zval_ptr_dtor(&BG(last_http_headers));
+	ZVAL_UNDEF(&BG(last_http_headers));
+
 	stream = php_stream_url_wrap_http_ex(
 		wrapper, path, mode, options, opened_path, context,
 		PHP_URL_REDIRECT_MAX, HTTP_WRAPPER_HEADER_INIT, &headers STREAMS_CC);
 
 	if (!Z_ISUNDEF(headers)) {
+		ZVAL_DUP(&BG(last_http_headers), &headers);
+
 		if (FAILURE == zend_set_local_var_str(
 				"http_response_header", sizeof("http_response_header")-1, &headers, 0)) {
 			zval_ptr_dtor(&headers);

ext/standard/http_fopen_wrapper.c

@@ -14,17 +14,27 @@ $responses = array(
 
 ['pid' => $pid, 'uri' => $uri] = http_server($responses, $output);
 
+var_dump(http_last_response_header());
+
 var_dump(file_get_contents($uri));
 var_dump($http_response_header);
+var_dump(http_last_response_header());
 
 http_server_kill($pid);
 
 ?>
 --EXPECT--
+NULL
 string(0) ""
 array(2) {
   [0]=>
   string(15) "HTTP/1.0 200 Ok"
   [1]=>
   string(14) "Content-Length"
 }
+array(2) {
+  [0]=>
+  string(15) "HTTP/1.0 200 Ok"
+  [1]=>
+  string(14) "Content-Length"
+}

ext/standard/tests/http/bug75535.phpt

@@ -23,14 +23,26 @@ $options = [
 
 $ctx = stream_context_create($options);
 
+var_dump(http_last_response_header());
+
 $fd = fopen($uri, 'rb', false, $ctx);
 fclose($fd);
 var_dump($http_response_header);
+var_dump(http_last_response_header());
 
 http_server_kill($pid);
 
 ?>
 --EXPECT--
+NULL
+array(3) {
+  [0]=>
+  string(32) "HTTP/1.1 101 Switching Protocols"
+  [1]=>
+  string(15) "Header1: Value1"
+  [2]=>
+  string(15) "Header2: Value2"
+}
 array(3) {
   [0]=>
   string(32) "HTTP/1.1 101 Switching Protocols"

ext/standard/tests/http/bug80838.phpt

@@ -16,21 +16,52 @@ $responses = array(
 ['pid' => $pid, 'uri' => $uri] = http_server($responses, $output);
 
 for ($i = 0; $i < count($responses); ++$i) {
+    echo 'http_last_response_header() before stream layer call:', PHP_EOL;
+    var_dump(http_last_response_header());
+
     $f = @fopen($uri, "r");
+    echo '$http_response_header', PHP_EOL;
     var_dump($http_response_header);
+    echo 'http_last_response_header() after stream layer call:', PHP_EOL;
+    var_dump(http_last_response_header());
     fclose($f);
 }
 
 http_server_kill($pid);
 
 ?>
 --EXPECT--
+http_last_response_header() before stream layer call:
+NULL
+$http_response_header
+array(2) {
+  [0]=>
+  string(126) "HTTP/1.1 200 Some very long reason-phrase to test that this is properly handled by our code without adding a new header like  "
+  [1]=>
+  string(12) "Good: Header"
+}
+http_last_response_header() after stream layer call:
 array(2) {
   [0]=>
   string(126) "HTTP/1.1 200 Some very long reason-phrase to test that this is properly handled by our code without adding a new header like  "
   [1]=>
   string(12) "Good: Header"
 }
+http_last_response_header() before stream layer call:
+array(2) {
+  [0]=>
+  string(126) "HTTP/1.1 200 Some very long reason-phrase to test that this is properly handled by our code without adding a new header like  "
+  [1]=>
+  string(12) "Good: Header"
+}
+$http_response_header
+array(2) {
+  [0]=>
+  string(13) "HTTP/1.1 200 "
+  [1]=>
+  string(12) "Good: Header"
+}
+http_last_response_header() after stream layer call:
 array(2) {
   [0]=>
   string(13) "HTTP/1.1 200 "

ext/standard/tests/http/gh9316.phpt

@@ -14,14 +14,18 @@ $responses = array(
 
 ['pid' => $pid, 'uri' => $uri] = http_server($responses, $output);
 
+var_dump(http_last_response_header());
+
 $f = file_get_contents($uri);
 var_dump($f);
 var_dump($http_response_header);
+var_dump(http_last_response_header());
 
 http_server_kill($pid);
 
 ?>
 --EXPECT--
+NULL
 string(4) "Body"
 array(3) {
   [0]=>
@@ -31,3 +35,11 @@ array(3) {
   [2]=>
   string(12) "Some: Header"
 }
+array(3) {
+  [0]=>
+  string(15) "HTTP/1.0 200 Ok"
+  [1]=>
+  string(12) "Some: Header"
+  [2]=>
+  string(12) "Some: Header"
+}

ext/standard/tests/http/http_response_header_01.phpt

@@ -16,14 +16,18 @@ $responses = array(
 
 ['pid' => $pid, 'uri' => $uri] = http_server($responses, $output);
 
+var_dump(http_last_response_header());
+
 $f = file_get_contents($uri);
 var_dump($f);
 var_dump($http_response_header);
+var_dump(http_last_response_header());
 
 http_server_kill($pid);
 
 ?>
 --EXPECT--
+NULL
 string(4) "Body"
 array(5) {
   [0]=>
@@ -37,3 +41,15 @@ array(5) {
   [4]=>
   string(12) "Some: Header"
 }
+array(5) {
+  [0]=>
+  string(18) "HTTP/1.0 302 Found"
+  [1]=>
+  string(12) "Some: Header"
+  [2]=>
+  string(20) "Location: /try-again"
+  [3]=>
+  string(15) "HTTP/1.0 200 Ok"
+  [4]=>
+  string(12) "Some: Header"
+}

ext/standard/tests/http/http_response_header_02.phpt

@@ -16,14 +16,19 @@ $responses = array(
 
 ['pid' => $pid, 'uri' => $uri] = http_server($responses, $output);
 
+var_dump(http_last_response_header());
+
 $f = file_get_contents($uri);
 var_dump($f);
 var_dump($http_response_header);
+var_dump(http_last_response_header());
 
 http_server_kill($pid);
 
 ?>
 --EXPECTF--
+NULL
+
 Warning: file_get_contents(http://%s:%d): Failed to open stream: HTTP request failed! HTTP/1.0 404 Not Found%a
 bool(false)
 array(5) {
@@ -38,3 +43,15 @@ array(5) {
   [4]=>
   string(12) "Some: Header"
 }
+array(5) {
+  [0]=>
+  string(18) "HTTP/1.0 302 Found"
+  [1]=>
+  string(12) "Some: Header"
+  [2]=>
+  string(20) "Location: /try-again"
+  [3]=>
+  string(22) "HTTP/1.0 404 Not Found"
+  [4]=>
+  string(12) "Some: Header"
+}

ext/standard/tests/http/http_response_header_03.phpt

@@ -14,18 +14,28 @@ $responses = array(
 
 ['pid' => $pid, 'uri' => $uri] = http_server($responses, $output);
 
+var_dump(http_last_response_header());
+
 $f = file_get_contents($uri);
 var_dump($f);
 var_dump($http_response_header);
+var_dump(http_last_response_header());
 
 http_server_kill($pid);
 
 ?>
 --EXPECT--
+NULL
 string(4) "Body"
 array(2) {
   [0]=>
   string(15) "HTTP/1.0 200 Ok"
   [1]=>
   string(14) "Some:   Header"
 }
+array(2) {
+  [0]=>
+  string(15) "HTTP/1.0 200 Ok"
+  [1]=>
+  string(14) "Some:   Header"
+}

ext/standard/tests/http/http_response_header_04.phpt

@@ -14,18 +14,28 @@ $responses = array(
 
 ['pid' => $pid, 'uri' => $uri] = http_server($responses, $output);
 
+var_dump(http_last_response_header());
+
 $f = file_get_contents($uri);
 var_dump($f);
 var_dump($http_response_header);
+var_dump(http_last_response_header());
 
 http_server_kill($pid);
 
 ?>
 --EXPECT--
+NULL
 string(4) "Body"
 array(2) {
   [0]=>
   string(15) "HTTP/1.0 200 Ok"
   [1]=>
   string(0) ""
 }
+array(2) {
+  [0]=>
+  string(15) "HTTP/1.0 200 Ok"
+  [1]=>
+  string(0) ""
+}