mirror of
https://github.com/abap2UI5/abap2UI5.git
synced 2025-04-29 21:42:45 +08:00
New handler (#1446)
* new handler * update * update * update * update * update * fix statefulness * update * update * update
This commit is contained in:
oblomov-dev
GitHub
parent
6c0843cb06
commit
e9007c05da
314
src/01/00/02/z2ui5_cl_abap_api_http.clas.abap
Normal file
314
src/01/00/02/z2ui5_cl_abap_api_http.clas.abap
Normal file
|
|
@ -0,0 +1,314 @@
|
||||||
|
CLASS z2ui5_cl_abap_api_http DEFINITION PUBLIC.
|
||||||
|
|
||||||
|
PUBLIC SECTION.
|
||||||
|
|
||||||
|
CLASS-METHODS factory
|
||||||
|
IMPORTING
|
||||||
|
server TYPE REF TO object
|
||||||
|
RETURNING
|
||||||
|
VALUE(result) TYPE REF TO z2ui5_cl_abap_api_http.
|
||||||
|
|
||||||
|
CLASS-METHODS factory_cloud
|
||||||
|
IMPORTING
|
||||||
|
req TYPE REF TO object
|
||||||
|
res TYPE REF TO object
|
||||||
|
RETURNING
|
||||||
|
VALUE(result) TYPE REF TO z2ui5_cl_abap_api_http.
|
||||||
|
|
||||||
|
METHODS get_header_field
|
||||||
|
IMPORTING
|
||||||
|
val TYPE clike
|
||||||
|
RETURNING
|
||||||
|
VALUE(result) TYPE string.
|
||||||
|
|
||||||
|
METHODS get_cdata
|
||||||
|
RETURNING
|
||||||
|
VALUE(result) TYPE string.
|
||||||
|
|
||||||
|
METHODS get_method
|
||||||
|
RETURNING
|
||||||
|
VALUE(result) TYPE string.
|
||||||
|
|
||||||
|
METHODS set_cdata
|
||||||
|
IMPORTING
|
||||||
|
val TYPE clike.
|
||||||
|
|
||||||
|
METHODS set_status
|
||||||
|
IMPORTING
|
||||||
|
code TYPE i
|
||||||
|
reason TYPE clike.
|
||||||
|
|
||||||
|
METHODS set_session_stateful
|
||||||
|
IMPORTING
|
||||||
|
val TYPE i.
|
||||||
|
|
||||||
|
METHODS get_response_cookie
|
||||||
|
IMPORTING
|
||||||
|
val TYPE clike
|
||||||
|
RETURNING
|
||||||
|
VALUE(result) TYPE string.
|
||||||
|
|
||||||
|
METHODS delete_response_cookie
|
||||||
|
IMPORTING
|
||||||
|
val TYPE clike.
|
||||||
|
|
||||||
|
METHODS set_header_field
|
||||||
|
IMPORTING
|
||||||
|
n TYPE clike
|
||||||
|
v TYPE clike.
|
||||||
|
|
||||||
|
DATA mo_server_onprem TYPE REF TO object.
|
||||||
|
|
||||||
|
PROTECTED SECTION.
|
||||||
|
|
||||||
|
DATA mo_request_cloud TYPE REF TO object.
|
||||||
|
DATA mo_response_cloud TYPE REF TO object.
|
||||||
|
|
||||||
|
PRIVATE SECTION.
|
||||||
|
ENDCLASS.
|
||||||
|
|
||||||
|
CLASS z2ui5_cl_abap_api_http IMPLEMENTATION.
|
||||||
|
|
||||||
|
METHOD delete_response_cookie.
|
||||||
|
|
||||||
|
DATA(lv_val) = CONV string( val ).
|
||||||
|
|
||||||
|
IF mo_server_onprem IS BOUND.
|
||||||
|
|
||||||
|
DATA object TYPE REF TO object.
|
||||||
|
FIELD-SYMBOLS <any> TYPE any.
|
||||||
|
|
||||||
|
ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
|
||||||
|
object = <any>.
|
||||||
|
|
||||||
|
CALL METHOD object->('DELETE_COOKIE')
|
||||||
|
EXPORTING
|
||||||
|
name = lv_val.
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
* CALL METHOD mo_response_cloud->('DELETE_COOKIE_AT_CLIENT')
|
||||||
|
* EXPORTING
|
||||||
|
* name = lv_val.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD get_response_cookie.
|
||||||
|
|
||||||
|
DATA object TYPE REF TO object.
|
||||||
|
FIELD-SYMBOLS <any> TYPE any.
|
||||||
|
DATA(lv_val) = CONV string( val ).
|
||||||
|
|
||||||
|
IF mo_server_onprem IS BOUND.
|
||||||
|
|
||||||
|
ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
|
||||||
|
object = <any>.
|
||||||
|
|
||||||
|
CALL METHOD object->('GET_COOKIE')
|
||||||
|
EXPORTING
|
||||||
|
name = lv_val
|
||||||
|
IMPORTING
|
||||||
|
value = result.
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
* CALL METHOD mo_request_cloud->('GET_COOKIE')
|
||||||
|
* EXPORTING
|
||||||
|
* i_name = lv_val
|
||||||
|
* RECEIVING
|
||||||
|
* r_value = result.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD get_header_field.
|
||||||
|
|
||||||
|
DATA object TYPE REF TO object.
|
||||||
|
FIELD-SYMBOLS <any> TYPE any.
|
||||||
|
DATA(lv_val) = CONV string( val ).
|
||||||
|
|
||||||
|
IF mo_server_onprem IS BOUND.
|
||||||
|
|
||||||
|
ASSIGN mo_server_onprem->('REQUEST') TO <any>.
|
||||||
|
object = <any>.
|
||||||
|
|
||||||
|
CALL METHOD object->('GET_HEADER_FIELD')
|
||||||
|
EXPORTING
|
||||||
|
name = lv_val
|
||||||
|
RECEIVING
|
||||||
|
value = result.
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
CALL METHOD mo_request_cloud->('GET_HEADER_FIELD')
|
||||||
|
EXPORTING
|
||||||
|
i_name = lv_val
|
||||||
|
RECEIVING
|
||||||
|
r_value = result.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD set_header_field.
|
||||||
|
|
||||||
|
DATA object TYPE REF TO object.
|
||||||
|
FIELD-SYMBOLS <any> TYPE any.
|
||||||
|
|
||||||
|
DATA(lv_n) = CONV string( n ).
|
||||||
|
DATA(lv_v) = CONV string( v ).
|
||||||
|
IF mo_server_onprem IS BOUND.
|
||||||
|
|
||||||
|
ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
|
||||||
|
object = <any>.
|
||||||
|
|
||||||
|
CALL METHOD object->('SET_HEADER_FIELD')
|
||||||
|
EXPORTING
|
||||||
|
name = lv_n
|
||||||
|
value = lv_v.
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
CALL METHOD mo_request_cloud->('SET_HEADER_FIELD')
|
||||||
|
EXPORTING
|
||||||
|
i_name = lv_n
|
||||||
|
i_value = lv_v.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD factory.
|
||||||
|
|
||||||
|
result = NEW #( ).
|
||||||
|
result->mo_server_onprem = server.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD factory_cloud.
|
||||||
|
|
||||||
|
result = NEW #( ).
|
||||||
|
result->mo_request_cloud = req.
|
||||||
|
result->mo_response_cloud = res.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD get_cdata.
|
||||||
|
|
||||||
|
DATA object TYPE REF TO object.
|
||||||
|
FIELD-SYMBOLS <any> TYPE any.
|
||||||
|
|
||||||
|
IF mo_server_onprem IS BOUND.
|
||||||
|
|
||||||
|
ASSIGN mo_server_onprem->('REQUEST') TO <any>.
|
||||||
|
object = <any>.
|
||||||
|
|
||||||
|
CALL METHOD object->('GET_CDATA')
|
||||||
|
RECEIVING
|
||||||
|
data = result.
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
CALL METHOD mo_request_cloud->('GET_TEXT')
|
||||||
|
RECEIVING
|
||||||
|
r_value = result.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD get_method.
|
||||||
|
|
||||||
|
DATA object TYPE REF TO object.
|
||||||
|
FIELD-SYMBOLS <any> TYPE any.
|
||||||
|
|
||||||
|
IF mo_server_onprem IS BOUND.
|
||||||
|
|
||||||
|
ASSIGN mo_server_onprem->('REQUEST') TO <any>.
|
||||||
|
object = <any>.
|
||||||
|
|
||||||
|
CALL METHOD object->('IF_HTTP_REQUEST~GET_METHOD')
|
||||||
|
RECEIVING
|
||||||
|
method = result.
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
CALL METHOD mo_request_cloud->('GET_METHOD')
|
||||||
|
RECEIVING
|
||||||
|
r_value = result.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD set_cdata.
|
||||||
|
|
||||||
|
DATA object TYPE REF TO object.
|
||||||
|
FIELD-SYMBOLS <any> TYPE any.
|
||||||
|
|
||||||
|
IF mo_server_onprem IS BOUND.
|
||||||
|
|
||||||
|
ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
|
||||||
|
object = <any>.
|
||||||
|
|
||||||
|
CALL METHOD object->('SET_CDATA')
|
||||||
|
EXPORTING
|
||||||
|
data = val.
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
CALL METHOD mo_request_cloud->('SET_TEXT')
|
||||||
|
EXPORTING
|
||||||
|
r_value = val.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD set_status.
|
||||||
|
|
||||||
|
DATA object TYPE REF TO object.
|
||||||
|
FIELD-SYMBOLS <any> TYPE any.
|
||||||
|
DATA(lv_reason) = CONV string( reason ).
|
||||||
|
|
||||||
|
IF mo_server_onprem IS BOUND.
|
||||||
|
|
||||||
|
ASSIGN mo_server_onprem->('RESPONSE') TO <any>.
|
||||||
|
object = <any>.
|
||||||
|
|
||||||
|
CALL METHOD object->('IF_HTTP_RESPONSE~SET_STATUS')
|
||||||
|
EXPORTING
|
||||||
|
code = code
|
||||||
|
reason = lv_reason.
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
CALL METHOD mo_response_cloud->('SET_STATUS')
|
||||||
|
EXPORTING
|
||||||
|
i_code = code
|
||||||
|
i_reason = lv_reason.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD set_session_stateful.
|
||||||
|
|
||||||
|
IF mo_server_onprem IS BOUND.
|
||||||
|
|
||||||
|
CALL METHOD mo_server_onprem->('SET_SESSION_STATEFUL')
|
||||||
|
EXPORTING
|
||||||
|
stateful = val.
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
ASSERT 1 = 'NO_STATEFUL_FEATURE_IN_CLOUD_ERROR'.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
ENDCLASS.
|
||||||
|
|
@ -3,14 +3,13 @@
|
||||||
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||||
<asx:values>
|
<asx:values>
|
||||||
<VSEOCLASS>
|
<VSEOCLASS>
|
||||||
<CLSNAME>Z2UI5_CL_CORE_HTTP_GET</CLSNAME>
|
<CLSNAME>Z2UI5_CL_ABAP_API_HTTP</CLSNAME>
|
||||||
<LANGU>E</LANGU>
|
<LANGU>E</LANGU>
|
||||||
<DESCRIPT>abap2UI5 - http get handler</DESCRIPT>
|
<DESCRIPT>http server</DESCRIPT>
|
||||||
<STATE>1</STATE>
|
<STATE>1</STATE>
|
||||||
<CLSCCINCL>X</CLSCCINCL>
|
<CLSCCINCL>X</CLSCCINCL>
|
||||||
<FIXPT>X</FIXPT>
|
<FIXPT>X</FIXPT>
|
||||||
<UNICODE>X</UNICODE>
|
<UNICODE>X</UNICODE>
|
||||||
<WITH_UNIT_TESTS>X</WITH_UNIT_TESTS>
|
|
||||||
</VSEOCLASS>
|
</VSEOCLASS>
|
||||||
</asx:values>
|
</asx:values>
|
||||||
</asx:abap>
|
</asx:abap>
|
||||||
|
|
@ -1,188 +0,0 @@
|
||||||
CLASS z2ui5_cl_core_http_get DEFINITION
|
|
||||||
PUBLIC
|
|
||||||
FINAL
|
|
||||||
CREATE PUBLIC .
|
|
||||||
|
|
||||||
PUBLIC SECTION.
|
|
||||||
|
|
||||||
DATA ms_request TYPE z2ui5_if_types=>ty_s_http_request_get.
|
|
||||||
|
|
||||||
METHODS constructor
|
|
||||||
IMPORTING
|
|
||||||
val TYPE z2ui5_if_types=>ty_s_http_request_get OPTIONAL.
|
|
||||||
|
|
||||||
METHODS main
|
|
||||||
RETURNING
|
|
||||||
VALUE(result) TYPE string.
|
|
||||||
|
|
||||||
METHODS get_js_cc_startup
|
|
||||||
RETURNING
|
|
||||||
VALUE(result) TYPE string.
|
|
||||||
|
|
||||||
PROTECTED SECTION.
|
|
||||||
|
|
||||||
METHODS get_default_config
|
|
||||||
RETURNING
|
|
||||||
VALUE(result) TYPE z2ui5_if_types=>ty_s_http_request_get.
|
|
||||||
|
|
||||||
METHODS main_get_config
|
|
||||||
RETURNING
|
|
||||||
VALUE(result) TYPE z2ui5_if_types=>ty_s_http_request_get.
|
|
||||||
|
|
||||||
METHODS main_get_index_html
|
|
||||||
IMPORTING
|
|
||||||
cs_config TYPE z2ui5_if_types=>ty_s_http_request_get
|
|
||||||
RETURNING
|
|
||||||
VALUE(result) TYPE string.
|
|
||||||
|
|
||||||
|
|
||||||
PRIVATE SECTION.
|
|
||||||
ENDCLASS.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS z2ui5_cl_core_http_get IMPLEMENTATION.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD constructor.
|
|
||||||
|
|
||||||
ms_request = val.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_default_config.
|
|
||||||
|
|
||||||
DATA(lv_csp) = `<meta http-equiv="Content-Security-Policy" content="default-src 'self' 'unsafe-inline' 'unsafe-eval' data: ` &&
|
|
||||||
`ui5.sap.com *.ui5.sap.com sapui5.hana.ondemand.com *.sapui5.hana.ondemand.com openui5.hana.ondemand.com *.openui5.hana.ondemand.com ` &&
|
|
||||||
`sdk.openui5.org *.sdk.openui5.org cdn.jsdelivr.net *.cdn.jsdelivr.net cdnjs.cloudflare.com *.cdnjs.cloudflare.com schemas *.schemas"/>`.
|
|
||||||
|
|
||||||
result = VALUE #(
|
|
||||||
t_param = VALUE #(
|
|
||||||
( n = `TITLE` v = `abap2UI5` )
|
|
||||||
)
|
|
||||||
t_config = VALUE #(
|
|
||||||
* ( n = `src` v = `https://sdk.openui5.org/1.71.67/resources/sap-ui-core.js` )
|
|
||||||
( n = `src` v = `https://sdk.openui5.org/resources/sap-ui-cachebuster/sap-ui-core.js` )
|
|
||||||
* ( n = `src` v = `https://sdk.openui5.org/nightly/2/resources/sap-ui-core.js` )
|
|
||||||
( n = `data-sap-ui-theme` v = `sap_horizon` )
|
|
||||||
)
|
|
||||||
content_security_policy = lv_csp ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD get_js_cc_startup.
|
|
||||||
|
|
||||||
result = ` ` &&
|
|
||||||
z2ui5_cl_cc_timer=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_focus=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_title=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_lp_title=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_history=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_scrolling=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_info=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_geoloc=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_file_upl=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_multiinput=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_uitable=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_util=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_favicon=>get_js( ) &&
|
|
||||||
z2ui5_cl_cc_dirty=>get_js( ) &&
|
|
||||||
* z2ui5_cl_cc_debug_tool=>get_js( ) &&
|
|
||||||
` `.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD main_get_config.
|
|
||||||
|
|
||||||
result = get_default_config( ).
|
|
||||||
|
|
||||||
LOOP AT ms_request-t_param REFERENCE INTO DATA(lr_param).
|
|
||||||
TRY.
|
|
||||||
result-t_param[ n = lr_param->n ]-v = lr_param->v.
|
|
||||||
CATCH cx_root.
|
|
||||||
INSERT lr_param->* INTO TABLE result-t_param.
|
|
||||||
ENDTRY.
|
|
||||||
ENDLOOP.
|
|
||||||
|
|
||||||
LOOP AT ms_request-t_config REFERENCE INTO DATA(lr_option).
|
|
||||||
TRY.
|
|
||||||
result-t_config[ n = lr_option->n ]-v = lr_option->v.
|
|
||||||
CATCH cx_root.
|
|
||||||
INSERT lr_option->* INTO TABLE result-t_config.
|
|
||||||
ENDTRY.
|
|
||||||
ENDLOOP.
|
|
||||||
|
|
||||||
IF ms_request-content_security_policy IS NOT INITIAL.
|
|
||||||
result-content_security_policy = ms_request-content_security_policy.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
IF ms_request-custom_js IS NOT INITIAL.
|
|
||||||
result-custom_js = ms_request-custom_js.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD main_get_index_html.
|
|
||||||
|
|
||||||
|
|
||||||
DATA(lv_add_js) = get_js_cc_startup( ) && cs_config-custom_js.
|
|
||||||
|
|
||||||
result = `<!DOCTYPE html>` && |\n| &&
|
|
||||||
`<html lang="en">` && |\n| &&
|
|
||||||
`<head>` && |\n| &&
|
|
||||||
cs_config-content_security_policy && |\n| &&
|
|
||||||
` <meta charset="UTF-8">` && |\n| &&
|
|
||||||
` <meta name="viewport" content="width=device-width, initial-scale=1.0">` && |\n| &&
|
|
||||||
` <meta http-equiv="X-UA-Compatible" content="IE=edge">` && |\n| &&
|
|
||||||
| <title> { cs_config-t_param[ n = 'TITLE' ]-v }</title> \n| &&
|
|
||||||
| <style> html, body, body > div, #container, #container-uiarea \{\n| &
|
|
||||||
| height: 100%;\n| &
|
|
||||||
| \}</style> \n| &&
|
|
||||||
`<script>` && |\n| &&
|
|
||||||
` function onInitComponent(){` && |\n| &&
|
|
||||||
` sap.ui.require.preload({` && |\n| &&
|
|
||||||
` "z2ui5/manifest.json": '` && NEW z2ui5_cl_core_ui5_app( )->manifest_json( ) && ` ',` && |\n| &&
|
|
||||||
` "z2ui5/Component.js": function(){` && NEW z2ui5_cl_core_ui5_app( )->component_js( ) && lv_add_js && ` },` && |\n| &&
|
|
||||||
` "z2ui5/css/style.css": function(){` && NEW z2ui5_cl_core_ui5_app( )->css_style_css( ) && `},` && |\n| &&
|
|
||||||
` "z2ui5/model/models.js": function(){` && NEW z2ui5_cl_core_ui5_app( )->model_models_js( ) && `},` && |\n| &&
|
|
||||||
` "z2ui5/i18n/i18n.properties": '` && NEW z2ui5_cl_core_ui5_app( )->i18n_i18n_properties( ) && `' ,` && |\n| &&
|
|
||||||
` "z2ui5/view/App.view.xml": '` && NEW z2ui5_cl_core_ui5_app( )->view_app_xml( ) && `' ,` && |\n| &&
|
|
||||||
` "z2ui5/controller/App.controller.js": function(){` && NEW z2ui5_cl_core_ui5_app( )->controller_app_js( ) && `},` && |\n| &&
|
|
||||||
` "z2ui5/view/View1.view.xml": '` && NEW z2ui5_cl_core_ui5_app( )->view_view1_xml( ) && `' ,` && |\n| &&
|
|
||||||
` "z2ui5/controller/View1.controller.js": function(){` && NEW z2ui5_cl_core_ui5_app( )->controller_view1_js( ) && `},` && |\n| &&
|
|
||||||
` "z2ui5/cc/DebugTool.fragment.xml": '` && z2ui5_cl_cc_debug_tool=>get_xml( ) && `' ,` && |\n| &&
|
|
||||||
` "z2ui5/cc/DebugTool.js": function(){` && z2ui5_cl_cc_debug_tool=>get_js( ) && `},` && |\n| &&
|
|
||||||
` });` && |\n| &&
|
|
||||||
` sap.ui.require(["sap/ui/core/ComponentSupport"], function(ComponentSupport){` && |\n| &&
|
|
||||||
` ComponentSupport.run();` && |\n| &&
|
|
||||||
` });` && |\n| &&
|
|
||||||
` }` && |\n| &&
|
|
||||||
`</script>` && |\n| &&
|
|
||||||
`<script id="sap-ui-bootstrap" data-sap-ui-resourceroots='{ "z2ui5": "./" }' data-sap-ui-oninit="onInitComponent" ` && |\n| &&
|
|
||||||
`data-sap-ui-compatVersion="edge" data-sap-ui-async="true" data-sap-ui-frameOptions="trusted" data-sap-ui-bindingSyntax="complex"`.
|
|
||||||
|
|
||||||
LOOP AT cs_config-t_config REFERENCE INTO DATA(lr_config).
|
|
||||||
result = result && | { lr_config->n }='{ lr_config->v }'|.
|
|
||||||
ENDLOOP.
|
|
||||||
|
|
||||||
result = result &&
|
|
||||||
` ></script></head>` && |\n| &&
|
|
||||||
`<body class="sapUiBody sapUiSizeCompact" id="content">` && |\n| &&
|
|
||||||
` <div data-sap-ui-component data-name="z2ui5" data-id="container" data-settings='{"id" : "z2ui5"}' data-handle-validation="true"></div>` && |\n| &&
|
|
||||||
` </body></html>`.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD main.
|
|
||||||
|
|
||||||
DATA(ls_config) = main_get_config( ).
|
|
||||||
result = main_get_index_html( ls_config ).
|
|
||||||
NEW z2ui5_cl_core_draft_srv( )->cleanup( ).
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
ENDCLASS.
|
|
||||||
|
|
@ -1,136 +0,0 @@
|
||||||
CLASS ltcl_test_http_get DEFINITION FINAL FOR TESTING
|
|
||||||
DURATION MEDIUM
|
|
||||||
RISK LEVEL HARMLESS.
|
|
||||||
|
|
||||||
PUBLIC SECTION.
|
|
||||||
PROTECTED SECTION.
|
|
||||||
|
|
||||||
PRIVATE SECTION.
|
|
||||||
METHODS file_not_initial FOR TESTING RAISING cx_static_check.
|
|
||||||
METHODS launchpad_compatibility FOR TESTING RAISING cx_static_check.
|
|
||||||
METHODS js_no_debugger FOR TESTING RAISING cx_static_check.
|
|
||||||
METHODS js_no_sap_ui_get_core FOR TESTING RAISING cx_static_check.
|
|
||||||
METHODS js_no_window FOR TESTING RAISING cx_static_check.
|
|
||||||
METHODS js_no_document FOR TESTING RAISING cx_static_check.
|
|
||||||
METHODS js_2x_compatibility FOR TESTING RAISING cx_static_check.
|
|
||||||
METHODS bootstrap_with_open_ui5 FOR TESTING RAISING cx_static_check.
|
|
||||||
METHODS js_no_jquery FOR TESTING RAISING cx_static_check.
|
|
||||||
METHODS debugging_tools FOR TESTING RAISING cx_static_check.
|
|
||||||
ENDCLASS.
|
|
||||||
|
|
||||||
CLASS z2ui5_cl_core_http_get DEFINITION LOCAL FRIENDS ltcl_test_http_get.
|
|
||||||
|
|
||||||
CLASS ltcl_test_http_get IMPLEMENTATION.
|
|
||||||
|
|
||||||
METHOD file_not_initial.
|
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( ).
|
|
||||||
DATA(lv_index_html) = lo_get->main( ).
|
|
||||||
IF lv_index_html IS INITIAL.
|
|
||||||
cl_abap_unit_assert=>fail( 'HTTP GET - index html initial' ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD launchpad_compatibility.
|
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( ).
|
|
||||||
DATA(lv_index_html) = lo_get->main( ).
|
|
||||||
IF lv_index_html CS ` && `.
|
|
||||||
cl_abap_unit_assert=>fail( 'index.html contains the character & -> no launchpad compatibility' ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD js_no_debugger.
|
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( ).
|
|
||||||
DATA(lv_index_html) = to_upper( lo_get->main( ) ).
|
|
||||||
IF lv_index_html CS `DEBUGGER`.
|
|
||||||
cl_abap_unit_assert=>fail( 'debugger command not allowed' ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD js_no_sap_ui_get_core.
|
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( ).
|
|
||||||
DATA(lv_index_html) = to_upper( lo_get->main( ) ) ##NEEDED.
|
|
||||||
* IF lv_index_html CS `SAP.UI.GETCORE`.
|
|
||||||
* cl_abap_unit_assert=>fail( 'sap.ui.get.core not allowed' ).
|
|
||||||
* ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
|
|
||||||
METHOD js_2x_compatibility.
|
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( ).
|
|
||||||
DATA(lv_index_html) = to_upper( lo_get->main( ) ) ##NEEDED.
|
|
||||||
IF lv_index_html CS `SAP.UI.GETVERSIONINFO`.
|
|
||||||
cl_abap_unit_assert=>fail( 'SAP.UI.GETVERSIONINFO not allowed' ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD js_no_jquery.
|
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( ).
|
|
||||||
DATA(lv_index_html) = to_upper( lo_get->main( ) ).
|
|
||||||
IF lv_index_html CS `JQUERY`.
|
|
||||||
cl_abap_unit_assert=>fail( 'use of jquery not allowed' ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD js_no_window.
|
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( ).
|
|
||||||
DATA(lv_index_html) = to_upper( lo_get->main( ) ) ##NEEDED.
|
|
||||||
* IF lv_index_html CS `WINDOW.`.
|
|
||||||
* cl_abap_unit_assert=>fail( 'use of window not allowed' ).
|
|
||||||
* ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD js_no_document.
|
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( ).
|
|
||||||
DATA(lv_index_html) = to_upper( lo_get->main( ) ) ##NEEDED.
|
|
||||||
* IF lv_index_html CS `DOCUMENT.`.
|
|
||||||
* cl_abap_unit_assert=>fail( 'use of document not allowed' ).
|
|
||||||
* ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD bootstrap_with_open_ui5.
|
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( ).
|
|
||||||
DATA(lv_index_html) = to_upper( lo_get->main( ) ) ##NEEDED.
|
|
||||||
DATA(lv_check) = xsdbool( lv_index_html CS `HTTPS://SDK.OPENUI5.ORG/RESOURCES` ).
|
|
||||||
IF lv_check = abap_false.
|
|
||||||
cl_abap_unit_assert=>fail( 'no bootstrap with openUI5' ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
lv_check = xsdbool( lv_index_html CS `NIGHTLY` ).
|
|
||||||
IF lv_check = abap_true.
|
|
||||||
cl_abap_unit_assert=>fail( 'no bootstrap with nightly version' ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD debugging_tools.
|
|
||||||
|
|
||||||
DATA(lv_index_html) = to_upper( z2ui5_cl_cc_debug_tool=>get_js( ) ) ##NEEDED.
|
|
||||||
IF lv_index_html CS `<`.
|
|
||||||
cl_abap_unit_assert=>fail( 'use of < not allowed - launchpad compatibility' ).
|
|
||||||
ENDIF.
|
|
||||||
IF lv_index_html CS `/>`.
|
|
||||||
cl_abap_unit_assert=>fail( 'use of /> not allowed - launchpad compatibility' ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
ENDCLASS.
|
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -1,36 +1,71 @@
|
||||||
CLASS z2ui5_cl_http_handler DEFINITION
|
CLASS z2ui5_cl_http_handler DEFINITION
|
||||||
PUBLIC
|
PUBLIC
|
||||||
CREATE PUBLIC.
|
CREATE PROTECTED.
|
||||||
|
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
|
|
||||||
CLASS-DATA so_sticky_handler TYPE REF TO z2ui5_cl_core_http_post.
|
CLASS-METHODS factory_cloud
|
||||||
|
|
||||||
CLASS-METHODS main
|
|
||||||
IMPORTING
|
IMPORTING
|
||||||
body TYPE string
|
req TYPE REF TO object
|
||||||
config TYPE z2ui5_if_types=>ty_s_http_request_get OPTIONAL
|
res TYPE REF TO object
|
||||||
EXPORTING
|
|
||||||
attributes TYPE z2ui5_if_types=>ty_s_http_handler_attributes
|
|
||||||
RETURNING
|
RETURNING
|
||||||
VALUE(result) TYPE string.
|
VALUE(result) TYPE REF TO z2ui5_cl_http_handler.
|
||||||
|
|
||||||
CLASS-METHODS http_post
|
CLASS-METHODS factory
|
||||||
IMPORTING
|
IMPORTING
|
||||||
val TYPE string
|
server TYPE REF TO object
|
||||||
EXPORTING
|
|
||||||
attributes TYPE z2ui5_if_types=>ty_s_http_handler_attributes
|
|
||||||
RETURNING
|
RETURNING
|
||||||
VALUE(result) TYPE string.
|
VALUE(result) TYPE REF TO z2ui5_cl_http_handler.
|
||||||
|
|
||||||
CLASS-METHODS http_get
|
METHODS main
|
||||||
IMPORTING
|
IMPORTING
|
||||||
val TYPE z2ui5_if_types=>ty_s_http_request_get OPTIONAL
|
s_config TYPE z2ui5_if_types=>ty_s_http_config OPTIONAL.
|
||||||
RETURNING
|
|
||||||
VALUE(result) TYPE string.
|
|
||||||
|
|
||||||
PROTECTED SECTION.
|
PROTECTED SECTION.
|
||||||
|
|
||||||
|
CLASS-DATA so_sticky_handler TYPE REF TO z2ui5_cl_core_http_post.
|
||||||
|
DATA mo_server TYPE REF TO z2ui5_cl_abap_api_http.
|
||||||
|
DATA ms_session_attributes TYPE z2ui5_if_types=>ty_s_http_handler_attributes.
|
||||||
|
|
||||||
|
TYPES:
|
||||||
|
BEGIN OF ty_s_http_req,
|
||||||
|
method TYPE string,
|
||||||
|
body TYPE string,
|
||||||
|
END OF ty_s_http_req.
|
||||||
|
|
||||||
|
TYPES:
|
||||||
|
BEGIN OF ty_s_http_res,
|
||||||
|
body TYPE string,
|
||||||
|
status_code TYPE i,
|
||||||
|
status_reason TYPE string,
|
||||||
|
t_header TYPE z2ui5_if_types=>ty_t_name_value,
|
||||||
|
END OF ty_s_http_res.
|
||||||
|
|
||||||
|
DATA ms_req TYPE ty_s_http_req.
|
||||||
|
DATA ms_res TYPE ty_s_http_res.
|
||||||
|
DATA ms_config TYPE z2ui5_if_types=>ty_s_http_config.
|
||||||
|
|
||||||
|
METHODS get_js_cc_startup
|
||||||
|
RETURNING
|
||||||
|
VALUE(result) TYPE string.
|
||||||
|
|
||||||
|
METHODS set_config
|
||||||
|
IMPORTING
|
||||||
|
is_custom_config TYPE z2ui5_if_types=>ty_s_http_config.
|
||||||
|
|
||||||
|
METHODS http_get
|
||||||
|
IMPORTING
|
||||||
|
is_custom_config TYPE z2ui5_if_types=>ty_s_http_config.
|
||||||
|
|
||||||
|
METHODS http_post.
|
||||||
|
|
||||||
|
METHODS session_handling
|
||||||
|
IMPORTING
|
||||||
|
attributes TYPE z2ui5_if_types=>ty_s_http_handler_attributes.
|
||||||
|
|
||||||
PRIVATE SECTION.
|
PRIVATE SECTION.
|
||||||
|
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -38,48 +73,120 @@ ENDCLASS.
|
||||||
CLASS z2ui5_cl_http_handler IMPLEMENTATION.
|
CLASS z2ui5_cl_http_handler IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD set_config.
|
||||||
|
|
||||||
|
ms_config = is_custom_config.
|
||||||
|
|
||||||
|
IF ms_config-title IS INITIAL.
|
||||||
|
ms_config-title = `abap2UI5`.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
IF ms_config-theme IS INITIAL.
|
||||||
|
ms_config-theme = `sap_horizon`.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
IF ms_config-src IS INITIAL.
|
||||||
|
ms_config-src = `https://sdk.openui5.org/resources/sap-ui-cachebuster/sap-ui-core.js`.
|
||||||
|
* ms_req_config-src = `https://sdk.openui5.org/1.71.67/resources/sap-ui-core.js`.
|
||||||
|
* ms_req_config-src = `https://sdk.openui5.org/nightly/2/resources/sap-ui-core.js`.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
IF ms_config-content_security_policy IS INITIAL.
|
||||||
|
ms_config-content_security_policy = `<meta http-equiv="Content-Security-Policy" content="default-src 'self' 'unsafe-inline' 'unsafe-eval' data: ` &&
|
||||||
|
`ui5.sap.com *.ui5.sap.com sapui5.hana.ondemand.com *.sapui5.hana.ondemand.com openui5.hana.ondemand.com *.openui5.hana.ondemand.com ` &&
|
||||||
|
`sdk.openui5.org *.sdk.openui5.org cdn.jsdelivr.net *.cdn.jsdelivr.net cdnjs.cloudflare.com *.cdnjs.cloudflare.com schemas *.schemas"/>`.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ms_config-custom_js = ms_config-custom_js && get_js_cc_startup( ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD get_js_cc_startup.
|
||||||
|
|
||||||
|
result = ` ` &&
|
||||||
|
z2ui5_cl_cc_timer=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_focus=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_title=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_lp_title=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_history=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_scrolling=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_info=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_geoloc=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_file_upl=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_multiinput=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_uitable=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_util=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_favicon=>get_js( ) &&
|
||||||
|
z2ui5_cl_cc_dirty=>get_js( ) &&
|
||||||
|
` `.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD main.
|
||||||
|
|
||||||
|
ms_req-body = mo_server->get_cdata( ).
|
||||||
|
ms_req-method = mo_server->get_method( ).
|
||||||
|
|
||||||
|
CASE ms_req-method.
|
||||||
|
WHEN `GET`.
|
||||||
|
http_get( s_config ).
|
||||||
|
WHEN `POST`.
|
||||||
|
http_post( ).
|
||||||
|
WHEN `HEAD`.
|
||||||
|
mo_server->set_session_stateful( 0 ).
|
||||||
|
RETURN.
|
||||||
|
ENDCASE.
|
||||||
|
|
||||||
|
mo_server->set_cdata( ms_res-body ).
|
||||||
|
mo_server->set_header_field( n = `cache-control` v = `no-cache` ).
|
||||||
|
mo_server->set_status( code = 200 reason = `success` ).
|
||||||
|
|
||||||
|
session_handling( ms_session_attributes ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD factory.
|
||||||
|
|
||||||
|
result = NEW #( ).
|
||||||
|
result->mo_server = z2ui5_cl_abap_api_http=>factory( server ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
METHOD factory_cloud.
|
||||||
|
|
||||||
|
result = NEW #( ).
|
||||||
|
result->mo_server = z2ui5_cl_abap_api_http=>factory_cloud(
|
||||||
|
req = req
|
||||||
|
res = res ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
METHOD http_get.
|
METHOD http_get.
|
||||||
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( val ).
|
set_config( is_custom_config ).
|
||||||
result = lo_get->main( ).
|
|
||||||
|
DATA(lo_app) = NEW z2ui5_cl_core_ui5_app( ).
|
||||||
|
ms_res-body = lo_app->index_html( ms_config ).
|
||||||
|
|
||||||
|
NEW z2ui5_cl_core_draft_srv( )->cleanup( ).
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD http_post.
|
METHOD http_post.
|
||||||
CLEAR attributes.
|
|
||||||
|
|
||||||
IF so_sticky_handler IS NOT BOUND.
|
IF so_sticky_handler IS NOT BOUND.
|
||||||
DATA(lo_post) = NEW z2ui5_cl_core_http_post( val ).
|
DATA(lo_post) = NEW z2ui5_cl_core_http_post( ms_req-body ).
|
||||||
ELSE.
|
ELSE.
|
||||||
so_sticky_handler = lo_post.
|
lo_post = so_sticky_handler.
|
||||||
|
lo_post->mv_request_json = ms_req-body.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
result = lo_post->main(
|
|
||||||
|
ms_res-body = lo_post->main(
|
||||||
IMPORTING
|
IMPORTING
|
||||||
attributes = attributes ).
|
attributes = ms_session_attributes ).
|
||||||
|
|
||||||
so_sticky_handler = lo_post.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
METHOD main.
|
|
||||||
CLEAR attributes.
|
|
||||||
|
|
||||||
IF body IS INITIAL.
|
|
||||||
DATA(lo_get) = NEW z2ui5_cl_core_http_get( config ).
|
|
||||||
result = lo_get->main( ).
|
|
||||||
ELSE.
|
|
||||||
IF so_sticky_handler IS NOT BOUND.
|
|
||||||
DATA(lo_post) = NEW z2ui5_cl_core_http_post( body ).
|
|
||||||
ELSE.
|
|
||||||
lo_post = so_sticky_handler.
|
|
||||||
lo_post->mv_request_json = body.
|
|
||||||
ENDIF.
|
|
||||||
* DATA(lo_post) = NEW z2ui5_cl_core_http_post( body ).
|
|
||||||
result = lo_post->main(
|
|
||||||
IMPORTING
|
|
||||||
attributes = attributes ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
TRY.
|
TRY.
|
||||||
IF lo_post IS BOUND.
|
IF lo_post IS BOUND.
|
||||||
|
|
@ -89,11 +196,42 @@ CLASS z2ui5_cl_http_handler IMPLEMENTATION.
|
||||||
ELSE.
|
ELSE.
|
||||||
CLEAR so_sticky_handler.
|
CLEAR so_sticky_handler.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
ENDIF.
|
ENDIF.
|
||||||
CATCH cx_root.
|
CATCH cx_root.
|
||||||
ENDTRY.
|
ENDTRY.
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD session_handling.
|
||||||
|
|
||||||
|
"transform cookie to header based contextid handling
|
||||||
|
IF attributes-stateful-switched = abap_true.
|
||||||
|
* server->set_session_stateful( stateful = attributes-stateful-active ).
|
||||||
|
mo_server->set_session_stateful( attributes-stateful-active ).
|
||||||
|
IF mo_server->get_header_field( 'sap-contextid-accept' ) = 'header'.
|
||||||
|
* server->response->get_cookie(
|
||||||
|
* EXPORTING
|
||||||
|
* name = 'sap-contextid'
|
||||||
|
* IMPORTING
|
||||||
|
* value = DATA(lv_contextid) ).
|
||||||
|
DATA(lv_contextid) = mo_server->get_response_cookie( 'sap-contextid' ).
|
||||||
|
IF lv_contextid IS NOT INITIAL.
|
||||||
|
* server->response->delete_cookie( 'sap-contextid' ).
|
||||||
|
mo_server->delete_response_cookie( 'sap-contextid' ).
|
||||||
|
* server->response->set_header_field( name = 'sap-contextid' value = lv_contextid ).
|
||||||
|
mo_server->set_header_field( n = 'sap-contextid' v = lv_contextid ).
|
||||||
|
ENDIF.
|
||||||
|
ENDIF.
|
||||||
|
ELSE.
|
||||||
|
* lv_contextid = server->request->get_header_field( 'sap-contextid' ).
|
||||||
|
lv_contextid = mo_server->get_header_field( 'sap-contextid' ).
|
||||||
|
IF lv_contextid IS NOT INITIAL.
|
||||||
|
* server->response->set_header_field( name = 'sap-contextid' value = lv_contextid ).
|
||||||
|
mo_server->set_header_field( n = 'sap-contextid' v = lv_contextid ).
|
||||||
|
ENDIF.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
||||||
|
|
@ -1,25 +0,0 @@
|
||||||
CLASS ltcl_unit_test DEFINITION FINAL FOR TESTING
|
|
||||||
DURATION MEDIUM
|
|
||||||
RISK LEVEL HARMLESS.
|
|
||||||
|
|
||||||
PUBLIC SECTION.
|
|
||||||
PROTECTED SECTION.
|
|
||||||
|
|
||||||
PRIVATE SECTION.
|
|
||||||
METHODS test_get FOR TESTING RAISING cx_static_check.
|
|
||||||
|
|
||||||
ENDCLASS.
|
|
||||||
|
|
||||||
|
|
||||||
CLASS ltcl_unit_test IMPLEMENTATION.
|
|
||||||
|
|
||||||
METHOD test_get.
|
|
||||||
|
|
||||||
DATA(lv_resp) = z2ui5_cl_http_handler=>main( `` ).
|
|
||||||
IF lv_resp IS INITIAL.
|
|
||||||
cl_abap_unit_assert=>fail( 'HTTP GET' ).
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ENDMETHOD.
|
|
||||||
|
|
||||||
ENDCLASS.
|
|
||||||
|
|
@ -5,12 +5,11 @@
|
||||||
<VSEOCLASS>
|
<VSEOCLASS>
|
||||||
<CLSNAME>Z2UI5_CL_HTTP_HANDLER</CLSNAME>
|
<CLSNAME>Z2UI5_CL_HTTP_HANDLER</CLSNAME>
|
||||||
<LANGU>E</LANGU>
|
<LANGU>E</LANGU>
|
||||||
<DESCRIPT>abap2UI5 - http handler</DESCRIPT>
|
<DESCRIPT>abap2UI5 - http get handler</DESCRIPT>
|
||||||
<STATE>1</STATE>
|
<STATE>1</STATE>
|
||||||
<CLSCCINCL>X</CLSCCINCL>
|
<CLSCCINCL>X</CLSCCINCL>
|
||||||
<FIXPT>X</FIXPT>
|
<FIXPT>X</FIXPT>
|
||||||
<UNICODE>X</UNICODE>
|
<UNICODE>X</UNICODE>
|
||||||
<WITH_UNIT_TESTS>X</WITH_UNIT_TESTS>
|
|
||||||
</VSEOCLASS>
|
</VSEOCLASS>
|
||||||
</asx:values>
|
</asx:values>
|
||||||
</asx:abap>
|
</asx:abap>
|
||||||
|
|
|
||||||
|
|
@ -9,12 +9,15 @@ INTERFACE z2ui5_if_types
|
||||||
TYPES ty_t_name_value TYPE STANDARD TABLE OF ty_s_name_value WITH EMPTY KEY.
|
TYPES ty_t_name_value TYPE STANDARD TABLE OF ty_s_name_value WITH EMPTY KEY.
|
||||||
|
|
||||||
TYPES:
|
TYPES:
|
||||||
BEGIN OF ty_s_http_request_get,
|
BEGIN OF ty_s_http_config,
|
||||||
t_config TYPE ty_t_name_value,
|
src TYPE string,
|
||||||
|
theme TYPE string,
|
||||||
content_security_policy TYPE string,
|
content_security_policy TYPE string,
|
||||||
|
styles_css TYPE string,
|
||||||
|
title TYPE string,
|
||||||
|
t_add_config TYPE ty_t_name_value,
|
||||||
custom_js TYPE string,
|
custom_js TYPE string,
|
||||||
t_param TYPE ty_t_name_value,
|
END OF ty_s_http_config.
|
||||||
END OF ty_s_http_request_get.
|
|
||||||
|
|
||||||
TYPES:
|
TYPES:
|
||||||
BEGIN OF ty_s_http_handler_attributes,
|
BEGIN OF ty_s_http_handler_attributes,
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user