#!/bin/sh

PATH=/bin:/usr/local/bin:/usr/local/etc

case "$1" in
!)	METHOD=GET; shift; pragma=no-cache;;
.)	METHOD=GET; shift;;
-)	$0 . "$2" | perl -pe 's/\r\n/\n/ unless $B; $B=1 if /^$/;';exit;;
@)	$0 - "$2" | sed 1d |
	formail -a"From: WWW" \
		-a"Subject: $2" \
		-a"MIME-Version: 1.0"\
		-s procmail & exit;;
*)	METHOD=HEAD
esac

exec socket www www-dev << EOF
$METHOD $1 HTTP/1.0
User-Agent: http://www.cs.tu-berlin.de/~czyborra/~/bin/get
Accept: */*
Pragma: ${pragma-cache-preferred}

EOF