|
<%=L_SHUTDOWNCONFIRM_MESSAGE_TEXT%>
|
|
<%=L_SHUTDOWNCONFIRM_MESSAGECONTD_TEXT%>
|
<%
OnServePropertyPage=TRUE
End Function
'-------------------------------------------------------------------------
'Function: OnPostBackPage()
'Description: Called to signal that the page has been posted-back.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: True/False
'Global Variables: None
'-------------------------------------------------------------------------
Public Function OnPostBackPage(ByRef PageIn,ByRef EventArg)
Call SA_TraceOut("shutdown_shutdownConfirm.asp", "OnPostBackPage")
OnPostBackPage=TRUE
End Function
'-------------------------------------------------------------------------
'Function: OnSubmitPage()
'Description: Called when the page has been submitted for processing.
' Use this method to process the submit request.
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: True/False
'Global Variables: None
'-------------------------------------------------------------------------
Public Function OnSubmitPage(ByRef PageIn,ByRef EventArg)
Call SA_TraceOut("shutdown_shutdownConfirm.asp", "OnSubmitPage")
'shutdown function returns true if shutdown is successed else
' it returns false if shutdown is failed
OnSubmitPage=blnShutdownAppliance()
End Function
'-------------------------------------------------------------------------
'Function: OnClosePage()
'Description: Called when the page is about to be closed.Use this method
' to perform clean-up processing
'Input Variables: PageIn,EventArg
'Output Variables: PageIn,EventArg
'Returns: True/False
'Global Variables: None
'-------------------------------------------------------------------------
Public Function OnClosePage(ByRef PageIn,ByRef EventArg)
Call SA_TraceOut("shutdown_shutdownConfirm.asp", "OnClosePage")
OnClosePage=TRUE
End Function
'---------------------------------------------------------------------
' Function name: ServeCommonJavaScript()
' Description: Common Javascript function to be included
' Input Variables: None
' Output Variables: None
' Return Values: None
' Global Variables: None
'---------------------------------------------------------------------
Function ServeCommonJavaScript()
Call SA_TraceOut("shutdown_shutdownConfirm.asp", "ServeCommonJavaScript")
%>
<%End Function%>
<%
'-------------------------------------------------------------------------
'Function name: blnShutdownAppliance
'Description: To Shutdown the Serverappliance
'Input Variables: None
'Output Variables: None
'Returns: None
'Global Variables: In:L_(*)-Localized Strings
'-------------------------------------------------------------------------
Function blnShutdownAppliance()
Err.Clear
On Error Resume Next
Const CONST_SHUTDOWNPRIVILEGE = "SeShutdownPrivilege"
Dim ErrNum ' to hold error number
Call SA_TraceOut("shutdown_shutdownConfirm.asp", "blnShutdownAppliance")
'Assigning to false
blnShutdownAppliance=FALSE
Dim objSAHelper
Dim bModifiedPrivilege
bModifiedPrivilege = FALSE
'Create SAHelper object
Set objSAHelper = Server.CreateObject("ServerAppliance.SAHelper")
if err.number <> 0 Then
SA_TraceOut "Create object failed for SAHelper object", err.description
else
'enable shutdown privilege
bModifiedPrivilege = objSAHelper.SAModifyUserPrivilege(CONST_SHUTDOWNPRIVILEGE, TRUE)
if err.number <> 0 Then
SA_TraceOut "Enable privilege failed", err.description
end if
end if
'shutdown requested
If ( ExecuteShutdownTask("1") ) Then
ErrNum = Err.Number
Err.Clear
Call SA_ServeRestartingPage("Shutdown", SA_DEFAULT, SA_DEFAULT, SA_DEFAULT, SA_DEFAULT, SA_DEFAULT )
End If
if ( bModifiedPrivilege ) then
'revert back to disabled state
bModifiedPrivilege = objSAHelper.SAModifyUserPrivilege(CONST_SHUTDOWNPRIVILEGE, FALSE)
if err.number <> 0 Then
SA_TraceOut "Disable privilege failed", err.description
end if
end if
set objSAHelper = Nothing
If ErrNum <> 0 Then
Call SA_SetErrMsg(L_ERRORINSHUTDOWN_ERRORMESSAGE)
Exit Function
End If
blnShutdownAppliance=TRUE
End Function
%>