From 839db53f1fc5b1558c81a89fd53bafe3af390aee Mon Sep 17 00:00:00 2001
From: oblomov <102328295+oblomov-dev@users.noreply.github.com>
Date: Sun, 14 May 2023 22:18:37 +0200
Subject: [PATCH] Demos and Security Policy (#225)
* demos
* security policy added
---
src/00/z2ui5_cl_app_demo_48.clas.abap | 3 +++
src/z2ui5_cl_http_handler.clas.abap | 19 ++++++++++++++-----
2 files changed, 17 insertions(+), 5 deletions(-)
diff --git a/src/00/z2ui5_cl_app_demo_48.clas.abap b/src/00/z2ui5_cl_app_demo_48.clas.abap
index ae6be07b..8ab79968 100644
--- a/src/00/z2ui5_cl_app_demo_48.clas.abap
+++ b/src/00/z2ui5_cl_app_demo_48.clas.abap
@@ -64,6 +64,9 @@ CLASS z2ui5_cl_app_demo_48 IMPLEMENTATION.
navbuttonpress = client->_event( 'BACK' )
shownavbutton = abap_true
)->header_content(
+ )->link(
+ text = 'Demo' target = '_blank'
+ href = `https://twitter.com/OblomovDev/status/1657279838586109953`
)->link(
text = 'Source_Code' target = '_blank'
href = z2ui5_cl_xml_view=>hlp_get_source_code_url( app = me get = client->get( ) )
diff --git a/src/z2ui5_cl_http_handler.clas.abap b/src/z2ui5_cl_http_handler.clas.abap
index 5ad31812..711533e5 100644
--- a/src/z2ui5_cl_http_handler.clas.abap
+++ b/src/z2ui5_cl_http_handler.clas.abap
@@ -19,11 +19,12 @@ CLASS z2ui5_cl_http_handler DEFINITION
CLASS-METHODS http_get
IMPORTING
- title TYPE clike DEFAULT `abap2UI5`
- t_config TYPE z2ui5_if_client=>ty_t_name_value OPTIONAL
- check_logging TYPE abap_bool DEFAULT abap_false
+ title TYPE clike DEFAULT `abap2UI5`
+ t_config TYPE z2ui5_if_client=>ty_t_name_value OPTIONAL
+ content_security_policy TYPE clike OPTIONAL
+ check_logging TYPE abap_bool DEFAULT abap_false
RETURNING
- VALUE(r_result) TYPE string ##NEEDED.
+ VALUE(r_result) TYPE string.
CLASS-METHODS http_post
RETURNING
@@ -36,7 +37,7 @@ ENDCLASS.
-CLASS Z2UI5_CL_HTTP_HANDLER IMPLEMENTATION.
+CLASS z2ui5_cl_http_handler IMPLEMENTATION.
METHOD http_post.
@@ -75,6 +76,7 @@ CLASS Z2UI5_CL_HTTP_HANDLER IMPLEMENTATION.
METHOD http_get.
DATA(lt_Config) = t_config.
+
IF lt_config IS INITIAL.
lt_config = VALUE #(
( name = `data-sap-ui-theme` value = `sap_horizon` )
@@ -86,12 +88,19 @@ CLASS Z2UI5_CL_HTTP_HANDLER IMPLEMENTATION.
).
ENDIF.
+ IF content_security_policy IS NOT SUPPLIED.
+ DATA(lv_sec_policy) = ``.
+ ELSE.
+ lv_sec_policy = content_security_policy.
+ ENDIF.
+
DATA(lv_url) = z2ui5_lcl_utility=>get_header_val( '~path' ).
DATA(lv_app) = z2ui5_lcl_utility=>get_param_val( 'app' ).
z2ui5_lcl_fw_db=>cleanup( ).
r_result = `` && |\n| &&
`` && |\n| &&
+ lv_sec_policy && |\n| &&
` ` && |\n| &&
` ` && |\n| &&
` ` && |\n| &&