windows-server-2003/inetsrv/pop3/admin/sakui/script/p3mblock.asp

<%@ Language=VBScript   %>
<%	Option Explicit 	%>
<%
	'-------------------------------------------------------------------------
	' POP3 Mail Add-in - Mailboxes - Lock
    ' Copyright (C) Microsoft Corporation.  All rights reserved.
    '-------------------------------------------------------------------------
%>
	<!-- #include virtual="/admin/inc_framework.asp" -->
	<!-- #include virtual="/admin/ots_main.asp" -->
	<!-- #include file="p3cminc.asp" -->
<%

	'-------------------------------------------------------------------------
	' Global Constants
	'-------------------------------------------------------------------------
	Dim SOURCE_FILE
	SOURCE_FILE = SA_GetScriptFileName()
	
	Const FLD_NAME = "fldName"


	'-------------------------------------------------------------------------
	' Global Variables
	'-------------------------------------------------------------------------
	Dim g_page
	
	Dim g_rgFailures
	Dim g_nFailures
	g_nFailures = 0
	
	Dim g_strLockFlag
	If (Request.QueryString(PARAM_LOCKFLAG).Count > 0) Then
		g_strLockFlag = UCase(Request.QueryString(PARAM_LOCKFLAG).Item(1))
	ElseIf (Request.Form(PARAM_LOCKFLAG).Count > 0) Then
		g_strLockFlag = UCase(Request.Form(PARAM_LOCKFLAG).Item(1))
	Else
		' Default to locking
		g_strLockFlag = LOCKFLAG_LOCK
	End If
	
	Dim g_strDomainName
	g_strDomainName = GetDomainName()
	
	
	'----------------------------------------------------------------------
	' Global Localized Strings
	'----------------------------------------------------------------------
	Dim l_strPageTitle
	' The title will only be shown in the case of an error, so always set
	' the error title.
	If (LOCKFLAG_LOCK = g_strLockFlag) Then
		l_strPageTitle		= GetLocString(RES_DLL_NAME, _
										  POP3_PAGETITLE_MAILBOXES_LOCKERROR, _
										  "")
	Else
		l_strPageTitle		= GetLocString(RES_DLL_NAME, _
										  POP3_PAGETITLE_MAILBOXES_UNLOCKERROR, _
										  "")
	End If

	Dim l_strLockErrorPrompt
	l_strLockErrorPrompt	= GetLocString(RES_DLL_NAME, _
										   POP3_PROMPT_MAILBOXES_LOCKERROR, _
										   "")
	
	Dim l_strUnlockErrorPrompt
	l_strUnlockErrorPrompt	= GetLocString(RES_DLL_NAME, _
										   POP3_PROMPT_MAILBOXES_UNLOCKERROR, _
										   "")
	
	Dim l_strRetryPrompt
	l_strRetryPrompt		= GetLocString(RES_DLL_NAME, _
										   POP3_PROMPT_MAILBOXES_LOCKRETRY, _
										   "")


	'**********************************************************************
	'*						E N T R Y   P O I N T
	'**********************************************************************
	
	'
	' Attempt the operation.
	'
	If (AtFirstYouSucceed(g_strLockFlag)) Then
		' The operation succeeded and code has been output to redirect
		' back to the caller.
		Response.End()
	Else
		' The operation failed, so display the retry page.
		Call SA_CreatePage(l_strPageTitle, "", PT_PROPERTY, g_page)
		Call SA_ShowPage  (g_page)
	End If


	'**********************************************************************
	'*				H E L P E R  S U B R O U T I N E S 
	'**********************************************************************
	Function AtFirstYouSucceed(strLockFlag)
		On Error Resume Next
		
		AtFirstYouSucceed = false
		
		'
		' If this is the first time the page has been loaded, try to
		' execute the request.  Otherwise, we won't have the correct
		' return URL, so let the normal page events handle the request.
		'
		If (Request.Form(FLD_NAME).Count <> 0) Then
			Exit Function
		End If

		Dim rgMailboxesTable
		rgMailboxesTable = GetMailboxList()
	
		If (Err.number <> 0) Then
			Call SA_SetErrMsg( HandleUnexpectedError() )
			Exit Function
		End If
		
		Call LockMailboxes(g_strDomainName, rgMailboxesTable, strLockFlag)
		
		If (g_nFailures = 0) Then
			'
			' The mailboxes were successfully un/locked.  Redirect back to
			' the OTS.
			'
