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.
787 lines
29 KiB
787 lines
29 KiB
<%@ Language=VBScript %>
|
|
<% Option Explicit %>
|
|
<%
|
|
'-------------------------------------------------------------------------
|
|
' quota_quota.asp: manage default quotas on the volume
|
|
'
|
|
' Copyright (c) Microsoft Corporation. All rights reserved.
|
|
'
|
|
' Date Description
|
|
' 17-Jan-01 Creation date
|
|
' 15-Mar-01 Ported to 2.0
|
|
'-------------------------------------------------------------------------
|
|
%>
|
|
<!-- #include virtual = "/admin/inc_framework.asp" -->
|
|
<!-- #include file="loc_quotas.asp" -->
|
|
<!-- #include file="inc_quotas.asp" -->
|
|
<%
|
|
'-------------------------------------------------------------------------
|
|
' Global Variables
|
|
'-------------------------------------------------------------------------
|
|
Dim G_nRadioChecked ' to set radioButton values - contains 1 or 2 only
|
|
|
|
Dim SOURCE_FILE ' the source file name used while Tracing
|
|
SOURCE_FILE = SA_GetScriptFileName()
|
|
|
|
'-------------------------------------------------------------------------
|
|
' Global Constants
|
|
'-------------------------------------------------------------------------
|
|
Const CONST_ENABLE_QUOTA_MGMT = 1 ' Enable quota management
|
|
Const CONST_DISABLE_QUOTA_MGMT = 0 ' Disable quota management
|
|
Const CONST_ENFORCE_QUOTA_LIMIT = 2 ' Deny DiskSpace if user exceeds limit
|
|
|
|
'-------------------------------------------------------------------------
|
|
' Global Form Variables
|
|
'-------------------------------------------------------------------------
|
|
Dim F_strVolName ' Volume Name
|
|
Dim F_nChkEnableQuotaMgmt ' set disk management state checkBox
|
|
Dim F_blnChkDenyDiskSpace ' Enable deny disk space checkBox
|
|
Dim F_blnChkEnableLogEventExceedQuotaLimit ' Log if user exceeds quota limit checkBox
|
|
Dim F_blnChkEnableLogEventExceedWarningLimit ' Log if user exceeds warning limit checkBox
|
|
Dim F_LimitSize ' Disk limit size - textBox value
|
|
Dim F_LimitUnits ' Disk limit size units - comboBox value
|
|
Dim F_ThresholdSize ' Warning level set for the user - textBox value
|
|
Dim F_ThresholdUnits ' WarningLimit Uunits for the warning level set - comboBox Value
|
|
|
|
'======================================================
|
|
' Entry point
|
|
'======================================================
|
|
Dim page
|
|
DIM L_PAGETITLE_QUOTA_QUOTA_TEXT
|
|
|
|
' get the volumename to append to title
|
|
Call getVolumeName()
|
|
|
|
' append the volume name to the title
|
|
Dim arrVarReplacementStrings(2)
|
|
arrVarReplacementStrings(0) = getVolumeLabelForDrive(F_strVolName)
|
|
arrVarReplacementStrings(1) = F_strVolName
|
|
|
|
' append the volume name to the title
|
|
L_PAGETITLE_QUOTA_QUOTA_TEXT = SA_GetLocString("diskmsg.dll", "403E0047", arrVarReplacementStrings)
|
|
|
|
Dim aPageTitle(2)
|
|
|
|
aPageTitle(0) = L_BROWSERCAPTION_DEFAULTQUOTA_TEXT
|
|
aPageTitle(1) = L_PAGETITLE_QUOTA_QUOTA_TEXT
|
|
|
|
'
|
|
' Create a Property Page
|
|
Call SA_CreatePage( aPageTitle, "", PT_PROPERTY, page )
|
|
|
|
'
|
|
' Serve the page
|
|
Call SA_ShowPage( page )
|
|
|
|
'======================================================
|
|
' Web Framework Event Handlers
|
|
'======================================================
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: OnInitPage
|
|
' Description: Called to signal first time processing for this page
|
|
' Input Variables: Out: PageIn
|
|
' Out: 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
|
|
' Functions Called: getValuesForDefault
|
|
'
|
|
' Get ALL the initial form field settings
|
|
'---------------------------------------------------------------------
|
|
Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
|
|
Call SA_TraceOut(SOURCE_FILE, "OnInitPage")
|
|
|
|
' Call the function to get the default values
|
|
OnInitPage = getValuesForDefault ' True /False
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: OnServePropertyPage
|
|
' Description: Called when the page needs to be served
|
|
' Input Variables: Out: PageIn
|
|
' Out: 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: In: F_(*) - Form field values
|
|
' In: L_(*) - Text display strings
|
|
' In: G_nRadioChecked - radio to be selected
|
|
' Functions Called: (i)ServeCommonJavaScript, (ii)setUnits
|
|
'
|
|
' The UI is served here.
|
|
'---------------------------------------------------------------------
|
|
Public Function OnServePropertyPage(ByRef PageIn, ByRef EventArg)
|
|
Call SA_TraceOut(SOURCE_FILE, "OnServePropertyPage")
|
|
|
|
'
|
|
' Emit Javascript functions required by Web Framework
|
|
Call ServeCommonJavaScript()
|
|
|
|
%>
|
|
<table border="0" cellspacing="0" cellpadding="0">
|
|
<tr>
|
|
<td nowrap colspan="2" class="TasksBody">
|
|
<input type="checkbox" class="FormCheckBox" name="chkEnableQuotaMgmt" onClick="JavaScript:CheckToDisableAll(); " <% If F_nChkEnableQuotaMgmt <> CONST_DISABLE_QUOTA_MGMT Then Response.write "CHECKED" Else Response.Write "UNCHECKED" End If %> >
|
|
<%=L_ENABLE_QUOTA_MGMT_TEXT %>
|
|
</td>
|
|
</tr>
|
|
|
|
<tr>
|
|
<td nowrap colspan="2" class="TasksBody">
|
|
<input type="checkbox" class="FormCheckBox" name="chkDenyDiskSpace" <% If F_blnChkDenyDiskSpace Then Response.write "CHECKED" Else Response.Write "UNCHECKED" End If %> >
|
|
<%=L_DENY_DISK_SPACE_TEXT %>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan="2" class="TasksBody"> </td>
|
|
</tr>
|
|
|
|
<tr>
|
|
<td colspan="2" nowrap class="TasksBody">
|
|
<%=L_SELECT_DEFAULT_QUOTA_TEXT %>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan="2" class="TasksBody"> </td>
|
|
</tr>
|
|
|
|
<tr>
|
|
<td colspan="2" nowrap class="TasksBody">
|
|
<p><input type="radio" class="FormRadioButton" name="donotlimit" value="1" <% If G_nRadioChecked = 1 Then Response.Write "CHECKED" Else Response.write "UNCHECKED" End If %> onClick="JavaScript:DisableWarnLevel(warndisksize, warndisksizeunits); DisableLimitLevel(limitdisksize, limitdisksizeunits)"> <% =L_DONOTLIMITDISKUSAGE_TEXT %></p>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td width="30%" nowrap class="TasksBody">
|
|
<input type="radio" class="FormRadioButton" name="donotlimit" value="2" <% If G_nRadioChecked = 2 Then Response.Write "CHECKED" Else Response.write "UNCHECKED" End If %> onClick="JavaScript:EnableWarnDiskSpace(warndisksize,warndisksizeunits); EnableLimitDiskSpace(limitdisksize, limitdisksizeunits) "> <% =L_SETLIMITDISKSPACE_TEXT %>
|
|
</td>
|
|
<td nowrap class="TasksBody">
|
|
<input type="text" name="limitdisksize" value="<% =server.HTMLEncode(SA_EscapeQuotes(F_LimitSize)) %>" size="14" maxlength = "11" class="FormField" onFocus="this.select()" onKeyPress="allownumbers( this )" onChange="validatedisklimit( this, document.frmTask.limitdisksizeunits.value)" >
|
|
<select name="limitdisksizeunits" size="1" class="FormField" onChange="ClearErr();validatedisklimit( document.frmTask.limitdisksize, this.value )">
|
|
<% setUnits(F_LimitUnits) %>
|
|
</select>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td width="30%" nowrap class="TasksBody">
|
|
<% =L_SETWARNINGLEVEL_TEXT %>
|
|
</td>
|
|
<td nowrap class="TasksBody">
|
|
<input type="text" name="warndisksize" value="<%=server.HTMLEncode(SA_EscapeQuotes(F_ThresholdSize)) %>" size="14" maxlength="11" class="FormField" onFocus="this.select()" onKeyPress="allownumbers( this )" onChange="validatedisklimit( this, document.frmTask.warndisksizeunits.value )" >
|
|
|
|
<select name="warndisksizeunits" size="1" class="FormField" onChange="ClearErr();validatedisklimit(document.frmTask.warndisksize, this.value)">
|
|
<% setUnits(F_ThresholdUnits) %>
|
|
</select>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td colspan="2" class="TasksBody"> </td>
|
|
</tr>
|
|
|
|
<tr>
|
|
<td colspan="2" nowrap class="TasksBody">
|
|
<%=L_SELECT_QUOTA_LOGGING_TEXT %>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td nowrap colspan="2" class="TasksBody">
|
|
<input type="checkbox" class="FormCheckBox" name="chkEnableLogEventExceedQuotaLimit" <% If F_blnChkEnableLogEventExceedQuotaLimit Then Response.write "CHECKED" Else Response.Write "UNCHECKED" End If %> >
|
|
<%=L_ENABLE_QUOTA_LOGGING_TEXT %>
|
|
</td>
|
|
</tr>
|
|
<tr>
|
|
<td nowrap colspan="2" class="TasksBody">
|
|
<input type="checkbox" class="FormCheckBox" name="chkEnableLogEventExceedWarningLimit" <% If F_blnChkEnableLogEventExceedWarningLimit Then Response.write "CHECKED" Else Response.Write "UNCHECKED" End If %> >
|
|
<%=L_ENABLE_WARNING_LOGGING_TEXT %>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
|
|
<input name="volume" type="hidden" value="<% =F_strVolName %>">
|
|
|
|
<%
|
|
OnServePropertyPage = TRUE
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: OnPostBackPage
|
|
' Description: Called to signal that the page has been posted-back
|
|
' Input Variables: Out: PageIn
|
|
' Out: EventArg
|
|
' Output Variables: None
|
|
' Return Values: TRUE to indicate success. FALSE to indicate errors.
|
|
' Returning FALSE will cause the page to be abandoned.
|
|
' Global Variables: Out: F_(*) - Form values
|
|
' Out: G_nRadioChecked - the selected radio value
|
|
'
|
|
' Collect the form data vales.
|
|
'---------------------------------------------------------------------
|
|
Public Function OnPostBackPage(ByRef PageIn, ByRef EventArg)
|
|
Call SA_TraceOut(SOURCE_FILE, "OnPostBackPage")
|
|
|
|
' get the volume for which quota is set
|
|
F_strVolName = Request.Form("volume")
|
|
|
|
' initialize the quota state to "Disabled"
|
|
F_nChkEnableQuotaMgmt = CONST_DISABLE_QUOTA_MGMT
|
|
If UCASE(Request.Form("chkEnableQuotaMgmt")) = "ON" Then
|
|
' If the checkBox is Checked, Enable the Quota State
|
|
F_nChkEnableQuotaMgmt = CONST_ENABLE_QUOTA_MGMT
|
|
End If
|
|
|
|
' initialize the "Enforce Quota Limit" to false
|
|
F_blnChkDenyDiskSpace = False
|
|
If UCASE(Request.Form("chkDenyDiskSpace")) = "ON" Then
|
|
' If the checkBox is checked, set to true
|
|
F_blnChkDenyDiskSpace = True
|
|
End if
|
|
|
|
' initialize the "Log when user exceeds Quota limit" to false
|
|
F_blnChkEnableLogEventExceedQuotaLimit = False
|
|
If UCASE(Request.Form("chkEnableLogEventExceedQuotaLimit")) = "ON" Then
|
|
' If checkBox is checked, Enable the logging
|
|
F_blnChkEnableLogEventExceedQuotaLimit = True
|
|
End if
|
|
|
|
' initialize the "Log if user exceeds WarningLimit" to false
|
|
F_blnChkEnableLogEventExceedWarningLimit = False
|
|
If UCASE(Request.Form("chkEnableLogEventExceedWarningLimit")) = "ON" Then
|
|
' if the checkBox is checked, Enable the logging
|
|
F_blnChkEnableLogEventExceedWarningLimit = True
|
|
End if
|
|
|
|
' get the selected radioButton value
|
|
G_nRadioChecked = Request.Form("donotlimit")
|
|
|
|
' get the Disk Limit Size and its Units
|
|
F_LimitSize = Request.Form("limitdisksize")
|
|
F_LimitUnits = Request.Form("limitdisksizeunits")
|
|
|
|
' get the Warning Limit Size and its Units
|
|
F_ThresholdSize = Request.Form("warndisksize")
|
|
F_ThresholdUnits = Request.Form("warndisksizeunits")
|
|
|
|
If Len(Trim(F_strVolName)) = 0 Then
|
|
' volume is not retrieved. cannot proceed.
|
|
OnPostBackPage = False
|
|
Else
|
|
' return True
|
|
OnPostBackPage = TRUE
|
|
End If
|
|
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: OnSubmitPage
|
|
' Description: To process the submit request
|
|
' Input Variables: Out: PageIn
|
|
' Out: EventArg
|
|
' Output Variables: None
|
|
' Return Values: TRUE if the submit was successful, FALSE to indicate error(s).
|
|
' Returning FALSE will cause the page to be served again using
|
|
' a call to OnServePropertyPage.
|
|
' Returning FALSE will display error message.
|
|
' Global Variables: None
|
|
' Functions Called: UpdateQuotaValues
|
|
'
|
|
' Updates the Quota Values for the given volume
|
|
'---------------------------------------------------------------------
|
|
Public Function OnSubmitPage(ByRef PageIn, ByRef EventArg)
|
|
Call SA_TraceOut(SOURCE_FILE, "OnSubmitPage")
|
|
|
|
' Call UpdateQuotaValues to update the values.
|
|
' If any error occurs,the error message is set in the function.
|
|
OnSubmitPage = UpdateQuotaValues ' returns: True/False
|
|
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: OnClosePage
|
|
' Description: to perform clean-up processing
|
|
' Input Variables: Out: PageIn
|
|
' Out: EventArg
|
|
' Output Variables: None
|
|
' Return Values: TRUE to allow close, FALSE to prevent close. Returning FALSE
|
|
' will result in a call to OnServePropertyPage.
|
|
' Global Variables: None
|
|
'
|
|
' Called when the page is about to be closed.
|
|
'---------------------------------------------------------------------
|
|
Public Function OnClosePage(ByRef PageIn, ByRef EventArg)
|
|
Call SA_TraceOut(SOURCE_FILE, "OnClosePage")
|
|
|
|
' no processing required here. Return True
|
|
OnClosePage = TRUE
|
|
End Function
|
|
|
|
'======================================================
|
|
' Private Functions
|
|
'======================================================
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: ServeCommonJavaScript
|
|
' Description: Serve JavaScript that is required for this page type
|
|
' Input Variables: None
|
|
' Output Variables: None
|
|
' Return Values: None
|
|
' Global Variables: L_(*) - Error messages displayed on the client side
|
|
'
|
|
' This contains the Client-Side script required for the page.
|
|
'---------------------------------------------------------------------
|
|
Function ServeCommonJavaScript()
|
|
%>
|
|
<script language="JavaScript" src="<%=m_VirtualRoot%>inc_global.js">
|
|
</script>
|
|
<script language="JavaScript" src="inc_quotas.js">
|
|
</script>
|
|
|
|
<script language="JavaScript">
|
|
//
|
|
// Microsoft Server Appliance Web Framework Support Functions
|
|
// Copyright (c) Microsoft Corporation. All rights reserved.
|
|
//
|
|
|
|
// to perform first time initialization.
|
|
function Init()
|
|
{
|
|
// enable cancel in case of any server side error
|
|
EnableCancel();
|
|
if(document.frmTask.chkEnableQuotaMgmt.checked == false)
|
|
{
|
|
// to disable all other controls if Quota Management is disabled
|
|
disableFields();
|
|
return;
|
|
}
|
|
if ( document.frmTask.donotlimit[0].checked )
|
|
{
|
|
document.frmTask.warndisksize.disabled = true;
|
|
document.frmTask.limitdisksize.disabled = true;
|
|
document.frmTask.warndisksizeunits.disabled = true;
|
|
document.frmTask.limitdisksizeunits.disabled = true;
|
|
}
|
|
else
|
|
{
|
|
if ( document.frmTask.donotlimit[1].checked )
|
|
{
|
|
document.frmTask.limitdisksize.select();
|
|
}
|
|
else
|
|
{
|
|
// disable all except cancel button
|
|
DisableOK() ;
|
|
document.frmTask.donotlimit[0].disabled = true;
|
|
document.frmTask.donotlimit[1].disabled = true;
|
|
document.frmTask.warndisksize.disabled = true;
|
|
document.frmTask.limitdisksize.disabled = true;
|
|
document.frmTask.warndisksizeunits.disabled = true;
|
|
document.frmTask.limitdisksizeunits.disabled = true;
|
|
document.frmTask.donotlimit[0].checked = false;
|
|
}
|
|
}
|
|
}
|
|
|
|
// to validate user input. Returning false will cause the submit to abort.
|
|
// Returns: True if the page is OK, false if error(s) exist.
|
|
function ValidatePage()
|
|
{
|
|
var objlimitSize = document.frmTask.limitdisksize ;
|
|
var objwarnSize = document.frmTask.warndisksize ;
|
|
var objlimitUnits = document.frmTask.limitdisksizeunits ;
|
|
var objwarnUnits = document.frmTask.warndisksizeunits ;
|
|
|
|
if ( document.frmTask.donotlimit[1].checked )
|
|
{
|
|
// validate the Limit Size value
|
|
if(!isSizeValidDataType(objlimitSize.value) )
|
|
{
|
|
SA_DisplayErr('<% =Server.HTMLEncode(SA_EscapeQuotes(L_INVALIDDATATYPE_ERRORMESSAGE))%>');
|
|
document.frmTask.onkeypress = ClearErr;
|
|
selectFocus( objlimitSize );
|
|
return false;
|
|
}
|
|
|
|
// validate the LimitSize Units
|
|
if (!checkSizeAndUnits(objlimitSize.value, objlimitUnits.value) )
|
|
{
|
|
SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_SIZEOUTOFBOUND_ERRORMESSAGE))%>');
|
|
document.frmTask.onkeypress = ClearErr;
|
|
selectFocus( objlimitSize );
|
|
return false;
|
|
}
|
|
|
|
// validate the Warning Limit
|
|
if(!isSizeValidDataType(objwarnSize.value) )
|
|
{
|
|
SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_INVALIDDATATYPE_ERRORMESSAGE))%>');
|
|
document.frmTask.onkeypress = ClearErr;
|
|
selectFocus(objwarnSize);
|
|
return false;
|
|
}
|
|
|
|
// validate the Warning Limit Units
|
|
if (!checkSizeAndUnits(objwarnSize.value, objwarnUnits.value) )
|
|
{
|
|
SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_SIZEOUTOFBOUND_ERRORMESSAGE)) %>');
|
|
document.frmTask.onkeypress = ClearErr;
|
|
selectFocus( objwarnSize );
|
|
return false;
|
|
}
|
|
|
|
// verify the warning level. Must be less than limit.
|
|
if(isWarningMoreThanLimit(objlimitSize,objlimitUnits,objwarnSize,objwarnUnits))
|
|
{
|
|
SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_WARNING_MORETHAN_LIMIT_ERRORMESSAGE))%>');
|
|
document.frmTask.onkeypress = ClearErr;
|
|
selectFocus( objwarnSize );
|
|
return false;
|
|
}
|
|
}
|
|
|
|
// if the Limit values are Less than 1 KB, set them to 1 KB
|
|
validatedisklimit( objlimitSize, objlimitUnits.value);
|
|
validatedisklimit( objwarnSize, objwarnUnits.value);
|
|
|
|
return true;
|
|
}
|
|
|
|
// to modify hidden form fields
|
|
function SetData()
|
|
{
|
|
// no hidden values to update here
|
|
}
|
|
|
|
// to enable or disable the form controls onClick of the CheckBox
|
|
function CheckToDisableAll()
|
|
{
|
|
// If Disk quota mgmt is disabled we need to disable all fields
|
|
if ( document.frmTask.chkEnableQuotaMgmt.checked == false )
|
|
{
|
|
// disable the fields
|
|
disableFields();
|
|
}
|
|
else
|
|
{
|
|
// Disk quota mgmt is enabled we need to enable all fields
|
|
enableFields();
|
|
}
|
|
}
|
|
|
|
// to disable the fields
|
|
function disableFields()
|
|
{
|
|
document.frmTask.chkDenyDiskSpace.checked = false;
|
|
document.frmTask.chkDenyDiskSpace.disabled = true;
|
|
|
|
document.frmTask.donotlimit[0].checked = true;
|
|
document.frmTask.donotlimit[0].disabled = true;
|
|
document.frmTask.donotlimit[1].disabled = true;
|
|
|
|
document.frmTask.chkEnableLogEventExceedQuotaLimit.checked = false;
|
|
document.frmTask.chkEnableLogEventExceedQuotaLimit.disabled = true;
|
|
|
|
document.frmTask.chkEnableLogEventExceedWarningLimit.checked = false;
|
|
document.frmTask.chkEnableLogEventExceedWarningLimit.disabled = true;
|
|
|
|
document.frmTask.warndisksize.disabled = true;
|
|
document.frmTask.warndisksizeunits.disabled = true;
|
|
|
|
document.frmTask.limitdisksize.disabled = true;
|
|
document.frmTask.limitdisksizeunits.disabled = true;
|
|
}
|
|
|
|
// to enable the fields
|
|
function enableFields()
|
|
{
|
|
document.frmTask.chkDenyDiskSpace.checked = false;
|
|
document.frmTask.chkDenyDiskSpace.disabled = false;
|
|
|
|
document.frmTask.donotlimit[1].checked = true;
|
|
document.frmTask.donotlimit[0].disabled = false;
|
|
document.frmTask.donotlimit[1].disabled = false;
|
|
|
|
if( isNaN(document.frmTask.limitdisksize.value) )
|
|
document.frmTask.limitdisksize.value = "1" ;
|
|
|
|
if( isNaN(document.frmTask.warndisksize.value) )
|
|
document.frmTask.warndisksize.value = "1" ;
|
|
|
|
document.frmTask.chkEnableLogEventExceedQuotaLimit.checked = false;
|
|
document.frmTask.chkEnableLogEventExceedQuotaLimit.disabled = false;
|
|
|
|
document.frmTask.chkEnableLogEventExceedWarningLimit.checked = false;
|
|
document.frmTask.chkEnableLogEventExceedWarningLimit.disabled = false;
|
|
|
|
document.frmTask.warndisksize.disabled = false;
|
|
document.frmTask.warndisksizeunits.disabled = false;
|
|
|
|
document.frmTask.limitdisksize.disabled = false;
|
|
document.frmTask.limitdisksizeunits.disabled = false;
|
|
}
|
|
|
|
</script>
|
|
|
|
<%
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: getValuesForDefault
|
|
' Description: get the default values for the quota settings
|
|
' Input Variables: None
|
|
' Output Variables: None
|
|
' Return Values: True - if success. False if any error(s) occur
|
|
' Global Variables: Out: F_(*) - Form field values
|
|
' Out: G_nRadioChecked - radioButton to select
|
|
' In: L_(*) - Error messages
|
|
' Functions Called:
|
|
' (i)getQuotaLimitRadioForDefault (iv)getThresholdSizeForDefault
|
|
' (ii)getLimitSizeForDefault (v)getThresholdSizeUnitsForDefault
|
|
'(iii)getLimitUnitsForDefault
|
|
'
|
|
' Calls the failure page if values could not be retrieved
|
|
'---------------------------------------------------------------------
|
|
Function getValuesForDefault
|
|
On Error Resume Next
|
|
Err.Clear
|
|
|
|
Dim objQuotas ' the quota object
|
|
|
|
' create the quota object and initialize for the required Volume
|
|
Set objQuotas = CreateObject("Microsoft.DiskQuota.1")
|
|
objQuotas.Initialize F_strVolName &"\", 1
|
|
If Err.number <> 0 Then
|
|
' cannot proceed. Display failure page.
|
|
Call SA_ServeFailurePage(L_OBJECTNOTCREATED_ERRORMESSAGE)
|
|
End If
|
|
|
|
' get the Quota Management State. Possible values:
|
|
' (i)CONST_ENABLE_QUOTA_MGMT - Enable Quota Management
|
|
' (ii)CONST_ENFORCE_QUOTA_LIMIT - Disable Quota Mangement
|
|
' (iii)CONST_DISABLE_QUOTA_MGMT - Enforce Quota Management
|
|
F_nChkEnableQuotaMgmt = objQuotas.QuotaState
|
|
|
|
' initialize the "Enforce Quota Management" to False
|
|
F_blnChkDenyDiskSpace = False
|
|
If objQuotas.QuotaState = CONST_ENFORCE_QUOTA_LIMIT Then
|
|
' set to True if enforced
|
|
F_blnChkDenyDiskSpace = True
|
|
End If
|
|
|
|
' get the "Log if user exceeds quota limit" value. True or False
|
|
F_blnChkEnableLogEventExceedQuotaLimit = objQuotas.LogQuotaLimit
|
|
|
|
' get the "Log if user exceeds Warning limit" value. True or False
|
|
F_blnChkEnableLogEventExceedWarningLimit = objQuotas.LogQuotaThreshold
|
|
|
|
' get the radio button to be selected - 1 or 2
|
|
G_nRadioChecked = getQuotaLimitRadioForDefault(objQuotas)
|
|
|
|
' Compute Default Disk Limit and its units
|
|
F_LimitSize = getLimitSizeForDefault(objQuotas)
|
|
F_LimitUnits = getLimitUnitsForDefault(objQuotas)
|
|
|
|
' Compute Default Warning Limit and its units
|
|
F_ThresholdSize = getThresholdSizeForDefault(objQuotas)
|
|
F_ThresholdUnits = getThresholdSizeUnitsForDefault(objQuotas)
|
|
|
|
If Err.number <> 0 Then
|
|
' in case of any error return False
|
|
getValuesForDefault = False
|
|
Err.Clear ' stop further error propagation
|
|
Exit Function
|
|
End If
|
|
|
|
getValuesForDefault = True
|
|
|
|
' clean up
|
|
Set objQuotas = Nothing
|
|
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: UpdateQuotaValues
|
|
' Description: Set the default values for the quota settings
|
|
' Input Variables: None
|
|
' Output Variables: None
|
|
' Return Values: True - if success. False if any error(s) occur
|
|
' Global Variables: In: F_(*) - Form field values
|
|
' In: L_(*) - Error messages
|
|
' In: G_nRadioChecked - radioButton to select
|
|
' Functions Called: (i)setDefaultQuotaLimit, (ii)setDefaultThreshold
|
|
'
|
|
' The error message is set incase error occurs
|
|
'---------------------------------------------------------------------
|
|
Function UpdateQuotaValues
|
|
On Error Resume Next
|
|
Err.Clear
|
|
|
|
Dim objQuotas ' the quota object
|
|
|
|
' create the quota object and initialize for the required Volume
|
|
Set objQuotas = CreateObject("Microsoft.DiskQuota.1")
|
|
objQuotas.Initialize F_strVolName &"\", 1
|
|
If Err.number <> 0 Then
|
|
' cannot proceed. Display failure page.
|
|
Call SA_ServeFailurePage(L_OBJECTNOTCREATED_ERRORMESSAGE)
|
|
End If
|
|
|
|
' update the Quota State property
|
|
objQuotas.QuotaState = F_nChkEnableQuotaMgmt
|
|
|
|
' update the "Enforce Quota Limit" property
|
|
If F_blnChkDenyDiskSpace Then
|
|
objQuotas.QuotaState = CONST_ENFORCE_QUOTA_LIMIT
|
|
End if
|
|
|
|
' update "Enable Logging when user exceeds disk limit"
|
|
objQuotas.LogQuotaLimit = F_blnChkEnableLogEventExceedQuotaLimit
|
|
|
|
' enable logging when user exceeds warning limit
|
|
objQuotas.LogQuotaThreshold = F_blnChkEnableLogEventExceedWarningLimit
|
|
|
|
' check if any error occured
|
|
If Err.number <> 0 Then
|
|
SA_SetErrMsg L_QUOTA_UPDATE_FAIL_ERRORMESSAGE & " (" & Hex(Err.Number) & ")"
|
|
Err.Clear ' stop further propagation
|
|
UpdateQuotaValues = False
|
|
Exit Function
|
|
End If
|
|
|
|
' If "Do not limit disk usage" is selected, Set the DiskLimit and
|
|
' WarningLimit to "No Limit"
|
|
If CInt(G_nRadioChecked) = CInt(CONST_RADIO_DONOT_LIMIT_DISKUSAGE) Then
|
|
F_LimitSize = CONST_NO_LIMIT
|
|
F_ThresholdSize = CONST_NO_LIMIT
|
|
End If
|
|
|
|
' set the DiskLimit size for the Quota
|
|
If NOT setDefaultQuotaLimit(objQuotas, F_LimitSize, F_LimitUnits) Then
|
|
SA_SetErrMsg L_MAXLIMITNOTSET_ERRORMESSAGE & " (" & Hex(Err.Number) & ")"
|
|
Err.Clear ' stop further propagation
|
|
UpdateQuotaValues = False
|
|
Exit Function
|
|
End If
|
|
|
|
' set the WarningLimit size for the Quota
|
|
If NOT setDefaultThreshold(objQuotas, F_ThresholdSize, F_ThresholdUnits) Then
|
|
SA_SetErrMsg L_WARNINGLIMITNOTSET_ERRORMESSAGE & " (" & Hex(Err.Number) & ")"
|
|
Err.Clear ' stop further propagation
|
|
UpdateQuotaValues = False
|
|
Exit Function
|
|
End If
|
|
|
|
' all values updated. return True
|
|
UpdateQuotaValues = True
|
|
|
|
' clean up
|
|
Set objQuotas = Nothing
|
|
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: setDefaultQuotaLimit
|
|
' Description: set the Default Quota limit
|
|
' Input Variables: (out)objQuotas
|
|
' (in) nDiskLimit
|
|
' (in) strUnits
|
|
' Output Variables: (out) objQuotas
|
|
' Return Values: True/ False
|
|
' Global Variables: None
|
|
' Functions Called: ChangeToFloat
|
|
'---------------------------------------------------------------------
|
|
Function setDefaultQuotaLimit(ByRef objQuotas, nDiskLimit, strUnits)
|
|
On Error Resume Next
|
|
Err.Clear
|
|
|
|
Dim nDiskLimitToSet ' the disk limit to set
|
|
|
|
If nDiskLimit <> CONST_NO_LIMIT Then
|
|
'Added 0.001 round the value of disk Limit
|
|
nDiskLimitToSet = ChangeToFloat(nDiskLimit + 0.001, strUnits)
|
|
If nDiskLimitToSet < 1024 Then
|
|
nDiskLimitToSet = 1024 ' must be minimum 1 KB
|
|
End if
|
|
Else
|
|
nDiskLimitToSet = nDiskLimit
|
|
End If
|
|
|
|
' the disk values are converted to Bytes and then set to the object
|
|
objQuotas.DefaultQuotaLimit = nDiskLimitToSet
|
|
|
|
If Err.number <> 0 Then
|
|
setDefaultQuotaLimit = FALSE
|
|
Else
|
|
setDefaultQuotaLimit = TRUE
|
|
End If
|
|
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Function name: setDefaultThreshold
|
|
' Description: set the Default Quota Threshold
|
|
' Input Variables: (out)objQuotas
|
|
' (in) nThresholdLimit
|
|
' (in) strUnits
|
|
' Output Variables: (out) objQuotas
|
|
' Return Values: True/ False
|
|
' Global Variables: None
|
|
' Functions Called: ChangeToFloat
|
|
'---------------------------------------------------------------------
|
|
Function setDefaultThreshold(ByRef objQuotas, nThresholdLimit, strUnits)
|
|
On Error Resume Next
|
|
Err.Clear
|
|
|
|
Dim nThresholdLimitToSet ' the warning limit to set
|
|
|
|
If nThresholdLimit <> CONST_NO_LIMIT Then
|
|
'Added 0.001 round the value of Warning Limit
|
|
nThresholdLimitToSet = ChangeToFloat( nThresholdLimit + 0.001, strUnits )
|
|
If nThresholdLimitToSet < 1024 Then
|
|
nThresholdLimitToSet = 1024 ' must be minimum 1 KB
|
|
End if
|
|
Else
|
|
nThresholdLimitToSet = nThresholdLimit
|
|
End If
|
|
|
|
' convert the value into Bytes abd set to object
|
|
objQuotas.DefaultQuotaThreshold = nThresholdLimitToSet
|
|
|
|
If Err.number <> 0 Then
|
|
setDefaultThreshold = False
|
|
Else
|
|
setDefaultThreshold = True
|
|
End If
|
|
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' Procedure name: getVolumeName
|
|
' Description: get volume name as obtained from previous OTS page
|
|
' Input Variables: None
|
|
' Output Variables: None
|
|
' Return Values: None
|
|
' Global Variables: Out: F_strVolName - the volume to set quota values on
|
|
'---------------------------------------------------------------------
|
|
Sub getVolumeName()
|
|
|
|
Dim strItemKey ' the selected value in the OTS page
|
|
Dim i ' to loop
|
|
Dim iCount ' the count of entries selected
|
|
|
|
' first get from the form (in case form re-submitted)
|
|
F_strVolName = Request.Form("volume")
|
|
If Len(Trim(F_strVolName)) = 0 Then
|
|
' get the selected value from the OTS
|
|
iCount = OTS_GetTableSelectionCount("")
|
|
For i = 1 to iCount
|
|
Call OTS_GetTableSelection("", i, strItemKey)
|
|
Next
|
|
' get the last selected entry
|
|
F_strVolName = strItemKey
|
|
End If
|
|
|
|
End Sub
|
|
|
|
%>
|