19/09/07 01:05:37.74 .net
#!/bin/zsh
UNIQ=$(basename $( factor $PPID |md5sum ))
if test "${QUERY_STRING%%&*}" != ${UNIQ}=; then # default.
URL="URLﾘﾝｸ(www.google.co.jp)
else case "$QUERY_STRING" in
${UNIQ}=\&rotate\&*) # 次のページへ、時間指定等の対応。
URL="URLﾘﾝｸ(www.google.co.jp)( cut -d '&' -f 3- <<<$QUERY_STRING )";;
${UNIQ}=\&decode\&*) # ここから再検索して下さいの対処。
URL="URLﾘﾝｸ(www.google.co.jp)
$(nkf --url-input <( sed 's/\([^&]*&\)\{2\}//; s/%25/%/g' <<<$QUERY_STRING ))";;
${UNIQ}=\&*) # formから流れてくるもの。
URL="URLﾘﾝｸ(www.google.co.jp)( cut -d '&' -f 2- <<<$QUERY_STRING )";;
esac
fi
<<EOF
Content-Type: text/plain
w3m-control: GOTO $URL
w3m-control: VIEW
w3m-control: PIPE_BUF sed \
's%Shift_JIS%UTF-8%g; s%\(<form \)\([^>]*>\)'\
'%\1action="file:///cgi-bin/google.zsh" \2<input name="${UNIQ}" type=hidden>%;'\
's%\(<span[^>]*>\|</span>\)%%g; s%<div[^>]*>%%g; s%</div>%<div>&%g;'\
's,\(<a [^>]*href="\)/url?q=/search%3F\(q%3D[^"]*"\)'\
',\1file:///cgi-bin/google.zsh?${UNIQ}=\&decode\&\2,;'\
's%\(<a [^>]*href="\)/url?%\1URLﾘﾝｸ(www.google.co.jp)'\
's%\(<a [^>]*href="\)/search?\([^"]*"\)'\
'%\1file:///cgi-bin/google.zsh?${UNIQ}=\&rotate\&\2%g'
w3m-control: VIEW
$( printf '%s\n' 'w3m-control: DELETE_PREVBUF'{,,,} )
EOF