cgi/mailback/mailback.pl

#!/usr/local/bin/taintperl

#   $Id: mailback.pl,v 1.5 2006/02/12 21:54:43 erik Exp $
#
#   Author: Erik C. Thauvin <erik@skytouch.com>
#
#   Thanks to David Walker <dwalker@eskimo.com> and Robert Dinse
#   <nanook@eskimo.com> for the great suggestions.
#
#   This script will mail the content of any HTML form to its author.
#
#   Based on "mailback.pl" by Phillip Moore <phil@erc.msstate.edu>
#   Source available at http://www.erc.msstate.edu/~phil/src/mailback.pl
#
#   Also based on "sendmail-cgi.pl" by Erik C. Thauvin <erik@skytouch.com>
#   Copyright (C) 1995-2006 Erik C. Thauvin. All rights reserved.
#
#   Date:   2006-02-06    
#
#   Usage:  You must reference this script in your HTML forms with
#           the method=POST option. Options are passed inside the
#           the document with the input tag, as follows:
#
#   <input name="variable-name" type="input-type" value="default-value">
#
#           The variable-name represents parameters for this script.
#           The following are reserved names used by the script and
#           must be specified in your HTML documents/forms:
#
#           mailitto (req)  - Full internet mail address of mail recipient.
#                             This MUST be your email address on Eskimo.
#
#           namefrom (req)  - Name of the person the submission is from.
#
#           mailfrom (req)  - Email address of the person the submission
#                             is from.
#
#           subject  (req)  - Subject of the email message.
#
#           bcc             - If defined, sends a blind carbon copy of the
#                             mail message to the person submitting the form.
#
#           showreport      - If defined, a mail status report is shown upon
#                             submission; otherwise a generic confirmation
#                             message is displayed.
#
#           returngraphic   - Inline image to be displayed at the bottom of
#                             the mail confirmation/status report.
#
#           returntext      - If "retrungraphic" is defined, the text is used
#                             as an alternate to the "returngraphic" for non-
#                             graphical browsers, such as lynx.
#                             If "returngraphic" is not defined, the text is
#                             displayed instead of the image.
#
#           returnurl       - The URL of "returngraphic" and/or "returntext".
#                             If not defined, the URL of the previous page is
#                             used.
#
#           returnmsg       - The actual confirmation message. If not defined,
#                             a generic message is used.
#
#           returntitle     - The confirmation message's title. If not defined,
#                             "Mail Confirmation" is used.
#
#           returnpage      - The URL of a custom "Mail Confirmation" page.
#                             Overrides "showreport", "returntext", "returnurl",
#                             "returngraphic", "returnmsg" and "returntitle".
#
#           subtag          - The name of one of the form's input tag. If valid,
#                             the tag's value will be affixed to the subject of
#                             the mail.
#
#           bodytags        - The HTML elements to be included in the <body> tag
#                             of the confirmation/error messages. Example:
#                             
#                             ... value="bgcolor=#FFFFFF vlink=#008000" ...
#
#           base            - The URL to be used in the <base> HTML tag of the
#                             confirmation/error messages.
#
#           nozeros         - Suppresses input tags whose values are 0.
#
#           noblanks        - Suppresses input tags whose values are blank.
#
#           notags          - Suppresses input tags from email message.
#
#           senderinfo      - Includes "namefrom" and "mailfrom" in the body
#                             of the email message.
#
#           The ones with (req) are required but may be written into the HTML
#           form so that users cannot change them. For example:
#
#           <HTML>
#           <TITLE>Mailback Sample Form</TITLE>
#           <BODY>
#           <FORM ACTION="http:/cgi-bin/mailback" METHOD="POST">
#           <INPUT TYPE="HIDDEN" NAME="mailitto" VALUE="johndoe@eskimo.com"> 
#           <INPUT TYPE="HIDDEN" NAME="returnurl" VALUE="/~johndoe/mypage.html">
#           <INPUT TYPE="HIDDEN" NAME="returntext" VALUE="Back to my Home Page.">
#           <INPUT TYPE="HIDDEN" NAME="notags">
#           <INPUT TYPE="HIDDEN" NAME="showreport">
#           Your Name:  <INPUT TYPE="TEXT" NAME="namefrom" SIZE=35><BR>
#           Your Email Address:  <INPUT TYPE="TEXT" NAME="mailfrom" SIZE=35><BR>
#           Subject: <INPUT TYPE="TEXT" NAME="subject" SIZE=35><P>
#           Your Message:<BR>
#           <TEXTAREA NAME="message" ROWS="10" COLS="60"></TEXTAREA><P>
#           <INPUT TYPE="RESET" VALUE="Clear Form">
#           <INPUT TYPE="SUBMIT" VALUE="Send Mail">
#           </FORM>
#           </BODY>
#           </HTML>
#
# This software is provided "as is" without express or implied warranties.
#
# Permission is granted to use, copy, modify and distribute this software,
# provided this disclaimer and copyright are preserved on all copies. This
# software may not, however, be sold or distributed for profit, or included
# with other software which is sold or distributed for profit, without the
# permission of the author.
#
                            
$ENV{'PATH'} = '/bin:/usr/bin:/usr/lib';
$ENV{'IFS'} = '';


#
# Mail server address & port
#
$mailserv = 'mail.eskimo.com';
$mailport = 25;


#
# CRLF
#
$eol = "\015\012";


#
# Try SMTP?
#
$trysmtp = 0;


#
# Valid mail server hosts
#
@validhosts = ( 'eskimo.com', 'skytouch.com' );


