<%@ Language=VBScript %>
<% Option Explicit %>
<%
'-------------------------------------------------------------------------
' POP3 Mail Add-in - Mailboxes - Lock
' Copyright (C) Microsoft Corporation. All rights reserved.
'-------------------------------------------------------------------------
%>
<%
'-------------------------------------------------------------------------
' 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.
'
%>
<%
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("
" & vbCrLf)
Dim strAddress
Dim iRow
For iRow = 1 to nRows
strAddress = rgMailboxesTable(iRow, 0) & "@" & g_strDomainName
%>
<%=Server.HTMLEncode(strAddress)%>
<%
Next
Response.Write("
" & vbCrLf)
End Sub
'---------------------------------------------------------------------
' ServeCommonJavaScript
'---------------------------------------------------------------------
Function ServeCommonJavaScript()
%>
<%
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()
%>
<%
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 & " " & vbCrLf)
Else
Response.Write(l_strUnlockErrorPrompt & " " & vbCrLf)
End If
Call OutputNameList(g_rgFailures, g_nFailures)
Response.Write(" " & 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
%>