Support cookies and char-type payload

Author: mbtools

src/package.devc.xml

@@ -3,7 +3,7 @@
  <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
   <asx:values>
    <DEVC>
-    <CTEXT>HTTP</CTEXT>
+    <CTEXT>Easy HTTP</CTEXT>
    </DEVC>
   </asx:values>
  </asx:abap>

src/zcl_http_agent.clas.abap

@@ -47,6 +47,8 @@ CLASS zcl_http_agent IMPLEMENTATION.
         request->set_data( payload ).
       WHEN cl_abap_typedescr=>typekind_string.
         request->set_cdata( payload ).
+      WHEN cl_abap_typedescr=>typekind_char.
+        request->set_cdata( |{ payload }| ).
       WHEN OTHERS.
         zcx_error=>raise( |Unexpected payload type { payload_type->absolute_name }| ).
     ENDCASE.

src/zcl_http_agent.clas.locals_imp.abap

@@ -85,7 +85,8 @@ CLASS lcl_http_response IMPLEMENTATION.
 
     DATA headers TYPE tihttpnvp.
 
-    result = NEW #( ).
+    " HTTP headers are not case sensitive and can have multiple entries (i.e. for cookies)
+    result = NEW #( iv_case_insensitive = abap_true iv_list_mode = abap_true ).
 
     http_response->get_header_fields( CHANGING fields = headers ).
 

src/zif_http_agent.intf.abap

@@ -22,10 +22,14 @@ INTERFACE zif_http_agent PUBLIC.
       authorization TYPE string VALUE 'authorization',
       content_type  TYPE string VALUE 'content-type',
       user_agent    TYPE string VALUE 'user-agent',
+      cookie        TYPE string VALUE 'cookie',
+      set_cookie    TYPE string VALUE 'set-cookie',
+      x_csrf_token  TYPE string VALUE 'x-csrf-token',
     END OF c_header,
     BEGIN OF c_content_type,
       json TYPE string VALUE 'application/json',
       text TYPE string VALUE 'application/text',
+      xml  TYPE string VALUE 'application/xml',
       bin  TYPE string VALUE 'application/octet-stream',
     END OF c_content_type.
 
@@ -40,7 +44,7 @@ INTERFACE zif_http_agent PUBLIC.
       !method       TYPE string DEFAULT c_method-get
       !query        TYPE REF TO zcl_abap_string_map OPTIONAL
       !headers      TYPE REF TO zcl_abap_string_map OPTIONAL
-      !payload      TYPE any OPTIONAL " can be string, xstring
+      !payload      TYPE any OPTIONAL " can be char, string, xstring
     RETURNING
       VALUE(result) TYPE REF TO zif_http_response
     RAISING