diff --git a/src/background/package.devc.xml b/src/background/package.devc.xml new file mode 100644 index 000000000..58c7d7fef --- /dev/null +++ b/src/background/package.devc.xml @@ -0,0 +1,10 @@ + + + + + + Background + + + + diff --git a/src/background/zcl_abapgit_background.clas.abap b/src/background/zcl_abapgit_background.clas.abap new file mode 100644 index 000000000..91df2b544 --- /dev/null +++ b/src/background/zcl_abapgit_background.clas.abap @@ -0,0 +1,127 @@ +CLASS zcl_abapgit_background DEFINITION + PUBLIC + CREATE PUBLIC . + + PUBLIC SECTION. + + TYPES: BEGIN OF ty_methods, + class TYPE seoclsname, + description TYPE string, + END OF ty_methods. + + TYPES: ty_methods_tt TYPE SORTED TABLE OF ty_methods WITH UNIQUE KEY class. + + CLASS-METHODS run + RAISING + zcx_abapgit_exception . + CLASS-METHODS list_methods + RETURNING VALUE(rt_methods) TYPE ty_methods_tt. + PRIVATE SECTION. +ENDCLASS. + + + +CLASS ZCL_ABAPGIT_BACKGROUND IMPLEMENTATION. + + + METHOD list_methods. + + DATA: ls_method LIKE LINE OF rt_methods, + ls_key TYPE seoclskey, + lt_implementing TYPE seor_implementing_keys, + ls_implementing LIKE LINE OF lt_implementing. + + FIELD-SYMBOLS: LIKE LINE OF rt_methods. + + +* in order to handle local classes in the compiled report + ls_method-class = 'ZCL_ABAPGIT_BACKGROUND_PULL'. + INSERT ls_method INTO TABLE rt_methods. + ls_method-class = 'ZCL_ABAPGIT_BACKGROUND_PUSH_AU'. + INSERT ls_method INTO TABLE rt_methods. + ls_method-class = 'ZCL_ABAPGIT_BACKGROUND_PUSH_FI'. + INSERT ls_method INTO TABLE rt_methods. + + ls_key-clsname = 'ZIF_ABAPGIT_BACKGROUND'. + + CALL FUNCTION 'SEO_INTERFACE_IMPLEM_GET_ALL' + EXPORTING + intkey = ls_key + IMPORTING + impkeys = lt_implementing + EXCEPTIONS + not_existing = 1 + OTHERS = 2 ##FM_SUBRC_OK. + LOOP AT lt_implementing INTO ls_implementing. + ls_method-class = ls_implementing-clsname. + INSERT ls_method INTO TABLE rt_methods. + ENDLOOP. + + LOOP AT rt_methods ASSIGNING . + CALL METHOD (-class)=>zif_abapgit_background~get_description + RECEIVING + rv_description = -description. + ENDLOOP. + + ENDMETHOD. + + + METHOD run. + + CONSTANTS: lc_enq_type TYPE c LENGTH 12 VALUE 'BACKGROUND'. + + DATA: lo_per TYPE REF TO zcl_abapgit_persist_background, + lo_repo TYPE REF TO zcl_abapgit_repo_online, + lt_list TYPE zcl_abapgit_persist_background=>tt_background, + li_background TYPE REF TO zif_abapgit_background, + lv_repo_name TYPE string. + + FIELD-SYMBOLS: LIKE LINE OF lt_list. + + + CALL FUNCTION 'ENQUEUE_EZABAPGIT' + EXPORTING + mode_zabapgit = 'E' + type = lc_enq_type + _scope = '3' + EXCEPTIONS + foreign_lock = 1 + system_failure = 2 + OTHERS = 3. + IF sy-subrc <> 0. + WRITE: / 'Another intance of the program is already running' ##NO_TEXT. + RETURN. + ENDIF. + + CREATE OBJECT lo_per. + lt_list = lo_per->list( ). + + WRITE: / 'Background mode' ##NO_TEXT. + + LOOP AT lt_list ASSIGNING . + lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( -key ). + lv_repo_name = lo_repo->get_name( ). + WRITE: / -method, lv_repo_name. + + zcl_abapgit_login_manager=>set( + iv_uri = lo_repo->get_url( ) + iv_username = -username + iv_password = -password ). + + CREATE OBJECT li_background TYPE (-method). + + li_background->run( + io_repo = lo_repo + it_settings = -settings ). + ENDLOOP. + + IF lines( lt_list ) = 0. + WRITE: / 'Nothing configured' ##NO_TEXT. + ENDIF. + + CALL FUNCTION 'DEQUEUE_EZABAPGIT' + EXPORTING + type = lc_enq_type. + + ENDMETHOD. +ENDCLASS. diff --git a/src/zcl_abapgit_background.clas.xml b/src/background/zcl_abapgit_background.clas.xml similarity index 100% rename from src/zcl_abapgit_background.clas.xml rename to src/background/zcl_abapgit_background.clas.xml diff --git a/src/background/zcl_abapgit_background_pull.clas.abap b/src/background/zcl_abapgit_background_pull.clas.abap new file mode 100644 index 000000000..c204e4056 --- /dev/null +++ b/src/background/zcl_abapgit_background_pull.clas.abap @@ -0,0 +1,38 @@ +CLASS zcl_abapgit_background_pull DEFINITION + PUBLIC + CREATE PUBLIC . + + PUBLIC SECTION. + + INTERFACES zif_abapgit_background . + PROTECTED SECTION. + PRIVATE SECTION. +ENDCLASS. + + + +CLASS ZCL_ABAPGIT_BACKGROUND_PULL IMPLEMENTATION. + + + METHOD zif_abapgit_background~get_description. + + rv_description = 'Automatic pull' ##NO_TEXT. + + ENDMETHOD. + + + METHOD zif_abapgit_background~get_settings. + RETURN. + ENDMETHOD. + + + METHOD zif_abapgit_background~run. + + DATA: ls_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks. + + +* todo, set defaults in ls_checks + io_repo->deserialize( ls_checks ). + + ENDMETHOD. +ENDCLASS. diff --git a/src/background/zcl_abapgit_background_pull.clas.xml b/src/background/zcl_abapgit_background_pull.clas.xml new file mode 100644 index 000000000..8af2b0a89 --- /dev/null +++ b/src/background/zcl_abapgit_background_pull.clas.xml @@ -0,0 +1,18 @@ + + + + + + ZCL_ABAPGIT_BACKGROUND_PULL + 1 + E + Pull + 2 + 1 + X + X + X + + + + diff --git a/src/background/zcl_abapgit_background_push_au.clas.abap b/src/background/zcl_abapgit_background_push_au.clas.abap new file mode 100644 index 000000000..a7129390e --- /dev/null +++ b/src/background/zcl_abapgit_background_push_au.clas.abap @@ -0,0 +1,250 @@ +CLASS zcl_abapgit_background_push_au DEFINITION + PUBLIC + FINAL + CREATE PUBLIC . + + PUBLIC SECTION. + + INTERFACES zif_abapgit_background . + PROTECTED SECTION. + + METHODS build_comment + IMPORTING + !is_files TYPE zif_abapgit_definitions=>ty_stage_files + RETURNING + VALUE(rv_comment) TYPE string . + METHODS push_auto + IMPORTING + !io_repo TYPE REF TO zcl_abapgit_repo_online + RAISING + zcx_abapgit_exception . + METHODS determine_user_details + IMPORTING + !iv_changed_by TYPE xubname + RETURNING + VALUE(rs_user) TYPE zif_abapgit_definitions=>ty_git_user . + METHODS push_deletions + IMPORTING + !io_repo TYPE REF TO zcl_abapgit_repo_online + !is_files TYPE zif_abapgit_definitions=>ty_stage_files + RAISING + zcx_abapgit_exception . + PRIVATE SECTION. +ENDCLASS. + + + +CLASS ZCL_ABAPGIT_BACKGROUND_PUSH_AU IMPLEMENTATION. + + + METHOD build_comment. + + DATA: lt_objects TYPE STANDARD TABLE OF string WITH DEFAULT KEY, + lv_str TYPE string. + + FIELD-SYMBOLS: LIKE LINE OF is_files-local. + + + LOOP AT is_files-local ASSIGNING . + lv_str = |{ -item-obj_type } { -item-obj_name }|. + APPEND lv_str TO lt_objects. + ENDLOOP. + + SORT lt_objects AS TEXT. + DELETE ADJACENT DUPLICATES FROM lt_objects. + + IF lines( lt_objects ) = 1. + rv_comment = |BG: { lv_str }|. + ELSE. + rv_comment = 'BG: Multiple objects' ##NO_TEXT. + LOOP AT lt_objects INTO lv_str. + CONCATENATE rv_comment zif_abapgit_definitions=>gc_newline lv_str INTO rv_comment. + ENDLOOP. + ENDIF. + + ENDMETHOD. + + + METHOD determine_user_details. + + DATA: lo_user_master_record TYPE REF TO zcl_abapgit_user_master_record. + + + lo_user_master_record = zcl_abapgit_user_master_record=>get_instance( iv_changed_by ). + rs_user-name = lo_user_master_record->get_name( ). + rs_user-email = lo_user_master_record->get_email( ). + +* If no email, fall back to localhost/default email + IF rs_user-email IS INITIAL. + rs_user-email = |{ iv_changed_by }@localhost|. + ENDIF. + +* If no full name maintained, just use changed by user name + IF rs_user-name IS INITIAL. + rs_user-name = iv_changed_by. + ENDIF. + + ENDMETHOD. + + + METHOD push_auto. + + TYPES: BEGIN OF ty_changed, + filename TYPE string, + path TYPE string, + changed_by TYPE xubname, + END OF ty_changed. + + DATA: ls_comment TYPE zif_abapgit_definitions=>ty_comment, + ls_files TYPE zif_abapgit_definitions=>ty_stage_files, + lt_changed TYPE STANDARD TABLE OF ty_changed WITH DEFAULT KEY, + lt_users TYPE STANDARD TABLE OF xubname WITH DEFAULT KEY, + ls_user_files LIKE ls_files, + lv_changed_by LIKE LINE OF lt_users, + lo_stage TYPE REF TO zcl_abapgit_stage. + + FIELD-SYMBOLS: LIKE LINE OF lt_changed, + LIKE LINE OF ls_files-remote, + LIKE LINE OF ls_files-local. + + + ls_files = zcl_abapgit_stage_logic=>get( io_repo ). + + LOOP AT ls_files-local ASSIGNING . + lv_changed_by = zcl_abapgit_objects=>changed_by( -item ). + APPEND lv_changed_by TO lt_users. + APPEND INITIAL LINE TO lt_changed ASSIGNING . + -changed_by = lv_changed_by. + -filename = -file-filename. + -path = -file-path. + ENDLOOP. + + SORT lt_users ASCENDING. + DELETE ADJACENT DUPLICATES FROM lt_users. + + LOOP AT lt_users INTO lv_changed_by. + CLEAR: ls_comment. + +* Fill user details + ls_comment-committer = determine_user_details( lv_changed_by ). + + CREATE OBJECT lo_stage + EXPORTING + iv_branch_name = io_repo->get_branch_name( ) + iv_branch_sha1 = io_repo->get_sha1_remote( ). + + CLEAR ls_user_files. + + LOOP AT ls_files-local ASSIGNING . + READ TABLE lt_changed WITH KEY + path = -file-path + filename = -file-filename + changed_by = lv_changed_by + TRANSPORTING NO FIELDS. + IF sy-subrc = 0. + WRITE: / 'stage' ##NO_TEXT, + ls_comment-committer-name, + -file-path, + -file-filename. + + lo_stage->add( iv_path = -file-path + iv_filename = -file-filename + iv_data = -file-data ). + + APPEND TO ls_user_files-local. + + LOOP AT ls_files-remote ASSIGNING + WHERE filename = -file-filename + AND path <> -file-path + AND filename <> 'package.devc.xml'. + WRITE: / 'rm' ##NO_TEXT, + -path, + -filename. + +* rm old file when object has moved + lo_stage->rm( + iv_path = -path + iv_filename = -filename ). + EXIT. " assumption: only one file + ENDLOOP. + ENDIF. + ENDLOOP. + + ls_comment-comment = build_comment( ls_user_files ). + + io_repo->push( is_comment = ls_comment + io_stage = lo_stage ). + ENDLOOP. + + IF lines( ls_files-remote ) > 0. + push_deletions( io_repo = io_repo + is_files = ls_files ). + ENDIF. + + ENDMETHOD. + + + METHOD push_deletions. + + DATA: lo_stage TYPE REF TO zcl_abapgit_stage, + ls_comment TYPE zif_abapgit_definitions=>ty_comment. + + FIELD-SYMBOLS: LIKE LINE OF is_files-remote. + + ASSERT lines( is_files-remote ) > 0. + + CREATE OBJECT lo_stage + EXPORTING + iv_branch_name = io_repo->get_branch_name( ) + iv_branch_sha1 = io_repo->get_sha1_remote( ). + + LOOP AT is_files-remote ASSIGNING . + + WRITE: / 'removed' ##NO_TEXT, + -path, + -filename. + + lo_stage->rm( iv_path = -path + iv_filename = -filename ). + + ENDLOOP. + + ls_comment-committer-name = 'Deletion' ##NO_TEXT. + ls_comment-committer-email = 'deletion@localhost'. + ls_comment-comment = build_comment( is_files ). + + io_repo->push( is_comment = ls_comment + io_stage = lo_stage ). + + ENDMETHOD. + + + METHOD zif_abapgit_background~get_description. + + rv_description = 'Automatic push, auto author' ##NO_TEXT. + + ENDMETHOD. + + + METHOD zif_abapgit_background~get_settings. + + RETURN. + + ENDMETHOD. + + + METHOD zif_abapgit_background~run. + + DATA: ls_files TYPE zif_abapgit_definitions=>ty_stage_files. + + ls_files = zcl_abapgit_stage_logic=>get( io_repo ). + + IF lines( ls_files-local ) = 0 AND lines( ls_files-remote ) = 0. + WRITE: / 'Nothing to stage' ##NO_TEXT. + RETURN. + ENDIF. + + push_auto( io_repo ). + + ENDMETHOD. +ENDCLASS. diff --git a/src/background/zcl_abapgit_background_push_au.clas.xml b/src/background/zcl_abapgit_background_push_au.clas.xml new file mode 100644 index 000000000..f736e5bba --- /dev/null +++ b/src/background/zcl_abapgit_background_push_au.clas.xml @@ -0,0 +1,19 @@ + + + + + + ZCL_ABAPGIT_BACKGROUND_PUSH_AU + 1 + E + Push auto author + 2 + 1 + X + X + X + X + + + + diff --git a/src/background/zcl_abapgit_background_push_fi.clas.abap b/src/background/zcl_abapgit_background_push_fi.clas.abap new file mode 100644 index 000000000..ca2457892 --- /dev/null +++ b/src/background/zcl_abapgit_background_push_fi.clas.abap @@ -0,0 +1,169 @@ +CLASS zcl_abapgit_background_push_fi DEFINITION + PUBLIC + FINAL + CREATE PUBLIC . + + PUBLIC SECTION. + + INTERFACES zif_abapgit_background . + PROTECTED SECTION. + + CONSTANTS: BEGIN OF gc_settings, + name TYPE string VALUE 'NAME', + email TYPE string VALUE 'EMAIL', + END OF gc_settings. + + METHODS build_comment + IMPORTING + !is_files TYPE zif_abapgit_definitions=>ty_stage_files + RETURNING + VALUE(rv_comment) TYPE string . + METHODS push_fixed + IMPORTING + !io_repo TYPE REF TO zcl_abapgit_repo_online + !iv_name TYPE string + !iv_email TYPE string + RAISING + zcx_abapgit_exception . + PRIVATE SECTION. +ENDCLASS. + + + +CLASS ZCL_ABAPGIT_BACKGROUND_PUSH_FI IMPLEMENTATION. + + + METHOD build_comment. + + DATA: lt_objects TYPE STANDARD TABLE OF string WITH DEFAULT KEY, + lv_str TYPE string. + + FIELD-SYMBOLS: LIKE LINE OF is_files-local. + + + LOOP AT is_files-local ASSIGNING . + lv_str = |{ -item-obj_type } { -item-obj_name }|. + APPEND lv_str TO lt_objects. + ENDLOOP. + + SORT lt_objects AS TEXT. + DELETE ADJACENT DUPLICATES FROM lt_objects. + + IF lines( lt_objects ) = 1. + rv_comment = |BG: { lv_str }|. + ELSE. + rv_comment = 'BG: Multiple objects' ##NO_TEXT. + LOOP AT lt_objects INTO lv_str. + CONCATENATE rv_comment zif_abapgit_definitions=>gc_newline lv_str INTO rv_comment. + ENDLOOP. + ENDIF. + + ENDMETHOD. + + + METHOD push_fixed. + + DATA: ls_comment TYPE zif_abapgit_definitions=>ty_comment, + ls_files TYPE zif_abapgit_definitions=>ty_stage_files, + lo_stage TYPE REF TO zcl_abapgit_stage. + + FIELD-SYMBOLS: LIKE LINE OF ls_files-local, + LIKE LINE OF ls_files-remote. + + + ls_files = zcl_abapgit_stage_logic=>get( io_repo ). + ASSERT lines( ls_files-local ) > 0 + OR lines( ls_files-remote ) > 0. + + CREATE OBJECT lo_stage + EXPORTING + iv_branch_name = io_repo->get_branch_name( ) + iv_branch_sha1 = io_repo->get_sha1_remote( ). + + LOOP AT ls_files-local ASSIGNING . + WRITE: / 'stage' ##NO_TEXT, + -file-path, + -file-filename. + lo_stage->add( iv_path = -file-path + iv_filename = -file-filename + iv_data = -file-data ). + ENDLOOP. + + LOOP AT ls_files-remote ASSIGNING . + + WRITE: / 'removed' ##NO_TEXT, + -path, + -filename. + + lo_stage->rm( iv_path = -path + iv_filename = -filename ). + + ENDLOOP. + + ls_comment-committer-name = iv_name. + ls_comment-committer-email = iv_email. + ls_comment-comment = build_comment( ls_files ). + + io_repo->push( is_comment = ls_comment + io_stage = lo_stage ). + + ENDMETHOD. + + + METHOD zif_abapgit_background~get_description. + + rv_description = 'Automatic push, fixed author' ##NO_TEXT. + + ENDMETHOD. + + + METHOD zif_abapgit_background~get_settings. + + DATA: ls_setting LIKE LINE OF ct_settings. + + + READ TABLE ct_settings WITH KEY key = gc_settings-name INTO ls_setting. + IF sy-subrc <> 0. + ls_setting-key = gc_settings-name. + ls_setting-value = 'foobar'. + APPEND ls_setting TO ct_settings. + ENDIF. + + READ TABLE ct_settings WITH KEY key = gc_settings-email INTO ls_setting. + IF sy-subrc <> 0. + ls_setting-key = gc_settings-email. + ls_setting-value = 'foobar@localhost'. + APPEND ls_setting TO ct_settings. + ENDIF. + + ENDMETHOD. + + + METHOD zif_abapgit_background~run. + + DATA: ls_files TYPE zif_abapgit_definitions=>ty_stage_files, + ls_setting LIKE LINE OF it_settings, + lv_name TYPE string, + lv_email TYPE string. + + + ls_files = zcl_abapgit_stage_logic=>get( io_repo ). + + IF lines( ls_files-local ) = 0 AND lines( ls_files-remote ) = 0. + WRITE: / 'Nothing to stage' ##NO_TEXT. + RETURN. + ENDIF. + + READ TABLE it_settings WITH KEY key = gc_settings-name INTO ls_setting. "#EC CI_SUBRC + lv_name = ls_setting-value. + + READ TABLE it_settings WITH KEY key = gc_settings-email INTO ls_setting. "#EC CI_SUBRC + lv_email = ls_setting-value. + + push_fixed( + io_repo = io_repo + iv_name = lv_name + iv_email = lv_email ). + + ENDMETHOD. +ENDCLASS. diff --git a/src/background/zcl_abapgit_background_push_fi.clas.xml b/src/background/zcl_abapgit_background_push_fi.clas.xml new file mode 100644 index 000000000..4dfc2f0b9 --- /dev/null +++ b/src/background/zcl_abapgit_background_push_fi.clas.xml @@ -0,0 +1,19 @@ + + + + + + ZCL_ABAPGIT_BACKGROUND_PUSH_FI + 1 + E + Push fixed author + 2 + 1 + X + X + X + X + + + + diff --git a/src/background/zif_abapgit_background.intf.abap b/src/background/zif_abapgit_background.intf.abap new file mode 100644 index 000000000..8528f557a --- /dev/null +++ b/src/background/zif_abapgit_background.intf.abap @@ -0,0 +1,17 @@ +INTERFACE zif_abapgit_background + PUBLIC . + + + CLASS-METHODS get_description + RETURNING + VALUE(rv_description) TYPE string . + CLASS-METHODS get_settings + CHANGING + VALUE(ct_settings) TYPE zcl_abapgit_persist_background=>ty_settings_tt . + METHODS run + IMPORTING + !io_repo TYPE REF TO zcl_abapgit_repo_online + !it_settings TYPE zcl_abapgit_persist_background=>ty_settings_tt OPTIONAL + RAISING + zcx_abapgit_exception . +ENDINTERFACE. diff --git a/src/background/zif_abapgit_background.intf.xml b/src/background/zif_abapgit_background.intf.xml new file mode 100644 index 000000000..8970a7b1c --- /dev/null +++ b/src/background/zif_abapgit_background.intf.xml @@ -0,0 +1,16 @@ + + + + + + ZIF_ABAPGIT_BACKGROUND + 1 + E + Background + 2 + 1 + X + + + + diff --git a/src/persist/zcl_abapgit_persist_background.clas.abap b/src/persist/zcl_abapgit_persist_background.clas.abap index ad50ef68b..f75db81df 100644 --- a/src/persist/zcl_abapgit_persist_background.clas.abap +++ b/src/persist/zcl_abapgit_persist_background.clas.abap @@ -4,25 +4,18 @@ CLASS zcl_abapgit_persist_background DEFINITION PUBLIC SECTION. - CONSTANTS: BEGIN OF c_method, - nothing TYPE string VALUE 'nothing' ##NO_TEXT, - pull TYPE string VALUE 'pull' ##NO_TEXT, - push TYPE string VALUE 'push' ##NO_TEXT, - END OF c_method. + TYPES: BEGIN OF ty_settings, + key TYPE string, + value TYPE string, + END OF ty_settings. - CONSTANTS: BEGIN OF c_amethod, - fixed TYPE string VALUE 'fixed' ##NO_TEXT, - auto TYPE string VALUE 'auto' ##NO_TEXT, - user TYPE string VALUE 'user' ##NO_TEXT, - END OF c_amethod. + TYPES: ty_settings_tt TYPE STANDARD TABLE OF ty_settings WITH DEFAULT KEY. TYPES: BEGIN OF ty_xml, method TYPE string, username TYPE string, password TYPE string, - amethod TYPE string, - aname TYPE string, - amail TYPE string, + settings TYPE ty_settings_tt, END OF ty_xml. TYPES: BEGIN OF ty_background, diff --git a/src/ui/zcl_abapgit_gui_page_bkg.clas.abap b/src/ui/zcl_abapgit_gui_page_bkg.clas.abap index 0c17d5785..d43d1158c 100644 --- a/src/ui/zcl_abapgit_gui_page_bkg.clas.abap +++ b/src/ui/zcl_abapgit_gui_page_bkg.clas.abap @@ -13,25 +13,48 @@ CLASS zcl_abapgit_gui_page_bkg DEFINITION METHODS zif_abapgit_gui_page~on_event REDEFINITION . PROTECTED SECTION. - METHODS render_content REDEFINITION. - - PRIVATE SECTION. - - DATA mv_key TYPE zif_abapgit_persistence=>ty_repo-key . + METHODS read_persist + IMPORTING + !io_repo TYPE REF TO zcl_abapgit_repo_online + RETURNING + VALUE(rs_persist) TYPE zcl_abapgit_persist_background=>ty_background + RAISING + zcx_abapgit_exception . + METHODS render_methods + IMPORTING + !is_per TYPE zcl_abapgit_persist_background=>ty_background + RETURNING + VALUE(ro_html) TYPE REF TO zcl_abapgit_html . + METHODS render_settings + IMPORTING + !is_per TYPE zcl_abapgit_persist_background=>ty_background + RETURNING + VALUE(ro_html) TYPE REF TO zcl_abapgit_html . METHODS build_menu RETURNING VALUE(ro_menu) TYPE REF TO zcl_abapgit_html_toolbar . - CLASS-METHODS update_task + CLASS-METHODS update IMPORTING !is_bg_task TYPE zcl_abapgit_persist_background=>ty_background RAISING zcx_abapgit_exception . - METHODS render_data + METHODS render RETURNING VALUE(ro_html) TYPE REF TO zcl_abapgit_html RAISING zcx_abapgit_exception . + METHODS decode + IMPORTING + !iv_getdata TYPE clike + RETURNING + VALUE(rs_fields) TYPE zcl_abapgit_persist_background=>ty_background . + + METHODS render_content + REDEFINITION . + PRIVATE SECTION. + + DATA mv_key TYPE zif_abapgit_persistence=>ty_repo-key . ENDCLASS. @@ -40,10 +63,13 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_BKG IMPLEMENTATION. METHOD build_menu. + CREATE OBJECT ro_menu. + ro_menu->add( iv_txt = 'Run background logic' iv_act = zif_abapgit_definitions=>gc_action-go_background_run ) ##NO_TEXT. - ENDMETHOD. "build_menu + + ENDMETHOD. METHOD constructor. @@ -57,21 +83,80 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_BKG IMPLEMENTATION. ENDMETHOD. - METHOD render_content. + METHOD decode. - CREATE OBJECT ro_html. + DATA: lt_fields TYPE tihttpnvp. - ro_html->add( render_data( ) ). - - ENDMETHOD. "render_content + FIELD-SYMBOLS: LIKE LINE OF rs_fields-settings. - METHOD render_data. + rs_fields-key = mv_key. + + lt_fields = zcl_abapgit_html_action_utils=>parse_fields_upper_case_name( iv_getdata ). + + zcl_abapgit_html_action_utils=>get_field( + EXPORTING + name = 'METHOD' + it = lt_fields + CHANGING + cv = rs_fields ). + IF rs_fields-method IS INITIAL. + RETURN. + ENDIF. + + zcl_abapgit_html_action_utils=>get_field( + EXPORTING + name = 'USERNAME' + it = lt_fields + CHANGING + cv = rs_fields ). + + zcl_abapgit_html_action_utils=>get_field( + EXPORTING + name = 'PASSWORD' + it = lt_fields + CHANGING + cv = rs_fields ). + + + CALL METHOD (rs_fields-method)=>zif_abapgit_background~get_settings + CHANGING + ct_settings = rs_fields-settings. + LOOP AT rs_fields-settings ASSIGNING . + zcl_abapgit_html_action_utils=>get_field( + EXPORTING + name = -key + it = lt_fields + CHANGING + cv = -value ). + ENDLOOP. + + ASSERT NOT rs_fields IS INITIAL. + + ENDMETHOD. + + + METHOD read_persist. + + DATA: lo_per TYPE REF TO zcl_abapgit_persist_background, + lt_per TYPE zcl_abapgit_persist_background=>tt_background. + + + CREATE OBJECT lo_per. + lt_per = lo_per->list( ). + + READ TABLE lt_per INTO rs_persist WITH KEY key = io_repo->get_key( ). + IF sy-subrc <> 0. + CLEAR rs_persist. + ENDIF. + + ENDMETHOD. + + + METHOD render. DATA: lo_repo TYPE REF TO zcl_abapgit_repo_online, - lo_per TYPE REF TO zcl_abapgit_persist_background, - lt_per TYPE zcl_abapgit_persist_background=>tt_background, - ls_per LIKE LINE OF lt_per, + ls_per TYPE zcl_abapgit_persist_background=>ty_background, lv_nothing TYPE string, lv_push TYPE string, lv_pull TYPE string, @@ -80,57 +165,18 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_BKG IMPLEMENTATION. lv_auser TYPE string. + lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( mv_key ). + ls_per = read_persist( lo_repo ). + + CREATE OBJECT ro_html. ro_html->add( '
' ). - CREATE OBJECT lo_per. - lt_per = lo_per->list( ). - - lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( mv_key ). - - READ TABLE lt_per INTO ls_per WITH KEY key = lo_repo->get_key( ). - IF sy-subrc <> 0. - CLEAR ls_per. - ENDIF. - - IF ls_per-aname IS INITIAL. - ls_per-aname = 'foobar' ##NO_TEXT. - ENDIF. - IF ls_per-amail IS INITIAL. - ls_per-amail = 'foo@bar.com' ##NO_TEXT. - ENDIF. - - CASE ls_per-method. - WHEN zcl_abapgit_persist_background=>c_method-push. - lv_push = ' checked' ##NO_TEXT. - WHEN zcl_abapgit_persist_background=>c_method-pull. - lv_pull = ' checked' ##NO_TEXT. - WHEN OTHERS. - lv_nothing = ' checked' ##NO_TEXT. - ENDCASE. - - CASE ls_per-amethod. - WHEN zcl_abapgit_persist_background=>c_amethod-user. - lv_auser = ' checked' ##NO_TEXT. - WHEN zcl_abapgit_persist_background=>c_amethod-auto. - lv_aauto = ' checked' ##NO_TEXT. - WHEN OTHERS. - lv_afixed = ' checked' ##NO_TEXT. - ENDCASE. - ro_html->add( zcl_abapgit_gui_chunk_lib=>render_repo_top( lo_repo ) ). ro_html->add( '
' ). - ro_html->add( 'Method
' ) ##NO_TEXT. - ro_html->add( |
| ). - ro_html->add( 'Do nothing
' ) ##NO_TEXT. - ro_html->add( 'Automatic push
' ) ##NO_TEXT. - ro_html->add( 'Automatic pull
' ) ##NO_TEXT. - ro_html->add( '
' ). + ro_html->add( render_methods( ls_per ) ). ro_html->add( 'HTTP Authentication, optional
' ) ##NO_TEXT. ro_html->add( '(password will be saved in clear text)
' ) ##NO_TEXT. @@ -149,27 +195,7 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_BKG IMPLEMENTATION. ro_html->add( '
' ). - ro_html->add( 'Commit author
' ). - ro_html->add( 'Fixed
' ) ##NO_TEXT. - ro_html->add( 'Automatic
' ) ##NO_TEXT. - ro_html->add( 'Automatic using SU01 user details
' ) ##NO_TEXT. - ro_html->add( '
' ). - - ro_html->add( '' ). - ro_html->add( '' ). - ro_html->add( '' ). - ro_html->add( '' ). - ro_html->add( '' ). - ro_html->add( '' ). - ro_html->add( '' ). - ro_html->add( '' ). - ro_html->add( '' ). - ro_html->add( '
Name:
Email:
' ). + ro_html->add( render_settings( ls_per ) ). ro_html->add( '
' ). ro_html->add( '' ). @@ -182,13 +208,96 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_BKG IMPLEMENTATION. ENDMETHOD. - METHOD update_task. + METHOD render_content. + + CREATE OBJECT ro_html. + + ro_html->add( render( ) ). + + ENDMETHOD. + + + METHOD render_methods. + + DATA: lt_methods TYPE zcl_abapgit_background=>ty_methods_tt, + ls_method LIKE LINE OF lt_methods, + lv_checked TYPE string. + + + CREATE OBJECT ro_html. + + lt_methods = zcl_abapgit_background=>list_methods( ). + + ro_html->add( 'Method
' ) ##NO_TEXT. + ro_html->add( || ). + + IF is_per-method IS INITIAL. + lv_checked = ' checked' ##NO_TEXT. + ENDIF. + + ro_html->add( 'Do nothing
' ) ##NO_TEXT. + + LOOP AT lt_methods INTO ls_method. + CLEAR lv_checked. + IF is_per-method = ls_method-class. + lv_checked = ' checked' ##NO_TEXT. + ENDIF. + + ro_html->add( '' && + ls_method-description && '
' ) ##NO_TEXT. + ENDLOOP. + + ro_html->add( '
' ). + + ENDMETHOD. + + + METHOD render_settings. + + DATA: lt_settings LIKE is_per-settings, + ls_setting LIKE LINE OF lt_settings. + + + CREATE OBJECT ro_html. + + IF is_per-method IS INITIAL. + RETURN. + ENDIF. + + lt_settings = is_per-settings. + + CALL METHOD (is_per-method)=>zif_abapgit_background~get_settings + CHANGING + ct_settings = lt_settings. + + IF lines( lt_settings ) = 0. + RETURN. + ENDIF. + + ro_html->add( '' ). + LOOP AT lt_settings INTO ls_setting. + ro_html->add( '' ). + ro_html->add( '' ). + ro_html->add( '' ). + ro_html->add( '' ). + ENDLOOP. + ro_html->add( '
' && ls_setting-key && ':
' ). + + ENDMETHOD. + + + METHOD update. DATA lo_persistence TYPE REF TO zcl_abapgit_persist_background. CREATE OBJECT lo_persistence. - IF is_bg_task-method = zcl_abapgit_persist_background=>c_method-nothing. + IF is_bg_task-method IS INITIAL. lo_persistence->delete( is_bg_task-key ). ELSE. lo_persistence->modify( is_bg_task ). @@ -203,13 +312,9 @@ CLASS ZCL_ABAPGIT_GUI_PAGE_BKG IMPLEMENTATION. METHOD zif_abapgit_gui_page~on_event. - DATA ls_bg_task TYPE zcl_abapgit_persist_background=>ty_background. - CASE iv_action. WHEN zif_abapgit_definitions=>gc_action-bg_update. - ls_bg_task = zcl_abapgit_html_action_utils=>decode_bg_update( iv_getdata ). - ls_bg_task-key = mv_key. - update_task( ls_bg_task ). + update( decode( iv_getdata ) ). ev_state = zif_abapgit_definitions=>gc_event_state-re_render. ENDCASE. diff --git a/src/ui/zcl_abapgit_html_action_utils.clas.abap b/src/ui/zcl_abapgit_html_action_utils.clas.abap index 6c9e74991..b5d34b6b0 100644 --- a/src/ui/zcl_abapgit_html_action_utils.clas.abap +++ b/src/ui/zcl_abapgit_html_action_utils.clas.abap @@ -58,13 +58,13 @@ CLASS zcl_abapgit_html_action_utils DEFINITION CLASS-METHODS file_encode IMPORTING !iv_key TYPE zif_abapgit_persistence=>ty_repo-key - !ig_file TYPE any "assuming ty_file + !ig_file TYPE any "assuming ty_file RETURNING VALUE(rv_string) TYPE string . CLASS-METHODS obj_encode IMPORTING !iv_key TYPE zif_abapgit_persistence=>ty_repo-key - !ig_object TYPE any "assuming ty_item + !ig_object TYPE any "assuming ty_item RETURNING VALUE(rv_string) TYPE string . CLASS-METHODS file_obj_decode @@ -72,8 +72,8 @@ CLASS zcl_abapgit_html_action_utils DEFINITION !iv_string TYPE clike EXPORTING !ev_key TYPE zif_abapgit_persistence=>ty_repo-key - !eg_file TYPE any "assuming ty_file - !eg_object TYPE any "assuming ty_item + !eg_file TYPE any "assuming ty_file + !eg_object TYPE any "assuming ty_item RAISING zcx_abapgit_exception . CLASS-METHODS dbkey_encode @@ -96,11 +96,6 @@ CLASS zcl_abapgit_html_action_utils DEFINITION !it_postdata TYPE cnht_post_data_tab EXPORTING !es_fields TYPE any . - CLASS-METHODS decode_bg_update - IMPORTING - !iv_getdata TYPE clike - RETURNING - VALUE(rs_fields) TYPE zcl_abapgit_persist_background=>ty_background . CLASS-METHODS stage_decode IMPORTING !iv_getdata TYPE clike @@ -118,7 +113,7 @@ ENDCLASS. -CLASS zcl_abapgit_html_action_utils IMPLEMENTATION. +CLASS ZCL_ABAPGIT_HTML_ACTION_UTILS IMPLEMENTATION. METHOD add_field. @@ -191,24 +186,6 @@ CLASS zcl_abapgit_html_action_utils IMPLEMENTATION. ENDMETHOD. "dbkey_encode - METHOD decode_bg_update. - - DATA: lt_fields TYPE tihttpnvp. - - lt_fields = parse_fields_upper_case_name( iv_getdata ). - - get_field( EXPORTING name = 'METHOD' it = lt_fields CHANGING cv = rs_fields ). - get_field( EXPORTING name = 'USERNAME' it = lt_fields CHANGING cv = rs_fields ). - get_field( EXPORTING name = 'PASSWORD' it = lt_fields CHANGING cv = rs_fields ). - get_field( EXPORTING name = 'AMETHOD' it = lt_fields CHANGING cv = rs_fields ). - get_field( EXPORTING name = 'ANAME' it = lt_fields CHANGING cv = rs_fields ). - get_field( EXPORTING name = 'AMAIL' it = lt_fields CHANGING cv = rs_fields ). - - ASSERT NOT rs_fields IS INITIAL. - - ENDMETHOD. "decode_bg_update - - METHOD dir_decode. DATA: lt_fields TYPE tihttpnvp. @@ -430,5 +407,4 @@ CLASS zcl_abapgit_html_action_utils IMPLEMENTATION. REPLACE ALL OCCURRENCES OF '%3F' IN rv_string WITH '?'. ENDMETHOD. - ENDCLASS. diff --git a/src/zcl_abapgit_background.clas.abap b/src/zcl_abapgit_background.clas.abap deleted file mode 100644 index 7bd1c68fc..000000000 --- a/src/zcl_abapgit_background.clas.abap +++ /dev/null @@ -1,371 +0,0 @@ -CLASS zcl_abapgit_background DEFINITION PUBLIC CREATE PUBLIC. - - PUBLIC SECTION. - CLASS-METHODS: - run - RAISING zcx_abapgit_exception. - - PRIVATE SECTION. - CLASS-METHODS: - build_comment - IMPORTING is_files TYPE zif_abapgit_definitions=>ty_stage_files - RETURNING VALUE(rv_comment) TYPE string, - push - IMPORTING io_repo TYPE REF TO zcl_abapgit_repo_online - is_settings TYPE zcl_abapgit_persist_background=>ty_background - RAISING zcx_abapgit_exception, - push_fixed - IMPORTING io_repo TYPE REF TO zcl_abapgit_repo_online - is_settings TYPE zcl_abapgit_persist_background=>ty_background - RAISING zcx_abapgit_exception, - push_auto - IMPORTING io_repo TYPE REF TO zcl_abapgit_repo_online - is_settings TYPE zcl_abapgit_persist_background=>ty_background - RAISING zcx_abapgit_exception, - determine_user_details - IMPORTING iv_method TYPE string - iv_changed_by TYPE xubname - RETURNING VALUE(rs_user) TYPE zif_abapgit_definitions=>ty_git_user, - push_deletions - IMPORTING io_repo TYPE REF TO zcl_abapgit_repo_online - is_settings TYPE zcl_abapgit_persist_background=>ty_background - is_files TYPE zif_abapgit_definitions=>ty_stage_files - RAISING zcx_abapgit_exception. - -ENDCLASS. - - - -CLASS ZCL_ABAPGIT_BACKGROUND IMPLEMENTATION. - - - METHOD build_comment. - - DATA: lt_objects TYPE STANDARD TABLE OF string WITH DEFAULT KEY, - lv_str TYPE string. - - FIELD-SYMBOLS: LIKE LINE OF is_files-local. - - - LOOP AT is_files-local ASSIGNING . - lv_str = |{ -item-obj_type } { -item-obj_name }|. - APPEND lv_str TO lt_objects. - ENDLOOP. - - SORT lt_objects AS TEXT. - DELETE ADJACENT DUPLICATES FROM lt_objects. - - IF lines( lt_objects ) = 1. - rv_comment = |BG: { lv_str }|. - ELSE. - rv_comment = 'BG: Multiple objects'. - LOOP AT lt_objects INTO lv_str. - CONCATENATE rv_comment zif_abapgit_definitions=>gc_newline lv_str INTO rv_comment. - ENDLOOP. - ENDIF. - - ENDMETHOD. - - - METHOD determine_user_details. - - DATA: lo_user_master_record TYPE REF TO zcl_abapgit_user_master_record. - -* IF the method is to use real user values, call the BAPI - IF iv_method = zcl_abapgit_persist_background=>c_amethod-user. - - lo_user_master_record = zcl_abapgit_user_master_record=>get_instance( iv_changed_by ). - - rs_user-name = lo_user_master_record->get_name( ). - rs_user-email = lo_user_master_record->get_email( ). - - ENDIF. - -* If no email, fall back to localhost/default email - IF rs_user-email IS INITIAL. - rs_user-email = |{ iv_changed_by }@localhost|. - ENDIF. - -* If no full name maintained, just use changed by user name - IF rs_user-name IS INITIAL. - rs_user-name = iv_changed_by. - ENDIF. - ENDMETHOD. - - - METHOD push. - - DATA: ls_files TYPE zif_abapgit_definitions=>ty_stage_files. - - ls_files = zcl_abapgit_stage_logic=>get( io_repo ). - - IF lines( ls_files-local ) = 0 - AND lines( ls_files-remote ) = 0. - WRITE: / 'Nothing to stage' ##NO_TEXT. - RETURN. - ENDIF. - - CASE is_settings-amethod. - WHEN zcl_abapgit_persist_background=>c_amethod-fixed. - push_fixed( io_repo = io_repo - is_settings = is_settings ). - WHEN zcl_abapgit_persist_background=>c_amethod-auto - OR zcl_abapgit_persist_background=>c_amethod-user. - push_auto( io_repo = io_repo - is_settings = is_settings ). - WHEN OTHERS. - zcx_abapgit_exception=>raise( 'unknown push method' ). - ENDCASE. - - ENDMETHOD. - - - METHOD push_auto. - - TYPES: BEGIN OF ty_changed, - filename TYPE string, - path TYPE string, - changed_by TYPE xubname, - END OF ty_changed. - - DATA: ls_comment TYPE zif_abapgit_definitions=>ty_comment, - ls_files TYPE zif_abapgit_definitions=>ty_stage_files, - lt_changed TYPE STANDARD TABLE OF ty_changed WITH DEFAULT KEY, - lt_users TYPE STANDARD TABLE OF xubname WITH DEFAULT KEY, - ls_user_files LIKE ls_files, - lv_changed_by TYPE xubname, - lo_stage TYPE REF TO zcl_abapgit_stage. - - FIELD-SYMBOLS: LIKE LINE OF lt_changed, - LIKE LINE OF ls_files-remote, - LIKE LINE OF ls_files-local. - - - ls_files = zcl_abapgit_stage_logic=>get( io_repo ). - - LOOP AT ls_files-local ASSIGNING . - lv_changed_by = zcl_abapgit_objects=>changed_by( -item ). - APPEND lv_changed_by TO lt_users. - APPEND INITIAL LINE TO lt_changed ASSIGNING . - -changed_by = lv_changed_by. - -filename = -file-filename. - -path = -file-path. - ENDLOOP. - - SORT lt_users ASCENDING. - DELETE ADJACENT DUPLICATES FROM lt_users. - - LOOP AT lt_users INTO lv_changed_by. - CLEAR: ls_comment. - -* Fill user details - ls_comment-committer = determine_user_details( iv_method = is_settings-amethod - iv_changed_by = lv_changed_by ). - - CREATE OBJECT lo_stage - EXPORTING - iv_branch_name = io_repo->get_branch_name( ) - iv_branch_sha1 = io_repo->get_sha1_remote( ). - - CLEAR ls_user_files. - - LOOP AT ls_files-local ASSIGNING . - READ TABLE lt_changed WITH KEY - path = -file-path - filename = -file-filename - changed_by = lv_changed_by - TRANSPORTING NO FIELDS. - IF sy-subrc = 0. - WRITE: / 'stage' ##NO_TEXT, - ls_comment-committer-name, - -file-path, - -file-filename. - - lo_stage->add( iv_path = -file-path - iv_filename = -file-filename - iv_data = -file-data ). - - APPEND TO ls_user_files-local. - - LOOP AT ls_files-remote ASSIGNING - WHERE filename = -file-filename - AND path <> -file-path - AND filename <> 'package.devc.xml'. - WRITE: / 'rm' ##NO_TEXT, - -path, - -filename. - -* rm old file when object has moved - lo_stage->rm( - iv_path = -path - iv_filename = -filename ). - EXIT. " assumption: only one file - ENDLOOP. - ENDIF. - ENDLOOP. - - ls_comment-comment = build_comment( ls_user_files ). - - io_repo->push( is_comment = ls_comment - io_stage = lo_stage ). - ENDLOOP. - - IF lines( ls_files-remote ) = 0. - RETURN. - ENDIF. - - push_deletions( io_repo = io_repo - is_settings = is_settings - is_files = ls_files ). - - ENDMETHOD. - - - METHOD push_fixed. - - DATA: ls_comment TYPE zif_abapgit_definitions=>ty_comment, - ls_files TYPE zif_abapgit_definitions=>ty_stage_files, - lo_stage TYPE REF TO zcl_abapgit_stage. - - FIELD-SYMBOLS: LIKE LINE OF ls_files-local, - LIKE LINE OF ls_files-remote. - - - ls_files = zcl_abapgit_stage_logic=>get( io_repo ). - ASSERT lines( ls_files-local ) > 0 - OR lines( ls_files-remote ) > 0. - - CREATE OBJECT lo_stage - EXPORTING - iv_branch_name = io_repo->get_branch_name( ) - iv_branch_sha1 = io_repo->get_sha1_remote( ). - - LOOP AT ls_files-local ASSIGNING . - WRITE: / 'stage' ##NO_TEXT, - -file-path, - -file-filename. - lo_stage->add( iv_path = -file-path - iv_filename = -file-filename - iv_data = -file-data ). - ENDLOOP. - - LOOP AT ls_files-remote ASSIGNING . - - WRITE: / 'removed' ##NO_TEXT, - -path, - -filename. - - lo_stage->rm( iv_path = -path - iv_filename = -filename ). - - ENDLOOP. - - ls_comment-committer-name = is_settings-aname. - ls_comment-committer-email = is_settings-amail. - ls_comment-comment = build_comment( ls_files ). - - io_repo->push( is_comment = ls_comment - io_stage = lo_stage ). - - ENDMETHOD. - - - METHOD run. - - CONSTANTS: lc_enq_type TYPE c LENGTH 12 VALUE 'BACKGROUND'. - - DATA: lo_per TYPE REF TO zcl_abapgit_persist_background, - lo_repo TYPE REF TO zcl_abapgit_repo_online, - lt_list TYPE zcl_abapgit_persist_background=>tt_background, - ls_checks TYPE zif_abapgit_definitions=>ty_deserialize_checks, - lv_repo_name TYPE string. - - FIELD-SYMBOLS: LIKE LINE OF lt_list. - - - CALL FUNCTION 'ENQUEUE_EZABAPGIT' - EXPORTING - mode_zabapgit = 'E' - type = lc_enq_type - _scope = '3' - EXCEPTIONS - foreign_lock = 1 - system_failure = 2 - OTHERS = 3. - IF sy-subrc <> 0. - WRITE: / 'Another intance of the program is already running'. - RETURN. - ENDIF. - - CREATE OBJECT lo_per. - lt_list = lo_per->list( ). - - WRITE: / 'Background mode' ##NO_TEXT. - - LOOP AT lt_list ASSIGNING . - lo_repo ?= zcl_abapgit_repo_srv=>get_instance( )->get( -key ). - lv_repo_name = lo_repo->get_name( ). - WRITE: / -method, lv_repo_name. - - zcl_abapgit_login_manager=>set( - iv_uri = lo_repo->get_url( ) - iv_username = -username - iv_password = -password ). - - CASE -method. - WHEN zcl_abapgit_persist_background=>c_method-pull. -* todo, set defaults in ls_checks - lo_repo->deserialize( ls_checks ). - WHEN zcl_abapgit_persist_background=>c_method-push. - push( io_repo = lo_repo - is_settings = ). - WHEN OTHERS. - zcx_abapgit_exception=>raise( 'background, unknown mode' ). - ENDCASE. - ENDLOOP. - - IF lines( lt_list ) = 0. - WRITE: / 'Nothing configured' ##NO_TEXT. - ENDIF. - - CALL FUNCTION 'DEQUEUE_EZABAPGIT' - EXPORTING - type = lc_enq_type. - - ENDMETHOD. - - METHOD push_deletions. - - DATA: lo_stage TYPE REF TO zcl_abapgit_stage, - ls_comment TYPE zif_abapgit_definitions=>ty_comment. - - FIELD-SYMBOLS: LIKE LINE OF is_files-remote. - - ASSERT lines( is_files-remote ) > 0. - - CREATE OBJECT lo_stage - EXPORTING - iv_branch_name = io_repo->get_branch_name( ) - iv_branch_sha1 = io_repo->get_sha1_remote( ). - - LOOP AT is_files-remote ASSIGNING . - - WRITE: / 'removed' ##NO_TEXT, - -path, - -filename. - - lo_stage->rm( iv_path = -path - iv_filename = -filename ). - - ENDLOOP. - - ls_comment-committer-name = is_settings-aname. - ls_comment-committer-email = is_settings-amail. - ls_comment-comment = build_comment( is_files ). - - io_repo->push( is_comment = ls_comment - io_stage = lo_stage ). - - ENDMETHOD. - -ENDCLASS.