on adminPage ()

«Build the Admin page.

«Changes:

«04/05/31, 10:17:10 by DAB

«complete rewrite; most fucntions moved or factored out

«2003:

unaltered lines omitted

«2002:

unaltered lines omitted

«2001:

unaltered lines omitted

«2000:

unaltered lines omitted

«1999:

unaltered lines omitted

«messages at manilaData.localization.languages.english.strings.admin

local (pta = html.getPageTableAddress ())

if not pta^.flManagingEditor //managing editors only

unaltered lines omitted

local (adrSite = manilaSuite.getManilaSiteAddress (pta))

local (adrNewsSite = manilaSuite.getNewsSiteAddress(adrSite))

local (adminUrl = manilaSuite.getUrl ("editorialAdmin", pta))

if pta^.searchArgs != ""

unaltered lines omitted

local (htmlText)

on add (s)

unaltered lines omitted

local (replacementTable); new (tableType, @replacementTable) // 05/01/00 JES: use replacement table instead of a list

local (separatorColor, separatorTextColor)

manilaSuite.html.getSeparatorColors (@separatorColor, @separatorTextColor)

on addSeparator(text, sectionName="") //CSS version, with section id 04/05/31, 10:05:53 by DAB

local (id="")

if sectionName!=""

id = " id='" + sectionName + "'"

add("\r<table cellpadding='2' cellspacing='0' width = '100%'" + id + ">")

add("\r\t<tr>")

add("\r\t\t<td style = 'color:" + separatorTextColor + ";background-color:" + separatorColor + ";font-weight;bold;'>")

add(text)

add("</td>")

add("\r\t</tr>")

add("\r</table>")

return true

pta^.title = manilaSuite.getString ("admin.adminPageTitle") // 4/17/00 JES: localized

pta^.autoParagraphs = false

pta^.activeUrls = false

add (manilaSuite.getString ("admin.adminPageInstructions") + "<p>") // 4/17/00 JES: localized

bundle //membership related

addSeparator (manilaSuite.getString ("accesscontrol.panelTitleUsers"), "membership")

if string.lower (pta^.method) == "post" //check post of multiple members before detail stuff for users processed

if defined (pta^.postArgs.addMultipleMembers)

manilaSuite.referer.checkSelf () //PBS 05/09/00: check referer to defeat client side trojan horse

manilaSuite.unTaintPostArgs () //PBS 10/30/99 must NOT do this generally 04/05/30, 14:44:00 by DAB

local (emails = pta^.postArgs.multipleNewMembers)

local (memberType = pta^.postArgs.multipleMemberType)

thread.callScript (@manilaSuite.members.addMultipleMembers, {emails, adrSite, memberType})

add(manilaSuite.accessControl.maintainUsers())

bundle //bulk add members

if defined(adrNewsSite^.accesscontrol) //cohort definition 04/05/28, 09:52:30 by DAB

addSeparator (manilaSuite.getString ("accesscontrol.panelTitleCohorts"), "cohorts")

local (flInvokeChangeCallbacks=false)

add(manilaSuite.accessControl.maintainCohorts(@flInvokeChangeCallbacks))

if flInvokeChangeCallbacks

if defined(adrNewsSite^.accessControl.callbacks)

manilaSuite.accessControl.callbackLoop(@adrNewsSite^.accessControl.Callbacks.changedCohorts, pta:pta)

addSeparator (manilaSuite.getString ("accesscontrol.panelTitleInspect"), "inspector")

add(manilaSuite.accessControl.inspector())

if manilaSuite.staticRendering.isEnabled (adrSite) //static rendering moved down 04/05/28, 09:39:11 by DAB

add ("<p>\r")

addSeparator (manilaSuite.getString ("admin.staticRenderingSeparator", pta:pta), "staticRender") // 4/17/00 JES: localized

local (renderInfoTable)

new (tableType, @renderInfoTable)

local (staticUrl = pta^.newsSite^.staticSite.["#ftpSite"].url)

bundle //handle the post args -- render pages if requested

if string.lower (pta^.method) == "post"

if defined (pta^.postArgs.renderWholeSiteConfirm) //confirm

pta^.title = manilaSuite.getString ("admin.renderThisSitePageName") // 4/17/00 JES: localized

htmlText = manilaSuite.getString ("admin.renderThisSiteConfirmation") + "<p>\r" // 4/17/00 JES: localized

replacementTable.url = staticUrl

add (manilaSuite.getString ("admin.urlOfYourStaticSiteIs", @replacementTable) + "<p>\r") // 4/17/00 JES: localized

add ("<form method=\"post\" action=\"" + adminUrl + "\">\r")

add ("<input type=\"submit\" name=\"renderWholeSite\" value=\""+ manilaSuite.getString ("admin.renderThisSiteButton") + "\">\r") // 4/17/00 JES: localized

add ("</form>\r")

return (htmlText)

if defined (pta^.postArgs.partialRenderConfirm) //PBS 09/07/01: confirm partial render

pta^.title = "Render Home Pages" // 4/17/00 JES: localized

