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

change lcl_url to zcl_abapgit_url˙

Browse Source
This commit is contained in:
christianguenter2 2017-11-15 19:49:08 +00:00
parent dcaeb74280
commit 45f11cffa9
6 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/zabapgit_http.prog.abap
View File

@ -170,7 +170,7 @@ CLASS lcl_http_client IMPLEMENTATION.
name = '~request_method'
value = 'POST' ).
lv_value = lcl_url=>path_name( iv_url ) &&
lv_value = zcl_abapgit_url=>path_name( iv_url ) &&
'/git-' &&
iv_service &&
'-pack'.
@ -426,7 +426,7 @@ CLASS lcl_http IMPLEMENTATION.
cl_http_client=>create_by_url(
EXPORTING
url = lcl_url=>host( iv_url )
url = zcl_abapgit_url=>host( iv_url )
ssl_id = 'ANONYM'
proxy_host = lo_proxy_configuration->get_proxy_url( 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(
name = 'user-agent'
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-' &&
iv_service &&
'-pack'.

2
src/zabapgit_page_db.prog.abap
View File

@ -249,7 +249,7 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
IN is_data-data_str IGNORING CASE MATCH COUNT lv_cnt.
IF lv_cnt > 0.
rv_text = |<strong>On-line</strong>, Name: <strong>{
lcl_url=>name( rv_text ) }</strong>|.
zcl_abapgit_url=>name( rv_text ) }</strong>|.
ELSE.
rv_text = |Off-line, Name: <strong>{ rv_text }</strong>|.
ENDIF.

2
src/zabapgit_popups.prog.abap
View File

@ -597,7 +597,7 @@ CLASS lcl_popups IMPLEMENTATION.
lv_finished = abap_true.
TRY.
lcl_url=>name( |{ lv_url }| ).
zcl_abapgit_url=>name( |{ lv_url }| ).
IF iv_freeze_package = abap_false.
lcl_app=>repo_srv( )->validate_package( lv_package ).
ENDIF.

4
src/zabapgit_repo_impl.prog.abap
View File

@ -740,7 +740,7 @@ CLASS lcl_repo IMPLEMENTATION.
IF ms_data-offline = abap_true.
rv_name = ms_data-url.
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 ).
ENDIF.
@ -1028,7 +1028,7 @@ CLASS lcl_repo_srv IMPLEMENTATION.
IF iv_offline = abap_true. " On-line -> OFFline
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_sha1 = ''
iv_head_branch = ''

8
src/zabapgit_unit_test.prog.abap
View File

@ -814,7 +814,7 @@ CLASS ltcl_url IMPLEMENTATION.
METHOD repo_error.
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( ).
CATCH zcx_abapgit_exception. "#EC NO_HANDLER
ENDTRY.
@ -825,7 +825,7 @@ CLASS ltcl_url IMPLEMENTATION.
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(
exp = 'https://github.com'
@ -837,7 +837,7 @@ CLASS ltcl_url IMPLEMENTATION.
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(
exp = 'Foobar'
@ -849,7 +849,7 @@ CLASS ltcl_url IMPLEMENTATION.
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(
exp = 'yay'

14
src/zabapgit_util.prog.abap
View File

@ -492,11 +492,11 @@ CLASS lcl_path IMPLEMENTATION.
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.
CLASS-METHODS host
@ -525,11 +525,11 @@ CLASS lcl_url DEFINITION FINAL.
ENDCLASS. "lcl_repo DEFINITION
*----------------------------------------------------------------------*
* CLASS lcl_url IMPLEMENTATION
* CLASS zcl_abapgit_url IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_url IMPLEMENTATION.
CLASS zcl_abapgit_url IMPLEMENTATION.
METHOD host.
regex( EXPORTING iv_repo = iv_repo
@ -975,7 +975,7 @@ CLASS lcl_login_manager IMPLEMENTATION.
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.
rv_authorization = ls_auth-authorization.
@ -1008,11 +1008,11 @@ CLASS lcl_login_manager IMPLEMENTATION.
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.
IF sy-subrc <> 0.
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.
ENDIF.