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

change local hostname determination (#4885)

Browse Source 
* change local hostname determination

* fix
This commit is contained in:
Lars Hvam 2021-08-03 06:49:45 +02:00 committed by GitHub
parent 2bde0ce55a
commit 19304ad924
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 9 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/http/zcl_abapgit_http.clas.abap
View File

@ -48,7 +48,7 @@ ENDCLASS.
CLASS ZCL_ABAPGIT_HTTP IMPLEMENTATION.
CLASS zcl_abapgit_http IMPLEMENTATION.
METHOD acquire_login_details.
@ -225,34 +225,24 @@ CLASS ZCL_ABAPGIT_HTTP IMPLEMENTATION.
METHOD is_local_system.
DATA: lv_host TYPE string,
lt_list TYPE zif_abapgit_exit=>ty_icm_sinfo2_tt,
lt_list TYPE zif_abapgit_definitions=>ty_string_tt,
li_exit TYPE REF TO zif_abapgit_exit.
FIELD-SYMBOLS: <ls_list> LIKE LINE OF lt_list.
CALL FUNCTION 'ICM_GET_INFO2'
TABLES
servlist = lt_list
EXCEPTIONS
icm_error = 1
icm_timeout = 2
OTHERS = 3.
IF sy-subrc <> 0.
RETURN.
ENDIF.
cl_http_server=>get_location( IMPORTING host = lv_host ).
APPEND lv_host TO lt_list.
APPEND INITIAL LINE TO lt_list ASSIGNING <ls_list>.
<ls_list>-hostname = 'localhost'.
APPEND 'localhost' TO lt_list.
li_exit = zcl_abapgit_exit=>get_instance( ).
li_exit->change_local_host( CHANGING ct_hosts = lt_list ).
FIND REGEX 'https?://([^/^:]*)' IN iv_url
SUBMATCHES lv_host.
FIND REGEX 'https?://([^/^:]*)' IN iv_url SUBMATCHES lv_host.
READ TABLE lt_list WITH KEY hostname = lv_host TRANSPORTING NO FIELDS.
READ TABLE lt_list WITH KEY table_line = lv_host TRANSPORTING NO FIELDS.
rv_bool = boolc( sy-subrc = 0 ).
ENDMETHOD.
ENDCLASS.
ENDCLASS.

4
src/zif_abapgit_exit.intf.abap
View File

@ -2,8 +2,6 @@ INTERFACE zif_abapgit_exit
PUBLIC .
TYPES:
ty_icm_sinfo2_tt TYPE STANDARD TABLE OF icm_sinfo2 WITH DEFAULT KEY .
TYPES:
BEGIN OF ty_ci_repo,
name TYPE string,
@ -27,7 +25,7 @@ INTERFACE zif_abapgit_exit
VALUE(rv_allowed) TYPE abap_bool .
METHODS change_local_host
CHANGING
!ct_hosts TYPE ty_icm_sinfo2_tt .
!ct_hosts TYPE zif_abapgit_definitions=>ty_string_tt .
METHODS change_proxy_authentication
IMPORTING
!iv_repo_url TYPE csequence