SAP/abap2UI5
1
0
Fork 0
mirror of https://github.com/abap2UI5/abap2UI5.git synced 2025-04-30 00:32:19 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Demos and Security Policy (#225)

Browse Source 
* demos

* security policy added
This commit is contained in:
oblomov 2023-05-14 22:18:37 +02:00
parent 4e79716a55
commit 839db53f1f
2 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/00/z2ui5_cl_app_demo_48.clas.abap
View File

@ -64,6 +64,9 @@ CLASS z2ui5_cl_app_demo_48 IMPLEMENTATION.
navbuttonpress = client->_event( 'BACK' ) navbuttonpress = client->_event( 'BACK' )
shownavbutton = abap_true shownavbutton = abap_true
)->header_content( )->header_content(
)->link(
text = 'Demo' target = '_blank'
href = `https://twitter.com/OblomovDev/status/1657279838586109953`
)->link( )->link(
text = 'Source_Code' target = '_blank' text = 'Source_Code' target = '_blank'
href = z2ui5_cl_xml_view=>hlp_get_source_code_url( app = me get = client->get( ) ) href = z2ui5_cl_xml_view=>hlp_get_source_code_url( app = me get = client->get( ) )

19
src/z2ui5_cl_http_handler.clas.abap
View File

@ -19,11 +19,12 @@ CLASS z2ui5_cl_http_handler DEFINITION
CLASS-METHODS http_get CLASS-METHODS http_get
IMPORTING IMPORTING
title TYPE clike DEFAULT `abap2UI5` title TYPE clike DEFAULT `abap2UI5`
t_config TYPE z2ui5_if_client=>ty_t_name_value OPTIONAL t_config TYPE z2ui5_if_client=>ty_t_name_value OPTIONAL
check_logging TYPE abap_bool DEFAULT abap_false content_security_policy TYPE clike OPTIONAL
check_logging TYPE abap_bool DEFAULT abap_false
RETURNING RETURNING
VALUE(r_result) TYPE string ##NEEDED. VALUE(r_result) TYPE string.
CLASS-METHODS http_post CLASS-METHODS http_post
RETURNING RETURNING
@ -36,7 +37,7 @@ ENDCLASS.
CLASS Z2UI5_CL_HTTP_HANDLER IMPLEMENTATION. CLASS z2ui5_cl_http_handler IMPLEMENTATION.
METHOD http_post. METHOD http_post.
@ -75,6 +76,7 @@ CLASS Z2UI5_CL_HTTP_HANDLER IMPLEMENTATION.
METHOD http_get. METHOD http_get.
DATA(lt_Config) = t_config. DATA(lt_Config) = t_config.
IF lt_config IS INITIAL. IF lt_config IS INITIAL.
lt_config = VALUE #( lt_config = VALUE #(
( name = `data-sap-ui-theme` value = `sap_horizon` ) ( name = `data-sap-ui-theme` value = `sap_horizon` )
@ -86,12 +88,19 @@ CLASS Z2UI5_CL_HTTP_HANDLER IMPLEMENTATION.
). ).
ENDIF. ENDIF.
IF content_security_policy IS NOT SUPPLIED.
DATA(lv_sec_policy) = `<meta http-equiv="Content-Security-Policy" content="default-src 'self' 'unsafe-inline' 'unsafe-eval' ui5.sap.com *.ui5.sap.com sdk.openui5.org *.sdk.openui5.org cdn.jsdelivr.net *.cdn.jsdelivr.net"/>`.
ELSE.
lv_sec_policy = content_security_policy.
ENDIF.
DATA(lv_url) = z2ui5_lcl_utility=>get_header_val( '~path' ). DATA(lv_url) = z2ui5_lcl_utility=>get_header_val( '~path' ).
DATA(lv_app) = z2ui5_lcl_utility=>get_param_val( 'app' ). DATA(lv_app) = z2ui5_lcl_utility=>get_param_val( 'app' ).
z2ui5_lcl_fw_db=>cleanup( ). z2ui5_lcl_fw_db=>cleanup( ).
r_result = `<html>` && |\n| && r_result = `<html>` && |\n| &&
`<head>` && |\n| && `<head>` && |\n| &&
lv_sec_policy && |\n| &&
` <meta charset="UTF-8">` && |\n| && ` <meta charset="UTF-8">` && |\n| &&
` <meta name="viewport" content="width=device-width, initial-scale=1.0">` && |\n| && ` <meta name="viewport" content="width=device-width, initial-scale=1.0">` && |\n| &&
` <meta http-equiv="X-UA-Compatible" content="IE=edge">` && |\n| && ` <meta http-equiv="X-UA-Compatible" content="IE=edge">` && |\n| &&