mirror of
https://github.com/abap2UI5/abap2UI5.git
synced 2025-04-30 04:52:30 +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
33 lines
905 B
ABAP
33 lines
905 B
ABAP
CLASS zcl_my_handler_onprem DEFINITION
|
|
PUBLIC
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
INTERFACES if_http_extension.
|
|
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS zcl_my_handler_onprem IMPLEMENTATION.
|
|
|
|
METHOD if_http_extension~handle_request.
|
|
|
|
DATA lt_header TYPE tihttpnvp.
|
|
server->request->get_header_fields( CHANGING fields = lt_header ).
|
|
|
|
DATA(lv_resp) = SWITCH #( server->request->get_method( )
|
|
WHEN 'GET' THEN z2ui5_cl_http_handler=>http_get( )
|
|
WHEN 'POST' THEN z2ui5_cl_http_handler=>http_post(
|
|
body = server->request->get_cdata( )
|
|
path_info = lt_header[ name = `~path_info` ]-value ) ).
|
|
|
|
server->response->set_header_field( name = `cache-control` value = `no-cache` ).
|
|
server->response->set_cdata( lv_resp ).
|
|
server->response->set_status( code = 200 reason = `success` ).
|
|
|
|
ENDMETHOD.
|
|
|
|
ENDCLASS.
|