#
# Print text/html error message
#
sub error
{
    local($msg) = @_;

    &printheader('Error');
    print "<h1><hr><font size=5>Error</font><hr></h1>\n<blockquote>\n$msg\n</blockquote>\n<p>\n";
    &printfooter;
    exit 1;
}


#
# Return error if mail could not be sent
#
sub mailerror
{
    close(SOCK);
    &error("An timeout error (ID=@_) occurred while sending mail. Please try "
         . "again later or <a href=\"mailto:$posted{mailitto}\">notify</a> "
         . "the creator of this page.\n<p>\n<p>\nThank you.");
}


#
# Print detailed text/html error message 
#
sub notenoughinfo
{
    local($msg) = @_;

    if ($infoerr == 0)
    {
        &printheader("Error");
        print "<h1><hr><font size=5>Error</font><hr></h1>\n"
            . "<h2>Not Enough Information:</h2>"
            . "<blockquote>\n$msg\n</blockquote>\n";
    }
    else
    {
        print "<h3>And</h3>\n<blockquote>\n$msg\n</blockquote>\n";
    }
    $infoerr++;
}


#
# Print html header
#
sub printheader
{
    local($title) = @_;

    print "Content-Type: text/html$eol$eol"
        . "<html>\n<head>\n";

    if (defined($posted{base}))
    {
        print "<base href=\"$posted{base}\">\n";
    }
    
    print "<title>$title</title>\n";

    if (defined($posted{bodytags}))
    {
        print "</head>\n<body $posted{bodytags}>\n";
    }
    else
    {
        print "</head>\n<body bgcolor=#ffffff>\n";
    }
}


#
# Print html footer
#
sub printfooter
{
    if (!defined($posted{skipRSLlink}))
    {
        print "<a href=\"http://www.skytouch.com/\"><img align=\"right\" alt=\"Designed by...\" src=\"http://www.skytouch.com/images/skytouch-mini.gif\" border=\"0\"></a>";
    }
    else
    {
        print "<a href=\"#\" onmouseover=\"window.status = 'Designed by SkyTouch Communications'; return(true);\"><img align=\"right\" alt=\"Designed by SkyTouch Communications\" src=\"http://www.skytouch.com/images/skytouch-mini.gif\"></a>";
    }    

    print "<hr>\n";
    
    if (defined($posted{returnurl}))
    {
        if (defined($posted{returngraphic}) && defined($posted{returntext}))
        {
            print "<a href=\"$posted{returnurl}\"><img src=\"$posted{returngraphic}\" alt=\"$posted{returntext}\"></a>\n";
        }
        elsif (defined($posted{returngraphic}))
        {
            print "<a href=\"$posted{returnurl}\"><img src=\"$posted{returngraphic}\"></a>\n";
        }
        elsif (defined($posted{returntext}))
        {
            print "<a href=\"$posted{returnurl}\">$posted{returntext}</a>\n";
        }
        else
        {
            print "Follow this <a href=\"$posted{returnurl}\">link</a> to continue.\n";
        }
    }
    else
    {
        print "Back to the <a href=\"$ENV{HTTP_REFERER}\">previous</a> page.\n";
    }

    print "</body>\n</html>";
}


#
# Get mail server result code
#
sub getresultcode
{
    local($buff, $resultcode, $bits) = "";
    local($timeout, $nbr) = 0;
  
    vec($bits, fileno(SOCK), 1) = 1;
    LOOP: {
        if ($timeout <= 2)
        {
            ($nfound, $bits) = select($bits, undef, undef, 3);
            if ($nfound)
            {
                $nbr = sysread(SOCK, $buff, 1024);
                if ($nbr > 0)
                {
                    if (length($resultcode) < 3)
                    {
                        $resultcode .= substr($buff, 0, 3);
                        if ($resultcode == 220)
                        {
                            $timeout++;
                            redo LOOP;
                        }
                    }
                    if (substr($buff, -1, 1) ne "\012")
                    {
                        $timeout++;
                        redo LOOP;
                    }
                }
            }
            else
            {
                $timeout++;
                redo LOOP;
            } 
        }
        else
        {
            if ($resultcode != 220)
            {
                $resultcode = 554;
            }
        }
    }
    return $resultcode;
}


#
# Get host address
#
sub getaddress 
{
    local($host) = @_;
    local(@addrs);

    @addrs = gethostbyname($host);
    return(unpack("C4", $addrs[4]));
}


#
# Verify mail host validity
#
sub isvalidhost
{
    local($email) = @_;
    local($name, $host) = split('@', $email);
 
    foreach (@validhosts)
    {
        if ( /$host/i )
        {
             return 1;
        }
    }
    return 0;
}

#
# Ensure that the proper environment variables are defined
#
if (!defined($ENV{REQUEST_METHOD}) || $ENV{REQUEST_METHOD} ne "POST")
{
    &error("This script should be referenced with a METHOD of POST. If you "
         . "don't understand this, see the <a href=\"http://www.ncsa.uiuc.edu/SDG"
         . "/Software/Mosaic/Docs/fill-out-forms/overview.html\">forms overview"
         . "</a>.\n<p>\n<p>\nThank you.");
} 

#
# More environment variables
#
if (!defined($ENV{CONTENT_TYPE}) || $ENV{CONTENT_TYPE} ne "application/x-www-form-urlencoded")
{
    &error("This script can only be used to decode form results.");
}

