<%
	'-------------------------------------------------------------------------
	' inc_logs.asp: common function for logs 
    ' Copyright (c) Microsoft Corporation.  All rights reserved. 
	'-------------------------------------------------------------------------
		
	Const CONST_DIRECTORYPATH		="DirectoryPath" 
	Const CONST_DIRPROPERTY			="DirProperty" 	
	Const CONST_FILENAME			="FileName"
	Const CONST_WMI_PROVIDER		="Provider"
	Const CONST_WMI_INSTANCEPATH	="InstancePath"
	Const CONST_WMI_INSTANCENAME	="InstanceName"
	Const CONST_WMI_QUERY			="Query"
	
	Const CONST_LOGS_TEMPDIR        ="TempFiles"
	Const CONST_LOGS_LOGDIR         ="LogFiles"
	
	Dim G_CONST_RETURN_URL
	G_CONST_RETURN_URL = "../tasks.asp"
		
	Call SA_MungeURL(G_CONST_RETURN_URL, "MultiTab", "TabsMaintenance")
	Call SA_MungeURL(G_CONST_RETURN_URL, "Container", "TabsMaintenanceLogs")
	Call SA_MungeURL(G_CONST_RETURN_URL, "Tab1", GetTab1())
	Call SA_MungeURL(G_CONST_RETURN_URL, "Tab2", GetTab2())
	
	
	'-------------------------------------------------------------------------
	' Function name:		GetPath
	' Description:			gets the directory path 
	' Input Variables:		strKeyName
	' Output Variables:		None
	' Return Values:		String  
	' Global Variables:		None
	'-------------------------------------------------------------------------
	Function GetPath(strKeyName) 
		Err.Clear 
		On Error Resume Next
		
		Dim strDirectoryPath
		Dim strWMIDirProperty
		Dim strFileName
		Dim strWMIProvider
		Dim strWMIInstancePath
		Dim strWMIInstanceName
		Dim strWMIQuery
		Dim strResult, strTemp		
		 
		' In XPE, WebAdminLog and WebShareLog are at the same directory 
		If CONST_OSNAME_XPE = GetServerOSName() Then			
			if ucase(strKeyName) = ucase("TabsMaintenanceLogsWebShares") Then			
				strKeyName = "TabsMaintenanceLogsWebAdministration"
			End If		
		End If 
		 
     	'Getting the required values from the registry
		strDirectoryPath	=GetLogValueFromRegistry(strKeyName,CONST_DIRECTORYPATH)
		strWMIDirProperty	=GetLogValueFromRegistry(strKeyName,CONST_DIRPROPERTY)
		strFileName			=GetLogValueFromRegistry(strKeyName,CONST_FILENAME)
		strWMIProvider		=GetLogValueFromRegistry(strKeyName,CONST_WMI_PROVIDER)
		strWMIInstancePath	=GetLogValueFromRegistry(strKeyName,CONST_WMI_INSTANCEPATH)
		strWMIInstanceName	=GetLogValueFromRegistry(strKeyName,CONST_WMI_INSTANCENAME)		
		strWMIQuery			=GetLogValueFromRegistry(strKeyName,CONST_WMI_QUERY)

        If IsIISWMIProviderName(strWMIProvider) Then		    	
		   	strWMIProvider = CONST_WMI_IIS_NAMESPACE
		End If

        'For web admin log and web share log on sak2.1 the instance name is the currentwebsitename
        'on sak2.2, the instance name is the website name running the admin/shares site (they are
        'not fixed at W3SVC/1 and W3SVC/3 anymore as in 2.0)
        
       	If CONST_OSNAME_XPE = GetServerOSName() Then	
			
			' On XPe, the instanceName should be the current website
			if ucase(strKeyName) = ucase("TabsMaintenanceLogsWebAdministration") Then 
	    		strWMIInstanceName = GetCurrentWebsiteName()
			End If
	    Else
            if ucase(strKeyName) = ucase("TabsMaintenanceLogsWebAdministration") Then        
                strWMIInstanceName = GetCurrentWebsiteName()
            End If
                          
            if ucase(strKeyName) = ucase("TabsMaintenanceLogsWebShares") Then        
                strWMIInstanceName = GetSharesWebSiteID()
            End If
        
        End If  

		If strDirectoryPath <> "" Then
			strResult=strDirectoryPath
			GetPath=strResult	'Handing over the dir path 
			Exit Function		

		ElseIf strWMIInstancePath <> "" Then 'Getting from WMI using instances

		    ' If IIS 6.0 installed, and the provider is iis WMI provider 
		    ' we need to modify the path (WMI class) name
		    If IsIIS60Installed() and IsIISWMIProviderName(strWMIProvider) Then		    	
		    	strWMIInstancePath = GetIISWMIProviderClassName(strWMIInstancePath)
		    End If

			'Call to get the path from WMI 
			strResult=GetDirPathFromInstance(strWMIProvider,strWMIInstancePath,strWMIInstanceName,strWMIDirProperty)
		
		ElseIf strWMIQuery <> "" Then		'Getting from WMI using query
			
			'Call to get the path from WMI 
			strResult=GetDirPathFromQuery(strWMIProvider ,strWMIQuery,strWMIDirProperty)	

		Else ' null not found  case 
			strResult=""
		End IF
										
		'Attaching the corresponding directory if exists
		If strWMIInstanceName <> "" Then
			strTemp=replace(strWMIInstanceName,"/" ,"")
			GetPath=strResult & "\" & strTemp
		Else
			GetPath=strResult	
		End IF

	End Function	
	
	'-------------------------------------------------------------------------
	' Function name:		GetLogValueFromRegistry
	' Description:			gets the Value from the registry
	' Input Variables:		strRegKeyPath, strRegKey
	' Output Variables:		None
	' Return Values:		String- The value retrieved from registry
	' Global Variables:		None
	'-------------------------------------------------------------------------
	Function GetLogValueFromRegistry(strRegKeyPath,strRegKey) 
		Err.Clear 
		On Error Resume Next
		
		Dim objRegistry
		Dim strReturnValue
		
		Dim CONST_REGISTRY_PATH
		CONST_REGISTRY_PATH ="SOFTWARE\Microsoft\ServerAppliance\ElementManager\WebElementDefinitions\" & strRegKeyPath 	
		
		'Connecting to default namespace to carry out registry operations
		Set objRegistry = regConnection()
		
		'getting the required reg key value 
		strReturnValue=GetRegKeyValue(objRegistry,CONST_REGISTRY_PATH,strRegKey,CONST_STRING)
		
		GetLogValueFromRegistry=strReturnValue
	End Function
	
	'-------------------------------------------------------------------------
	' Function name:		GetDirPathFromQuery
	' Description:			gets the dir path 
	' Input Variables:		strWMIProvider 
	'						strWMIQuery
	'						strWMIDirProperty
	' Output Variables:		None
	' Return Values:		String  
	' Global Variables:		None
	'-------------------------------------------------------------------------
	Function GetDirPathFromQuery(strWMIProvider ,strWMIQuery ,strWMIDirProperty) 
		Err.Clear 
		On Error Resume Next
		
		Dim objConnection	'WMI connection object
		Dim objLogs , objLog
		CONST CONST_INVALID_NAMESPACE=&H8004100E	'Invalid name space constant
		
		If strWMIProvider= "" Then
			GetDirPathFromQuery=""	'Assign null and exit in case of blank provider name
		Else
			Set objConnection = getWMIConnection(strWMIProvider)	'Connecting to the server
		
			'Incase connection fails
			If Err.number <> 0 Then
				If ( Err.number=CONST_INVALID_NAMESPACE ) Then				
					GetDirPathFromQuery=""	'Assign to null in case of error
				Else	
					Call SA_ServeFailurepage(L_FAILEDTOGETWMICONNECTION_ERRORMESSAGE)
				End IF	
					Exit Function
			End if
			
			' If provider is IIS WMI Provider, GetIISWMIQuery is to get the query string 
			' working for the IIS provider installed on server
			If IsIISWMIProviderName(strWMIProvider) Then		    	
			    set objLogs = objConnection.ExecQuery(GetIISWMIQuery(strWMIQuery))
			else
			    set objLogs = objConnection.ExecQuery(strWMIQuery)
			End If
			    
			
			For each objLog in objLogs
				
				'Call to get the dir path depending  on WMIprop 
				GetDirPathFromQuery=getDirPathFromProperty(objLog,strWMIDirProperty)			
								
			Next 'For each objLog in objLogs
		End IF	'If strWMIProvider= "" Then
		
	End Function
	
	
	'-------------------------------------------------------------------------
	' Function name:		GetDirPathFromInstance
	' Description:			gets the dir path 
	' Input Variables:		strWMIProvider 
	'						strWMIQuery
	'						strWMIDirProperty
	' Output Variables:		None
	' Return Values:		String  
	' Global Variables:		None
	'-------------------------------------------------------------------------
	Function GetDirPathFromInstance(strWMIProvider ,strWMIInstancePath ,strWMIInstanceName,strWMIDirProperty) 
		Err.Clear 
		On Error Resume Next
		
		Dim objConnection , objLog
		Dim strTotalWMIInstancePath
		
		'Making the complete path to retreive from the WMI 
		strTotalWMIInstancePath=strWMIInstancePath & ".Name=" & "'" & strWMIInstanceName & "'" 
		
		Set objConnection = getWMIConnection(strWMIProvider)	'Connecting to the server
		
		'Incase connection fails
		If Err.number <> 0 then
			Call SA_ServeFailurepage(L_FAILEDTOGETWMICONNECTION_ERRORMESSAGE)
		End if
	
		set objLog = objConnection.Get(strTotalWMIInstancePath)
		
		If Err.number <> 0 then
			Call SA_ServeFailurepage(L_FAILEDTOGETWMICONNECTION_ERRORMESSAGE)
			Exit Function
		End if
		
		'Call to get the dir path depending  on WMIprop 
		GetDirPathFromInstance=getDirPathFromProperty(objLog,strWMIDirProperty)
		
	End function
	
	'---------------------------------------------------------------------
	' Routine name:     getFileNameFromPath
	' Description:		To get the name of the file 
	' Input Variables:	file name along with its path
	' Output Variables:	None
	' Return Values:	The name of the file
	' Global Variables: None
	'Called to get the name of the file.
	'---------------------------------------------------------------------
	Function getFileNameFromPath(FileNameWithPath)
		On Error Resume Next
		
		Dim objFSO     ' the File System Object
		
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		
		'get the name of the file
		getFileNameFromPath = objFSO.getFileName(FileNameWithPath)
		
		If Err.number <> 0 Then
			' return empty string
			getFileNameFromPath = ""   
		End If
		
		' clean up
		Set objFSO = Nothing
		
	End Function
	
	'---------------------------------------------------------------------
	' Routine name:     getDirPathFromProperty
	' Description:		To get the path  
	' Input Variables:	objLog
	'					WMI property
	' Output Variables:	None
	' Return Values:	Path
	' Global Variables: None
	'---------------------------------------------------------------------
	Function getDirPathFromProperty(objLog ,strWMIProperty)
		On Error Resume Next
		
		Dim objFso
		Dim strTemp
		Dim strLogFileDir
		Dim strTempLogFile
		
		If Lcase(strWMIProperty) = Lcase("LogFileDirectory") Then
			
			strTemp=objLog.LogFileDirectory
			
			Set objFso = CreateObject("Scripting.FileSystemObject")
			
		
			If ucase(left(strTemp,8)) = ucase("%WinDir%") then
				strLogFileDir = objFso.GetSpecialFolder(0) & right(strTemp,len(strTemp)-8)
			ElseIF ucase(left(strTemp,13)) = ucase("%SystemDrive%") then
				strLogFileDir = objFso.GetSpecialFolder(0).Drive & right(strTemp,len(strTemp)-13)
			else
				strLogFileDir = strTemp
			end if
					
				getDirPathFromProperty=strLogFileDir
					
		Else 'Ucase(strWMIDirProperty)=Ucase("LogFile") Then
				
			strTempLogFile=objLog.LogFile
			getDirPathFromProperty=mid(strTempLogFile,1,Len(strTempLogFile)-(Len(getFileNameFromPath(strTempLogFile))+1))
		End If	'If strWMIDirProperty = "LogFileDirectory" Then	
		
		'clean up
		Set objFso = Nothing
		
	End Function
	
	'-------------------------------------------------------------------------
	' Function name:		GetTitle
	' Description:			gives the title of the page
	' Input Variables:		strTitle-query string variable ,"title"
	' Output Variables:		None
	' Return Values:		String-which holds the title of the page
	' Global Variables:		None
	'-------------------------------------------------------------------------
	Function GetTitle( strTitle ) 
		
		Err.Clear 
		On Error Resume Next
		
		Dim objRegistry
		Dim strReturnValue
		
		Dim CONST_REGISTRY_PATH
		
		
		
		CONST_REGISTRY_PATH ="SOFTWARE\Microsoft\ServerAppliance\ElementManager\WebElementDefinitions\" & strTitle 	
		
		'Connecting to default namespace to carry out registry operations
		Set objRegistry=regConnection()
		
		'getting the required reg key value 
		strReturnValue=GetRegKeyValue(objRegistry,CONST_REGISTRY_PATH,"CaptionRID",CONST_STRING)		
		GetTitle = GetLocString("salogs.dll", strReturnValue, "")
		
		'Release the object
		set objRegistry = nothing
	End Function
	
	
	'---------------------------------------------------------------------
	' Function name:    isFileExisting
	' Description:		To verify the existence of the file
	' Input Variables:	strFileToVerify-file name along with its path
	' Output Variables:	None
	' Return Values:	TRUE - if file exists , else FALSE
	' Global Variables: None
	'---------------------------------------------------------------------
	Function isFileExisting(strFile)
		Err.Clear 
		On Error Resume Next
		
		Dim objFSO
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		
		' If the file is existing, return true, else false
		If objFSO.FileExists(strFile) Then
			isFileExisting = True					
		Else
			isFileExisting = False
		End If
		
		Set objFSO = Nothing
	End Function
	
	'---------------------------------------------------------------------
	' Function name:    GetLocalizationTitle
	' Description:		To get the Localized log title 
	' Input Variables:	strLogTitle- LogTitle
	' Output Variables:	None
	' Return Values:	String - Localized Logtitle
	' Global Variables: None
	'---------------------------------------------------------------------	
	Function GetLocalizationTitle( strLogTitle )
	
		Dim strTitle
	
		Select Case Lcase(strLogTitle)
			Case Lcase("Application")
				strTitle	 = L_APPLICATION_TEXT
			Case Lcase("System")	
				strTitle	 = L_SYSTEM_TEXT
			Case Lcase("Security")	
				strTitle	 = L_SECURITY_TEXT
			Case Else
				strTitle	=""	
		End select
		
		GetLocalizationTitle=strTitle
	End Function	
	

