exit to modify http client #1252 (#1253)

plus make sure the program does not dump when implementations are missing in the exit

src/http/zcl_abapgit_http.clas.abap

@@ -183,6 +183,8 @@ CLASS ZCL_ABAPGIT_HTTP IMPLEMENTATION.
     zcl_abapgit_login_manager=>load( iv_uri    = iv_url
                                      ii_client = li_client ).
 
+    zcl_abapgit_exit=>get_instance( )->http_client( li_client ).
+
     ro_client->send_receive( ).
     IF check_auth_requested( li_client ) = abap_true.
       lv_scheme = acquire_login_details( ii_client = li_client

src/zcl_abapgit_exit.clas.abap

@@ -7,6 +7,9 @@ CLASS zcl_abapgit_exit DEFINITION
 
     INTERFACES: zif_abapgit_exit.
 
+  PRIVATE SECTION.
+
+    CLASS-DATA gi_exit TYPE REF TO zif_abapgit_exit .
 ENDCLASS.
 
 
@@ -16,40 +19,86 @@ CLASS ZCL_ABAPGIT_EXIT IMPLEMENTATION.
 
   METHOD get_instance.
 
-    TRY.
-        CREATE OBJECT ri_exit TYPE ('ZCL_ABAPGIT_USER_EXIT').
-      CATCH cx_sy_create_object_error.
-        CREATE OBJECT ri_exit TYPE zcl_abapgit_exit.
-    ENDTRY.
+    IF gi_exit IS INITIAL.
+      TRY.
+          CREATE OBJECT gi_exit TYPE ('ZCL_ABAPGIT_USER_EXIT').
+        CATCH cx_sy_create_object_error.
+      ENDTRY.
+    ENDIF.
+
+    CREATE OBJECT ri_exit TYPE zcl_abapgit_exit.
 
   ENDMETHOD.
 
 
   METHOD zif_abapgit_exit~allow_sap_objects.
-    rv_allowed = abap_false.
+
+    TRY.
+        rv_allowed = gi_exit->allow_sap_objects( ).
+      CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method.
+    ENDTRY.
+
   ENDMETHOD.
 
 
   METHOD zif_abapgit_exit~change_local_host.
-* default behavior
-    RETURN.
+
+    TRY.
+        gi_exit->change_local_host( CHANGING ct_hosts = ct_hosts ).
+      CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method.
+    ENDTRY.
+
   ENDMETHOD.
 
 
   METHOD zif_abapgit_exit~change_proxy_authentication.
-* default behavior change nothing
-    RETURN.
+
+    TRY.
+        gi_exit->change_proxy_authentication(
+          EXPORTING
+            iv_repo_url            = iv_repo_url
+          CHANGING
+            c_proxy_authentication = c_proxy_authentication ).
+      CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method.
+    ENDTRY.
+
   ENDMETHOD.
 
 
   METHOD zif_abapgit_exit~change_proxy_port.
-* default behavior change nothing
-    RETURN.
+
+    TRY.
+        gi_exit->change_proxy_port(
+          EXPORTING
+            iv_repo_url  = iv_repo_url
+          CHANGING
+            c_proxy_port = c_proxy_port ).
+      CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method.
+    ENDTRY.
+
   ENDMETHOD.
 
 
   METHOD zif_abapgit_exit~change_proxy_url.
-* default behavior change nothing
-    RETURN.
+
+    TRY.
+        gi_exit->change_proxy_url(
+          EXPORTING
+            iv_repo_url = iv_repo_url
+          CHANGING
+            c_proxy_url = c_proxy_url ).
+      CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method.
+    ENDTRY.
+
+  ENDMETHOD.
+
+
+  METHOD zif_abapgit_exit~http_client.
+
+    TRY.
+        gi_exit->http_client( ii_client ).
+      CATCH cx_sy_ref_is_initial cx_sy_dyn_call_illegal_method.
+    ENDTRY.
+
   ENDMETHOD.
 ENDCLASS.

src/zif_abapgit_exit.intf.abap

@@ -16,6 +16,9 @@ INTERFACE zif_abapgit_exit PUBLIC.
       CHANGING  c_proxy_port TYPE string,
     change_proxy_authentication
       IMPORTING iv_repo_url            TYPE csequence
-      CHANGING  c_proxy_authentication TYPE abap_bool.
+      CHANGING  c_proxy_authentication TYPE abap_bool,
+    http_client
+      IMPORTING
+        ii_client TYPE REF TO if_http_client.
 
 ENDINTERFACE.