refactor(agent): cleanup guzzle instrumentation

agent/fw_hooks.h

@@ -48,6 +48,7 @@ extern void nr_doctrine2_enable(TSRMLS_D);
 extern void nr_guzzle3_enable(TSRMLS_D);
 extern void nr_guzzle4_enable(TSRMLS_D);
 extern void nr_guzzle6_enable(TSRMLS_D);
+extern void nr_guzzle7_enable(TSRMLS_D);
 extern void nr_laminas_http_enable(TSRMLS_D);
 extern void nr_mongodb_enable(TSRMLS_D);
 extern void nr_phpunit_enable(TSRMLS_D);

agent/lib_guzzle4.c

@@ -445,12 +445,6 @@ NR_PHP_WRAPPER_START(nr_guzzle4_client_construct) {
   (void)wraprec;
   NR_UNUSED_SPECIALFN;
 
-  /* This is how we distinguish Guzzle 4/5 from other versions. */
-  if (0 == nr_guzzle_does_zval_implement_has_emitter(this_var TSRMLS_CC)) {
-    NR_PHP_WRAPPER_CALL;
-    goto end;
-  }
-
   NR_PHP_WRAPPER_CALL;
 
   /*
@@ -517,7 +511,7 @@ void nr_guzzle4_enable(TSRMLS_D) {
    * for all requests created on that client.
    */
   nr_php_wrap_user_function(NR_PSTR("GuzzleHttp\\Client::__construct"),
-                            nr_guzzle_client_construct TSRMLS_CC);
+                            nr_guzzle4_client_construct TSRMLS_CC);
 }
 
 void nr_guzzle4_minit(TSRMLS_D) {

agent/lib_guzzle6.c

@@ -9,14 +9,14 @@
  * It is a required component in Drupal 8, and strongly recommended by other
  * frameworks, including Symfony 2 and 3.
  *
- * Our approach for Guzzle 6 is to register middleware on every client that
+ * Our approach for Guzzle 6-7 is to register middleware on every client that
  * adds our headers to the request object, handles responses, and creates
  * metrics and trace nodes using the internal RequestHandler class declared
  * below.
  *
  * There is one issue with this approach, which is that the middleware is
  * called when the request is created, rather than when the request is sent. As
- * Guzzle 6 removed the event system that allowed us to know exactly when the
+ * Guzzle 6-7 removed the event system that allowed us to know exactly when the
  * request was sent, we are unable to get the time of the request being sent
  * without instrumenting much more deeply into Guzzle's handlers. We consider
  * this to be an obscure enough edge case that we are not doing this work at
@@ -65,12 +65,11 @@
  */
 #if ZEND_MODULE_API_NO >= ZEND_5_5_X_API_NO
 
-/* {{{ newrelic\Guzzle6\RequestHandler class definition and methods */
-
 /*
  * True global for the RequestHandler class entry.
  */
 zend_class_entry* nr_guzzle6_requesthandler_ce;
+int php_version_compare(char*, char*);
 
 /*
  * Arginfo for the RequestHandler methods.
@@ -107,7 +106,7 @@ static void nr_guzzle6_requesthandler_handle_response(zval* handler,
                                                       zval* response
                                                           TSRMLS_DC) {
   nr_segment_t* segment = NULL;
-  nr_segment_external_params_t external_params = {.library = "Guzzle 6"};
+  nr_segment_external_params_t external_params = {.library = "Guzzle 6-7"};
   zval* request;
   zval* method;
   zval* status;
@@ -140,7 +139,7 @@ static void nr_guzzle6_requesthandler_handle_response(zval* handler,
 
   if (NRPRG(txn) && NRTXN(special_flags.debug_cat)) {
     nrl_verbosedebug(
-        NRL_CAT, "CAT: outbound response: transport='Guzzle 6' %s=" NRP_FMT,
+        NRL_CAT, "CAT: outbound response: transport='Guzzle 6-7' %s=" NRP_FMT,
         X_NEWRELIC_APP_DATA, NRP_CAT(external_params.encoded_response_header));
   }
 
@@ -206,14 +205,14 @@ static PHP_NAMED_FUNCTION(nr_guzzle6_requesthandler_construct) {
   zend_update_property(Z_OBJCE_P(this_obj), ZVAL_OR_ZEND_OBJECT(this_obj),
                        NR_PSTR("request"), request TSRMLS_CC);
 
-  nr_guzzle_obj_add(this_obj, "Guzzle 6" TSRMLS_CC);
+  nr_guzzle_obj_add(this_obj, "Guzzle 6-7" TSRMLS_CC);
 }
 
 /*
  * Proto   : void RequestHandler::onFulfilled(Psr\Http\Message\ResponseInterface
  * $response)
  *
- * Purpose : Called when a Guzzle 6 request promise is fulfilled.
+ * Purpose : Called when a Guzzle 6-7 request promise is fulfilled.
  *
  * Params  : 1. The response object.
  */
@@ -257,7 +256,7 @@ static PHP_NAMED_FUNCTION(nr_guzzle6_requesthandler_onfulfilled) {
  * Proto   : void
  * RequestHandler::onRejected(GuzzleHttp\Exception\TransferException $e)
  *
- * Purpose : Called when a Guzzle 6 request promise failed.
+ * Purpose : Called when a Guzzle 6-7 request promise failed.
  *
  * Params  : 1. The exception object.
  */
@@ -340,76 +339,22 @@ const zend_function_entry nr_guzzle6_requesthandler_functions[]
                            nr_guzzle6_requesthandler_onrejected_arginfo,
                            ZEND_ACC_PUBLIC) PHP_FE_END};
 
