#!/bin/sh
search=`echo "$QUERY_STRING" | cut -d= -f2-`
echo "Content-type: text/html"
echo ""
echo ""
echo "AROS - The Amiga Replacement OS - Search results for $search"
echo "Search results for $search
"
#echo ""
#pwd
#printenv
#echo "
"
glimpse -H /home/digulla/AROS/docs/html -i $search | \
sort | \
gawk 'BEGIN { IGNORECASE=1; count=0; } \
{ \
if (!count) print ""; \
count ++; \
match($0,/[^:]+:/);
file=substr($0,RSTART,RLENGTH-1); \
gsub(/\/home\/digulla\/AROS\/docs\/html\//,"",file); \
printf ("- %s\n
- ", file, file); \
line=substr($0,RSTART+RLENGTH+1); \
gsub("^[ \t]+","",line); \
gsub("[ \t]+$","",line); \
rest=line; \
line=""; \
inhref=0; \
\
while (rest!="") \
{ \
if (match(rest,/<[^>]+>/)) \
{ \
prefix=substr(rest,1,RSTART-1); \
tag=substr(rest,RSTART,RLENGTH); \
rest=substr(rest,RSTART+RLENGTH); \
\
gsub(/'$search'/,"&",prefix); \
line=line prefix; \
if (tag=="" && inhref) \
{ \
line=line tag; \
inhref=0; \
} \
else if (match(tag,/^&",rest); \
line=line rest; \
rest=""; \
} \
} \
\
if (inhref) line=line"..."; \
print "
- ..." line "..." \
} \
END { if (!count) print "No matches"; else print "
"; }'
echo ""
echo "