Perl script with sendmail

I need to know how to make the script that I have attached at the end of this message send email as the user who submits the form. The form is supposed to subscribe someone to a listserver, when one enters their name and email address, it should subscribe them. However, as it works now, the email is being sent as nobody@cissus.mobot.org(this is the server where the script resides). Instead I need the script to actually send the mail as if it were coming from the submitted email address. Otherwise the person cannot post to the list from their real machine.
Here is the script:

#!/opt/gnu/bin/perl
require "/usr/local/HTTPD/cgi-bin/cgi-lib.pl";
&ReadParse;

open (MAIL, "| /usr/lib/sendmail -oi -t" );
print MAIL <<NOTIFY;
To: listproc\@mobot.mobot.org
From:$in{'email'}\n

sub ical-l $in{'fullname'}

NOTIFY
close MAIL;


print "Content-type:text/html\n\n";
print <<RECEIVED;
<html>
<body text="#666600" link="#ff3300" vlink="#ff9900" alink="#ffff00" background=\
\
"http://www.mobot.org/ical/icalbg.gif">

<title>You Have Been Added!!!</title>
<center>
<font size="+2"><b>You Have Been Added!!!</b></font><P>
</center><P>
<b>The email address <b>$in{'newemail'}</b> will be used to notify you
of any ICAL-Botany submissions.
RECEIVED

print <<FOOTER;
<hr width=70% size=5>
<center><a href="http://www.mobot.org/ical/"><== Orphan
Home</a></center>

</body></html>
FOOTER



exit;
tucker040197Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

KallistiCommented:
Two suggestions:

1) Put a SPACE after the From: in the header.

2) Add the header Reply-To: $in{'email'}\n

Good luck
0
tucker040197Author Commented:
This still does not work, there must be some other level of information to the email message that is not normally viewed. The following is the actual text that shows up in an email message submitted by the form:

>
Date: Fri, 4 Apr 1997 09:16:42 -0600 (CST)
From: ficken@cissus.mobot.org
To: listproc@mobot.mobot.org

sub ical-l Keven Ficken
>

This is identical to what the message looks like when I actually send it from an email client, in which case the subscription will be successful, but for some reason in this instance it still does not work. When I try to send the message from the form, the list admin gets a message copied to him that is a reply to nobody@cissus.mobot.org saying that he is already a member of the list and thus can't subscribe(we do have nobody@cissus.mobot.org on the list so that non-members can submit to the list). I am stumped as to where the list gets the nobody address from the message I send and how to change the nobody to the submitted address.

0
KallistiCommented:
It gets it as the program was run by nobody@cissus.mbot.org.

However, as I understood it, the -oi flag should kill that.

As another suggestion, as a workaround, try:

open (MAIL, "| /usr/lib/sendmail -t To: listproc\@mobot.mobot.org " );

instead as the open?  If this also fails, I will read the
sendmail manaual page fully!
0
Bootstrap 4: Exploring New Features

Learn how to use and navigate the new features included in Bootstrap 4, the most popular HTML, CSS, and JavaScript framework for developing responsive, mobile-first websites.

KallistiCommented:
Eek, typo there..  Remove the To: from the suggested line!

It is meant to replace the current open line..
0
tucker040197Author Commented:
Adjusted points to 75
0
wisdom042597Commented:
You can set the "from" address in Sendmail by using the -f parameter (i.e. /.../sendmail -fmyname@mydomain ).  Your process must be running as root or another trusted user to do this, otherwise you'll receive an "X-authentication" message in the e-mail header, but this may not be that big of a problem because the e-mail will still appear to be "from" the user address you
specify.

If you don't use the -f parameter, sendmail will send the message as designated coming from whatever user process the web server is running as.  By modifying the e-mail headers, you can set the reply-to, but the only way to force the original "X-sender" is by using the -f parameter.

So you should change your original reference to sendmail to look something like this:

open (MAIL, "| /usr/lib/sendmail -f$in{'email'} ..." );

I haven't tested this, but you get the idea.  HOWEVER, note that this also represents a rather serious potential security hole.  If one of the form fields ends up on the Unix command line, you better run some serious checks on the email variable value to make sure it contains no destructive characters - if you don't user's can potentially execute unix commands as the web server user!  Be sure to remove any characters from the email value that would have special purpose under your particular version of Unix (i.e. |,+,& etc..)

Let me also just state for the record that it's debatable as to whether the convenience of allowing a push-button maillist subscription from a web page is worth the hassel you can end up with when users enter invalid e-mail addresses.  

 - wisdom

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Scripting Languages

From novice to tech pro — start learning today.