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

switching to anonymous ssl profile, update STRUST

Browse Source 
this seems to work better for eg. bitbucket.org
This commit is contained in:
Lars Hvam 2014-12-07 07:32:30 +01:00
parent 713e4dfe38
commit afb86cc266
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
zabapgit.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See https://github.com/larshp/abapGit/ * See https://github.com/larshp/abapGit/
CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v0.6'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v0.7'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -5893,9 +5893,16 @@ CLASS lcl_transport IMPLEMENTATION.
ii_client->response->get_status( ii_client->response->get_status(
IMPORTING IMPORTING
code = lv_code ). code = lv_code ).
IF lv_code <> 200. CASE lv_code.
WHEN 200.
RETURN.
WHEN 302.
_raise 'HTTP redirect, check URL'.
WHEN 404.
_raise 'HTTP 404, not found'.
WHEN OTHERS.
_raise 'HTTP error code'. _raise 'HTTP error code'.
ENDIF. ENDCASE.
ENDMETHOD. "http_200 ENDMETHOD. "http_200
@ -5913,6 +5920,7 @@ CLASS lcl_transport IMPLEMENTATION.
cl_http_client=>create_by_url( cl_http_client=>create_by_url(
EXPORTING EXPORTING
url = lcl_url=>host( is_repo-url ) url = lcl_url=>host( is_repo-url )
ssl_id = 'ANONYM'
IMPORTING IMPORTING
client = ei_client ). client = ei_client ).
@ -5941,6 +5949,7 @@ CLASS lcl_transport IMPLEMENTATION.
IF sy-subrc <> 0. IF sy-subrc <> 0.
CASE sy-subrc. CASE sy-subrc.
WHEN 1. WHEN 1.
* make sure SSL is setup properly in STRUST
lv_text = 'HTTP Communication Failure'. "#EC NOTEXT lv_text = 'HTTP Communication Failure'. "#EC NOTEXT
WHEN 2. WHEN 2.
lv_text = 'HTTP Invalid State'. "#EC NOTEXT lv_text = 'HTTP Invalid State'. "#EC NOTEXT