From d460c3b285090e89468d7f4e814a5226b42f48a6 Mon Sep 17 00:00:00 2001
From: Alexander Geppart <gepparta@gmail.com>
Date: Sun, 11 Mar 2018 19:28:46 +0000
Subject: [PATCH] added a host name to password popup title

added a host name to password popup title
---
 src/zabapgit_password_dialog.prog.abap | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/src/zabapgit_password_dialog.prog.abap b/src/zabapgit_password_dialog.prog.abap
index 7f15850c1..b1a484434 100644
--- a/src/zabapgit_password_dialog.prog.abap
+++ b/src/zabapgit_password_dialog.prog.abap
@@ -45,6 +45,9 @@ CLASS lcl_password_dialog DEFINITION FINAL.
 
   PRIVATE SECTION.
     CLASS-DATA gv_confirm TYPE abap_bool.
+    CLASS-METHODS enrich_title_by_hostname
+      IMPORTING
+        iv_repo_url TYPE string.
 
 ENDCLASS. "lcl_password_dialog DEFINITION
 
@@ -57,6 +60,9 @@ CLASS lcl_password_dialog IMPLEMENTATION.
     p_user     = cv_user.
     gv_confirm = abap_false.
 
+
+    enrich_title_by_hostname( iv_repo_url ).
+
     CALL SELECTION-SCREEN c_dynnr STARTING AT 5 5 ENDING AT 60 8.
 
     IF gv_confirm = abap_true.
@@ -132,4 +138,17 @@ CLASS lcl_password_dialog IMPLEMENTATION.
 
   ENDMETHOD.  "on_screen_event
 
+
+  METHOD enrich_title_by_hostname.
+
+    DATA lv_host TYPE string.
+
+    FIND REGEX 'https?://([^/^:]*)' IN iv_repo_url SUBMATCHES lv_host.
+    IF lv_host IS NOT INITIAL AND lv_host NE space.
+      CLEAR: s_title.
+      CONCATENATE 'Login:' lv_host INTO s_title IN CHARACTER MODE SEPARATED BY space.
+    ENDIF.
+
+  ENDMETHOD.
+
 ENDCLASS. " lcl_password_dialog IMPLEMENTATION