#!/bin/sh # Copyright (c) Oct 1997 Wolfram Schneider . Berlin. # All rights reserved. # # url.cgi - make plain text URLs clickable # # $Id: url.cgi,v 1.2 1997-11-04 13:00:05 wosch Exp $ PATH=/bin:/usr/bin:/usr/local/bin; export PATH url="$QUERY_STRING" case $url in http://*.freebsd.* | http://localhost/* );; *) printf "Content-type: text/plain\n\n" printf "Wrong url: \"$url\"\n" printf "Only http://*.freebsd.* are allowed.\n"; exit;; esac if lynx -dump -head "$url" 2>/dev/null | grep -q "text/plain" then printf "Content-type: text/html\n\n
\n"
    lynx -source "$url" | 
	perl -npe 's/,;]+)%$1%g;
    s%([\w\-\.]+\@[\w\-\.]+\.[a-z]+)%$1%g;'

    echo "
" else printf "Location: $url\n"; printf "Content-type: text/plain\n\n"; fi