abapGit/test/src/web/zcl_abapgit_web_sicf.clas.abap
2025-04-07 15:22:15 +02:00

57 lines
1.3 KiB
ABAP

CLASS zcl_abapgit_web_sicf DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES if_http_extension.
INTERFACES zif_abapgit_web_request.
INTERFACES zif_abapgit_web_response.
PROTECTED SECTION.
PRIVATE SECTION.
DATA mi_server TYPE REF TO if_http_server.
ENDCLASS.
CLASS zcl_abapgit_web_sicf IMPLEMENTATION.
METHOD zif_abapgit_web_request~get_header_field.
rv_value = mi_server->request->get_header_field( iv_name ).
ENDMETHOD.
METHOD zif_abapgit_web_request~get_method.
rv_method = mi_server->request->get_method( ).
ENDMETHOD.
METHOD zif_abapgit_web_request~get_cdata.
rv_data = mi_server->request->get_cdata( ).
ENDMETHOD.
METHOD zif_abapgit_web_response~set_content_type.
mi_server->response->set_content_type( iv_type ).
ENDMETHOD.
METHOD zif_abapgit_web_response~set_cdata.
mi_server->response->set_cdata( iv_data ).
ENDMETHOD.
METHOD zif_abapgit_web_response~set_xdata.
mi_server->response->set_data( iv_data ).
ENDMETHOD.
METHOD if_http_extension~handle_request.
mi_server = server.
server->set_session_stateful( ).
TRY.
zcl_abapgit_web=>handle(
ii_request = me
ii_response = me ).
CATCH cx_static_check.
" todo, show error page
ASSERT 1 = 2.
ENDTRY.
ENDMETHOD.
ENDCLASS.