pre cutover push
This commit is contained in:
@ -26,8 +26,8 @@ $insert Logical
|
||||
$insert SRPMail_Inserts
|
||||
|
||||
Declare subroutine Set_Property
|
||||
Declare function Get_Property, SRPSendMail, Msg
|
||||
If @UserName EQ 'MESCATXMUSER' then Debug
|
||||
Declare function Get_Property, SRP_Send_Mail, Msg
|
||||
|
||||
Process = 0
|
||||
Loop
|
||||
Process += 1
|
||||
@ -95,7 +95,7 @@ Text:
|
||||
Text = ""
|
||||
Text<-1> = "App: " : @APPID<1>
|
||||
Text<-1> = "Window: " : @WINDOW
|
||||
Text<-1> = "User: " : @USERNAME
|
||||
Text<-1> = "User: " : @USER4
|
||||
Text<-1> = "Station: " : @STATION
|
||||
Text<-1> = " "
|
||||
Text<-1> = "SP Status: " : SPStatus@
|
||||
@ -129,7 +129,7 @@ return
|
||||
|
||||
|
||||
Send:
|
||||
MsgSent = SRPSendMail(Message, ConfigFile)
|
||||
MsgSent = SRP_Send_Mail(Message, ConfigFile)
|
||||
return
|
||||
|
||||
|
||||
@ -139,3 +139,4 @@ Done:
|
||||
Done = Yes$
|
||||
return
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user