You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
271 lines
11 KiB
271 lines
11 KiB
<%@ Language=VBScript %>
|
|
<% Option Explicit %>
|
|
<%
|
|
'-------------------------------------------------------------------------------------
|
|
' Single_Log_Details.asp: provides links for clearing and downloading the logs
|
|
' Copyright (c) Microsoft Corporation. All rights reserved.
|
|
'-------------------------------------------------------------------------------------
|
|
%>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=<%=GetCharSet()%>">
|
|
<!-- #include virtual="/admin/inc_framework.asp" -->
|
|
<!-- #include file="loc_Log.asp" -->
|
|
<!-- #include file="inc_Log.asp" -->
|
|
<%
|
|
'-------------------------------------------------------------------------
|
|
' Global Variables
|
|
'-------------------------------------------------------------------------
|
|
Dim rc 'Return value for CreatePage
|
|
Dim page 'Variable that receives the output page object when
|
|
'creating a page
|
|
Dim G_strLogFilePath 'FilePath
|
|
Dim G_strLogFileName 'FileName
|
|
Dim G_PageTitle 'To get the title accordingly
|
|
|
|
Const CONST_BUTTON_DISABLE = "disabled" ' button status - doesnot need localization
|
|
'-------------------------------------------------------------------------
|
|
' Form Variables
|
|
'-------------------------------------------------------------------------
|
|
Dim F_strevent_title 'To get the title from previous page
|
|
Dim F_strPKeyValue 'Key val consists of filename
|
|
|
|
'this code is placed here to get the page title
|
|
G_PageTitle = GetTitle(Request.QueryString("logtitle"))
|
|
|
|
Call SA_CreatePage(G_PageTitle ,"",PT_AREA, page )
|
|
Call SA_ShowPage( page )
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: OnInitPage
|
|
' Description: Called to signal first time processing for this page.
|
|
' Input Variables: PageIn and EventArg
|
|
' Output Variables: None
|
|
' Return Values: TRUE to indicate initialization was successful. FALSE to indicate
|
|
' errors. Returning FALSE will cause the page to be abandoned.
|
|
' Global Variables: None
|
|
' Called to signal first time processing for this page.
|
|
'---------------------------------------------------------------------
|
|
Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
|
|
OnInitPage = TRUE
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: OnServeAreaPage
|
|
' Description: Called when the page needs to be served.
|
|
' Input Variables: PageIn, EventArg
|
|
' Output Variables: None
|
|
' Return Values: TRUE to indicate no problems occured. FALSE to indicate errors.
|
|
' Returning FALSE will cause the page to be abandoned.
|
|
' Global Variables: None
|
|
'Called when the page needs to be served. Use this method to serve content.
|
|
'---------------------------------------------------------------------
|
|
Public Function OnServeAreaPage(ByRef PageIn, ByRef EventArg)
|
|
On Error Resume Next
|
|
Err.Clear
|
|
|
|
|
|
Dim strPassValue ' the value to be passed through the query string
|
|
Dim strButtonStatus ' the status of the button ( ""<empty> or Disabled)
|
|
Dim strViewUrl ' url to be passed to the iframe
|
|
Dim blnFileExists
|
|
|
|
Dim objFso ' the file system object
|
|
Dim strDownloadUrl
|
|
|
|
'frame work variables
|
|
Dim x
|
|
Dim itemCount
|
|
Dim itemKey
|
|
|
|
Call ServeCommonJavaScript()
|
|
|
|
itemCount = OTS_GetTableSelectionCount("")
|
|
F_strevent_title = Request.QueryString("logtitle")
|
|
|
|
If instr(1,F_strevent_title,"NFS",1) = 0 then
|
|
For x = 1 to itemCount
|
|
If ( OTS_GetTableSelection("", x, itemKey) ) Then
|
|
F_strPKeyValue = itemKey
|
|
Call SA_TraceOut("Single_Log_Details.asp", "PKey value: " + F_strPKeyValue)
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
blnFileExists = True
|
|
|
|
' initially the button is enabled
|
|
strButtonStatus = ""
|
|
|
|
'Getting the FilePath of the selected log file
|
|
G_strLogFilePath=GetPath(F_strevent_title)
|
|
|
|
'Checking for the pkey value
|
|
If F_strPKeyValue <> "" Then
|
|
'Getting the filename from the earliear form
|
|
G_strLogFileName=F_strPKeyValue
|
|
Else
|
|
|
|
'check for null if so go for alternative
|
|
If G_strLogFileName = "" Then
|
|
'Getting the FileName through FSO
|
|
G_strLogFileName=getFileNameInFolder(G_strLogFilePath)
|
|
End IF
|
|
|
|
End IF
|
|
|
|
|
|
If ( (Len(Trim(G_strLogFilePath)) = 0) OR (Len(Trim(G_strLogFileName)) <=0) _
|
|
OR (Err.number <> 0) ) Then
|
|
' disable the buttons
|
|
strButtonStatus = CONST_BUTTON_DISABLE
|
|
blnFileExists = False
|
|
strPassValue = "" ' set the value to be passed to query string to null
|
|
Err.Clear
|
|
Else
|
|
|
|
' create the FSO
|
|
Set objFso = CreateObject("Scripting.FileSystemObject")
|
|
If Err.number <> 0 Then
|
|
WriteFileData = L_FSO_OBJECTCREATE_ERRORMESSAGE & "( "& Hex(Err.number) & " )"
|
|
Err.Clear
|
|
Exit Function
|
|
End If
|
|
|
|
'checking for the file existence
|
|
If NOT (objFso.FileExists(G_strLogFilePath & "\" & G_strLogFileName)) Then
|
|
'make blnFileExists false if file does not exists
|
|
blnFileExists = False
|
|
strButtonStatus = CONST_BUTTON_DISABLE
|
|
End IF
|
|
|
|
'Name of the log along with the path
|
|
strPassValue=Server.URLEncode(G_strLogFilePath & "\" & G_strLogFileName)
|
|
|
|
'Take care of escape chars
|
|
G_strLogFilePath=Server.URLEncode(G_strLogFilePath)
|
|
End If
|
|
|
|
strViewUrl = "log_view.asp?FileToView=" & strPassValue & "&" & _
|
|
SAI_FLD_PAGEKEY & "=" & SAI_GetPageKey()
|
|
%>
|
|
<table width=95% border=0 cellspacing=0 cellpadding=0 >
|
|
<tr>
|
|
<td colspan=4 height=30 class="TasksBody"> </td>
|
|
</tr>
|
|
<tr>
|
|
<td width="20px" class="TasksBody"> </td>
|
|
<td width="600px" class="TasksBody">
|
|
<iframe width="100%" height="275px" src="<%=Server.HTMLEncode(SA_EscapeQuotes(strViewUrl))%>" frameborder="yes" >
|
|
</iframe>
|
|
</td>
|
|
<td class="TasksBody" width="20px"> </td>
|
|
<td VALIGN = TOP class="TasksBody">
|
|
<%
|
|
If blnFileExists = False then
|
|
Call SA_ServeOnClickButton(SA_EscapeQuotes(L_DOWNLOAD_TEXT), "",_
|
|
"",_
|
|
90,"", CONST_BUTTON_DISABLE )
|
|
Response.write "<BR>"
|
|
Else
|
|
|
|
strDownloadUrl = m_VirtualRoot & "logs/Text_Log_download.asp?FilePath=" & _
|
|
strPassValue & "&" & SAI_FLD_PAGEKEY & "=" & SAI_GetPageKey()
|
|
%>
|
|
<iframe name=IFDownload src='<%=Server.HTMLEncode(SA_EscapeQuotes(strDownloadUrl))%>' height="36px" frameborder="0" scrolling="no">
|
|
</iframe>
|
|
<%
|
|
End If %>
|
|
<BR><BR>
|
|
<%
|
|
Call SA_ServeOpenPageButton( PT_PROPERTY, _
|
|
"logs/Text_Log_clear.asp?FilePath="& strPassValue & _
|
|
"&tab1=" & GetTab1() & "&tab2=" & GetTab2() & "&" & _
|
|
SAI_FLD_PAGEKEY & "=" & SAI_GetPageKey(),_
|
|
Request.QueryString("URL"),_
|
|
Server.HTMLEncode(SA_EscapeQuotes(L_CLEAR_TEXT)),_
|
|
SA_EscapeQuotes(L_CLEAR_TEXT),_
|
|
"",_
|
|
90, "", strButtonStatus)
|
|
%>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
<%
|
|
|
|
OnServeAreaPage=TRUE
|
|
End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function name: getFileNameInFolder
|
|
'Description: Serves in Getting the file name present in the given folder
|
|
'Input Variables: strFilePath
|
|
'Output Variables: String
|
|
'Returns: the file name or empty string
|
|
'This returns the First file name in the given folder containing set of files.
|
|
'In case ANY error occurs, this returns empty string
|
|
'-------------------------------------------------------------------------
|
|
Function getFileNameInFolder(strFilePath)
|
|
Err.Clear
|
|
On Error Resume Next
|
|
|
|
Dim objFso ' the file system object
|
|
Dim objFolder ' the folder object, where to look for the file ?
|
|
Dim objFiles ' the files in the folder
|
|
Dim objFile ' the required file
|
|
Dim strFileName ' the file name to be returned
|
|
|
|
Set objFso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
If Err.number <> 0 Then
|
|
getFileNameInFolder = ""
|
|
Exit Function
|
|
End If
|
|
|
|
'Checking for the folder existence
|
|
IF NOT objFso.FolderExists(strFilePath) Then
|
|
getFileNameInFolder = ""
|
|
Exit Function
|
|
End IF
|
|
|
|
Set objFiles = objFso.GetFolder(strFilePath).Files
|
|
|
|
If objFiles.Count <=0 Then
|
|
'No files available
|
|
getFileNameInFolder = ""
|
|
Exit Function
|
|
End If
|
|
|
|
For each objFile in objFiles
|
|
strFileName = objFile.name
|
|
Exit For ' just pick the first file name
|
|
Next
|
|
|
|
getFileNameInFolder = strFileName
|
|
|
|
' clean up
|
|
Set objFiles = Nothing
|
|
Set objFolder = Nothing
|
|
Set objFSO = Nothing
|
|
|
|
End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function: ServeCommonJavaScript
|
|
'Description: Serves in initialiging the values,setting the form
|
|
' data and validating the form values
|
|
'Input Variables: None
|
|
'Output Variables: None
|
|
'Returns: True/False
|
|
'Global Variables: None
|
|
'-------------------------------------------------------------------------
|
|
Function ServeCommonJavaScript()
|
|
%>
|
|
<script language="JavaScript">
|
|
function Init()
|
|
{
|
|
return true;
|
|
}
|
|
</script>
|
|
<%End Function
|
|
|
|
%>
|