#
# Read in the message based on the CONTENT_LENGTH in the header.
# If no CONTENT_LENGTH, complain about the error.
#
if (defined($ENV{CONTENT_LENGTH}) && $ENV{CONTENT_LENGTH} != 0)
{
    $bytes = read(STDIN, $all, $ENV{CONTENT_LENGTH});
    foreach $pair (split("&", $all))
    {
        ($key, $val) = split("=", $pair);
        $val =~ tr/+/ /;
        $val =~ s/%(..)/pack("c", hex($1))/eg;
#       $val =~ s/\n/\n /g;

        if (defined($posted{$key}))
        {
            $posted{$key} = "$posted{$key}\n$val";
        }
        else
        {
            $posted{$key} = $val;
            push(@keylist, $key) if (   $key ne "mailitto" &&
                                        $key ne "errorsto" &&
                                        $key ne "namefrom" &&
                                        $key ne "mailfrom" &&
                                        $key ne "subject" &&
                                        $key ne "bcc" &&
                                        $key ne "showreport" &&
                                        $key ne "returnurl" &&
                                        $key ne "returntext" &&
                                        $key ne "returngraphic" &&
                                        $key ne "skipRSLlink" &&
                                        $key ne "returnmsg" &&
                                        $key ne "returntitle" &&
                                        $key ne "returnpage" &&
                                        $key ne "subtag" &&
                                        $key ne "bodytags" &&
                                        $key ne "base" &&
                                        $key ne "nozeros" &&
                                        $key ne "noblanks" &&
                                        $key ne "senderinfo" &&
                                        $key ne "notags"    );
        }
    }
}
else
{
    &error("This script, the URL, or the fields given in the form returned "
         . "an error. Please notify the creator of this page.\n<p>\n<p>\n"
         . "Thank you.");
}

#
# Check that each of the four required fields are entered properly
# Make sure user has entered "mailitto" , "mailfrom", "namefrom"
# and "subject"
#
### To: ###
if (!defined($posted{mailitto}) || !&isvalidhost($posted{mailitto}))
{
    &notenoughinfo("The creator of the form you are using failed to provide "
                 . "a valid e-mail address. Please try again later, or send "
                 . "mail to the person who created this form.<p>");
}

### From ###
if (!defined($posted{namefrom}) || $posted{namefrom} =~ /^\s*$/)
{
    &notenoughinfo("Please provide your first and/or last name to help the "
                 . "reader of this message identify you.<p>");
}
else
{
    $posted{namefrom} =~ s/^\s*//;
    $posted{namefrom} =~ s/\s*$//;
}

### From: ###
if (!defined($posted{mailfrom}) ||
    $posted{mailfrom} !~ /^[-._%!*\/+0-9A-Za-z]+@[-0-9A-Za-z.]+\.[A-Za-z][A-Za-z]+$/)
{
    &notenoughinfo("Please provide a full internet mail address so the reader "
                 . "of this message may reply to you.<p>");
}
else
{
    $posted{mailfrom} =~ s/^\s*//;
    $posted{mailfrom} =~ s/\s*$//;
}

### Subject: ###
if (!defined($posted{subject}) || $posted{subject} =~ /^\s*$/)
{
    &notenoughinfo("Please provide a subject to give the reader of this "
                 . "message some clue as to its content.<p>");
}
else
{
    $posted{subject} =~ s/^\s*//;
    $posted{subject} =~ s/\s*$//;
    $posted{subject} =~ s/(\r|\n)//g;
}

#
# As long as those four fields are non-empty, and in a valid format, send it
#
if ($infoerr > 0)
{
    &printfooter;
    exit 1; 
}
else 
{
#
# Connect to the mail server
#
    local($sockaddr, $addr) = ("Snc4x8");
    local($mailagent) = 'sendmail';
    
    if ($trysmtp)
    {
        $addr = pack($sockaddr, 2, $mailport, &getaddress($mailserv));

        if (socket(SOCK, 2, 1, 6))
        {
            if (connect(SOCK, $addr))
            {
                select(SOCK); $| = 1;
                select(STDOUT); $| = 1;
            
                if (&getresultcode == 220)
                {       
                    $mailagent = 'smtp';
                }
            }
        }
    }

#
# Send mail message
#
    if ($mailagent eq 'sendmail')
    {
        close(SOCK);
        open(SOCK, "| /usr/lib/sendmail -t");
    }
    else
    {        
        print SOCK "HELO mailback$eol";
        do { &mailerror(1200); } if (&getresultcode != 250);

        print SOCK "RSET$eol";
        do { &mailerror(1300); } if (&getresultcode != 250);

        print SOCK "MAIL FROM:<>$eol";
        do { &mailerror(1400); } if (&getresultcode != 250);

        print SOCK "RCPT TO:<$posted{mailitto}>$eol";
        do { &mailerror(1500); } if (&getresultcode != 250);
        
        if (defined($posted{bcc}))
        {
            print SOCK "RCPT TO:<$posted{mailfrom}>$eol";
            do { &mailerror(1500); } if (&getresultcode != 250);
        }

        print SOCK "DATA$eol";
        do { &mailerror(1600); } if (&getresultcode != 354);
    }

    print SOCK "From: $posted{mailfrom} ($posted{namefrom})$eol"
             . "To: $posted{mailitto}$eol";

    if (defined($posted{bcc}))
    {
        print SOCK "Bcc: $posted{mailfrom}$eol";
    }
             
    if (defined($posted{$posted{subtag}}))
    {
        $posted{$posted{subtag}} =~ s/(\r|\n)//g;
        print SOCK "Subject: $posted{subject} ($posted{$posted{subtag}})$eol";
    }
    else
    {
        print SOCK "Subject: $posted{subject}$eol";
    }
    
    if (defined($ENV{REMOTE_ADDR})) { print SOCK "X-Remote-Address: $ENV{REMOTE_ADDR}$eol"; }
    if (defined($ENV{REMOTE_HOST})) { print SOCK "X-Remote-Host: $ENV{REMOTE_HOST}$eol"; }
    if (defined($ENV{REMOTE_IDENT})) { print SOCK "X-Remote-Ident: $ENV{REMOTE_IDENT}$eol"; }
    if (defined($ENV{REMOTE_USER})) { print SOCK "X-Remote-User: $ENV{REMOTE_USER}$eol"; }
    if (defined($ENV{HTTP_REFERER})) { print SOCK "X-URL: $ENV{HTTP_REFERER}$eol"; }
    
    print SOCK "X-Mailback-Agent: $mailagent$eol";

    if (defined($posted{senderinfo}))
    {
        if (defined($posted{notags}))
        {
            print SOCK "$eol$posted{namefrom}$eol"
                     . "$eol$posted{mailfrom}$eol";
        }
        else
        {
            print SOCK "$eol--- Sender's Name ---$eol$posted{namefrom}$eol"
                     . "$eol--- Sender's Email Address ---$eol$posted{mailfrom}$eol";
        }
    }
    
    foreach $key (@keylist)
    {
        $keyval = $posted{$key};
     
        if (!(defined($posted{noblanks}) && (length($keyval) == 0)))
        {
            $keyval =~ s/\012\.\015/\012\.\.\015/g;
            $keyval =~ s/\012\.$/\012\.\./;
        
            if (!(defined($posted{nozeros}) && ($keyval eq "0")))
            {
                if (defined($posted{notags}))
                {
                    print SOCK "$eol$keyval$eol";
                }
                else
                {
                    print SOCK "$eol--- $key ---$eol$keyval$eol";
                }
            }
        }
    }

    print SOCK ".$eol";

    if ($mailagent eq 'smtp')
    {
        do { &mailerror(1700); } if (&getresultcode != 250);

        print SOCK "QUIT$eol";
    }
    
    close(SOCK);
}


