/*
QuickSearch - Searches the index of the current CD
$VER: QuickSearch.awebrx 1.0 (2.9.99) (c) Neil Bothwick, Wirenet
*/
/* ;;; Initialise */
options results
CDname = 'AACD03:'
IndexFile = CDName'CDTools/indices/'compress(CDName,':')
TempFile = 'T:QuickSearch.temp'
ResultFile = 'T:QuickSearch.html'
AWebPort = address()
;;;
/* ;;; Search index file */
parse arg SearchStr
SearchStr = translate(SearchStr,' ','+')
address command CDName'System/C/FlashFind >'TempFile IndexFile '"'SearchStr'" NOPREFS QUIET NH'
if RC > 0 then call ExitMsg('No matches found for *"'SearchStr'*"')
;;;
/* ;;; Open output file and write headers */
call open(in,TempFile,'R')
call open(out,ResultFile,'W')
call writeln(out,'')
call writeln(out,'Search results')
call writeln(out,'
Result of searching for "'SearchStr'"
')
call writeln(out,'
')
;;;
/* ;;; Process result into HTML */
do until eof(in)
line = readln(in)
if line = '' then iterate
parse var line name =34 path
name = strip(name)
line = '
'name'
'path''
call writeln(out,line)
end
call writeln(out,'
')
;;;
/* ;;; Close files and load into AWeb */
call close(in)
call close(out)
address command 'delete >NIL:' TempFile
'open file://localhost/'ResultFile' target main reload'
'wait file://localhost/'ResultFile
address command 'delete >NIL:' ResultFile
;;;
exit
/* ;;; Exit with a message */
ExitMsg:
parse arg msg
'request title "AACD QuickSearch" body "'msg'" gadgets "OK"'
exit
return
;;;