htmlText = "Are you sure you want to render archived home pages for "

case string.lower (pta^.postArgs.partOfSiteToRender)

"thisweek"

htmlText = htmlText + "this week"

"thismonth"

htmlText = htmlText + "this month"

"previousmonth"

htmlText = htmlText + "the previous month"

htmlText = htmlText + "?<p>"

replacementTable.url = staticUrl

add (manilaSuite.getString ("admin.urlOfYourStaticSiteIs", @replacementTable) + "<p>\r") // 4/17/00 JES: localized

add ("<form method=\"post\" action=\"" + adminUrl + "\">\r")

add ("<input type=\"submit\" name=\"renderPartialSite\" value=\"Render Home Pages\">\r") // 4/17/00 JES: localized

add ("<input type=\"hidden\" name=\"partOfSiteToRender\" value=\"" + pta^.postArgs.partOfSiteToRender + "\">")

add ("</form>\r")

return (manilaSuite.unTaint (htmlText))

if defined (pta^.postArgs.renderWholeSite) //render the entire site

if not (manilaSuite.staticRendering.renderInProgress (adrSite, @renderInfoTable))

local (t)

t = manilaSuite.staticRendering.utilities.renderWholeSite (adrSite)

htmlText = ""

pta^.title = manilaSuite.getString ("admin.staticRenderingReport") // 4/17/00 JES: localized

add (manilaSuite.getString ("admin.staticRenderingReportHeader")) // 4/17/00 JES: localized

add ("<ol>")

local (oneUrl)

for oneUrl in t.renderedUrls

oneUrl = manilaSuite.unTaint (oneUrl)

add ("<li>" + html.getLink (oneUrl, oneUrl) + "\r")

add ("</ol>")

return (htmlText)

if defined (pta^.postArgs.renderPartialSite) //PBS 09/07/01: render home pages

temp.pa = pta^.postArgs

if not (manilaSuite.staticRendering.renderInProgress (adrSite, @renderInfoTable))

local (flWeek = (string.lower (pta^.postArgs.partOfSiteToRender) == "thisweek"))

local (flThisMonth = (string.lower (pta^.postArgs.partOfSiteToRender) == "thismonth"))

local (flPreviousMonth = (string.lower (pta^.postArgs.partOfSiteToRender) == "previousmonth"))

local (t)

if flWeek

t = manilaSuite.staticRendering.utilities.renderWholeWeek (adrSite)

if flThisMonth

t = manilaSuite.staticRendering.utilities.renderWholeMonth (adrSite)

if flPreviousMonth

t = manilaSuite.staticRendering.utilities.renderWholeMonth (adrSite, dateInMonth:date.prevMonth (clock.now ()))

htmlText = ""

pta^.title = manilaSuite.getString ("admin.staticRenderingReport") // 4/17/00 JES: localized

add (manilaSuite.getString ("admin.staticRenderingReportHeader")) // 4/17/00 JES: localized

add ("<ol>")

local (oneUrl)

for oneUrl in t.renderedUrls

add ("<li>" + html.getLink (oneUrl, oneUrl) + "\r")

add ("</ol>")

return (manilaSuite.unTaint (htmlText))

if manilaSuite.staticRendering.renderInProgress (adrSite, @renderInfoTable)

local (flWholeSite = renderInfoTable.flWholeSite)

local (url = renderInfoTable.currentUrl)

if flWholeSite

add (manilaSuite.getString ("admin.siteIsBeingRendered")) // 4/17/00 JES: localized

else

add (manilaSuite.getString ("admin.aPageIsBeingRendered")) // 4/17/00 JES: localized

if url != ""

replacementTable.url = html.getLink (url, url)

add (manilaSuite.getString ("admin.currentURL", @replacementTable) + "\r") // 4/17/00 JES: localized

else //add the render site button

add ("" + manilaSuite.getString ("admin.renderThisSitePrompt") + "<p>\r") // 4/17/00 JES: localized

replacementTable.url = staticUrl

add (manilaSuite.getString ("admin.urlOfYourStaticSiteIs", @replacementTable) + "<p>\r") // 4/17/00 JES: localized

add ("<form method='post' action='" + adminUrl + "#staticRender' name = 'staticrendering'>\r")

add ("<input type='submit' name='renderWholeSiteConfirm' value='"+ manilaSuite.getString ("admin.renderThisSiteButton") + "'>\r") // 4/17/00 JES: localized

add ("<p>") //PBS 09/07/01: render part of site below

add ("You can render archived home pages for this week, this month, or the previous month, by choosing from the popup menu and clicking Render Home Pages.<p>")

add ("<input type='submit' name='partialRenderConfirm' value='Render Home Pages'>\r")

add ("<select name='partOfSiteToRender'>")

add ("<option value='thisWeek'>This Week</option>")

add ("<option value='thisMonth'>This Month</option>")

add ("<option value='previousMonth'>Previous Month</option>")

add ("</select>")

add ("</form>")

add ("<p>")

bundle //custody

return (htmlText)

Relative to Frontier version 9.7b10