#
# If "returnpage" is defined...
#
if (defined($posted{returnpage}))
{
    print "Location: $posted{returnpage}$eol$eol";
}
#
# If "showreport" is defined then show the mail report and have a link
# to return back to some page
#
elsif (defined($posted{showreport}))
{
    &printheader("Mail Status Report");
    print "<h1><hr><font size=5>Mail Status Report</font><hr></h1>\n\n<p>\n"
        . "<b>From:</b> $posted{mailfrom} ($posted{namefrom})\n<br>\n"
        . "<b>Sent To:</b> <a href=\"mailto:$posted{mailitto}\">"
        . "$posted{mailitto}</a><br>\n";
        
    if (defined($posted{$posted{subtag}}))
    {
        print "<b>Subject:</b> $posted{subject} ($posted{$posted{subtag}})$eol";
    }
    else
    {
        print "<b>Subject:</b> $posted{subject}$eol";
    }

    print "<blockquote>\n<pre>";
    
    foreach $key (@keylist)
    {
        $keyval = $posted{$key};

        if (!(defined($posted{noblanks}) && (length($keyval) == 0)))
        {
            $keyval =~ s/\&/\&amp\;/g;
            $keyval =~ s/\</\&lt\;/g;
            $keyval =~ s/\>/\&gt\;/g;

            if (!(defined($posted{nozeros}) && ($keyval eq "0")))
            {
                if (defined($posted{notags}))
                {
                    print "$keyval\n";
                }
                else
                {
                    print "$key: $keyval\n";
                }
            }
        }
    }
    print "</pre></blockquote><h2>Thank You!</h2>\n";
    &printfooter;
}
#
# If "showreport" is not defined then just show a message
# of confirmation and have a link to another page
#
else
{
    if (defined($posted{returntitle}))
    {
        &printheader($posted{returntitle});
        print "<h1><hr><font size=5>$posted{returntitle}</font><hr></h1>\n<p>\n";
    }
    else
    { 
        &printheader("Mail Confirmation");
        print "<h1><hr><font size=5>Mail Confirmation</font><hr></h1>\n<p>\n";
    }

    if (defined($posted{returnmsg}))
    {
        print $posted{returnmsg};
    }
    else
    {
        print "<blockquote>\nYour message was sent to <b><a href=\"mailto:$posted{mailitto}\">"
            . "$posted{mailitto}</a></b>\n</blockquote>\n<h2>Thank You!</h2>\n";
    }
    print "\n<p>\n";
    &printfooter;
}
exit 0;
1	#!/usr/local/bin/taintperl
2
3	# $Id: mailback.pl,v 1.5 2006/02/12 21:54:43 erik Exp $
4	#
5	# Author: Erik C. Thauvin <erik@skytouch.com>
6	#
7	# Thanks to David Walker <dwalker@eskimo.com> and Robert Dinse
8	# <nanook@eskimo.com> for the great suggestions.
9	#
10	# This script will mail the content of any HTML form to its author.
11	#
12	# Based on "mailback.pl" by Phillip Moore <phil@erc.msstate.edu>
13	# Source available at http://www.erc.msstate.edu/~phil/src/mailback.pl
14	#
15	# Also based on "sendmail-cgi.pl" by Erik C. Thauvin <erik@skytouch.com>
16	# Copyright (C) 1995-2006 Erik C. Thauvin. All rights reserved.
17	#
18	# Date: 2006-02-06
19	#
20	# Usage: You must reference this script in your HTML forms with
21	# the method=POST option. Options are passed inside the
22	# the document with the input tag, as follows:
23	#
24	# <input name="variable-name" type="input-type" value="default-value">
25	#
26	# The variable-name represents parameters for this script.
27	# The following are reserved names used by the script and
28	# must be specified in your HTML documents/forms:
29	#
30	# mailitto (req) - Full internet mail address of mail recipient.
31	# This MUST be your email address on Eskimo.
32	#
33	# namefrom (req) - Name of the person the submission is from.
34	#
35	# mailfrom (req) - Email address of the person the submission
36	# is from.
37	#
38	# subject (req) - Subject of the email message.
39	#
40	# bcc - If defined, sends a blind carbon copy of the
41	# mail message to the person submitting the form.
42	#
43	# showreport - If defined, a mail status report is shown upon
44	# submission; otherwise a generic confirmation
45	# message is displayed.
46	#
47	# returngraphic - Inline image to be displayed at the bottom of
48	# the mail confirmation/status report.
49	#
50	# returntext - If "retrungraphic" is defined, the text is used
51	# as an alternate to the "returngraphic" for non-
52	# graphical browsers, such as lynx.
53	# If "returngraphic" is not defined, the text is
54	# displayed instead of the image.
55	#
56	# returnurl - The URL of "returngraphic" and/or "returntext".
57	# If not defined, the URL of the previous page is
58	# used.
59	#
60	# returnmsg - The actual confirmation message. If not defined,
61	# a generic message is used.
62	#
63	# returntitle - The confirmation message's title. If not defined,
64	# "Mail Confirmation" is used.
65	#
66	# returnpage - The URL of a custom "Mail Confirmation" page.
67	# Overrides "showreport", "returntext", "returnurl",
68	# "returngraphic", "returnmsg" and "returntitle".
69	#
70	# subtag - The name of one of the form's input tag. If valid,
71	# the tag's value will be affixed to the subject of
72	# the mail.
73	#
74	# bodytags - The HTML elements to be included in the <body> tag
75	# of the confirmation/error messages. Example:
76	#
77	# ... value="bgcolor=#FFFFFF vlink=#008000" ...
78	#
79	# base - The URL to be used in the <base> HTML tag of the
80	# confirmation/error messages.
81	#
82	# nozeros - Suppresses input tags whose values are 0.
83	#
84	# noblanks - Suppresses input tags whose values are blank.
85	#
86	# notags - Suppresses input tags from email message.
87	#
88	# senderinfo - Includes "namefrom" and "mailfrom" in the body
89	# of the email message.
90	#
91	# The ones with (req) are required but may be written into the HTML
92	# form so that users cannot change them. For example:
93	#
94	# <HTML>
95	# <TITLE>Mailback Sample Form</TITLE>
96	# <BODY>
97	# <FORM ACTION="http:/cgi-bin/mailback" METHOD="POST">
98	# <INPUT TYPE="HIDDEN" NAME="mailitto" VALUE="johndoe@eskimo.com">
99	# <INPUT TYPE="HIDDEN" NAME="returnurl" VALUE="/~johndoe/mypage.html">
100	# <INPUT TYPE="HIDDEN" NAME="returntext" VALUE="Back to my Home Page.">
101	# <INPUT TYPE="HIDDEN" NAME="notags">
102	# <INPUT TYPE="HIDDEN" NAME="showreport">
103	# Your Name: <INPUT TYPE="TEXT" NAME="namefrom" SIZE=35><BR>
104	# Your Email Address: <INPUT TYPE="TEXT" NAME="mailfrom" SIZE=35><BR>
105	# Subject: <INPUT TYPE="TEXT" NAME="subject" SIZE=35><P>
106	# Your Message:<BR>
107	# <TEXTAREA NAME="message" ROWS="10" COLS="60"></TEXTAREA><P>
108	# <INPUT TYPE="RESET" VALUE="Clear Form">
109	# <INPUT TYPE="SUBMIT" VALUE="Send Mail">
110	# </FORM>
111	# </BODY>
112	# </HTML>
113	#
114	# This software is provided "as is" without express or implied warranties.
115	#
116	# Permission is granted to use, copy, modify and distribute this software,
117	# provided this disclaimer and copyright are preserved on all copies. This
118	# software may not, however, be sold or distributed for profit, or included
119	# with other software which is sold or distributed for profit, without the
120	# permission of the author.
121	#
122
123	$ENV{'PATH'} = '/bin:/usr/bin:/usr/lib';
124	$ENV{'IFS'} = '';
125
126
127	#
128	# Mail server address & port
129	#
130	$mailserv = 'mail.eskimo.com';
131	$mailport = 25;
132
133
134	#
135	# CRLF
136	#
137	$eol = "\015\012";
138
139
140	#
141	# Try SMTP?
142	#
143	$trysmtp = 0;
144
145
146	#
147	# Valid mail server hosts
148	#
149	@validhosts = ( 'eskimo.com', 'skytouch.com' );
150
151
152	#
153	# Print text/html error message
154	#
155	sub error
156	{
157	local($msg) = @_;
158
159	&printheader('Error');
160	print "<h1><hr><font size=5>Error</font><hr></h1>\n<blockquote>\n$msg\n</blockquote>\n<p>\n";
161	&printfooter;
162	exit 1;
163	}
164
165
166	#
167	# Return error if mail could not be sent
168	#
169	sub mailerror
170	{
171	close(SOCK);
172	&error("An timeout error (ID=@_) occurred while sending mail. Please try "
173	. "again later or <a href=\"mailto:$posted{mailitto}\">notify</a> "
174	. "the creator of this page.\n<p>\n<p>\nThank you.");
175	}
176
177
178	#
179	# Print detailed text/html error message
180	#
181	sub notenoughinfo
182	{
183	local($msg) = @_;
184
185	if ($infoerr == 0)
186	{
187	&printheader("Error");
188	print "<h1><hr><font size=5>Error</font><hr></h1>\n"
189	. "<h2>Not Enough Information:</h2>"
190	. "<blockquote>\n$msg\n</blockquote>\n";
191	}
192	else
193	{
194	print "<h3>And</h3>\n<blockquote>\n$msg\n</blockquote>\n";
195	}
196	$infoerr++;
197	}
198
199
200	#
201	# Print html header
202	#
203	sub printheader
204	{
205	local($title) = @_;
206
207	print "Content-Type: text/html$eol$eol"
208	. "<html>\n<head>\n";
209
210	if (defined($posted{base}))
211	{
212	print "<base href=\"$posted{base}\">\n";
213	}
214
215	print "<title>$title</title>\n";
216
217	if (defined($posted{bodytags}))
218	{
219	print "</head>\n<body $posted{bodytags}>\n";
220	}
221	else
222	{
223	print "</head>\n<body bgcolor=#ffffff>\n";
224	}
225	}
226
227
228	#
229	# Print html footer
230	#
231	sub printfooter
232	{
233	if (!defined($posted{skipRSLlink}))
234	{
235	print "<a href=\"http://www.skytouch.com/\"><img align=\"right\" alt=\"Designed by...\" src=\"http://www.skytouch.com/images/skytouch-mini.gif\" border=\"0\"></a>";
236	}
237	else
238	{
239	print "<a href=\"#\" onmouseover=\"window.status = 'Designed by SkyTouch Communications'; return(true);\"><img align=\"right\" alt=\"Designed by SkyTouch Communications\" src=\"http://www.skytouch.com/images/skytouch-mini.gif\"></a>";
240	}
241
242	print "<hr>\n";
243
244	if (defined($posted{returnurl}))
245	{
246	if (defined($posted{returngraphic}) && defined($posted{returntext}))
247	{
248	print "<a href=\"$posted{returnurl}\"><img src=\"$posted{returngraphic}\" alt=\"$posted{returntext}\"></a>\n";
249	}
250	elsif (defined($posted{returngraphic}))
251	{
252	print "<a href=\"$posted{returnurl}\"><img src=\"$posted{returngraphic}\"></a>\n";
253	}
254	elsif (defined($posted{returntext}))
255	{
256	print "<a href=\"$posted{returnurl}\">$posted{returntext}</a>\n";
257	}
258	else
259	{
260	print "Follow this <a href=\"$posted{returnurl}\">link</a> to continue.\n";
261	}
262	}
263	else
264	{
265	print "Back to the <a href=\"$ENV{HTTP_REFERER}\">previous</a> page.\n";
266	}
267
268	print "</body>\n</html>";
269	}
270
271
272	#
273	# Get mail server result code
274	#
275	sub getresultcode
276	{
277	local($buff, $resultcode, $bits) = "";
278	local($timeout, $nbr) = 0;
279
280	vec($bits, fileno(SOCK), 1) = 1;
281	LOOP: {
282	if ($timeout <= 2)
283	{
284	($nfound, $bits) = select($bits, undef, undef, 3);
285	if ($nfound)
286	{
287	$nbr = sysread(SOCK, $buff, 1024);
288	if ($nbr > 0)
289	{
290	if (length($resultcode) < 3)
291	{
292	$resultcode .= substr($buff, 0, 3);
293	if ($resultcode == 220)
294	{
295	$timeout++;
296	redo LOOP;
297	}
298	}
299	if (substr($buff, -1, 1) ne "\012")
300	{
301	$timeout++;
302	redo LOOP;
303	}
304	}
305	}
306	else
307	{
308	$timeout++;
309	redo LOOP;
310	}
311	}
312	else
313	{
314	if ($resultcode != 220)
315	{
316	$resultcode = 554;
317	}
318	}
319	}
320	return $resultcode;
321	}
322
323
324	#
325	# Get host address
326	#
327	sub getaddress
328	{
329	local($host) = @_;
330	local(@addrs);
331
332	@addrs = gethostbyname($host);
333	return(unpack("C4", $addrs[4]));
334	}
335
336
337	#
338	# Verify mail host validity
339	#
340	sub isvalidhost
341	{
342	local($email) = @_;
343	local($name, $host) = split('@', $email);
344
345	foreach (@validhosts)
346	{
347	if ( /$host/i )
348	{
349	return 1;
350	}
351	}
352	return 0;
353	}
354
355	#
356	# Ensure that the proper environment variables are defined
357	#
358	if (!defined($ENV{REQUEST_METHOD}) \|\| $ENV{REQUEST_METHOD} ne "POST")
359	{
360	&error("This script should be referenced with a METHOD of POST. If you "
361	. "don't understand this, see the <a href=\"http://www.ncsa.uiuc.edu/SDG"
362	. "/Software/Mosaic/Docs/fill-out-forms/overview.html\">forms overview"
363	. "</a>.\n<p>\n<p>\nThank you.");
364	}
365
366	#
367	# More environment variables
368	#
369	if (!defined($ENV{CONTENT_TYPE}) \|\| $ENV{CONTENT_TYPE} ne "application/x-www-form-urlencoded")
370	{
371	&error("This script can only be used to decode form results.");
372	}
373
374	#
375	# Read in the message based on the CONTENT_LENGTH in the header.
376	# If no CONTENT_LENGTH, complain about the error.
377	#
378	if (defined($ENV{CONTENT_LENGTH}) && $ENV{CONTENT_LENGTH} != 0)
379	{
380	$bytes = read(STDIN, $all, $ENV{CONTENT_LENGTH});
381	foreach $pair (split("&", $all))
382	{
383	($key, $val) = split("=", $pair);
384	$val =~ tr/+/ /;
385	$val =~ s/%(..)/pack("c", hex($1))/eg;
386	# $val =~ s/\n/\n /g;
387
388	if (defined($posted{$key}))
389	{
390	$posted{$key} = "$posted{$key}\n$val";
391	}
392	else
393	{
394	$posted{$key} = $val;
395	push(@keylist, $key) if ( $key ne "mailitto" &&
396	$key ne "errorsto" &&
397	$key ne "namefrom" &&
398	$key ne "mailfrom" &&
399	$key ne "subject" &&
400	$key ne "bcc" &&
401	$key ne "showreport" &&
402	$key ne "returnurl" &&
403	$key ne "returntext" &&
404	$key ne "returngraphic" &&
405	$key ne "skipRSLlink" &&
406	$key ne "returnmsg" &&
407	$key ne "returntitle" &&
408	$key ne "returnpage" &&
409	$key ne "subtag" &&
410	$key ne "bodytags" &&
411	$key ne "base" &&
412	$key ne "nozeros" &&
413	$key ne "noblanks" &&
414	$key ne "senderinfo" &&
415	$key ne "notags" );
416	}
417	}
418	}
419	else
420	{
421	&error("This script, the URL, or the fields given in the form returned "
422	. "an error. Please notify the creator of this page.\n<p>\n<p>\n"
423	. "Thank you.");
424	}
425
426	#
427	# Check that each of the four required fields are entered properly
428	# Make sure user has entered "mailitto" , "mailfrom", "namefrom"
429	# and "subject"
430	#
431	### To: ###
432	if (!defined($posted{mailitto}) \|\| !&isvalidhost($posted{mailitto}))
433	{
434	&notenoughinfo("The creator of the form you are using failed to provide "
435	. "a valid e-mail address. Please try again later, or send "
436	. "mail to the person who created this form.<p>");
437	}
438
439	### From ###
440	if (!defined($posted{namefrom}) \|\| $posted{namefrom} =~ /^\s*$/)
441	{
442	&notenoughinfo("Please provide your first and/or last name to help the "
443	. "reader of this message identify you.<p>");
444	}
445	else
446	{
447	$posted{namefrom} =~ s/^\s*//;
448	$posted{namefrom} =~ s/\s*$//;
449	}
450
451	### From: ###
452	if (!defined($posted{mailfrom}) \|\|
453	$posted{mailfrom} !~ /^[-._%!*\/+0-9A-Za-z]+@[-0-9A-Za-z.]+\.[A-Za-z][A-Za-z]+$/)
454	{
455	&notenoughinfo("Please provide a full internet mail address so the reader "
456	. "of this message may reply to you.<p>");
457	}
458	else
459	{
460	$posted{mailfrom} =~ s/^\s*//;
461	$posted{mailfrom} =~ s/\s*$//;
462	}
463
464	### Subject: ###
465	if (!defined($posted{subject}) \|\| $posted{subject} =~ /^\s*$/)
466	{
467	&notenoughinfo("Please provide a subject to give the reader of this "
468	. "message some clue as to its content.<p>");
469	}
470	else
471	{
472	$posted{subject} =~ s/^\s*//;
473	$posted{subject} =~ s/\s*$//;
474	$posted{subject} =~ s/(\r\|\n)//g;
475	}
476
477	#
478	# As long as those four fields are non-empty, and in a valid format, send it
479	#
480	if ($infoerr > 0)
481	{
482	&printfooter;
483	exit 1;
484	}
485	else
486	{
487	#
488	# Connect to the mail server
489	#
490	local($sockaddr, $addr) = ("Snc4x8");
491	local($mailagent) = 'sendmail';
492
493	if ($trysmtp)
494	{
495	$addr = pack($sockaddr, 2, $mailport, &getaddress($mailserv));
496
497	if (socket(SOCK, 2, 1, 6))
498	{
499	if (connect(SOCK, $addr))
500	{
501	select(SOCK); $\| = 1;
502	select(STDOUT); $\| = 1;
503
504	if (&getresultcode == 220)
505	{
506	$mailagent = 'smtp';
507	}
508	}
509	}
510	}
511
512	#
513	# Send mail message
514	#
515	if ($mailagent eq 'sendmail')
516	{
517	close(SOCK);
518	open(SOCK, "\| /usr/lib/sendmail -t");
519	}
520	else
521	{
522	print SOCK "HELO mailback$eol";
523	do { &mailerror(1200); } if (&getresultcode != 250);
524
525	print SOCK "RSET$eol";
526	do { &mailerror(1300); } if (&getresultcode != 250);
527
528	print SOCK "MAIL FROM:<>$eol";
529	do { &mailerror(1400); } if (&getresultcode != 250);
530
531	print SOCK "RCPT TO:<$posted{mailitto}>$eol";
532	do { &mailerror(1500); } if (&getresultcode != 250);
533
534	if (defined($posted{bcc}))
535	{
536	print SOCK "RCPT TO:<$posted{mailfrom}>$eol";
537	do { &mailerror(1500); } if (&getresultcode != 250);
538	}
539
540	print SOCK "DATA$eol";
541	do { &mailerror(1600); } if (&getresultcode != 354);
542	}
543
544	print SOCK "From: $posted{mailfrom} ($posted{namefrom})$eol"
545	. "To: $posted{mailitto}$eol";
546
547	if (defined($posted{bcc}))
548	{
549	print SOCK "Bcc: $posted{mailfrom}$eol";
550	}
551
552	if (defined($posted{$posted{subtag}}))
553	{
554	$posted{$posted{subtag}} =~ s/(\r\|\n)//g;
555	print SOCK "Subject: $posted{subject} ($posted{$posted{subtag}})$eol";
556	}
557	else
558	{
559	print SOCK "Subject: $posted{subject}$eol";
560	}
561
562	if (defined($ENV{REMOTE_ADDR})) { print SOCK "X-Remote-Address: $ENV{REMOTE_ADDR}$eol"; }
563	if (defined($ENV{REMOTE_HOST})) { print SOCK "X-Remote-Host: $ENV{REMOTE_HOST}$eol"; }
564	if (defined($ENV{REMOTE_IDENT})) { print SOCK "X-Remote-Ident: $ENV{REMOTE_IDENT}$eol"; }
565	if (defined($ENV{REMOTE_USER})) { print SOCK "X-Remote-User: $ENV{REMOTE_USER}$eol"; }
566	if (defined($ENV{HTTP_REFERER})) { print SOCK "X-URL: $ENV{HTTP_REFERER}$eol"; }
567
568	print SOCK "X-Mailback-Agent: $mailagent$eol";
569
570	if (defined($posted{senderinfo}))
571	{
572	if (defined($posted{notags}))
573	{
574	print SOCK "$eol$posted{namefrom}$eol"
575	. "$eol$posted{mailfrom}$eol";
576	}
577	else
578	{
579	print SOCK "$eol--- Sender's Name ---$eol$posted{namefrom}$eol"
580	. "$eol--- Sender's Email Address ---$eol$posted{mailfrom}$eol";
581	}
582	}
583
584	foreach $key (@keylist)
585	{
586	$keyval = $posted{$key};
587
588	if (!(defined($posted{noblanks}) && (length($keyval) == 0)))
589	{
590	$keyval =~ s/\012\.\015/\012\.\.\015/g;
591	$keyval =~ s/\012\.$/\012\.\./;
592
593	if (!(defined($posted{nozeros}) && ($keyval eq "0")))
594	{
595	if (defined($posted{notags}))
596	{
597	print SOCK "$eol$keyval$eol";
598	}
599	else
600	{
601	print SOCK "$eol--- $key ---$eol$keyval$eol";
602	}
603	}
604	}
605	}
606
607	print SOCK ".$eol";
608
609	if ($mailagent eq 'smtp')
610	{
611	do { &mailerror(1700); } if (&getresultcode != 250);
612
613	print SOCK "QUIT$eol";
614	}
615
616	close(SOCK);
617	}
618
619
620	#
621	# If "returnpage" is defined...
622	#
623	if (defined($posted{returnpage}))
624	{
625	print "Location: $posted{returnpage}$eol$eol";
626	}
627	#
628	# If "showreport" is defined then show the mail report and have a link
629	# to return back to some page
630	#
631	elsif (defined($posted{showreport}))
632	{
633	&printheader("Mail Status Report");
634	print "<h1><hr><font size=5>Mail Status Report</font><hr></h1>\n\n<p>\n"
635	. "<b>From:</b> $posted{mailfrom} ($posted{namefrom})\n<br>\n"
636	. "<b>Sent To:</b> <a href=\"mailto:$posted{mailitto}\">"
637	. "$posted{mailitto}</a><br>\n";
638
639	if (defined($posted{$posted{subtag}}))
640	{
641	print "<b>Subject:</b> $posted{subject} ($posted{$posted{subtag}})$eol";
642	}
643	else
644	{
645	print "<b>Subject:</b> $posted{subject}$eol";
646	}
647
648	print "<blockquote>\n<pre>";
649
650	foreach $key (@keylist)
651	{
652	$keyval = $posted{$key};
653
654	if (!(defined($posted{noblanks}) && (length($keyval) == 0)))
655	{
656	$keyval =~ s/\&/\&amp\;/g;
657	$keyval =~ s/\</\&lt\;/g;
658	$keyval =~ s/\>/\&gt\;/g;
659
660	if (!(defined($posted{nozeros}) && ($keyval eq "0")))
661	{
662	if (defined($posted{notags}))
663	{
664	print "$keyval\n";
665	}
666	else
667	{
668	print "$key: $keyval\n";
669	}
670	}
671	}
672	}
673	print "</pre></blockquote><h2>Thank You!</h2>\n";
674	&printfooter;
675	}
676	#
677	# If "showreport" is not defined then just show a message
678	# of confirmation and have a link to another page
679	#
680	else
681	{
682	if (defined($posted{returntitle}))
683	{
684	&printheader($posted{returntitle});
685	print "<h1><hr><font size=5>$posted{returntitle}</font><hr></h1>\n<p>\n";
686	}
687	else
688	{
689	&printheader("Mail Confirmation");
690	print "<h1><hr><font size=5>Mail Confirmation</font><hr></h1>\n<p>\n";
691	}
692
693	if (defined($posted{returnmsg}))
694	{
695	print $posted{returnmsg};
696	}
697	else
698	{
699	print "<blockquote>\nYour message was sent to <b><a href=\"mailto:$posted{mailitto}\">"
700	. "$posted{mailitto}</a></b>\n</blockquote>\n<h2>Thank You!</h2>\n";
701	}
702	print "\n<p>\n";
703	&printfooter;
704	}
705	exit 0;
	ViewVC Help cvs.thauvin.net svn.thauvin.net
Powered by ViewVC 1.2-dev