mirror of
https://github.com/abap2UI5/abap2UI5.git
synced 2025-04-29 22:04:38 +08:00
db189112e8
* Create faq.md * Create installation.md * Create first_app.md * update * Rename installation.md to installation_on_prem.md * docu * docu * docu * docs * docu * docu * refactoring * abaplint fix * Update abaplint.jsonc * Update abaplint.jsonc * docu * docu * Update zcl_my_handler_onprem.abap * Update links.md * Update README.md * Update README.md * github actions
31 lines
769 B
ABAP
31 lines
769 B
ABAP
CLASS zcl_my_handler_cloud DEFINITION
|
|
PUBLIC
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
INTERFACES if_http_service_extension.
|
|
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_my_handler_cloud IMPLEMENTATION.
|
|
|
|
METHOD if_http_service_extension~handle_request.
|
|
|
|
DATA(lt_tab) = request->get_header_fields( ).
|
|
|
|
DATA(lv_resp) = SWITCH #( request->get_method( )
|
|
WHEN 'GET' THEN z2ui5_cl_http_handler=>http_get( )
|
|
WHEN 'POST' THEN z2ui5_cl_http_handler=>http_post(
|
|
body = request->get_text( )
|
|
path_info = lt_tab[ name = `~path_info` ]-value ) ).
|
|
|
|
response->set_header_field( i_name = 'cache-control' i_value = 'no-cache' ).
|
|
response->set_status( 200 )->set_text( lv_resp ).
|
|
|
|
ENDMETHOD.
|
|
|
|
ENDCLASS. |