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.
1358 lines
44 KiB
1358 lines
44 KiB
<%@ Language=VBScript %>
|
|
|
|
<% Option Explicit %>
|
|
|
|
<%
|
|
'-------------------------------------------------------------------------
|
|
' Ftp_LogSettings.asp: set the logs for FTP sites
|
|
'
|
|
' Copyright (c) Microsoft Corporation. All rights reserved.
|
|
'
|
|
' Date Description
|
|
' 06-11-2000 Created date
|
|
'-------------------------------------------------------------------------
|
|
%>
|
|
|
|
<!-- #include virtual="/admin/inc_framework.asp" -->
|
|
<!-- #include virtual="/admin/wsa/inc_wsa.asp" -->
|
|
<!-- #include virtual="/admin/wsa/inc_wsa.js" -->
|
|
<!-- #include file="inc_MasterWeb.js" -->
|
|
|
|
<%
|
|
'-------------------------------------------------------------------------
|
|
' Form Variables
|
|
'-------------------------------------------------------------------------
|
|
Dim F_strWebRoorDir 'Root Dir for the form
|
|
Dim F_chkEnableLogging
|
|
Dim F_selectActiveFormat
|
|
Dim F_optLogPeriod
|
|
Dim F_FileSize
|
|
Dim F_LocalTime
|
|
Dim F_LogFileDir
|
|
Dim F_IISSites
|
|
Dim F_selectTasks
|
|
Dim L_FILE
|
|
'Dim F_SiteCriteria
|
|
Dim G_objSites
|
|
Dim FTPInstalled
|
|
|
|
'-------------------------------------------------------------------------
|
|
' Global Variables
|
|
'-------------------------------------------------------------------------
|
|
Dim G_objService
|
|
|
|
'-------------------------------------------------------------------------
|
|
' Start of localization content
|
|
'-------------------------------------------------------------------------
|
|
Dim L_INVALID_DIR_FORMAT_ERRORMESSAGE
|
|
Dim L_INVALID_DIR_ERRORMESSAGE
|
|
Dim L_DIRPATHEMPTY_ERRORMESSAGE
|
|
Dim L_INFORMATION_ERRORMESSAGE
|
|
Dim L_FILEINFORMATION_ERRORMESSAGE
|
|
Dim L_FAILED_CREATE_DIR_ERRORMESSAGE
|
|
Dim L_NOT_NTFS_DRIVE_ERRORMESSAGE
|
|
Dim L_INVALID_DRIVE_ERRORMESSAGE
|
|
Dim L_DIRQUOTAERRORMESSAGE
|
|
Dim L_FAIL_TO_SET_LOGS
|
|
Dim L_APPLYTOALLFTPTEXT
|
|
Dim L_APPLYTOINHERITEDFTPTEXT
|
|
Dim L_LOGFILEDIR
|
|
Dim L_LOCALTIME
|
|
Dim L_ENABLELOGGING
|
|
Dim L_ACTIVELOGFORMAT
|
|
Dim L_IISLOGFORMAT
|
|
Dim L_COMMONLOGFORMAT
|
|
Dim L_ODBCLOG
|
|
Dim L_EXTENDEDLOGFILE
|
|
Dim L_NEWLOGTIME
|
|
Dim L_HOURLY
|
|
Dim L_MONTHLY
|
|
Dim L_DAILY
|
|
Dim L_UNLIMITEDFILESIZE
|
|
Dim L_WEEKLY
|
|
Dim L_WHENFILESIZE
|
|
Dim L_MB
|
|
Dim L_FTPLOG_TEXT
|
|
'Dim L_FTPLOGSDIRHELP
|
|
Dim L_FTPNOTINSTALLED_ERRORMESSAGE
|
|
|
|
Dim L_ID_NOTEMPTY_ERROR_MESSAGE
|
|
Dim L_SITE_IDENTIFIER_EMPTY_TEXT
|
|
|
|
|
|
L_FTPLOG_TEXT = GetLocString("GeneralSettings.dll", "4042004E", "")
|
|
'L_FTPLOGSDIRHELP = GetLocString("GeneralSettings.dll", "40420050", "")
|
|
L_ENABLELOGGING = GetLocString("GeneralSettings.dll", "40420039", "")
|
|
L_ACTIVELOGFORMAT = GetLocString("GeneralSettings.dll", "4042003A", "")
|
|
L_IISLOGFORMAT = GetLocString("GeneralSettings.dll", "4042003B", "")
|
|
L_COMMONLOGFORMAT = GetLocString("GeneralSettings.dll", "4042003C", "")
|
|
L_ODBCLOG = GetLocString("GeneralSettings.dll", "4042003D", "")
|
|
L_EXTENDEDLOGFILE = GetLocString("GeneralSettings.dll", "4042003E", "")
|
|
L_NEWLOGTIME = GetLocString("GeneralSettings.dll", "4042003F", "")
|
|
L_HOURLY = GetLocString("GeneralSettings.dll", "40420040", "")
|
|
L_MONTHLY = GetLocString("GeneralSettings.dll", "40420041", "")
|
|
L_DAILY = GetLocString("GeneralSettings.dll", "40420042", "")
|
|
L_UNLIMITEDFILESIZE = GetLocString("GeneralSettings.dll", "40420043", "")
|
|
L_WEEKLY = GetLocString("GeneralSettings.dll", "40420044", "")
|
|
L_WHENFILESIZE = GetLocString("GeneralSettings.dll", "40420045", "")
|
|
L_MB = GetLocString("GeneralSettings.dll", "40420046", "")
|
|
L_LOCALTIME = GetLocString("GeneralSettings.dll", "40420047", "")
|
|
L_LOGFILEDIR = GetLocString("GeneralSettings.dll", "40420048", "")
|
|
L_APPLYTOALLFTPTEXT = GetLocString("GeneralSettings.dll", "4042002B", "")
|
|
L_APPLYTOINHERITEDFTPTEXT = GetLocString("GeneralSettings.dll", "4042002C", "")
|
|
L_FAIL_TO_SET_LOGS = GetLocString("GeneralSettings.dll", "C0420049", "")
|
|
L_INVALID_DRIVE_ERRORMESSAGE = GetLocString("GeneralSettings.dll", "C0420022", "")
|
|
L_NOT_NTFS_DRIVE_ERRORMESSAGE = GetLocString("GeneralSettings.dll", "C042000D", "")
|
|
L_FAILED_CREATE_DIR_ERRORMESSAGE = GetLocString("GeneralSettings.dll", "C042000E", "")
|
|
L_FILEINFORMATION_ERRORMESSAGE = GetLocString("GeneralSettings.dll", "C042000C", "")
|
|
L_INFORMATION_ERRORMESSAGE = GetLocString("GeneralSettings.dll", "C042000F", "")
|
|
L_INVALID_DIR_FORMAT_ERRORMESSAGE = GetLocString("GeneralSettings.dll", "40420004", "")
|
|
L_INVALID_DIR_ERRORMESSAGE = GetLocString("GeneralSettings.dll", "C042004B", "")
|
|
L_DIRPATHEMPTY_ERRORMESSAGE = GetLocString("GeneralSettings.dll", "C042004C", "")
|
|
L_FILE = GetLocString("GeneralSettings.dll", "4042004A", "")
|
|
L_FTPNOTINSTALLED_ERRORMESSAGE = GetLocString("GeneralSettings.dll", "C0420058", "")
|
|
'-------------------------------------------------------------------------
|
|
'END of localization content
|
|
'-------------------------------------------------------------------------
|
|
|
|
'Create property page
|
|
Dim rc
|
|
Dim page
|
|
|
|
rc=SA_CreatePage(L_FTPLOG_TEXT,"",PT_PROPERTY,page)
|
|
|
|
'Serve the page
|
|
If(rc=0) then
|
|
SA_ShowPage(Page)
|
|
End if
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function: OnInitPage()
|
|
'Description: Called to signal first time processing for this page.
|
|
' Use this method to do first time initialization tasks
|
|
'Input Variables: PageIn,EventArg
|
|
'Output Variables: None
|
|
'Returns: True/False
|
|
'Global Variables: None
|
|
'-------------------------------------------------------------------------
|
|
Public Function OnInitPage(ByRef PageIn,ByRef EventArg)
|
|
InitObjects()
|
|
|
|
if FTPInstalled = false then
|
|
ServeFailurePage L_FTPNOTINSTALLED_ERRORMESSAGE ,sReturnURL
|
|
end if
|
|
|
|
SetVariablesFromSystem()
|
|
OnInitPage = True
|
|
End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function: OnServePropertyPage()
|
|
'Description: Called when the page needs to be served.Use this
|
|
' method to serve content
|
|
'Input Variables: PageIn,EventArg
|
|
'Output Variables: None
|
|
'Returns: True/False
|
|
'Global Variables: None
|
|
'-------------------------------------------------------------------------
|
|
Public Function OnServePropertyPage(ByRef PageIn,Byref EventArg)
|
|
Call ServeCommonJavaScript()
|
|
Call ServePage()
|
|
OnServePropertyPage = True
|
|
End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function: OnPostBackPage()
|
|
'Description: Called to signal that the page has been posted-back.
|
|
'Input Variables: PageIn,EventArg
|
|
'Output Variables: None
|
|
'Returns: True/False
|
|
'Global Variables: None
|
|
'-------------------------------------------------------------------------
|
|
Public Function OnPostBackPage(ByRef PageIn ,ByRef EventArg)
|
|
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: None
|
|
'Returns: True/False
|
|
'Global Variables: None
|
|
'-------------------------------------------------------------------------
|
|
Public Function OnSubmitPage(ByRef PageIn ,ByRef EventArg)
|
|
OnSubmitPage = ServeVariablesFromForm()
|
|
End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function: OnClosePage()
|
|
'Description: Called when the page is about closed.Use this method
|
|
' to perform clean-up processing
|
|
'Input Variables: PageIn,EventArg
|
|
'Output Variables: None
|
|
'Returns: True/False
|
|
'Global Variables: None
|
|
'-------------------------------------------------------------------------
|
|
Public Function OnClosePage(ByRef PageIn ,ByRef EventArg)
|
|
OnClosePage = TRUE
|
|
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()
|
|
%>
|
|
<!-- #include file="inc_MasterWeb.js" -->
|
|
|
|
<script language="JavaScript">
|
|
function ValidatePage()
|
|
{
|
|
// validate directory
|
|
|
|
var FTPinst = "<%=FTPInstalled%>";
|
|
if (FTPinst == "True")
|
|
{
|
|
var strID = "";
|
|
strID = document.frmTask.txtLogFileDir.value;
|
|
|
|
var strIndex = strID.indexOf("\\\\");
|
|
var index = strID.indexOf(":\\",4);
|
|
var indexColon = strID.indexOf(":",3);
|
|
if (strIndex > 0 || index > 0 || indexColon > 0 )
|
|
{
|
|
SA_DisplayErr("<%=Server.HTMLEncode(SA_EscapeQuotes(L_INVALID_DIR_FORMAT_ERRORMESSAGE))%>");
|
|
document.frmTask.txtLogFileDir.focus();
|
|
return false;
|
|
}
|
|
|
|
if (document.frmTask.txtFileSize.disabled==false)
|
|
{
|
|
var strFileSize = document.frmTask.txtFileSize.value;
|
|
if (strFileSize == "" || strFileSize == 0)
|
|
{
|
|
document.frmTask.txtFileSize.value = 1;
|
|
return true;
|
|
}
|
|
}
|
|
// validate site directory
|
|
if (!(checkKeyforValidCharacters(strID)))
|
|
return false;
|
|
|
|
UpdateHiddenVariables();
|
|
return true;
|
|
}
|
|
}
|
|
|
|
function checkKeyforValidCharacters(strID)
|
|
{
|
|
|
|
var len = strID.length;
|
|
var charAtPos;
|
|
if(len > 0)
|
|
{
|
|
for(var i=0; i<len;i++)
|
|
{
|
|
charAtPos = strID.charCodeAt(i);
|
|
if(charAtPos ==47 || charAtPos == 42 || charAtPos == 63 || charAtPos == 34 || charAtPos == 60 || charAtPos == 62 || charAtPos == 124 || charAtPos == 91 || charAtPos == 93 || charAtPos == 59 || charAtPos == 43 || charAtPos == 61 || charAtPos == 44)
|
|
{
|
|
SA_DisplayErr("<%=Server.HTMLEncode(SA_EscapeQuotes(L_INVALID_DIR_ERRORMESSAGE))%>");
|
|
document.frmTask.txtLogFileDir.value = strID;
|
|
document.frmTask.txtLogFileDir.focus();
|
|
return false;
|
|
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
var enableLogging = document.frmTask.chkEnableLogging.checked;
|
|
if (enableLogging == true)
|
|
{
|
|
SA_DisplayErr("<%=Server.HTMLEncode(SA_EscapeQuotes(L_DIRPATHEMPTY_ERRORMESSAGE))%>");
|
|
document.frmTask.txtLogFileDir.focus();
|
|
return false;
|
|
}
|
|
else
|
|
return true;
|
|
}
|
|
}
|
|
|
|
|
|
//init function
|
|
function Init()
|
|
{
|
|
|
|
var FTPinst = "<%=Server.HTMLEncode(FTPInstalled)%>";
|
|
if (FTPinst == "True")
|
|
{
|
|
|
|
var ActiveFormat = "<%= Server.HTMLEncode(F_selectActiveFormat) %>";
|
|
|
|
if (ActiveFormat == "<%= Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT) %>")
|
|
{
|
|
document.frmTask.selectActiveFormat.selectedIndex = 0;
|
|
}
|
|
else if (ActiveFormat == "<%= Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>")
|
|
{
|
|
document.frmTask.selectActiveFormat.selectedIndex = 1;
|
|
}
|
|
else if (ActiveFormat == "<%= Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT) %>")
|
|
{
|
|
document.frmTask.selectActiveFormat.selectedIndex = 2;
|
|
}
|
|
|
|
var myValue,i;
|
|
myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;
|
|
|
|
if(myValue == "<%= Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>")
|
|
{
|
|
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
document.frmTask.optLogPeriod[i].disabled=true;
|
|
document.frmTask.optLogPeriod[i].checked = false;
|
|
}
|
|
|
|
document.frmTask.txtLogFileDir.disabled = true;
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
document.frmTask.txtFileSize.value = "";
|
|
}
|
|
|
|
|
|
if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>" ||
|
|
myValue == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT)%>")
|
|
{
|
|
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
tempVal1 = document.frmTask.optLogPeriod[3].checked;
|
|
tempVal2 = document.frmTask.optLogPeriod[5].checked;
|
|
if(tempVal1 == true){
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
}
|
|
|
|
if(tempVal2 == true){
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = false;
|
|
}
|
|
else
|
|
{
|
|
if(!(myValue == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT)%>"))
|
|
{
|
|
if(document.frmTask.chkLocalTime.checked == true)
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = false;
|
|
document.frmTask.chkLocalTime.checked = true;
|
|
}
|
|
else
|
|
{
|
|
|
|
if(tempVal1 == true || tempVal2 == true)
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.chkLocalTime.checked = false;
|
|
}
|
|
else
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = false;
|
|
document.frmTask.chkLocalTime.checked = false;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
document.frmTask.txtLogFileDir.disabled = false;
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
for(i=0;i<len;i++)
|
|
document.frmTask.optLogPeriod[i].disabled=false;
|
|
}
|
|
|
|
var enableLogging = "<%= F_chkEnableLogging %>";
|
|
if (enableLogging == "false")
|
|
{
|
|
document.frmTask.txtLogFileDir.disabled = true;
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.selectActiveFormat.disabled = true;
|
|
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
for(i=0;i<len;i++)
|
|
document.frmTask.optLogPeriod[i].disabled=true;
|
|
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
|
|
document.frmTask.chkEnableLogging.disabled = true;
|
|
document.frmTask.selectActiveFormat.disabled = true;
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
document.frmTask.optLogPeriod[i].disabled=true;
|
|
}
|
|
document.frmTask.txtLogFileDir.disabled = true;
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.chkLocalTime.checked = false
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
document.frmTask.txtFileSize.value = "";
|
|
//document.frmTask.optAllSites[0].disabled = true;
|
|
//document.frmTask.optAllSites[1].disabled = true;
|
|
|
|
return true;
|
|
}
|
|
|
|
}
|
|
|
|
function enableFileTextBox()
|
|
{
|
|
ClearErr();
|
|
|
|
document.frmTask.txtFileSize.disabled = false;
|
|
document.frmTask.txtFileSize.focus();
|
|
var myValue,i;
|
|
myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;
|
|
|
|
|
|
if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
|
|
{
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
tempVal1 = document.frmTask.optLogPeriod[3].checked;
|
|
tempVal2 = document.frmTask.optLogPeriod[5].checked;
|
|
if(tempVal1 == true){
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
return true;}
|
|
|
|
if(tempVal2 == true){
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = false;
|
|
return true;}
|
|
else{
|
|
document.frmTask.chkLocalTime.disabled = false;
|
|
return true;}
|
|
}
|
|
else{
|
|
tempVal1 = document.frmTask.optLogPeriod[3].checked;
|
|
if(tempVal1 == true){
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
return true;}
|
|
}
|
|
}
|
|
|
|
function DisableFileTextBox()
|
|
{
|
|
ClearErr();
|
|
var myValue,i;
|
|
myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;
|
|
|
|
if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
|
|
{
|
|
tempVal1 = document.frmTask.optLogPeriod[3].checked;
|
|
tempVal2 = document.frmTask.optLogPeriod[5].checked;
|
|
if(tempVal1 == true)
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
return true;
|
|
}
|
|
else if(tempVal2 == true)
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = false;
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = false;
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
return true;
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
}
|
|
}
|
|
|
|
function EnableLogFile()
|
|
{
|
|
ClearErr();
|
|
var myValue,i;
|
|
myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;
|
|
|
|
|
|
if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = false;
|
|
document.frmTask.txtLogFileDir.disabled = false;
|
|
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
document.frmTask.optLogPeriod[i].disabled=false;
|
|
}
|
|
|
|
var temp = document.frmTask.optLogPeriod[5].checked;
|
|
if (temp==true){
|
|
enableFileTextBox();
|
|
document.frmTask.chkLocalTime.checked = false;
|
|
document.frmTask.chkLocalTime.disabled = true;}
|
|
|
|
var temp = document.frmTask.optLogPeriod[3].checked;
|
|
if (temp==true){
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
document.frmTask.chkLocalTime.disabled = true;}
|
|
|
|
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
var j = 0;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
var temp = document.frmTask.optLogPeriod[i].checked;
|
|
if(temp===false)
|
|
j= j+1;
|
|
}
|
|
|
|
if(j==len)
|
|
document.frmTask.optLogPeriod[2].checked = true;
|
|
|
|
|
|
return true;
|
|
}
|
|
else if(myValue == "<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT)%>")
|
|
{
|
|
DisableFileTextBox();
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
document.frmTask.optLogPeriod[i].disabled=true;
|
|
document.frmTask.optLogPeriod[i].checked=false;
|
|
}
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.chkLocalTime.checked = false;
|
|
document.frmTask.txtLogFileDir.disabled = true;
|
|
document.frmTask.txtFileSize.value = "";
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
var temp = document.frmTask.optLogPeriod[5].checked;
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
if (myValue == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT)%>")
|
|
{
|
|
document.frmTask.chkLocalTime.checked = false;
|
|
}
|
|
document.frmTask.txtLogFileDir.disabled = false;
|
|
if (temp==true)
|
|
{
|
|
enableFileTextBox();
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
}
|
|
for(i=0;i<len;i++)
|
|
document.frmTask.optLogPeriod[i].disabled=false;
|
|
|
|
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
var j = 0;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
var temp = document.frmTask.optLogPeriod[i].checked;
|
|
if(temp===false)
|
|
j= j+1;
|
|
}
|
|
|
|
if(j==len)
|
|
document.frmTask.optLogPeriod[2].checked = true;
|
|
|
|
return true;
|
|
}
|
|
}
|
|
|
|
|
|
function enableAll()
|
|
{
|
|
ClearErr();
|
|
var myValue;
|
|
myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;
|
|
|
|
if(document.frmTask.chkEnableLogging.checked == false)
|
|
{
|
|
|
|
document.frmTask.selectActiveFormat.disabled = true;
|
|
|
|
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
document.frmTask.optLogPeriod[i].disabled=true;
|
|
}
|
|
document.frmTask.txtLogFileDir.disabled = true;
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.chkLocalTime.checked = false
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
document.frmTask.txtFileSize.value = "";
|
|
return true;
|
|
}
|
|
|
|
if( myValue == "<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>" )
|
|
{
|
|
|
|
document.frmTask.selectActiveFormat.disabled = false;
|
|
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
document.frmTask.optLogPeriod[i].disabled=true;
|
|
}
|
|
document.frmTask.txtLogFileDir.disabled = true;
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.chkLocalTime.checked = false;
|
|
document.frmTask.txtFileSize.value = "";
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
return true;
|
|
}
|
|
else if( myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>" )
|
|
{
|
|
var tempVal1 = document.frmTask.optLogPeriod[3].checked;
|
|
var tempVal2 = document.frmTask.optLogPeriod[5].checked;
|
|
if(tempVal1 == true)
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = true;
|
|
}
|
|
else if(tempVal2 == true)
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
document.frmTask.txtFileSize.disabled = false;
|
|
}
|
|
else
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = false;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
}
|
|
document.frmTask.selectActiveFormat.disabled = false;
|
|
var len = document.frmTask.optLogPeriod.length;
|
|
for(i=0;i<len;i++)
|
|
{
|
|
document.frmTask.optLogPeriod[i].disabled=false;
|
|
}
|
|
document.frmTask.txtLogFileDir.disabled = false;
|
|
|
|
var temp = document.frmTask.optLogPeriod[5].checked;
|
|
if (temp==true)
|
|
{
|
|
document.frmTask.txtFileSize.disabled = false;
|
|
document.frmTask.chkLocalTime.disabled = true;
|
|
}
|
|
|
|
}
|
|
|
|
|
|
function SetData()
|
|
{
|
|
UpdateHiddenVariables();
|
|
}
|
|
|
|
function UpdateHiddenVariables()
|
|
{
|
|
var FTPinst = "<%=FTPInstalled%>";
|
|
if (FTPinst == "True")
|
|
{
|
|
document.frmTask.hdnEnableLog.value = document.frmTask.chkEnableLogging.checked;
|
|
if (document.frmTask.chkLocalTime.disabled == false)
|
|
document.frmTask.fileRollOver.value = document.frmTask.chkLocalTime.checked;
|
|
else
|
|
document.frmTask.fileRollOver.value = false;
|
|
}
|
|
}
|
|
|
|
function checkforEmptyfield()
|
|
{
|
|
var strFileSize = document.frmTask.txtFileSize.value;
|
|
if (strFileSize == "")
|
|
document.frmTask.txtFileSize.value = 1;
|
|
else if (strFileSize == 0)
|
|
document.frmTask.txtFileSize.value = 1;
|
|
}
|
|
|
|
</script>
|
|
|
|
<% End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function: ServePage()
|
|
'Description: For displaying outputs HTML to the user
|
|
'Input Variables: None
|
|
'Output Variables: None
|
|
'Returns: None
|
|
'Global Variables: L_DELETE_CONFIRM_TEXT
|
|
'-------------------------------------------------------------------------
|
|
Function ServePage
|
|
%>
|
|
<table border=0 CELLSPACING=0 CELLPADDING=0 align=left class="TasksBody">
|
|
<TR>
|
|
<td>
|
|
<% if F_chkEnableLogging = "true" then %>
|
|
<input type=checkbox name=chkEnableLogging checked tabIndex=1 onclick="enableAll()" value="ON">
|
|
<%else%>
|
|
<input type=checkbox name=chkEnableLogging tabIndex=1 onclick="enableAll()" value="ON">
|
|
<%end if%>
|
|
</td>
|
|
<td nowrap class="TasksBody">
|
|
<%= L_ENABLELOGGING %>
|
|
</td>
|
|
</TR>
|
|
<TR>
|
|
<td></td>
|
|
<TD nowrap class="TasksBody">
|
|
<%= L_ACTIVELOGFORMAT %>
|
|
</td>
|
|
<td colspan=4>
|
|
<SELECT name=selectActiveFormat class="formField" size=1 tabIndex=2 onChange="EnableLogFile()" value="<%=Server.HTMLEncode(F_selectActiveFormat)%>">
|
|
<OPTION VALUE="<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT) %>"><%=L_IISLOGFORMAT %></OPTION>
|
|
<OPTION selected value="<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>" ><%= L_ODBCLOG %></OPTION>
|
|
<OPTION value="<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT) %>" ><%= L_EXTENDEDLOGFILE %></OPTION>
|
|
</SELECT>
|
|
</TD>
|
|
</TR>
|
|
<TR>
|
|
<td></td>
|
|
<TD nowrap class="TasksBody">
|
|
<%= L_NEWLOGTIME %>
|
|
</td>
|
|
<td>
|
|
<%if F_optLogPeriod = L_HOURLY then%>
|
|
<input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_HOURLY) %>" tabIndex=3 onclick="DisableFileTextBox();" checked>
|
|
<%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
|
|
<input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_HOURLY) %>" tabIndex=3 disabled onclick="DisableFileTextBox();">
|
|
<%else%>
|
|
<input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_HOURLY) %>" tabIndex=3 onclick="DisableFileTextBox();">
|
|
<%end if %>
|
|
</TD>
|
|
<td nowrap class="TasksBody">
|
|
<%= L_HOURLY %>
|
|
</td>
|
|
<td>
|
|
<%if F_optLogPeriod = L_MONTHLY and F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then%>
|
|
<input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_MONTHLY) %>" onclick="DisableFileTextBox();" tabIndex=4 checked>
|
|
<%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
|
|
<input type=radio name=optLogPeriod disabled value="<%=Server.HTMLEncode(L_MONTHLY) %>" tabIndex=4 onclick="DisableFileTextBox();">
|
|
<%else%>
|
|
<input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_MONTHLY) %>" tabIndex=4 onclick="DisableFileTextBox();" >
|
|
<%end if %>
|
|
</td>
|
|
<td nowrap class="TasksBody">
|
|
<%= L_MONTHLY %>
|
|
</td>
|
|
</TR>
|
|
<TR>
|
|
<td colspan=2 >
|
|
</td>
|
|
<TD>
|
|
<%if F_optLogPeriod = L_DAILY then%>
|
|
<input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_DAILY) %>" tabIndex=5 onclick="DisableFileTextBox();" checked>
|
|
<%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
|
|
<input type=radio value="<%=Server.HTMLEncode(L_DAILY) %>" name=optLogPeriod disabled tabIndex=5 onclick="DisableFileTextBox();">
|
|
<% else %>
|
|
<input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_DAILY) %>" tabIndex=5 onclick="DisableFileTextBox();" >
|
|
<%end if%>
|
|
</TD>
|
|
<td width=50% nowrap class="TasksBody">
|
|
<%= L_DAILY %>
|
|
</td>
|
|
<TD>
|
|
<%if F_optLogPeriod = L_UNLIMITEDFILESIZE and F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then%>
|
|
<input type=radio name=optLogPeriod checked value ="<%=Server.HTMLEncode(L_UNLIMITEDFILESIZE) %>" tabIndex=6 onclick="DisableFileTextBox();" >
|
|
<%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
|
|
<input type=radio value ="<%=Server.HTMLEncode(L_UNLIMITEDFILESIZE) %>" name=optLogPeriod disabled tabIndex=6 onclick="DisableFileTextBox();">
|
|
<%else%>
|
|
<input type=radio name=optLogPeriod value ="<%=Server.HTMLEncode(L_UNLIMITEDFILESIZE) %>" tabIndex=6 onclick="DisableFileTextBox();" >
|
|
<%end if %>
|
|
</TD>
|
|
<td width=50% nowrap class="TasksBody">
|
|
<%= L_UNLIMITEDFILESIZE %>
|
|
</td>
|
|
</TR>
|
|
<TR>
|
|
<td colspan=2 >
|
|
</td>
|
|
<td>
|
|
<%if F_optLogPeriod = L_WEEKLY then%>
|
|
<input type=radio name=optLogPeriod onclick="DisableFileTextBox();" value="<%=Server.HTMLEncode(L_WEEKLY) %>" tabIndex=7 checked>
|
|
<%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
|
|
<input type=radio value="<%=Server.HTMLEncode(L_WEEKLY) %>" name=optLogPeriod disabled tabIndex=7 onclick="DisableFileTextBox();">
|
|
<%else%>
|
|
<input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_WEEKLY) %>" tabIndex=7 onclick="DisableFileTextBox();" >
|
|
<%end if%>
|
|
</td>
|
|
<td colspan=3 nowrap class="TasksBody">
|
|
<%= L_WEEKLY %>
|
|
</td>
|
|
</TR>
|
|
<TR>
|
|
<td colspan=2 >
|
|
</td>
|
|
<TD >
|
|
<%if F_optLogPeriod = L_FILE then%>
|
|
<input type=radio name=optLogPeriod value ="<%=Server.HTMLEncode(L_FILE) %>" checked tabIndex=8 onclick="javascript:enableFileTextBox();">
|
|
</td><td colspan=3 nowrap class="TasksBody"><%=L_WHENFILESIZE %>
|
|
<input type=text name=txtFileSize class="formField" value="<%=Server.HTMLEncode(F_FileSize)%>" OnKeyUP="javaScript:checkUserLimit(this,'filesize');" OnKeypress="javaScript:checkKeyforNumbers(this);" onblur = "checkforEmptyfield();" size="20">
|
|
<%elseif F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
|
|
<input type=radio name=optLogPeriod disabled tabIndex=8 value ="<%=Server.HTMLEncode(L_FILE) %>" onclick="javascript:enableFileTextBox();" >
|
|
</td><td colspan=3 nowrap class="TasksBody"><%=L_WHENFILESIZE %>
|
|
<input type=text name=txtFileSize class="formField" disabled value="<%=Server.HTMLEncode(F_FileSize)%>" OnKeyUP="javaScript:checkUserLimit(this,'filesize');" OnKeypress="javaScript:checkKeyforNumbers(this);" onblur = "checkforEmptyfield();" size="20">
|
|
<%else%>
|
|
<input type=radio name=optLogPeriod value ="<%=Server.HTMLEncode(L_FILE) %>" tabIndex=8 onclick="javascript:enableFileTextBox();">
|
|
</td><td colspan=3 nowrap class="TasksBody"><%=L_WHENFILESIZE %>
|
|
<input type=text name=txtFileSize class="formField" disabled value="<%=Server.HTMLEncode(F_FileSize)%>" OnKeyUP="javaScript:checkUserLimit(this,'filesize');" OnKeypress="javaScript:checkKeyforNumbers(this);" onblur = "checkforEmptyfield();" size="20">
|
|
<%end if %>
|
|
</TD>
|
|
</TR>
|
|
<tr>
|
|
<td>
|
|
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td></td>
|
|
<td colspan=5 class="TasksBody">
|
|
<%if F_optLogPeriod = L_FILE or F_optLogPeriod = L_UNLIMITEDFILESIZE then%>
|
|
<input type=checkbox name=chkLocalTime tabIndex=9 disabled value="ON">
|
|
<%else%>
|
|
<%if F_selectActiveFormat = CONST_W3CEXLOGFILE_FORMAT and F_LocalTime=true then %>
|
|
<input type=checkbox name=chkLocalTime tabIndex=9 checked value="ON">
|
|
<%elseif F_selectActiveFormat = CONST_W3CEXLOGFILE_FORMAT and F_LocalTime=false then %>
|
|
<input type=checkbox tabIndex=9 name=chkLocalTime value="ON">
|
|
<%else%>
|
|
<input type=checkbox name=chkLocalTime tabIndex=9 disabled value="ON">
|
|
<%end if%>
|
|
<%end if%>
|
|
<%= L_LOCALTIME %>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td>
|
|
</td>
|
|
<td colspan=5 class="TasksBody">
|
|
<%= L_LOGFILEDIR %>
|
|
|
|
<%if F_selectActiveFormat = CONST_ODBCLOGFILE_FORMAT then %>
|
|
<input type=text disabled name=txtLogFileDir class="formField" tabIndex=11 onKeyPress= "ClearErr();" size=40 value="<%=F_LogFileDir%>">
|
|
<%else%>
|
|
<input type=text name=txtLogFileDir class="formField" size=40 tabIndex=11 onKeyPress= "ClearErr();"value="<%=F_LogFileDir%>">
|
|
<%end if%>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
<input type=hidden name=fileRollOver>
|
|
<input type=hidden name=hdnEnableLog>
|
|
<%
|
|
End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function name: ServeVariablesFromForm()
|
|
'Description: Serves in getting the data from Client
|
|
'Input Variables: None
|
|
'Output Variables: None
|
|
'Returns: True/False
|
|
'Global Variables: None
|
|
'-------------------------------------------------------------------------
|
|
Function ServeVariablesFromForm
|
|
|
|
'setting the form variables
|
|
F_chkEnableLogging = Request.Form("hdnEnableLog")
|
|
F_selectActiveFormat = Request.Form("selectActiveFormat")
|
|
F_optLogPeriod = Request.Form("optLogPeriod")
|
|
|
|
F_FileSize = Request.Form("txtFileSize")
|
|
F_LocalTime = Request.Form("fileRollOver")
|
|
F_LogFileDir = Request.Form("txtLogFileDir")
|
|
F_IISSites = Request.Form("selectSites")
|
|
|
|
'F_SiteCriteria = Request.Form("optAllSites")
|
|
|
|
'set the master settings
|
|
If SetLogSettings()then
|
|
ServeVariablesFromForm = true
|
|
else
|
|
ServeVariablesFromForm = false
|
|
end if
|
|
|
|
End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function name: SetVariablesFromSystem
|
|
'Description: Serves in Getting the data from Client
|
|
'Input Variables: None
|
|
'Output Variables: None
|
|
'Returns: None
|
|
'Global Variables: G_objService
|
|
' G_objSites
|
|
'-------------------------------------------------------------------------
|
|
|
|
Function SetVariablesFromSystem()
|
|
|
|
Dim inst
|
|
Dim strQuery
|
|
Dim objLogFormat
|
|
Dim instLog
|
|
|
|
for each inst in G_objSites
|
|
select case inst.Logtype
|
|
case 1
|
|
F_chkEnableLogging = "true"
|
|
case else
|
|
F_chkEnableLogging = "false"
|
|
end select
|
|
|
|
if F_chkEnableLogging = "true" then
|
|
F_selectActiveFormat = IISLogFileGUIDToENName(inst.LogPluginClsId)
|
|
end if
|
|
select case inst.LogFilePeriod
|
|
case 1
|
|
F_optLogPeriod = L_DAILY
|
|
case 2
|
|
F_optLogPeriod = L_WEEKLY
|
|
case 3
|
|
F_optLogPeriod = L_MONTHLY
|
|
case 4
|
|
F_optLogPeriod = L_HOURLY
|
|
case 0
|
|
if inst.LogFileTruncateSize <>-1 then
|
|
F_optLogPeriod = L_FILE
|
|
else
|
|
F_optLogPeriod =L_UNLIMITEDFILESIZE
|
|
end if
|
|
end select
|
|
if F_optLogPeriod = L_FILE then
|
|
F_FileSize = inst.LogFileTruncateSize / (1024*1024)
|
|
else
|
|
F_FileSize = ""
|
|
end if
|
|
|
|
F_LocalTime = inst.LogFileLocaltimeRollover
|
|
|
|
|
|
if inst.LogFileDirectory = "" then
|
|
Dim objSysDrive,strSysDrive
|
|
Set objSysDrive = server.CreateObject("Scripting.FileSystemObject")
|
|
strSysDrive = objSysDrive.GetSpecialFolder(1).Drive ' 1 for systemfolder,0 for windows folder
|
|
F_LogFileDir = strSysDrive & "\" & CONST_DEF_WEBROOT
|
|
else
|
|
F_LogFileDir = inst.LogFileDirectory
|
|
end if
|
|
exit for
|
|
next
|
|
|
|
'Getting values from system
|
|
End Function
|
|
|
|
'-------------------------------------------------------------------------
|
|
'Function name: InitObjects
|
|
'Description: Initialization of global variables is done
|
|
'Input Variables: None
|
|
'Returns: true/false
|
|
'Global Variables: G_objService
|
|
' G_objSites
|
|
'--------------------------------------------------------------------------
|
|
|
|
Function InitObjects()
|
|
Err.Clear
|
|
on error resume next
|
|
|
|
' Get instances of IIS_FTPServiceSetting that are visible throughout
|
|
Set G_objService = getWMIConnection(CONST_WMI_IIS_NAMESPACE)
|
|
set G_objSites = G_objService.InstancesOf(GetIISWMIProviderClassName("IIS_FTPServiceSetting"))
|
|
|
|
if Err.number <> 0 or G_objSites.count = 0 then
|
|
FTPInstalled = false
|
|
Err.Clear
|
|
else
|
|
FTPInstalled = true
|
|
end if
|
|
|
|
end function
|
|
|
|
|
|
'----------------------------------------------------------------------
|
|
'Function name: SetLogSettings
|
|
'Description: Serves in setting the logs to the FTP server
|
|
'Input Variables: None
|
|
'Output Variables: boolean
|
|
'Returns: None
|
|
'Global Variables: G_objService
|
|
'----------------------------------------------------------------------
|
|
|
|
Function SetLogSettings()
|
|
|
|
on error resume next
|
|
|
|
Dim strObjPath
|
|
|
|
InitObjects()
|
|
|
|
if FTPInstalled = true then
|
|
SetLogSettings = false
|
|
|
|
if F_chkEnableLogging = "true" then
|
|
if ValidateInputs = True then
|
|
|
|
'select case F_SiteCriteria
|
|
|
|
'apply to all sites
|
|
if NOT SetLogsForAllSites(G_objService) then
|
|
ServeFailurePage L_FAIL_TO_SET_LOGS, sReturnURL
|
|
end if
|
|
|
|
SetLogSettings = true
|
|
exit function
|
|
|
|
end if
|
|
else
|
|
|
|
Dim inst
|
|
Dim objSite
|
|
Dim arrProp(4)
|
|
|
|
arrProp(0) = "LogType"
|
|
arrProp(1) = "LogPluginClsId"
|
|
arrProp(2) = "LogFilePeriod"
|
|
arrProp(3) = "LogFileTruncateSize"
|
|
arrProp(4) = "LogFileLocaltimeRollover"
|
|
|
|
|
|
strObjPath = GetIISWMIProviderClassName("IIs_FtpServiceSetting") & ".Name='MSFTPSVC'"
|
|
set objSite = G_objService.Get(strObjPath)
|
|
|
|
if Err.number <> 0 then
|
|
SetErrMsg L_INFORMATION_ERRORMESSAGE
|
|
exit function
|
|
end if
|
|
|
|
|
|
objSite.Logtype = 0
|
|
|
|
objSite.put_(WBEMFLAG)
|
|
|
|
if Err.number <> 0 then
|
|
SA_TraceOut "Ftp_LogSettings", L_FAIL_TO_SET_LOGS
|
|
SetLogSettings = false
|
|
exit function
|
|
end if
|
|
|
|
|
|
Err.Clear
|
|
Set objSite = GetNonInheritedFTPSites(G_objService, "IIS_FTPServerSetting","IIS_FTPServiceSetting", arrProp)
|
|
If ( Err.Number <> 0 ) Then
|
|
Call SA_TraceOut(SA_GetScriptFileName(), "GetNonInheritedFTPSites failed, error: " & Hex(Err.Number) & " " & Err.Description)
|
|
SetLogSettings = true
|
|
exit function
|
|
End If
|
|
|
|
if (IsNull(objSite) OR objSite.count = 0) then
|
|
|
|
SetLogSettings = true
|
|
exit function
|
|
end if
|
|
|
|
for each inst in objSite
|
|
|
|
inst.Logtype = 0
|
|
|
|
inst.put_(WBEMFLAG)
|
|
|
|
if Err.number <> 0 then
|
|
SA_TraceOut "Ftp_LogSettings", L_FAIL_TO_SET_LOGS
|
|
SetLogSettings = false
|
|
exit function
|
|
end if
|
|
|
|
next
|
|
|
|
SetLogSettings = true
|
|
end if
|
|
end if
|
|
|
|
'release the object
|
|
set G_objService = nothing
|
|
set G_objSites = nothing
|
|
set objSite = nothing
|
|
|
|
end function
|
|
|
|
|
|
'-----------------------------------------------------------------------------------------------------------
|
|
'Function name: SetLogsForAllSites
|
|
'Description: Serves in setting the logs to the new FTP sites
|
|
'Input Variables: G_objService
|
|
'Output Variables: boolean
|
|
'Returns: None
|
|
'Global variables: G_objService
|
|
'Other functions called:GetNonInheritedFTPSites
|
|
'-----------------------------------------------------------------------------------------------------------
|
|
|
|
Function SetLogsForAllSites(G_objService)
|
|
Err.Clear
|
|
On error resume next
|
|
|
|
Dim objSite
|
|
Dim inst
|
|
Dim arrProp(4)
|
|
|
|
'Set Master settings
|
|
SetLogsForNewSites G_objService
|
|
|
|
SetLogsForAllSites = false
|
|
|
|
arrProp(0) = "LogType"
|
|
arrProp(1) = "LogPluginClsId"
|
|
arrProp(2) = "LogFilePeriod"
|
|
arrProp(3) = "LogFileTruncateSize"
|
|
arrProp(4) = "LogFileLocaltimeRollover"
|
|
|
|
Set objSite = GetNonInheritedFTPSites(G_objService, GetIISWMIProviderClassName("IIS_FTPServerSetting"),GetIISWMIProviderClassName("IIS_FTPServiceSetting"), arrProp)
|
|
if (Err.number <> 0) then
|
|
SetLogsForAllSites = false
|
|
exit function
|
|
end if
|
|
if objSite.count = 0 then
|
|
SetLogsForAllSites = true
|
|
exit function
|
|
end if
|
|
|
|
for each inst in objSite
|
|
|
|
if not SetLogs(inst) then
|
|
|
|
SA_TraceOut "Web_LogSettings", L_FAIL_TO_SET_LOGS
|
|
SetLogsForAllSites = false
|
|
exit function
|
|
|
|
end if
|
|
|
|
next
|
|
|
|
'release the object
|
|
set objSite = nothing
|
|
|
|
SetLogsForAllSites = true
|
|
|
|
End Function
|
|
|
|
|
|
'-----------------------------------------------------------------------------------------------------------
|
|
'Function name: SetLogsForNewSites
|
|
'Description: Serves in setting the logs to the new FTP sites
|
|
'Input Variables: G_objService
|
|
'Output Variables: boolean
|
|
'Returns: None
|
|
'Global Variables: G_objService
|
|
'-----------------------------------------------------------------------------------------------------------
|
|
|
|
Function SetLogsForNewSites(G_objService)
|
|
Err.Clear
|
|
On error resume next
|
|
|
|
Dim objSite
|
|
Dim strObjPath
|
|
|
|
SetLogsForNewSites = false
|
|
|
|
strObjPath = GetIISWMIProviderClassName("IIs_FtpServiceSetting") & ".Name='MSFTPSVC'"
|
|
|
|
set objSite = G_objService.Get(strObjPath)
|
|
if Err.number <> 0 then
|
|
SetErrMsg L_INFORMATION_ERRORMESSAGE
|
|
exit function
|
|
end if
|
|
|
|
|
|
if not SetLogs(objSite) then
|
|
|
|
SA_TraceOut "FTP_LogSettings", L_FAIL_TO_SET_LOGS
|
|
|
|
end if
|
|
|
|
SetLogsForNewSites = true
|
|
|
|
'release the object
|
|
set objSite = nothing
|
|
|
|
SetLogsForNewSites = true
|
|
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------------------------------
|
|
'Function name: ValidateInputs
|
|
'Description: Check whether directory exists
|
|
' If directory does not exist, create the web site if the drive letter is valid
|
|
' else give error message
|
|
'Input Variables: None
|
|
'Returns: true/false
|
|
'Global Variables: None
|
|
'-----------------------------------------------------------------------------------------------------
|
|
|
|
Function ValidateInputs
|
|
Dim strIndx
|
|
Dim objFso
|
|
Dim nRetVal
|
|
Dim strDir
|
|
|
|
ValidateInputs = false
|
|
|
|
if F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then
|
|
|
|
Set objFso = server.CreateObject("Scripting.FileSystemObject")
|
|
if Err.number <> 0 then
|
|
SetErrMsg L_FILEINFORMATION_ERRORMESSAGE
|
|
exit function
|
|
end if
|
|
|
|
if mid(ucase(F_LogFileDir),1,8) = ucase("%WinDir%") then
|
|
strDir = objFso.GetSpecialFolder(0) & mid(F_LogFileDir,9)
|
|
|
|
elseif mid(ucase(F_LogFileDir),1,13) = ucase("%SystemDrive%") then
|
|
|
|
strDir = objFso.GetSpecialFolder(0).Drive & mid(F_LogFileDir,14)
|
|
else
|
|
strDir = F_LogFileDir
|
|
end if
|
|
|
|
nRetVal = CreateSitePath( objFso, strDir )
|
|
|
|
if nRetVal <> CONST_SUCCESS then
|
|
|
|
if nRetVal = CONST_INVALID_DRIVE then
|
|
|
|
SetErrMsg L_INVALID_DRIVE_ERRORMESSAGE
|
|
|
|
elseif nRetVal = CONST_NOTNTFS_DRIVE then
|
|
|
|
SetErrMsg L_NOT_NTFS_DRIVE_ERRORMESSAGE
|
|
else
|
|
|
|
SetErrMsg L_FAILED_CREATE_DIR_ERRORMESSAGE
|
|
|
|
end if
|
|
|
|
exit Function
|
|
|
|
end if
|
|
|
|
Dim strDriveName,objDriveType, intDriveSize
|
|
|
|
strDriveName = left(strDir,2)
|
|
if objFso.DriveExists(ucase(strDriveName)) then
|
|
set objDriveType = objFso.GetDrive(strDriveName)
|
|
intDriveSize = clng(objDriveType.TotalSize / (1024*1024))
|
|
end if
|
|
|
|
'Release the object
|
|
set objDriveType = nothing
|
|
|
|
if clng(F_FileSize) > intDriveSize then
|
|
L_DIRQUOTAERRORMESSAGE = GetLocString("GeneralSettings.dll", "C0420057", Array(CStr(intDriveSize)))
|
|
SetErrMsg(L_DIRQUOTAERRORMESSAGE)
|
|
exit Function
|
|
end if
|
|
|
|
end if
|
|
|
|
ValidateInputs = true
|
|
|
|
'Release the object
|
|
set objFso = nothing
|
|
|
|
End Function
|
|
|
|
|
|
'------------------------------------------------------------------
|
|
'Function name: SetLogs
|
|
'Description: Serves in setting the logs
|
|
'Input Variables: inst
|
|
'Returns: boolean 'true if no error occurs else false
|
|
'Global Variables: G_objService
|
|
'------------------------------------------------------------------
|
|
|
|
Function SetLogs(inst)
|
|
On Error Resume Next
|
|
Err.Clear
|
|
|
|
Dim strQuery
|
|
Dim objLogFormat
|
|
Dim instLog
|
|
|
|
SetLogs = false
|
|
|
|
inst.LogType = 1 'to enable logging
|
|
inst.LogPluginClsId = IISLogFileENNameToGUID(F_selectActiveFormat)
|
|
|
|
if F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then
|
|
|
|
select case F_optLogPeriod
|
|
case L_DAILY
|
|
inst.LogFilePeriod = 1
|
|
inst.LogFileTruncateSize = 512 * 1024 * 1024
|
|
case L_WEEKLY
|
|
inst.LogFilePeriod = 2
|
|
inst.LogFileTruncateSize = 512 * 1024 * 1024
|
|
case L_MONTHLY
|
|
inst.LogFilePeriod = 3
|
|
inst.LogFileTruncateSize = 512 * 1024 * 1024
|
|
case L_HOURLY
|
|
inst.LogFilePeriod = 4
|
|
inst.LogFileTruncateSize = 512 * 1024 * 1024
|
|
case L_FILE
|
|
inst.LogFilePeriod = 0
|
|
if trim(F_FileSize) <> "" then
|
|
inst.LogFileTruncateSize = clng(F_FileSize) * 1024 * 1024
|
|
else
|
|
inst.LogFileTruncateSize = 1024 * 1024
|
|
end if
|
|
case L_UNLIMITEDFILESIZE
|
|
inst.LogFilePeriod = 0
|
|
inst.LogFileTruncateSize = -1
|
|
end select
|
|
|
|
inst.LogFileLocaltimeRollover = cbool(F_LocalTime)
|
|
|
|
inst.LogFileDirectory = trim(F_LogFileDir)
|
|
|
|
end if
|
|
|
|
inst.put_(WBEMFLAG)
|
|
|
|
if Err.number <> 0 then
|
|
SA_TraceOut "Ftp_LogSettings", L_FAIL_TO_SET_LOGS
|
|
SetLogs = false
|
|
exit function
|
|
end if
|
|
|
|
'release the object
|
|
set objLogFormat = nothing
|
|
|
|
SetLogs = true
|
|
|
|
End function
|
|
%>
|