This is the revision history for ztest in <freenode.net:#perlbot>

factoid_idsubjectcopulapredicateauthornamespace
16193 ztest is `get `eval use URI; $d=URI->new("http://zem.fi/bfjoust/cgi/submit.cgi"); $d->query_form(prog=>substr("`arg c&n'-`arg c1'"=~s/[^0-9A-Za-z-_]|X/sprintf"X%02X",ord($&)/ger,0,40), code=>`arg d-1', submit=>"no"); $d->as_string' //body'
{"result":"ok","message":"web.b_jonas-bad: points -33.81, score 2.74, rank 47/47\n"}		 b_jonas <*:##NULL>
16192 ztest is `eval use URI; $d=URI->new("http://zem.fi/bfjoust/cgi/submit.cgi"); $d->query_form(prog=>substr("`arg c&n'-`arg c1'"=~s/[^0-9A-Za-z-_]|X/sprintf"X%02X",ord($&)/ger,0,40), code=>`arg d-1', submit=>"no"); $d->as_string'
http://zem.fi/bfjoust/cgi/submit.cgi?prog=b_jonas-inscribed-marker-limit&code=(%3E(%2B.%2B.%2B..%2B.-%2B.)*40%3E(%2B.%2B.%2B.%2B.%2B.)*34)*29(%2B.)*999&submit=no		 b_jonas <*:##NULL>
16191 ztest is `eval use URI; $d=URI->new("http://zem.fi/bfjoust/cgi/submit.cgi"); $d->query_form(prog=>substr("`arg c&n'-`arg c1'"=~s/[^0-9A-Za-z-_]|X/sprintf"X%02X",ord($&)/ger,0,40), code=>`arg d-2', submit=>"no"); $d->as_string'
http://zem.fi/bfjoust/cgi/submit.cgi?prog=b_jonas-inscribed-marker-limit&code=&submit=no		 b_jonas <*:##NULL>
16189 ztest is dance dance b_jonas <*:##NULL>