private Function GetSharesWebSiteID( )
	On Error Resume Next
	Err.Clear 
	
	Dim objHTTPService
	Dim strWMIpath
	Dim objSiteCollection
	Dim objSite	
		
	Set objHTTPService  =  GetWMIConnection(CONST_WMI_IIS_NAMESPACE) 

	'XPE only has one website
	If CONST_OSNAME_XPE = GetServerOSName() Then				
	    'WMI query
	    strWMIpath = "Select * from " & GetIISWMIProviderClassName("IIs_WebServerSetting") & " where Name =" & chr(34) & GetCurrentWebsiteName() & chr(34)		
        Else 			
	    'Switch for using IIS 6.0 WMI provider if it's installed	    	
            strWMIpath = "select * from " & GetIISWMIProviderClassName("IIs_WebServerSetting") & " where servercomment =" & chr(34) & CONST_SITENAME_SHARES & chr(34)
	End If

	set objSiteCollection = objHTTPService.ExecQuery(strWMIpath)
	for each objSite in objSiteCollection
		GetSharesWebSiteID = objSite.Name
		Exit For
	Next

	Set objHTTPService = Nothing

End Function

    '---------------------------------------------------------------------
    ' Function name:    CreateAllowACE
    ' Description:      Creates an ACE granting the specified account the
    '                   requested access.  The caller is responsible for
    '                   catching any errors.  The ACE will be marked as
    '                   inheritable.
    ' Input Variables:  oService:   The WMI service object to use.
    '                   oAccount:   Win32_Account WMI object (or an object
    '                               that inherits from Win32_Account).
    '                               Represents the account to which the
    '                               ACE applies.
    '                   nAccessMask:The access mask for the newly created
    '                               ACE.
    ' Output Variables: None
    ' Return Values:    Object:     The new Win32_ACE object.
    ' Global Variables: None
    '---------------------------------------------------------------------  
    Private Function CreateAllowACE(oService, oAccount, nAccessMask)
        '
        ' Create the trustee
        '
        Dim oSID
        Set oSID = oService.Get("Win32_SID.SID='" & oAccount.SID & "'")
        
        Dim oTrustee
        Set oTrustee = oService.Get("Win32_Trustee").SpawnInstance_
        
        oTrustee.Domain       = oAccount.Domain
        oTrustee.Name         = oAccount.Name
        oTrustee.SID          = oSID.BinaryRepresentation
        oTrustee.SIDString    = oSID.SID
        oTrustee.SidLength    = oSID.SidLength
        
        '
        ' Create the ACE
        '
        Dim oACE
        Set oACE = oService.Get("Win32_ACE").SpawnInstance_     
        
        oACE.AccessMask   = nAccessMask
        oACE.Aceflags     = 3 ' Inheritable
        oACE.AceType      = 0 ' Allow
        oACE.Trustee      = oTrustee
        
        Set CreateAllowACE = oACE
    End Function
    
    '---------------------------------------------------------------------
    ' Function name:    CreateLogsDirectory
    ' Description:      Creates the specified directory with the correct
    '                   ACLs for a log directory.
    ' Input Variables:  oFSO    - FileSystemObject for creating the
    '                             directory.
    '                   strPath - Path of the directory to create.  The
    '                             parent directory should already exist.
    '                             An error occurs if the new directory
    '                             already exists.
    ' Output Variables: None
    ' Return Values:    Boolean - True/false to indicate success/failure.
    ' Global Variables: None
    '---------------------------------------------------------------------  
    Private Function CreateLogsDirectory(oFSO, strPath)
        On Error Resume Next
        
        CreateLogsDirectory = False
        
        Const CONST_FULLCONTROL  = &H1F01FF


        '
        ' Create the folder
        '
        Dim oFolder
        Set oFolder = oFSO.CreateFolder(strPath)
        If (IsNull(oFolder) Or IsEmpty(oFolder)) Then
            Exit Function
        End If
        

        '
        ' Get the local system account.
        '        
        Dim oService
        Set oService = getWMIConnection(CONST_WMI_WIN32_NAMESPACE)
        
        Dim strDomain
        strDomain = GetComputerName()
        
        
        Dim strSystemWMIPath
        strSystemWMIPath = "Win32_SystemAccount.Domain=""" & strDomain & _
                           """,Name=""" & SA_GetAccount_System() & """"

        Dim oSystemAccount
        Set oSystemAccount = oService.Get(strSystemWMIPath)

        
        '
        ' Get the local administrators group account.
        '        
        Dim strAdministratorsWMIPath
        strAdministratorsWMIPath = "Win32_Group.Domain=""" & strDomain & _
                                   """,Name=""" & SA_GetAccount_Administrators() & """"

        Dim oAdministratorsAccount
        Set oAdministratorsAccount = oService.Get(strAdministratorsWMIPath)


        '
        ' Update the DACL for the new directory.
        '
        Dim strFileDACLPath
        strFileDACLPath = "Win32_LogicalFileSecuritySetting.Path=""" & oFolder.Path & """"
        
        ' Replace single backslashes with double backslashes.
        Dim oRegExp
        Set oRegExp = New RegExp
        oRegExp.Pattern = "\\"
        oRegExp.Global = true
        strFileDACLPath = oRegExp.Replace(strFileDACLPath, "\\")
        
        Dim oFileSecurity
        Set oFileSecurity = oService.Get(strFileDACLPath)

        Dim oSecurityDescriptor
        If (0 = oFileSecurity.GetSecurityDescriptor(oSecurityDescriptor)) Then
            Dim nControlFlags
            nControlFlags = oSecurityDescriptor.Properties_.Item("ControlFlags")
            nControlFlags = nControlFlags Or 4          ' Set SE_DACL_PRESENT
            nControlFlags = nControlFlags And (Not 8)   ' Clear SE_DACL_DEFAULTED
            oSecurityDescriptor.Properties_.Item("ControlFlags") = nControlFlags
            
            oSecurityDescriptor.Properties_.Item("DACL") = _
                Array(CreateAllowACE(oService, _
                                     oAdministratorsAccount, CONST_FULLCONTROL), _
                      CreateAllowACE(oService, _
                                     oSystemAccount,         CONST_FULLCONTROL))
            
            If (0 = oFileSecurity.SetSecurityDescriptor(oSecurityDescriptor)) Then
                CreateLogsDirectory = True
            End If
        End If

        If (Not CreateLogsDirectory Or 0 <> Err.number) Then
            '
            ' Updating the security descriptor failed.  Delete the folder.
            '
            oFSO.DeleteFolder(oFolder.Path)
        End If
    End Function

    '---------------------------------------------------------------------
    ' Function name:    GetLogsDirectoryPath
    ' Description:      Returns the local path of the logs directory.  The
    '                   directory is created if it doesn't already exist.
    '                   Sets the page error message on failure.
    ' Input Variables:  oFSO    - Optional FileSystemObject.  If supplied,
    '                             prevents extra instantiation of the
    '                             object.
    ' Output Variables: None
    ' Return Values:    String - The local path of the logs directory
    ' Global Variables: L_FILESYSTEMOBJECT_ERRORMESSAGE,
    '                   L_LOGDOWNLOAD_ERRORMESSAGE
    '---------------------------------------------------------------------  
    Public Function GetLogsDirectoryPath(oFSO)
        On Error Resume Next
        Dim oFolder
        GetLogsDirectoryPath = ""
        
        '
        ' See if the caller gave us a file system object.  If not, create our own.
        '
        If IsNull(oFSO) Or IsEmpty(oFSO) Then
            Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
            If Err.number <> 0 then 
                SA_SetErrMsg L_FILESYSTEMOBJECT_ERRORMESSAGE 
                Exit Function
            End If     
        End If

        '
        ' Construct the path, which is %VRoot%\TempFiles\LogFiles
        '
        Dim strLogPath : strLogPath = Server.MapPath(m_VirtualRoot)
        
        '
        ' Create the TempFiles directory if it doesn't exist.
        '
        strLogPath = strLogPath & "\" & CONST_LOGS_TEMPDIR 
        
        If Not oFSO.FolderExists(strLogPath) Then
            Set oFolder = oFSO.CreateFolder(strLogPath)
            If (IsNull(oFolder) Or IsEmpty(oFolder)) Then
                SA_SetErrMsg L_LOGDOWNLOAD_ERRORMESSAGE
                Exit Function
            End If
        End If
        
        '
        ' Create the LogFiles directory if it doesn't exist.
        '
        strLogPath = strLogPath & "\" & CONST_LOGS_LOGDIR
        
        if Not oFSO.FolderExists(strLogPath) Then
            Set oFolder = oFSO.CreateFolder(strLogPath)
            If (IsNull(oFolder) Or IsEmpty(oFolder)) Then
                SA_SetErrMsg L_LOGDOWNLOAD_ERRORMESSAGE
                Exit Function
            End If
        End If
        
        GetLogsDirectoryPath = strLogPath
    End Function
%>