manilaSuite.search.indexMessage

on indexMessage (adrMsgTable, adrSite=nil)

«Changes:

unaltered lines omitted

local (title, url, text, siteName, siteUrl, createdDate, lastModDate) //page info

local (flStory = false, flHierarchyPage = false, flCalendarPage = false, flNewsItem = false) //Manila-specific info; 10/29/00 JES: added flNewsItem

local (msgNum = adrMsgTable^.msgNum) //the message number of this message

local (adrPrefsTable) //the address of the prefs table in the dg storage

local (adrConfig) //the address of the search config table in the #newsSite table for this site

local (domain, port, methodName, rpcPath) //info about the search engine indexing server

local (flIndex = false) //flag for indexing or not

sys.systemTask ()

on logNoIndex (message) //log the fact that this page can't be indexed

unaltered lines omitted

bundle //get the address of this Manila site

bundle //get basic info about the page

bundle //get the URL of this page

«It's either a dg message, story, #hierarchy page, news item, or in the calendar structure (a present or former home page).

«Assume it's a message.

if not defined (adrSite^.["#urls"].discussMsgReader)

unaltered lines omitted

url = adrSite^.["#urls"].discussMsgReader

if not (url endsWith "$")

unaltered lines omitted

url = url + msgNum

«Find out if it's a story.

unaltered lines omitted

if defined (adrMsgTable^.alsoListedIn)

unaltered lines omitted

«Find out if it's a hierarchy page.

local (adrHierarchy = @adrSite^.["#hierarchy"])

«if defined (adrHierarchy^)

unaltered lines omitted

if defined (adrHierarchy^) //JES 8/13/04: implement optimization, factoring from 02/06/17, 14:55:23 by DAB

manilaSuite.siteStructure.compileIfDirty (adrSite)

if defined (adrHierarchy^.paths.[msgNum])

url = adrSite^.["#ftpSite"].url + string.popLeading (adrHierarchy^.paths.[msgNum], "/")

flHierarchyPage = true

«Find out if it's a posted news item, get the URL, and fix text and lastModDate

bundle

«Find out if it's in the calendar structure

if not flNewsItem //10/29/00 JES: we already know the URL of newsitem-based homepages

unaltered lines omitted

bundle //decide whether or not index this page

bundle //get info about the search engine indexing server

bundle //send the page to the search engine indexing server

bundle //log the fact that the page was sent to the indexing server

return (true)

Relative to Frontier version 9.7b10