From b49292527876995321b56f0d5f73250727d21c92 Mon Sep 17 00:00:00 2001
From: psteiwer <psteiwer@gmail.com>
Date: Mon, 31 Jan 2022 16:13:01 -0500
Subject: [PATCH] Optional email domain if SMTP errors without it

Fixes #111
---
 PivotSubscriptions/Task.cls                 |  3 ++-
 PivotSubscriptions/UI/ConfigurationPage.cls | 11 ++++++++---
 PivotSubscriptions/Utils.cls                |  3 ++-
 3 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/PivotSubscriptions/Task.cls b/PivotSubscriptions/Task.cls
index 55231ec..61ac584 100644
--- a/PivotSubscriptions/Task.cls
+++ b/PivotSubscriptions/Task.cls
@@ -101,7 +101,8 @@ ClassMethod SendEmail(pID, pSendNow As %Boolean = 0, pPivot As %String, pEmails
 			Set server=##class(%Net.SMTP).%New()
 			Set server.smtpserver=##class(%SYS.Task.Config).GetData("MailServer")
 			Set msg=##class(%Net.MailMessage).%New()
-			Set msg.From="PivotSubscriptions"
+			Set emaildomain=##class(PivotSubscriptions.Utils).GetSettings("EmailDomain")
+			Set msg.From="PivotSubscriptions"_$select(emaildomain'="":"@"_emaildomain,1:"")
 			Do msg.To.SetAt(tEmail,1)
 			
 			Set validAdminEmail=##class(PivotSubscriptions.Utils).CheckConfigurationGlobal("AdminEmail")
diff --git a/PivotSubscriptions/UI/ConfigurationPage.cls b/PivotSubscriptions/UI/ConfigurationPage.cls
index 1a52e36..ef42e3b 100644
--- a/PivotSubscriptions/UI/ConfigurationPage.cls
+++ b/PivotSubscriptions/UI/ConfigurationPage.cls
@@ -15,6 +15,7 @@ XData contentPane [ XMLNamespace = "http://www.intersystems.com/zen" ]
 	<spacer width="20" />
 	<vgroup cellStyle="padding:2px 0px 6px 2px" enclosingStyle="padding-left:10px;padding-top:20px;" labelPosition="left">
 			<text id="AdminEmailText" label="Send error email notification to" size="25" />
+			<text id="EmailDomain" label="Email Domain" size="25" />
 			<label label="Server Link Configuration" labelClass="sectionCaption" containerStyle="padding-top:5px;padding-bottom:5px;" />
 			<radioSet id="HTTPButton" label="HTTP or HTTPS?" displayList="HTTP, HTTPs" valueList="http://,https://" />
 			<text id="ServerText" label="Server" size="25" />
@@ -88,6 +89,9 @@ Method %OnAfterCreatePage() As %Status
 	If $G(^PivotSubscriptions.Settings("ErrorTypes"))'="" {
 		Set ..%GetComponentById("ErrorTypes").value=^PivotSubscriptions.Settings("ErrorTypes")
 	}
+	If $G(^PivotSubscriptions.Settings("EmailDomain"))'="" {
+		Set ..%GetComponentById("EmailDomain").value=^PivotSubscriptions.Settings("EmailDomain")
+	}
 	
 	
 	Quit $$$OK
@@ -106,19 +110,20 @@ ClientMethod ButtonClick() [ Language = javascript ]
 		var customfootermessage=zen('CustomFooterMessage').getValue();
 		var changesonly=zen('ChangesOnly').getValue();
 		var errortypes=zen('ErrorTypes').getValue();
+		var emaildomain=zen('EmailDomain').getValue();
 		
-		var status=zenPage.SaveConfiguration(adminemail,http,server,port,nodataemail,nodatamessage,customfooter,customfootermessage,changesonly,errortypes);
+		var status=zenPage.SaveConfiguration(adminemail,http,server,port,nodataemail,nodatamessage,customfooter,customfootermessage,changesonly,errortypes,emaildomain);
 	}
 	catch(ex) {
 		zenExceptionHandler(ex,arguments);
 	}
 }
 
-Method SaveConfiguration(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes) As %Status [ ZenMethod ]
+Method SaveConfiguration(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes, pEmailDomain) As %Status [ ZenMethod ]
 {
 	Set tSC=$$$OK
 	
-	Set tSC = ##class(PivotSubscriptions.Utils).ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes)
+	Set tSC = ##class(PivotSubscriptions.Utils).ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes, pEmailDomain)
 	
 	Quit tSC
 }
diff --git a/PivotSubscriptions/Utils.cls b/PivotSubscriptions/Utils.cls
index 5fb0962..6d02190 100644
--- a/PivotSubscriptions/Utils.cls
+++ b/PivotSubscriptions/Utils.cls
@@ -7,7 +7,7 @@ ClassMethod GetVersion() As %String
 }
 
 /// Utility method for saving and updating global variables
-ClassMethod ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes)
+ClassMethod ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail, pNoDataMessage, pCustomFooter, pCustomFooterMessage, pChangesOnly, pErrorTypes, pEmailDomain)
 {
 	Set ^PivotSubscriptions.Settings("AdminEmail")=pAdminEmail
 	Set ^PivotSubscriptions.Settings("Http")=pHttp
@@ -19,6 +19,7 @@ ClassMethod ConfigureSettings(pAdminEmail, pHttp, pServer, pPort, pNoDataEmail,
 	Set ^PivotSubscriptions.Settings("CustomFooterMessage")=pCustomFooterMessage
 	Set ^PivotSubscriptions.Settings("ChangesOnly")=pChangesOnly
 	Set ^PivotSubscriptions.Settings("ErrorTypes")=pErrorTypes
+	Set ^PivotSubscriptions.Settings("EmailDomain")=pEmailDomain
 	
 	Quit $$$OK
 }