#!/usr/local/bin/perl4
require 'cgi-lib.pl';
require 'bodyhuser.pl';
#this script presents a form so users can send email
#this is incase their browser is not configured to send email
#posible parameters are
#       EmailAddr - The email address to send to. 
#                   If it is missing then the address specifed in
#                   stgscruser.pl as $EmailAddr will be used
#       Subject - What you want the email to be about
#       Dest - Where to go back to
# created Dec 18th By Chris Barnett Human I.T. ltd
# modified Feb 19 ,1999 by Chris Barnett
#   It can now accept Subjects and Destinations

&ReadParse(*input);
 
print &EmailForm(&esc_chars($input{"EmailAddr"}),
                    &esc_chars($input{"Subject"}) ,
                    &esc_chars($input{"Dest"}));