#!/usr/local/bin/zsh

tmp=`mktemp /tmp/liarXXXX`

fetch -o $tmp -q http://en.wikipedia.org/wiki/Special:Random

name=`grep wgPageName $tmp | sed 's/.* = "//' | sed 's/";$//' | sed 's,_, ,g'`
name_orig=`grep wgPageName $tmp | sed 's/.* = "//' | sed 's/";$//'`
name_no_parens=`echo $name | sed 's, (.*$,,'`
rep=`echo $PATH_INFO | sed s,^/,, | sed 's,_, ,g'`
rep_orig=`echo $PATH_INFO | sed s,^/,,`

echo "HTTP/1.1 200 OK\r\nDate: `date`\r\nServer: blah\r\nContent-Type: text/html; charset=utf-8\r\n\r"
cat $tmp | ruby -e "puts STDIN.read.gsub(/$name/i, \"$rep\").gsub(/$name_orig/i, \"$rep_orig\")" | sed 's,"/,"http://en.wikipedia.org/,g' | sed 's,url(/,url(http://en.wikipedia.org/,g' | sed 's,http://en.wikipedia.org/wiki/,http://liarpedia.org/wiki.cgi/,g' | sed 's,action=".*Search",action="/search.cgi",' | sed "s,$name_no_parens,$rep,"

echo "orig $name new $rep"

rm $tmp