mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 13:03:01 +08:00
change lcl_url to zcl_abapgit_url˙
This commit is contained in:
parent
dcaeb74280
commit
45f11cffa9
|
@ -170,7 +170,7 @@ CLASS lcl_http_client IMPLEMENTATION.
|
||||||
name = '~request_method'
|
name = '~request_method'
|
||||||
value = 'POST' ).
|
value = 'POST' ).
|
||||||
|
|
||||||
lv_value = lcl_url=>path_name( iv_url ) &&
|
lv_value = zcl_abapgit_url=>path_name( iv_url ) &&
|
||||||
'/git-' &&
|
'/git-' &&
|
||||||
iv_service &&
|
iv_service &&
|
||||||
'-pack'.
|
'-pack'.
|
||||||
|
@ -426,7 +426,7 @@ CLASS lcl_http IMPLEMENTATION.
|
||||||
|
|
||||||
cl_http_client=>create_by_url(
|
cl_http_client=>create_by_url(
|
||||||
EXPORTING
|
EXPORTING
|
||||||
url = lcl_url=>host( iv_url )
|
url = zcl_abapgit_url=>host( iv_url )
|
||||||
ssl_id = 'ANONYM'
|
ssl_id = 'ANONYM'
|
||||||
proxy_host = lo_proxy_configuration->get_proxy_url( iv_url )
|
proxy_host = lo_proxy_configuration->get_proxy_url( iv_url )
|
||||||
proxy_service = lo_proxy_configuration->get_proxy_port( iv_url )
|
proxy_service = lo_proxy_configuration->get_proxy_port( iv_url )
|
||||||
|
@ -469,7 +469,7 @@ CLASS lcl_http IMPLEMENTATION.
|
||||||
li_client->request->set_header_field(
|
li_client->request->set_header_field(
|
||||||
name = 'user-agent'
|
name = 'user-agent'
|
||||||
value = get_agent( ) ). "#EC NOTEXT
|
value = get_agent( ) ). "#EC NOTEXT
|
||||||
lv_uri = lcl_url=>path_name( iv_url ) &&
|
lv_uri = zcl_abapgit_url=>path_name( iv_url ) &&
|
||||||
'/info/refs?service=git-' &&
|
'/info/refs?service=git-' &&
|
||||||
iv_service &&
|
iv_service &&
|
||||||
'-pack'.
|
'-pack'.
|
||||||
|
|
|
@ -249,7 +249,7 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
|
||||||
IN is_data-data_str IGNORING CASE MATCH COUNT lv_cnt.
|
IN is_data-data_str IGNORING CASE MATCH COUNT lv_cnt.
|
||||||
IF lv_cnt > 0.
|
IF lv_cnt > 0.
|
||||||
rv_text = |<strong>On-line</strong>, Name: <strong>{
|
rv_text = |<strong>On-line</strong>, Name: <strong>{
|
||||||
lcl_url=>name( rv_text ) }</strong>|.
|
zcl_abapgit_url=>name( rv_text ) }</strong>|.
|
||||||
ELSE.
|
ELSE.
|
||||||
rv_text = |Off-line, Name: <strong>{ rv_text }</strong>|.
|
rv_text = |Off-line, Name: <strong>{ rv_text }</strong>|.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
|
@ -597,7 +597,7 @@ CLASS lcl_popups IMPLEMENTATION.
|
||||||
lv_finished = abap_true.
|
lv_finished = abap_true.
|
||||||
|
|
||||||
TRY.
|
TRY.
|
||||||
lcl_url=>name( |{ lv_url }| ).
|
zcl_abapgit_url=>name( |{ lv_url }| ).
|
||||||
IF iv_freeze_package = abap_false.
|
IF iv_freeze_package = abap_false.
|
||||||
lcl_app=>repo_srv( )->validate_package( lv_package ).
|
lcl_app=>repo_srv( )->validate_package( lv_package ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
|
@ -740,7 +740,7 @@ CLASS lcl_repo IMPLEMENTATION.
|
||||||
IF ms_data-offline = abap_true.
|
IF ms_data-offline = abap_true.
|
||||||
rv_name = ms_data-url.
|
rv_name = ms_data-url.
|
||||||
ELSE.
|
ELSE.
|
||||||
rv_name = lcl_url=>name( ms_data-url ).
|
rv_name = zcl_abapgit_url=>name( ms_data-url ).
|
||||||
rv_name = cl_http_utility=>if_http_utility~unescape_url( rv_name ).
|
rv_name = cl_http_utility=>if_http_utility~unescape_url( rv_name ).
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
|
@ -1028,7 +1028,7 @@ CLASS lcl_repo_srv IMPLEMENTATION.
|
||||||
|
|
||||||
IF iv_offline = abap_true. " On-line -> OFFline
|
IF iv_offline = abap_true. " On-line -> OFFline
|
||||||
lo_repo->set(
|
lo_repo->set(
|
||||||
iv_url = lcl_url=>name( lo_repo->ms_data-url )
|
iv_url = zcl_abapgit_url=>name( lo_repo->ms_data-url )
|
||||||
iv_branch_name = ''
|
iv_branch_name = ''
|
||||||
iv_sha1 = ''
|
iv_sha1 = ''
|
||||||
iv_head_branch = ''
|
iv_head_branch = ''
|
||||||
|
|
|
@ -814,7 +814,7 @@ CLASS ltcl_url IMPLEMENTATION.
|
||||||
METHOD repo_error.
|
METHOD repo_error.
|
||||||
|
|
||||||
TRY.
|
TRY.
|
||||||
lcl_url=>host( 'not a real url' ). "#EC NOTEXT
|
zcl_abapgit_url=>host( 'not a real url' ). "#EC NOTEXT
|
||||||
cl_abap_unit_assert=>fail( ).
|
cl_abap_unit_assert=>fail( ).
|
||||||
CATCH zcx_abapgit_exception. "#EC NO_HANDLER
|
CATCH zcx_abapgit_exception. "#EC NO_HANDLER
|
||||||
ENDTRY.
|
ENDTRY.
|
||||||
|
@ -825,7 +825,7 @@ CLASS ltcl_url IMPLEMENTATION.
|
||||||
|
|
||||||
DATA: lv_host TYPE string.
|
DATA: lv_host TYPE string.
|
||||||
|
|
||||||
lv_host = lcl_url=>host( 'https://github.com/larshp/Foobar.git' ).
|
lv_host = zcl_abapgit_url=>host( 'https://github.com/larshp/Foobar.git' ).
|
||||||
|
|
||||||
cl_abap_unit_assert=>assert_equals(
|
cl_abap_unit_assert=>assert_equals(
|
||||||
exp = 'https://github.com'
|
exp = 'https://github.com'
|
||||||
|
@ -837,7 +837,7 @@ CLASS ltcl_url IMPLEMENTATION.
|
||||||
|
|
||||||
DATA: lv_name TYPE string.
|
DATA: lv_name TYPE string.
|
||||||
|
|
||||||
lv_name = lcl_url=>name( 'https://github.com/larshp/Foobar.git' ).
|
lv_name = zcl_abapgit_url=>name( 'https://github.com/larshp/Foobar.git' ).
|
||||||
|
|
||||||
cl_abap_unit_assert=>assert_equals(
|
cl_abap_unit_assert=>assert_equals(
|
||||||
exp = 'Foobar'
|
exp = 'Foobar'
|
||||||
|
@ -849,7 +849,7 @@ CLASS ltcl_url IMPLEMENTATION.
|
||||||
|
|
||||||
DATA: lv_name TYPE string.
|
DATA: lv_name TYPE string.
|
||||||
|
|
||||||
lv_name = lcl_url=>name( 'https://git.hanatrial.ondemand.com/p12345trial/yay' ).
|
lv_name = zcl_abapgit_url=>name( 'https://git.hanatrial.ondemand.com/p12345trial/yay' ).
|
||||||
|
|
||||||
cl_abap_unit_assert=>assert_equals(
|
cl_abap_unit_assert=>assert_equals(
|
||||||
exp = 'yay'
|
exp = 'yay'
|
||||||
|
|
|
@ -492,11 +492,11 @@ CLASS lcl_path IMPLEMENTATION.
|
||||||
ENDCLASS. "lcl_path
|
ENDCLASS. "lcl_path
|
||||||
|
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
* CLASS lcl_url DEFINITION
|
* CLASS zcl_abapgit_url DEFINITION
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
*
|
*
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
CLASS lcl_url DEFINITION FINAL.
|
CLASS zcl_abapgit_url DEFINITION FINAL.
|
||||||
|
|
||||||
PUBLIC SECTION.
|
PUBLIC SECTION.
|
||||||
CLASS-METHODS host
|
CLASS-METHODS host
|
||||||
|
@ -525,11 +525,11 @@ CLASS lcl_url DEFINITION FINAL.
|
||||||
ENDCLASS. "lcl_repo DEFINITION
|
ENDCLASS. "lcl_repo DEFINITION
|
||||||
|
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
* CLASS lcl_url IMPLEMENTATION
|
* CLASS zcl_abapgit_url IMPLEMENTATION
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
*
|
*
|
||||||
*----------------------------------------------------------------------*
|
*----------------------------------------------------------------------*
|
||||||
CLASS lcl_url IMPLEMENTATION.
|
CLASS zcl_abapgit_url IMPLEMENTATION.
|
||||||
|
|
||||||
METHOD host.
|
METHOD host.
|
||||||
regex( EXPORTING iv_repo = iv_repo
|
regex( EXPORTING iv_repo = iv_repo
|
||||||
|
@ -975,7 +975,7 @@ CLASS lcl_login_manager IMPLEMENTATION.
|
||||||
DATA: ls_auth LIKE LINE OF gt_auth.
|
DATA: ls_auth LIKE LINE OF gt_auth.
|
||||||
|
|
||||||
|
|
||||||
READ TABLE gt_auth INTO ls_auth WITH KEY uri = lcl_url=>host( iv_uri ).
|
READ TABLE gt_auth INTO ls_auth WITH KEY uri = zcl_abapgit_url=>host( iv_uri ).
|
||||||
IF sy-subrc = 0.
|
IF sy-subrc = 0.
|
||||||
rv_authorization = ls_auth-authorization.
|
rv_authorization = ls_auth-authorization.
|
||||||
|
|
||||||
|
@ -1008,11 +1008,11 @@ CLASS lcl_login_manager IMPLEMENTATION.
|
||||||
FIELD-SYMBOLS: <ls_auth> LIKE LINE OF gt_auth.
|
FIELD-SYMBOLS: <ls_auth> LIKE LINE OF gt_auth.
|
||||||
|
|
||||||
|
|
||||||
READ TABLE gt_auth WITH KEY uri = lcl_url=>host( iv_uri )
|
READ TABLE gt_auth WITH KEY uri = zcl_abapgit_url=>host( iv_uri )
|
||||||
TRANSPORTING NO FIELDS.
|
TRANSPORTING NO FIELDS.
|
||||||
IF sy-subrc <> 0.
|
IF sy-subrc <> 0.
|
||||||
APPEND INITIAL LINE TO gt_auth ASSIGNING <ls_auth>.
|
APPEND INITIAL LINE TO gt_auth ASSIGNING <ls_auth>.
|
||||||
<ls_auth>-uri = lcl_url=>host( iv_uri ).
|
<ls_auth>-uri = zcl_abapgit_url=>host( iv_uri ).
|
||||||
<ls_auth>-authorization = iv_auth.
|
<ls_auth>-authorization = iv_auth.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user