Listing 2

?RCS:$Header: d_internet.U,v 2.0 88/06/28 23:15:04 lwall Locked $
?RCS: $Log:     d_internet.U,v $
?RCS: Revision 2.0 88/06/28 23:15:04 lwall
?RCS: Baseline.
?RCS:
?MAKE:d_internet: echo n c cat Myread Oldconfig test \
sendmail smail mailer
?MAKE:  -       pick add $@ %*
?S:d_internet:
?S:     This variable conditionally defines the INTERNET symbol,
?S:     which indicates to the C program that there is a mailer
?S:     available which supports internet-style addresses
?S:     (user@site.domain).
?S:     defaults to YES if sendmail or smail is found.
?S:.
?C:INTERNET:
?C:     This symbol, if defined, indicates that there is a
?C:     mailer available which supports internet-style
?C:     addresses (user@site.domain).
?C:.
?H:?%1:#$d_internet     INTERNET        /**/
?H:?%1:
: check for internet mailer
case "$d_internet" in
"$define")      dflt=y;;
"$undef")       dflt=n;;
*)      if $test -f "$sendmail"; then
dflt=y
elif $test -f "$submit"; then
dflt=y
elif $test -f "$smail"; then
dflt=y
else
dflt=n
fi
;;
esac
$cat <<EOM

Some newer mailers can deliver mail to addresses of the
INTERNET persuasion, such as user@host.UUCP. Other older
mailers require the complete path to the destination to
be specified in the address. Does your mailer understand
EOM
$echo $n "INTERNET addresses? [$dflt] $c"
rp="Does your mailer understand INTERNET addresses? [$dflt]"
. myread
case "$ans" in
y*) d_internet="$define";;
*) d_internet="$undef";;
esac