19/09/06 18:30:16.64 .net
#!/bin/zsh
test "${QUERY_STRING%%&*}" != $(basename $( factor $PPID |md5sum )) \
&& UNIQ=$(basename $( factor $PPID |md5sum ))
case "$UNIQ$QUERY_STRING" in
rotate\&*) # 次のページへ、時間指定等の対応。
URL="URLﾘﾝｸ(www.google.co.jp)( cut -d '&' -f 3- <<<$QUERY_STRING )"
UNIQ=$(basename $( factor $PPID |md5sum ));;
decode\&*) # ここから再検索して下さいの対処。
URL="URLﾘﾝｸ(www.google.co.jp)
$(nkf --url-input <( sed 's/\([^&]*&\)\{2\}//; s/%25/%/g' <<<$QUERY_STRING ))"
UNIQ=$(basename $( factor $PPID |md5sum ));;
${UNIQ}*) #default, またはformから流れてくるもの。
URL="URLﾘﾝｸ(www.google.co.jp)
esac
<<EOF
Content-Type: text/plain
w3m-control: GOTO $URL
w3m-control: VIEW
w3m-control: PIPE_BUF sed 's%<form.*value="\(.*\)"[^>]*name="q".*/form>'\
'%<form action="file:///cgi-bin/google.zsh">'\
'<input type=text value="\1"></form>%;'\
'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