-/* }}} */
-
-NR_PHP_WRAPPER_START(nr_guzzle6_client_construct) {
-  zval* config;
-  zend_class_entry* guzzle_client_ce;
-  zval* handler_stack;
-  zval* middleware = NULL;
-  zval* retval;
-  zval* this_var = nr_php_scope_get(NR_EXECUTE_ORIG_ARGS TSRMLS_CC);
-
-  (void)wraprec;
-  NR_UNUSED_SPECIALFN;
-
-  /* This is how we distinguish Guzzle 4/5. */
-  if (nr_guzzle_does_zval_implement_has_emitter(this_var TSRMLS_CC)) {
-    NR_PHP_WRAPPER_CALL;
-    goto end;
-  }
-
-  NR_PHP_WRAPPER_CALL;
-
-  /*
-   * Get our middleware callable (which is just a string), and make sure it's
-   * actually callable before we invoke push(). (See also PHP-1184.)
-   */
-  middleware = nr_php_zval_alloc();
-  nr_php_zval_str(middleware, "newrelic\\Guzzle6\\middleware");
-  if (!nr_php_is_zval_valid_callable(middleware TSRMLS_CC)) {
-    nrl_verbosedebug(NRL_FRAMEWORK,
-                     "%s: middleware string is not considered callable",
-                     __func__);
-
-    nrm_force_add(NRTXN(unscoped_metrics),
-                  "Supportability/library/Guzzle 6/MiddlewareNotCallable", 0);
-
-    goto end;
-  }
-
-  guzzle_client_ce = nr_php_find_class("guzzlehttp\\client" TSRMLS_CC);
-  if (NULL == guzzle_client_ce) {
-    nrl_verbosedebug(NRL_FRAMEWORK,
-                     "%s: unable to get class entry for GuzzleHttp\\Client",
-                     __func__);
-    goto end;
-  }
-
-  config = nr_php_get_zval_object_property_with_class(
-      this_var, guzzle_client_ce, "config" TSRMLS_CC);
-  if (!nr_php_is_zval_valid_array(config)) {
-    goto end;
-  }
-
-  handler_stack = nr_php_zend_hash_find(Z_ARRVAL_P(config), "handler");
-  if (!nr_php_object_instanceof_class(handler_stack,
-                                      "GuzzleHttp\\HandlerStack" TSRMLS_CC)) {
-    goto end;
+static void nr_guzzle_minit(){
+  zend_class_entry ce;
+  char nr_guzzle_request_handler[] = "newrelic\\Guzzle\\RequestHandler";
+  if (0 == NRINI(guzzle_enabled)) {
+    return;
   }
-
-  retval = nr_php_call(handler_stack, "push", middleware);
-
-  nr_php_zval_free(&retval);
-
-end:
-  nr_php_zval_free(&middleware);
-  nr_php_scope_release(&this_var);
+  INIT_CLASS_ENTRY(ce, nr_guzzle_request_handler, 
+                   nr_guzzle6_requesthandler_functions);
+  nr_guzzle6_requesthandler_ce
+      = nr_php_zend_register_internal_class_ex(&ce, NULL TSRMLS_CC);
+  zend_declare_property_null(nr_guzzle6_requesthandler_ce, NR_PSTR("request"),
+                             ZEND_ACC_PRIVATE TSRMLS_CC);
 }
-NR_PHP_WRAPPER_END
 
-void nr_guzzle6_enable(TSRMLS_D) {
-  int retval;
+static void nr_guzzle_enable(){
+  int _retval;
 
   if (0 == NRINI(guzzle_enabled)) {
     return;
@@ -429,20 +374,20 @@ void nr_guzzle6_enable(TSRMLS_D) {
    * as a standalone file, so we can use a normal namespace declaration to
    * avoid possible clashes.
    */
-  retval = zend_eval_string(
-      "namespace newrelic\\Guzzle6;"
+  _retval = zend_eval_string(
+      "namespace newrelic\\Guzzle;"
 
       "use Psr\\Http\\Message\\RequestInterface;"
 
-      "if (!function_exists('newrelic\\Guzzle6\\middleware')) {"
+      /*
+       * Start by adding the outbound CAT/DT/Synthetics headers to the request.
+       */
+      "if (!function_exists('newrelic\\Guzzle\\middleware')) {"
       "  function middleware(callable $handler) {"
       "    return function (RequestInterface $request, array $options) use "
       "($handler) {"
 
-      /*
-       * Start by adding the outbound CAT/DT/Synthetics headers to the request.
-       */
-      "      foreach (newrelic_get_request_metadata('Guzzle 6') as $k => $v) {"
+      "      foreach (newrelic_get_request_metadata('Guzzle') as $k => $v) {"
       "        $request = $request->withHeader($k, $v);"
       "      }"
 
@@ -459,43 +404,116 @@ void nr_guzzle6_enable(TSRMLS_D) {
       "    };"
       "  }"
       "}",
-      NULL, "newrelic/Guzzle6" TSRMLS_CC);
+      NULL, "newrelic/Guzzle" TSRMLS_CC);
 
-  if (SUCCESS == retval) {
+  if (SUCCESS == _retval) {
     nr_php_wrap_user_function(NR_PSTR("GuzzleHttp\\Client::__construct"),
-                              nr_guzzle_client_construct TSRMLS_CC);
-  } else {
+                              nr_guzzle_client_construct_helper TSRMLS_CC);
+  }else {
     nrl_warning(NRL_FRAMEWORK,
                 "%s: error evaluating PHP code; not installing handler",
                 __func__);
   }
 }
 
-void nr_guzzle6_minit(TSRMLS_D) {
-  zend_class_entry ce;
+/*
+ * This function checks if the guzzle middleware is callable and adds the 
+ * middleware (newrelic\Guzzle\middleware) to the GuzzleHttp\Client
+ * handler stack by invoking push(). If the middleware is not callable, the
+ * function exits by using the goto jump statement
+ */
+NR_PHP_WRAPPER_START(nr_guzzle_client_construct_helper){
+  zval* this_var = nr_php_scope_get(NR_EXECUTE_ORIG_ARGS TSRMLS_CC);
+  zval* retval;
+  int guzzle_version = 6;
+  char *version = nr_guzzle_version(this_var);
+  if (php_version_compare(version, "7") >= 0){
+    guzzle_version = 7;
+  }
+  nr_free(version);
 
-  if (0 == NRINI(guzzle_enabled)) {
-    return;
+  (void)wraprec;
+  NR_UNUSED_SPECIALFN;
+  NR_PHP_WRAPPER_CALL;
+  /*
+   * Get our middleware callable (which is just a string), and make sure it's
+   * actually callable before we invoke push(). (See also PHP-1184.)
+   */
+  char *str_middleware = "newrelic\\Guzzle\\middleware";
+  zval* middleware = nr_php_zval_alloc();
+  nr_php_zval_str(middleware, str_middleware);
+
+  if (!nr_php_is_zval_valid_callable(middleware TSRMLS_CC)) {
+    nrl_verbosedebug(NRL_FRAMEWORK,
+                     "%s: middleware string is not considered callable",
+                     __func__);
+    char* error_message = nr_formatf(
+      "Supportability/library/Guzzle %d/MiddlewareNotCallable", guzzle_version);
+    nrm_force_add(NRTXN(unscoped_metrics), error_message, 0);
+    nr_free(error_message);
+    goto end;
   }
 
-  INIT_CLASS_ENTRY(ce, "newrelic\\Guzzle6\\RequestHandler",
-                   nr_guzzle6_requesthandler_functions);
-  nr_guzzle6_requesthandler_ce
-      = nr_php_zend_register_internal_class_ex(&ce, NULL TSRMLS_CC);
+  zend_class_entry* guzzle_client_ce = nr_php_find_class("guzzlehttp\\client"
+                                                         TSRMLS_CC);
+  if (NULL == guzzle_client_ce) {
+    nrl_verbosedebug(NRL_FRAMEWORK,
+                     "%s: unable to get class entry for GuzzleHttp\\Client",
+                     __func__);
+    goto end;
+  }
 
-  zend_declare_property_null(nr_guzzle6_requesthandler_ce, NR_PSTR("request"),
-                             ZEND_ACC_PRIVATE TSRMLS_CC);
-}
+  zval* config = nr_php_get_zval_object_property_with_class(
+      this_var, guzzle_client_ce, "config" TSRMLS_CC);
+  if (!nr_php_is_zval_valid_array(config)) {
+    goto end;
+  }
 
-#else /* PHP < 5.5 */
+  zval* handler_stack = nr_php_zend_hash_find(Z_ARRVAL_P(config), "handler");
+  if (!nr_php_object_instanceof_class(handler_stack,
+                                      "GuzzleHttp\\HandlerStack" TSRMLS_CC)) {
+    goto end;
+  }
 
-NR_PHP_WRAPPER_START(nr_guzzle6_client_construct) {
-  (void)wraprec;
-  NR_UNUSED_SPECIALFN;
-  NR_UNUSED_TSRMLS;
+  retval = nr_php_call(handler_stack, "push", middleware);
+
+  nr_php_zval_free(&retval);
+
+end:
+  nr_php_zval_free(&middleware);
+  nr_php_scope_release(&this_var);
 }
 NR_PHP_WRAPPER_END
 
+/*
+ * Guzzle 7 requires PHP 7.2.0 or later, which is why we will not build Guzzle 7
+ * support on older versions and will instead provide simple stubs for the two
+ * exported functions to avoid linking errors.
+ */
+#if ZEND_MODULE_API_NO >= ZEND_7_2_X_API_NO
+
+void nr_guzzle7_enable(TSRMLS_D) {
+  nr_guzzle_enable();
+}
+
+#else /* PHP < 7.2 */
+
+void nr_guzzle7_enable(TSRMLS_D) {
+  NR_UNUSED_TSRMLS
+}
+
+#endif /* 7.2.x */
+
+void nr_guzzle6_enable(TSRMLS_D) {
+  nr_guzzle_enable();
+}
+
+void nr_guzzle6_minit(TSRMLS_D) {
+  nr_guzzle_minit();
+}
+
+#else /* PHP < 5.5 */
+
 void nr_guzzle6_enable(TSRMLS_D) {
   NR_UNUSED_TSRMLS
 }
@@ -504,4 +522,4 @@ void nr_guzzle6_minit(TSRMLS_D) {
   NR_UNUSED_TSRMLS;
 }
 
-#endif /* 5.5.x */
+#endif /* 5.5.x */

agent/lib_guzzle6.h

@@ -12,14 +12,17 @@
 #include "php_includes.h"
 
 /*
- * Purpose : Performs tasks that we need performed on MINIT in the Guzzle 6
+ * Purpose : Performs tasks that we need performed on MINIT in the Guzzle 6 and 7
  *           instrumentation.
  */
 extern void nr_guzzle6_minit(TSRMLS_D);
+extern void nr_guzzle7_minit(TSRMLS_D);
 
 /*
- * Purpose : Client::__construct() wrapper for Guzzle 6.
+ * Purpose : Client::__construct() wrapper for Guzzle 6 and 7.
  */
+extern NR_PHP_WRAPPER_PROTOTYPE(nr_guzzle_client_construct_helper);
 extern NR_PHP_WRAPPER_PROTOTYPE(nr_guzzle6_client_construct);
+extern NR_PHP_WRAPPER_PROTOTYPE(nr_guzzle7_client_construct);
 
 #endif /* LIB_GUZZLE4_HDR */