From 715528235f9dc7cf17f5671a2ccc5892f5294a74 Mon Sep 17 00:00:00 2001
From: Nikolay Solovyev <nsolov@gmail.com>
Date: Tue, 10 Dec 2024 11:51:30 +0100
Subject: [PATCH] when repo URL changing - clear all existing credentials

---
 src/%ZPM/PackageManager/Client/RemoteServerDefinition.cls | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/%ZPM/PackageManager/Client/RemoteServerDefinition.cls b/src/%ZPM/PackageManager/Client/RemoteServerDefinition.cls
index 6e72f61e..610e944f 100644
--- a/src/%ZPM/PackageManager/Client/RemoteServerDefinition.cls
+++ b/src/%ZPM/PackageManager/Client/RemoteServerDefinition.cls
@@ -138,6 +138,13 @@ ClassMethod OnConfigure(pInstance As %ZPM.PackageManager.Client.ServerDefinition
 				$$$ThrowStatus($$$ERROR($$$GeneralError, "Operation cancelled."))
 			}
 		}
+        
+        if ( $$$lcase(tUrl) '= $$$lcase(pInstance.URL) ) {
+            // when repo URL changing - clear all existing credentials
+            Set pInstance.Username = ""
+            Set pInstance.Password = ""
+            Set pInstance.Token = ""
+        }
 		
 		If $Data(pModifiers("username"), tUsername) {
 			Set pInstance.Username = tUsername