<script>on mouseUpgo to stack "Home"end mouseUpon mouseWithinballoon "Click on this button to go to the Home stack."end mouseWithin</script>
</part>
<part>
<id>2</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>469</left>
<top>311</top>
<right>508</right>
<bottom>341</bottom>
</rect>
<style>shadow</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2162</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>goto menu card</name>
<script>on mouseUpgo to card "menu"end mouseUpon mouseWithinballoon "Click on this button to go to main menu of this stack."end mouseWithin</script>
</part>
<part>
<id>3</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>49</left>
<top>311</top>
<right>462</right>
<bottom>331</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>status_line</name>
<script>on mouseWithinballoon "This field displays HyperWais progress messages. "end mouseWithin</script>
</part>
<name>background</name>
<script>-- this handler contains the functions needed to manage the-- sources and a function to make a nice file name out-- of a document headline---------------------------------------------------------function parseSourceFile sourceName-- this function opens a source file and parses it out.-- it assumes the file name is fully contructed and qualifiedglobal siteNameglobal siteIPglobal sitePortglobal maintainerglobal databaseNameglobal databaseMaxDocNumglobal confidenceglobal descriptionopen file sourceNamerepeatset the cursor to busyread from file sourceName until returnif it is empty then exit repeatput it into sourceLineif sourceLine contains ":description" thenrepeatread from file sourceName until returnif it contains ":" then exit repeatif it contains ")" then exit repeatif it is empty then exit repeatput sourceLine && it into sourceLineend repeatput parseLine(sourceLine,":description") ¬into descriptionend ifif sourceLine contains ":ip-name" then put ¬parseLine(sourceLine,":ip-name") into siteNameif sourceLine contains ":ip-address" then put ¬parseLine(sourceLine,":ip-address") into siteIPif sourceLine contains ":tcp-port" then put ¬parseLine(sourceLine,":tcp-port") into sitePortif sourceLine contains ":maintainer" then put ¬parseLine(sourceLine,":maintainer") into maintainerif sourceLine contains ":database-name" then put ¬parseLine(sourceLine,":database-name") into databaseNameif sourceLine contains ":confidence" then put ¬parseLine(sourceLine,":confidence") into confidenceif sourceLine contains ":num-docs-to-request" then put ¬parseLine(sourceLine,":num-docs-to-request") into databaseMaxDocNumend repeatclose file sourceNamereturn 0end parseSourceFile---------------------------------------------------------function addSource sourceName, sourceList-- this function parses out a source file name (sourceName)-- places it in sourceList and returns sourceList,-- it also checks to see if the source is not already-- in the source listset the itemDelimiter to ":"put the last item of sourceName into sourceNameif sourceName is not empty thenput offset(".src",sourceName) - 1 into sourceNameLengthif sourceNameLength is not empty thenput character 1 to sourceNameLength of sourceName into sourceNameend ifrepeat with i = 1 to the number of lines of sourceListset cursor to busyget line i of sourceListif it = " " & sourceName or it = ">>" & sourceName thenreturn sourceListend ifend repeatif character ( the length of sourceList ) of sourceList ≠ return ¬and sourceList is not empty thenput sourceList & return into sourceListend ifput sourceList & ">>" & sourceName into sourceListend ifreturn sourceListend addSource---------------------------------------------------------function parseQuestionFile questionName-- this function opens a question file and parses it out.-- it assumes the file name is fully contructed and qualifiedglobal seedWordsglobal questionSourcesput empty into seedWordsput empty into questionSourcesopen file questionNamerepeatset the cursor to busyread from file questionName until returnif it is empty then exit repeatput it into questionLineif questionLine contains ":seed-words" then put ¬parseLine(questionLine,":seed-words") into seedWordsif questionLine contains ":filename" thenput parseLine(questionLine,":filename") ¬into questionSourceif character 1 to 2 of questionSource ≠ ">>" thenput " " & questionSource into questionSourceend ifif questionSources is empty thenput questionSource into questionSourceselseput questionSources & return & questionSource ¬into questionSourcesend ifend ifend repeatclose file questionNamereturn 0end parseQuestionFile---------------------------------------------------------function niceFileName fileName-- this function makes a nice file name out of a document-- headline-- first grab the first word of the file nameput the first word of fileName into fileName-- then reduce it to less than 25 charaters, I know this-- is less than the 31 characters that the file system-- can support, but we need to have room to append-- stuff to the file name in order to do conversionsif the length of fileName > 25 thenput char 1 to 25 of fileName into fileNameend ifreturn fileNameend niceFileName---------------------------------------------------------</script>
