mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-02 13:03:01 +08:00
b46c8b4599
* Refactor: Consolidate front-end classes There's no need for two "front-end classes". Moves all of ZCL_ABAPGIT_GUI_FUNCTIONS to ZCL_ABAPGIT_FRONTEND_SERVICES. Now all front-end calls are nicely together. No functional change, some method reordering. Ref #2510, #5145 * Add missing interface Co-authored-by: Christian Günter <christianguenter@googlemail.com> Co-authored-by: Lars Hvam <larshp@hotmail.com>
62 lines
1.8 KiB
ABAP
62 lines
1.8 KiB
ABAP
CLASS zcl_abapgit_password_dialog DEFINITION
|
|
PUBLIC
|
|
FINAL
|
|
CREATE PUBLIC .
|
|
|
|
PUBLIC SECTION.
|
|
|
|
CLASS-METHODS popup
|
|
IMPORTING
|
|
!iv_repo_url TYPE string
|
|
CHANGING
|
|
!cv_user TYPE string
|
|
!cv_pass TYPE string .
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
|
|
|
|
CLASS zcl_abapgit_password_dialog IMPLEMENTATION.
|
|
|
|
|
|
METHOD popup.
|
|
|
|
IF zcl_abapgit_ui_factory=>get_frontend_services( )->gui_is_available( ) = abap_true.
|
|
PERFORM password_popup
|
|
IN PROGRAM (sy-cprog)
|
|
USING iv_repo_url
|
|
CHANGING cv_user cv_pass.
|
|
ELSE.
|
|
"Extract user credentials from the environment...
|
|
"Class ZCL_ABAPGIT_DEFAULT_AUTH_INFO is part of https://github.com/abapGit/ADT_Backend.
|
|
"It stores the credentials of a private repository as long as the session exists.
|
|
"Usually this class should belong to abapGit core and a refactoring is recommended.
|
|
"As a temporary solution - and to avoid a DYNPRO_SEND_IN_BACKGROUND dump - a generic
|
|
"call of the getter methods for username and password is implemented by PR#2635.
|
|
TRY.
|
|
CALL METHOD ('ZCL_ABAPGIT_DEFAULT_AUTH_INFO')=>('GET_USER')
|
|
RECEIVING
|
|
rv_user = cv_user.
|
|
CATCH cx_root.
|
|
RETURN.
|
|
ENDTRY.
|
|
TRY.
|
|
CALL METHOD ('ZCL_ABAPGIT_DEFAULT_AUTH_INFO')=>('GET_PASSWORD')
|
|
RECEIVING
|
|
rv_password = cv_pass.
|
|
CATCH cx_root.
|
|
"check if old version with typo in method name exists
|
|
TRY.
|
|
CALL METHOD ('ZCL_ABAPGIT_DEFAULT_AUTH_INFO')=>('GET_PASSOWORD')
|
|
RECEIVING
|
|
rv_password = cv_pass.
|
|
CATCH cx_root.
|
|
RETURN.
|
|
ENDTRY.
|
|
ENDTRY.
|
|
ENDIF.
|
|
|
|
ENDMETHOD.
|
|
ENDCLASS.
|