SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Dump on Clone or Explore #53

Browse Source 
Fix: Dump if Strust configuration is not right yet
This commit is contained in:
Pascal 2017-04-04 14:19:43 +02:00 committed by GitHub
parent a10a0d35d4
commit 90c4a052e8
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/zabapgit_http.prog.abap
View File

@ -369,7 +369,8 @@ CLASS lcl_http IMPLEMENTATION.
DATA: lv_uri TYPE string, DATA: lv_uri TYPE string,
lv_scheme TYPE string, lv_scheme TYPE string,
li_client TYPE REF TO if_http_client, li_client TYPE REF TO if_http_client,
lo_settings TYPE REF TO lcl_settings. lo_settings TYPE REF TO lcl_settings,
lv_text TYPE string.
lo_settings = lcl_app=>settings( )->read( ). lo_settings = lcl_app=>settings( )->read( ).
@ -381,7 +382,24 @@ CLASS lcl_http IMPLEMENTATION.
proxy_host = lo_settings->get_proxy_url( ) proxy_host = lo_settings->get_proxy_url( )
proxy_service = lo_settings->get_proxy_port( ) proxy_service = lo_settings->get_proxy_port( )
IMPORTING IMPORTING
client = li_client ). client = li_client
EXCEPTIONS
argument_not_found = 1
plugin_not_active = 2
internal_error = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
CASE sy-subrc.
WHEN 1.
" make sure:
" a) SSL is setup properly in STRUST
lv_text = 'HTTPS ARGUMENT_NOT_FOUND | STRUST/SSL Setup correct?'.
WHEN OTHERS.
lv_text = 'While creating HTTP Client'. "#EC NOTEXT
ENDCASE.
lcx_exception=>raise( lv_text ).
ENDIF.
CREATE OBJECT ro_client CREATE OBJECT ro_client
EXPORTING EXPORTING