#!/bin/sh # # Dispatch a contrast bug report. # - Cameron Simpson # TMPDIR=${TMPDIR-/tmp} cmd=`basename "$0"` usage="Usage: $cmd -u URL addresses" cd badopts= nomail= url= while : do case $1 in -u) url=$2; shift ;; --) shift; break ;; -?*) echo "$cmd: unrecognised option: $1" >&2; badopts=1 ;; *) break ;; esac shift done [ -n "$url" ] || { echo "$cmd: missing URL" >&2; badopts=1; } if [ $# -eq 0 ] then if [ $nomail ] then : else echo "$cmd: missing addresses" >&2 badopts=1 fi else if [ $nomail ] then echo "$cmd: warning: ignoring email addresses: $*" >&2 else case "$*" in *@*) ;; *) echo "$cmd: bad email address: $*" >&2 badopts=1 ;; esac fi fi [ $badopts ] && { echo "$usage" >&2; exit 2; } snapurl=`winsnap` [ $? = 0 -a -n "$snapurl" ] \ || { echo "$cmd: winsnap fails" >&2 exit 1 } ( tmp=$TMPDIR/$cmd.$$ exec 3>&1 >$tmp cat < is unreadable on some browsers. This is easy to fix. It is likely that other pages on your site are similarly affected. X echo "An image of the page as it is rendered here is available at:" echo echo " $snapurl" cat < tag are TEXT, LINK, VLINK, and ALINK. X exec >&3 3>&- m -s "a technical remark about your WWW page <$url> ..." "$@" <$tmp rm $tmp ) &