The following definitions demonstrate how to change the
BrokerQuery.pl.cgi output. The <PrintObject>
specification prints the
object number, description, and indexing data all on the first line. The
description is wrapped around HMTL anchor tags so that it is a link to the
object originally gathered. The words ``indexing data'' are a link to the
DisplayObject program which will format the content summary for HTML browsers.
The object number is formatted as a number in parenthesis such that the whole
thing takes up four spaces.
The <MatchedLineSub>
definition includes four substitution expressions.
The first removes the words ``Matched line:'' from the beginning of each
matched line. The second removes SOIF attributes of the form
``partial-text{43}:
'' from the beginning of a line. The third displays
the attribute names (e.g. partial-text#
) in italics. The last
expression indents each line by five spaces to align it with the description
line. The definition for <EndBrokerResults>
slightly modifies the
report of how many objects were matched.
<PrintObject> $objectnum <A HREF="$url"><STRONG>$desc</STRONG></A> \ [<A HREF="$cs_a://$cs_h/Harvest/cgi-bin/DisplayObject.cgi?object=$cs_p">\ indexing data</A>] $opaque </PrintObject> <ObjectNumPrintf> (%2d) </ObjectNumPrintf> <MatchedLineSub> s/^Matched line: *//; s/^([\w-]+# )[\w-]+{\d+}:\t/\1/; s/^([\w-]+#)/<I>\1<\/I>/; s/^.*/ $&/; </MatchedLineSub> <EndBrokerResults> <STRONG>Found $nopaquelines matched lines, $nobjects objects.</STRONG> <P>\n </EndBrokerResults>