%>
			<SCRIPT LANGUAGE="Javascript" FOR="window" EVENT="onload">
				try
				{
					// Hide the footer to avoid "Action Cancelled" page from briefly displaying.
					top.document.getElementsByTagName("frameset").item(0).rows = "*,0";
					top.location.href = "<%=Server.HTMLEncode(Request.QueryString("ReturnURL").Item(1))%>";
				}
				catch(e)
				{
					// Nothing we can do.
				}
			</SCRIPT>
<%
			AtFirstYouSucceed = true
		End If
	End Function
	
	'---------------------------------------------------------------------
	' GetMailboxList
	'---------------------------------------------------------------------
	Function GetMailboxList()
		Dim rgMailboxes
		
		'
		' First, check the form data.
		'
		Dim iRow
		Dim nRows
		nRows = Request.Form(FLD_NAME).Count
		
		If (nRows <> 0) Then
			ReDim rgMailboxes(nRows, 0)

			'
			' Iterate over the form data.
			'
			For iRow = 1 to nRows
				rgMailboxes(iRow, 0) = Request.Form(FLD_NAME).Item(iRow)
			Next
		Else
			'
			' Form data was empty -- try the OTS data.
			'
			nRows = OTS_GetTableSelectionCount("")

			ReDim rgMailboxes(nRows, 0)

			For iRow = 1 to nRows
				If (Not OTS_GetTableSelection("", iRow, rgMailboxes(iRow, 0))) Then
					Call SA_TraceErrorOut(SOURCE_FILE, _
										  "Failed to get OTS selection.")

					Err.Raise(-1)
				End If
			Next
		End If
		
		GetMailboxList = rgMailboxes
	End Function
	
	'---------------------------------------------------------------------
	' LockMailboxes
	'---------------------------------------------------------------------
	Function LockMailboxes(strDomainName, rgMailboxesTable, strLockFlag)
		On Error Resume Next

		Dim bLock
		If (LOCKFLAG_LOCK = strLockFlag) Then
			bLock = true
		Else
			bLock = false
		End If
		
		Dim oConfig
		Set oConfig = Server.CreateObject("P3Admin.P3Config")
		
		Dim oDomain
		Set oDomain = oConfig.Domains.Item(strDomainName)
		
		Dim colMailboxes
		Set colMailboxes = oDomain.Users

		Dim nRows
		nRows = UBound(rgMailboxesTable, 1)
		
		' Create an array to hold the names of any mailboxes that could
		' not be un/locked.
		ReDim g_rgFailures(nRows, 0)
		g_nFailures = 0

		'
		' Store the error to report at the end of this method.  We don't
		' want to stop processing, because the list of failures needs to
		' be filled.
		'
		Dim nErr
		nErr = Err.number
		Err.Clear()

		'
		' Iterate over the selected mailboxes and un/lock them.
		'
		Dim iRow
		For iRow = 1 to nRows
			colMailboxes.Item(rgMailboxesTable(iRow, 0)).Lock = bLock
			If (Err.number <> 0) Then
				If (nErr = 0) Then
					Call SA_SetErrMsg( HandleUnexpectedError() )
				End If
				g_nFailures = g_nFailures + 1
				g_rgFailures(g_nFailures, 0) = rgMailboxesTable(iRow, 0)
			End If
		Next
		
		If (nErr <> 0) Then
			Call SA_SetErrMsg( HandleUnexpectedError() )
			Exit Function
		End If

	End Function
	
	'---------------------------------------------------------------------
	' OutputNameList
	'---------------------------------------------------------------------
	Sub OutputNameList(rgMailboxesTable, nRows)
		'
		' Sort the names.
		'
		Call SAQuickSort(rgMailboxesTable, 1, nRows, 1, 0)
		
		'
		' Output the names in a bulleted list.
		'
		Response.Write("<UL>" & vbCrLf)
		
		Dim strAddress
		Dim iRow
		For iRow = 1 to nRows
			strAddress = rgMailboxesTable(iRow, 0) & "@" & g_strDomainName
