/*
$VER: 1.0 Search.awebrx (1-7-2000)
By Neil Bothwick
Searches Amiga Active database on AACD.
*/
options results
CDName = 'AACD11'
AWebPort = address()
DBdir = CDName':AACD/Magazine/Database/'
parse arg args
call addlib('rexxsupport.library',0,-30,0)
SearchStr = ''
interpret args
if SearchStr = '' then exit
address command 'FlashFind >T:IndexSearch.results' DBdir'index "'SearchStr'" NH'
call open(out,'T:IndexSearch.html','W')
call writeln(out,'')
call writeln(out,'Search results')
call writeln(out,'Result of searching for "'SearchStr'"
')
if word(statef('T:IndexSearch.results'),2) = 0 then call writeln(out,'No matches found
')
else do
call writeln(out,'')
call writeln(out,'| Title | Issue |
|---|
')
call open(in,'T:IndexSearch.results','R')
do until eof(in)
line = readln(in)
if line = '' then iterate
parse var line File '|' IssueDate '|' Title '|' .
parse var File IssueNum '-' .
call writeln(out,'
| 'Title' | ')
call writeln(out,''IssueDate' |
')
end
call close(in)
call writeln(out,'
')
end
call writeln(out,'')
call close(out)
'Open "file://localhost/T:IndexSearch.html" reload'