143 lines
4.0 KiB
Plaintext
143 lines
4.0 KiB
Plaintext
Subroutine Epi_User_Debug(MsgSent)
|
|
|
|
/********************************************************************************************************
|
|
|
|
This program is proprietary and is not to be used by or disclosed to others, nor is it to
|
|
be copied without written permission from SRP Computer Solutions, Inc.
|
|
|
|
Name : Epi_User_Debug
|
|
|
|
Description :
|
|
|
|
Notes :
|
|
|
|
Parameters :
|
|
MsgSent [out] --
|
|
|
|
History (Date, Initials, Notes)
|
|
04/01/06 dmb Initial new logic
|
|
06/30/09 fjt Updated for use in EPI
|
|
06/30/10 jch Cloned from debugger_replace in SYSPROG acct
|
|
|
|
********************************************************************************************************/
|
|
|
|
$insert RTI_Debug_Common
|
|
$insert Logical
|
|
$insert SRPMail_Inserts
|
|
|
|
Declare subroutine Set_Property
|
|
Declare function Get_Property, SRP_Send_Mail, Msg
|
|
|
|
Process = 0
|
|
Loop
|
|
Process += 1
|
|
On Process GoSub Init, Development, Check, Text, Message, Send, Done
|
|
Until (Error or Done)
|
|
Repeat
|
|
|
|
Return
|
|
|
|
|
|
!----- PROCESS ROUTINES ---------------------------------------------------------------------------------
|
|
|
|
|
|
Init:
|
|
Done = No$
|
|
Error = No$
|
|
If Get_Property('NDW_MAIN', 'VISIBLE') then
|
|
MainWin = 'NDW_MAIN'
|
|
end else
|
|
MainWin = 'LSL_MAIN2'
|
|
end
|
|
* MainWin = "LSL_MAIN2"
|
|
Program = Curr_Program@
|
|
MsgSent = ""
|
|
|
|
If Program EQ "" then Program = "Debug Intercept Test"
|
|
|
|
SentFrom = "oinotify@infineon.com"
|
|
SentTo = "MES-FI-Mesa-Support@infineon.com"
|
|
|
|
|
|
ConfigFile = ""
|
|
ConfigFile<1> = SendUsing_Port$
|
|
ConfigFile<2> = ""
|
|
ConfigFile<3> = 25 ;// Server port
|
|
*ConfigFile<4> = "10.95.1.11" ;// Mail server
|
|
*ConfigFile<4> = 'smtp.intra.infineon.com' ;// Infineon smtp mail Server_internal recipients only
|
|
*ConfigFile<4> = 'appmail.eu.infineon.com' ;// Infineon smtp mail server_internal and external recipients
|
|
ConfigFile<4> = 'mailrelay-external.infineon.com'
|
|
ConfigFile<5> = Yes$ ;// Authenticate
|
|
ConfigFile<6> = "oinotify@infineon.com" ;// Username
|
|
ConfigFile<7> = "oinotify1" ;// Password
|
|
ConfigFile<8> = No$ ;// Use SSL
|
|
return
|
|
|
|
|
|
Development:
|
|
NoEmail = "SRP_FRANK"
|
|
Locate @USER4 in NoEmail using "," setting x then
|
|
Done = Yes$
|
|
end
|
|
return
|
|
|
|
|
|
Check:
|
|
Debugged = Get_Property(MainWin, "@DEBUGGED")
|
|
Locate Program in Debugged using @FM setting Pos then
|
|
// Email already sent for this program
|
|
Done = Yes$
|
|
end
|
|
return
|
|
|
|
|
|
Text:
|
|
Text = ""
|
|
Text<-1> = "App: " : @APPID<1>
|
|
Text<-1> = "Window: " : @WINDOW
|
|
Text<-1> = "User: " : @USER4
|
|
Text<-1> = "Station: " : @STATION
|
|
Text<-1> = " "
|
|
Text<-1> = "SP Status: " : SPStatus@
|
|
Text<-1> = "SP Stat Code: " : SPStatCode@
|
|
Text<-1> = "Program: " : Program
|
|
Text<-1> = "Call Depth: " : CallDepth@
|
|
Text<-1> = "Line No: " : LineNo@
|
|
Text<-1> = " "
|
|
Text<-1> = "Stack: "
|
|
Text<-1> = CallStack@
|
|
|
|
Convert \00\ to "," in Text
|
|
Convert @VM to "-" in Text
|
|
Swap @FM with Char(13):Char(10) in Text
|
|
|
|
OSWrite Text to Drive():"\logs\debug_log.txt"
|
|
return
|
|
|
|
|
|
Message:
|
|
Message = ""
|
|
Message<1> = "Debug Alert - ":Program ; // Subject
|
|
Message<2> = SentFrom ; // From (email address)
|
|
Message<3> = SentTo ; // Send to (email address)
|
|
Message<5> = "" ; // Blind Carbon Copy (email address)
|
|
Message<6> = "" ; // Reply To (email address)
|
|
Message<7> = "TEXT" ; // Content Type (TEXT or HTML)
|
|
Message<8> = Text ; // Content / Body
|
|
Message<9> = "" ; // Attachment(s) (path to file name(s))
|
|
return
|
|
|
|
|
|
Send:
|
|
MsgSent = SRP_Send_Mail(Message, ConfigFile)
|
|
return
|
|
|
|
|
|
Done:
|
|
Debugged<-1> = Program
|
|
Set_Property(MainWin, "@DEBUGGED", Debugged)
|
|
Done = Yes$
|
|
return
|
|
|
|
|