%>
			<LI><%=Server.HTMLEncode(strAddress)%></LI>
			<INPUT TYPE="hidden" NAME="<%=FLD_NAME%>"
				   VALUE="<%=Server.HTMLEncode(rgMailboxesTable(iRow, 0))%>">
<%
		Next

		Response.Write("</UL>" & vbCrLf)
	End Sub
	
	'---------------------------------------------------------------------
	' ServeCommonJavaScript
	'---------------------------------------------------------------------
	Function ServeCommonJavaScript()
	%>
		<script language="JavaScript" src="../inc_global.js">
		</script>
		<script language="JavaScript">
		
		function Init(){}
		function ValidatePage(){return true;}
		function SetData(){}
	
		</script>
	<%
	End Function


	'**********************************************************************
	'*					E V E N T   H A N D L E R S
	'**********************************************************************
	
	'---------------------------------------------------------------------
	' OnInitPage
	'---------------------------------------------------------------------
	Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
		OnInitPage = TRUE
	End Function
	
	'---------------------------------------------------------------------
	' OnServePropertyPage
	'---------------------------------------------------------------------
	Public Function OnServePropertyPage(ByRef PageIn, ByRef EventArg)
		On Error Resume Next
		
		Session(SESSION_POP3DOMAINNAME) = g_strDomainName
		
		OnServePropertyPage = TRUE

		Dim rgMailboxesTable

		'
		' Emit Javascript functions required by Web Framework
		Call ServeCommonJavaScript()

%>
		<INPUT TYPE="hidden" NAME="<%=PARAM_LOCKFLAG%>" VALUE="<%=g_strLockFlag%>">
<%

		If (g_nFailures < 1) Then
			Call SA_TraceErrorOut(SOURCE_FILE, _
								  "Page was loaded even though no mailboxes failed!")
		End If
		
		'
		' Output the error prompt and sorted list of failed mailboxes.
		'
		If (g_strLockFlag = LOCKFLAG_LOCK) Then
			Response.Write(l_strLockErrorPrompt & "<BR>" & vbCrLf)
		Else
			Response.Write(l_strUnlockErrorPrompt & "<BR>" & vbCrLf)
		End If

		Call OutputNameList(g_rgFailures, g_nFailures)
		Response.Write("<BR>" & l_strRetryPrompt & vbCrLf)
		
		OnServePropertyPage = TRUE

		If (Err.number <> 0) Then
			Call SA_SetErrMsg( HandleUnexpectedError() )
		End If
	End Function

	'---------------------------------------------------------------------
	' OnPostBackPage
	'---------------------------------------------------------------------
	Public Function OnPostBackPage(ByRef PageIn, ByRef EventArg)
			OnPostBackPage = TRUE
	End Function

	'---------------------------------------------------------------------
	' OnSubmitPage
	'---------------------------------------------------------------------
	Public Function OnSubmitPage(ByRef PageIn, ByRef EventArg)
		On Error Resume Next
		
		OnSubmitPage = FALSE
		
		Dim rgMailboxesTable
		rgMailboxesTable = GetMailboxList()
		
		Call LockMailboxes(g_strDomainName, rgMailboxesTable, g_strLockFlag)

		If (g_nFailures > 0) Then
			OnSubmitPage = FALSE
		Else
			OnSubmitPage = TRUE
		End If
	End Function
	
	'---------------------------------------------------------------------
	' OnClosePage
	'---------------------------------------------------------------------
	Public Function OnClosePage(ByRef PageIn, ByRef EventArg)
		OnClosePage = TRUE
	End Function
%>