<%
OnServePropertyPage = TRUE
End Function
Public Function OnSubmitPage(ByRef PageIn, ByRef EventArg)
If SetAlertEmail Then
Session("aeOldSmartHost") =""
OnSubmitPage = TRUE
Else
OnSubmitPage = FALSE
End If
End Function
Public Function OnClosePage(ByRef PageIn, ByRef EventArg)
If mstrMethod = "CANCEL" Then
SetSmartHost(True)
End If
'close all session
Session.Contents.Remove("aeOldSmartHost")
Session.Contents.Remove("aeOldSmartHostType")
OnClosePage = TRUE
End Function
Function ServeCommonJavaScript()
%>
<%
End Function
'-------------------------------------------------------------------------
'
' Function : SetAlertEmail
'
' Synopsis : function to set server alert email
'
' Arguments: None
'
' Returns : None
'
'-------------------------------------------------------------------------
Function SetAlertEmail()
Dim objTCtx
Dim Error
on error resume next
Error = ExecuteTask("SetAlertEmail", objTCtx)
if Error <> 0 then
SetErrMsg L_ALERTEMAIL_SETTINGS_ERR_SETTASK
SetAlertEmail = False
Else
SetSmartHost(False)
SetAlertEmail = True
End if
set objTCtx = Nothing
End Function
'-------------------------------------------------------------------------
' Subprocedure name:SetVarsFromSystem
' Description: Serves in getting the values from system
' Input Variables: None
' Output Variables: None
' Returns: None
' Global Variables: Out: aeEnableAlertEmail - alert email
' Out: aeSendEmailType - send email type
' Out: aeReceiverEmailAddress - receiver email address
'-------------------------------------------------------------------------
Sub SetVarsFromSystem
Dim objHelper
Err.Clear
'---------------------------------------------------------------------
'Get old parameter from registry
'---------------------------------------------------------------------
Set objHelper = Server.CreateObject(mstrCHelperPROGID)
If Err.Number <> 0 Then
aeEnableAlertEmail = 0
aeSendEmailType = 0
aeReceiverEmailAddress = ""
Else
Call objHelper.GetRegistryValue(mstrRegPathName, _
mstrEnableAlertEmailValue, _
aeEnableAlertEmail, _
mintVT_I4_REG_DWORD)
Call objHelper.GetRegistryValue(mstrRegPathName, _
mstrSendEmailTypeValue,_
aeSendEmailType, _
mintVT_I4_REG_DWORD)
Call objHelper.GetRegistryValue(mstrRegPathName, _
mstrReceiverEmailAddressValue,_
aeReceiverEmailAddress, _
mintVT_BSTR_REG_SZ)
End if
Set objHelper = Nothing
End Sub
'-------------------------------------------------------------------------
' Subprocedure name:SetVarsFromForm
' Description: Serves in getting the values from client
' Input Variables: None
' Output Variables: None
' Returns: None
' Global Variables: Out: aeEnableAlertEmail - alert email
' Out: aeSendEmailType - send email type
' Out: aeReceiverEmailAddress - receiver email address
' Out: aeSmartHost - Smart host of SMTP server
'-------------------------------------------------------------------------
Sub SetVarsFromForm
aeEnableAlertEmail = Request.Form("EnableAlertEmail")
aeSendEmailType = Request.Form("SendEmailType")
aeReceiverEmailAddress = Request.Form("ReceiverEmailAddress")
aeSmartHost = Trim(Request.Form("SmartHost"))
End Sub
'-------------------------------------------------------------------------
' Subprocedure name:SetInternalVars
' Description: Serves internal variables
' Input Variables: None
' Output Variables: None
' Returns: None
' Global Variables: Out: aeEnableAlertEmail - alert email
' Out: aeSendEmailType - send email type
' Out: aeReceiverEmailAddress - receiver email address
' Out: aeSmartHost - Smart host of SMTP server
'-------------------------------------------------------------------------
Sub SetInternalVars
aeSendCriticalCheck = CONST_CONTROL_NOT_CHECKED_STATUS
aeSendWarningCheck = CONST_CONTROL_NOT_CHECKED_STATUS
aeSendInforCheck = CONST_CONTROL_NOT_CHECKED_STATUS
If aeEnableAlertEmail Then
aeDisableCheck = CONST_CONTROL_NOT_CHECKED_STATUS
aeEnableCheck = CONST_CONTROL_CHECKED_STATUS
aeDisableAlertEmail = CONST_CONTROL_NOT_DISABLE_STATUS
Else
aeDisableCheck = CONST_CONTROL_CHECKED_STATUS
aeEnableCheck = CONST_CONTROL_NOT_CHECKED_STATUS
aeDisableAlertEmail = CONST_CONTROL_DISABLE_STATUS
End if
If aeSendEmailType and AE_CRITICAL_ALERT Then
aeSendCriticalCheck = CONST_CONTROL_CHECKED_STATUS
End if
If aeSendEmailType and AE_WARNING_ALERT Then
aeSendWarningCheck = CONST_CONTROL_CHECKED_STATUS
End if
If aeSendEmailType and AE_INFORMATION_ALERT Then
aeSendInforCheck = CONST_CONTROL_CHECKED_STATUS
End if
End Sub
'-------------------------------------------------------------------------
'
' Function : SetSmartHost
'
' Synopsis : function to set smart host
'
' Arguments:
' Boolean(IN): True - restore old vale
' False - save with new value
'
' Returns : None
'
'-------------------------------------------------------------------------
Function SetSmartHost(bOld)
Dim dso
Dim objAds,tempSmartHost
Call SA_TraceOut("SH_ALERTEMAIL", "Entering SetSmartHost")
Err.Clear
on error resume next
Set dso = GetObject("IIS:")
If Err.Number <> 0 Then
Call SA_TraceOut("SH_ALERTEMAIL", _
"GetObject(IIS:) encountered error: "& _
CStr(Hex(Err.Number))& " "&Err.Description)
SetSmartHost = False
Exit Function
Else
Set objAds = dso.OpenDSObject(_
"IIS://localhost/SmtpSvc/1",_
"",_
"",_
ADS_SECURE_AUTHENTICATION)
If Err.Number <> 0 Then
Call SA_TraceOut("SH_ALERTEMAIL", _
"dso.OpenDSObject encountered error: "& _
CStr(Hex(Err.Number))&" "& Err.Description)
SetSmartHost = False
Exit Function
Else
if bOld Then
objAds.Put "SmartHost", Session("aeOldSmartHost")
objAds.Put "SmartHostType", Session("aeOldSmartHostType")
Else
tempSmartHost = Request.form("SmartHost")
' Add breckets to the ip address
If IsIPAddress(tempSmartHost) Then
tempSmartHost = "["&tempSmartHost&"]"
End if
objAds.Put "SmartHost", tempSmartHost
'
' According to the old start host config, determine the
' value of smarthosttype
'
If tempSmartHost = "" Then
objAds.Put "SmartHostType", 0
Else
If Session("aeOldSmartHostType") = 1 Then
objAds.Put "SmartHostType", 1
Else
objAds.Put "SmartHostType", 2
End if
End if
End if
objAds.SetInfo
SetSmartHost = True
End if
End if
If Err.Number <> 0 Then
Call SA_TraceOut("SH_ALERTEMAIL", _
"SetSmartHost encountered error: "& _
CStr(Hex(Err.Number))&" "&Err.Description)
End If
Set dso = Nothing
Set objAds = Nothing
End Function
'-------------------------------------------------------------------------
'
' Function : GetSmartHost
'
' Synopsis : function to get smart host
'
' Arguments: None
'
' Returns : None
'
'-------------------------------------------------------------------------
Function GetSmartHost()
Dim dso
Dim objAds
Err.Clear
on error resume next
Set dso = GetObject("IIS:")
If Err.Number <> 0 Then
GetSmartHost = False
Else
Set objAds = dso.OpenDSObject(_
"IIS://localhost/SmtpSvc/1",_
"",_
"",_
ADS_SECURE_AUTHENTICATION)
If Err.Number <> 0 Then
GetSmartHost = False
Else
aeSmartHost = objAds.Get("SmartHost")
'If is IP address, throw off breackets
If IsBracketsIPAddress(aeSmartHost) Then
aeSmartHost=Mid(aeSmartHost,2,Len(aeSmartHost)-2)
End if
'Get the type of the smart host
aeSmartHostType = objAds.Get("SmartHostType")
GetSmartHost = True
End if
End if
Set dso = Nothing
Set objAds = Nothing
End Function
'-------------------------------------------------------------------------
'
' Function : SMTPIsReady
'
' Synopsis : function to determine the state of SMTP server
'
' Arguments: None
'
' Returns : BOOL
'
'-------------------------------------------------------------------------
Function SMTPIsReady()
Dim dso
Dim objAds
Dim smtpState
Err.Clear
on error resume next
SMTPIsReady = True
Set dso = GetObject("IIS:")
If Err.Number <> 0 Then
SMTPIsReady = False
Exit Function
Else
Set objAds = dso.OpenDSObject(_
"IIS://localhost/SmtpSvc/1",_
"",_
"",_
ADS_SECURE_AUTHENTICATION)
If Err.Number <> 0 Then
'Not exist the service of SMTP
SMTPIsReady = False
Exit Function
Else
smtpState = objAds.Get("ServerState")
'If the smtp is stop display errinfo
If smtpState = SMTP_STOP_STATUS Then
SMTPIsReady = False
Exit Function
End if
End if
End if
Set dso = Nothing
Set objAds = Nothing
End Function
'-------------------------------------------------------------------------
'
' Function : TestMailSend
'
' Synopsis : Test the email settings
'
' Arguments: None
'
' Returns : None
'
'-------------------------------------------------------------------------
Function TestMailSend()
Dim iMsg
Dim iConf
Dim comHelper
Dim iComputer
Dim iNow
Dim msgBody
Dim strFrom
Err.Clear
on error resume next
Call SA_TraceOut("SH_ALERTEMAIL", "Entering TestMailSend")
Set iMsg = CreateObject("CDO.Message")
If Err.Number <> 0 Then
Call SA_TraceOut("SH_ALERTEMAIL", _
"CreateObject(CDO.Message) encountered error: "& _
CStr(Hex(Err.Number))&" "&Err.Description)
TestMailSend = False
Exit Function
Else
Set iConf = CreateObject("CDO.Configuration")
If Err.Number <> 0 Then
TestMailSend = False
Call SA_TraceOut("SH_ALERTEMAIL", _
"CreateObject(CDO.Configuration) encountered error: "& _
CStr(Hex(Err.Number))&" "&Err.Description)
Exit Function
Else
iConf.Load cdoIIS
Set comHelper = Server.CreateObject("comhelper.SystemSetting")
If Err.Number <> 0 Then
TestMailSend = False
Call SA_TraceOut("SH_ALERTEMAIL", _
"Server.CreateObject(comhelper.SystemSetting) error: "& _
CStr(Hex(Err.Number))&" "&Err.Description)
Exit Function
Else
Set iComputer = comHelper.Computer
If Err.Number <> 0 Then
TestMailSend = False
Call SA_TraceOut("SH_ALERTEMAIL", _
"comHelper.Computer encountered error: "& _
CStr(Hex(Err.Number))&" "&Err.Description)
Exit Function
Else
iNow = Now
msgBody = SA_GetLocString("alertemailmsg.dll", _
"&H4C000016",_
Array(UCase(iComputer.FullQualifiedComputerName)))
strFrom = GetFromAddressForAlertEmail(iComputer)
With iMsg
Set.Configuration = iConf
.To = aeReceiverEmailAddress
.From = strFrom
.Subject = SA_GetLocString("alertemailmsg.dll", _
"&H4C000015", _
Array(CStr(iNow)))
.BodyPart.Charset = SA_GetCharSet()
.TextBody = msgBody
.Send
End With
If Err.Number <> 0 Then
TestMailSend = False
Call SA_TraceOut("SH_ALERTEMAIL", _
"Set.Configuration encountered error: "& _
CStr(Hex(Err.Number))&" "&Err.Description)
Else
TestMailSend = True
End if
End if
End if
End if
End If
Set comHelper = Nothing
Set iComputer = Nothing
Set iMsg = Nothing
Set iConf = Nothing
End Function
'-------------------------------------------------------------------------
'
' Function : IsIPAddress
'
' Synopsis : Is a dot IP address?
'
' Arguments: ipstring - the string is analysed
'
' Returns : BOOL
'
'-------------------------------------------------------------------------
Function IsIPAddress(ipstring)
Dim FiledUperBound
Dim FieldArray,LoopIndex
LoopIndex = 0
IsIPAddress = True
FieldArray = Split(ipstring, ".")
FiledUperBound = UBound(FieldArray)
if FiledUperBound = 3 Then
Do while LoopIndex < 4
If not IsNumeric(FieldArray(LoopIndex)) Then
IsIPAddress = False
Exit Do
End if
LoopIndex = LoopIndex + 1
Loop
Else
IsIPAddress = False
End if
End Function
'-------------------------------------------------------------------------
'
' Function : IsBracketsIPAddress
'
' Synopsis : Is a dot IP address in brackets?
'
' Arguments: ipstring - the string is analysed
'
' Returns : BOOL
'
'-------------------------------------------------------------------------
Function IsBracketsIPAddress(ipstring)
IsBracketsIPAddress = False
If Left(ipstring,1) = "[" and Right(ipstring, 1) = "]" Then
If IsIPAddress(Mid(ipstring,2,Len(ipstring)-2)) Then
IsBracketsIPAddress = True
End if
End if
End Function
'-------------------------------------------------------------------------
'
' Function : GetFromAddressForAlertEmail()
'
' Synopsis : Get From Address
'
' Arguments: NULL
'
' Returns : INT
'
'-------------------------------------------------------------------------
Function GetFromAddressForAlertEmail( objComputer )
Err.Clear
On Error Resume Next
Dim strFullyQualifiedComputerName
strFullyQualifiedComputerName = objComputer.FullQualifiedComputerName
SA_Traceout "strFullyQualifiedComputerName:", strFullyQualifiedComputerName
GetFromAddressForAlertEmail = GetComputerName()
Dim objADSI
Dim strDomainName
' The algorithm is
' Look at the value of "Full Qualified Domain Name" entry in SMTP Delivery tab in MMC.
' 1) If the value is empty then the e-mail From Address is appliance_name
' 2) If it is NOT empty use the From Address as appliance_name@"Full Qualified Domain Name"
Set objADSI = GetObject( "IIS://LOCALHOST/SMTPSVC/1")
If Err.Number <> 0 Then
SA_TraceOut "sh_alertemail.asp", " failed to call GetObject"
Exit Function
End If
' Getting the FullyQualifiedDomainName property
strDomainName = objADSI.Get("FullyQualifiedDomainName")
If Err.Number <> 0 Then
SA_TraceOut "sh_alertemail.asp", " failed to call Get property on FullyQualifiedDomainName"
Exit Function
End If
If lcase( strDomainName) <> lcase(strFullyQualifiedComputerName) Then
GetFromAddressForAlertEmail = GetComputerName() + "@" + strDomainName
End If
End Function
%>