# munch on request
reqlines = ''
done = false
while(~ $"done 'false') {
ifs = '
' line = `{read |sed 's/
//g'}
# echo '^'$"line'$' > /dev/stderr
reqlines = $"reqlines$"line'
'
ifs='
'
if(echo $"line | grep '^GET ' > /dev/null) {
method = `{echo $"line | sed 's; .*;;'}
fullloc = `{echo $"line | sed -e 's;[^ ]* /;/;' -e 's; .*;;'}
location = `{echo $"fullloc | sed 's;\?.*;;'}
params = `{echo $fullloc | sed -e 's;.*\?;;' -e 's;\+; ;g'}
}
if(~ $"line '')
done = true
}
# spew our junk
echo HTTP/1.0 200 OK
echo Content-type text/html
echo
cat << EOF
Hello!
EOF
echo 'Request received:
'
echo -n $reqlines
echo '
'
echo '- Method:' $"method
echo '
- Location (complete):' $"fullloc
echo '
- Location:' $"location
echo '
- Parameters:
'
for(param in $params) echo ' - '$"param
echo '
'
echo '
'
echo ''
echo '% whatis ifs'
whatis ifs
echo '% whatis params'
whatis params
echo '% which sed'
which sed
echo '
'
echo '
'