develooper Front page | perl.beginners | Postings from March 2002

Re: send email and upload file

Thread Previous
From:
Robert Aspinall
Date:
March 4, 2002 11:38
Subject:
Re: send email and upload file
Message ID:
00cd01c1c3b4$087501a0$011f150a@vone.com
In the HTML that refers to this perl script, you're going to need to add
this to the form section:
<input type="text" name="email">

Then, in the perl script, you'll need to have $email_addresses equal the
input passed by that form.
There should be a section of the perl script that deals with HTTP GET or
POST data - that's the section you'll need to modify.
I can't really go into much more detail without seeing the portion of the
script that reads the GET or POST data.

Robert Aspinall
V-ONE Corporation
raspinall@v-one.com

----- Original Message -----
From: "Debbie McNerney" <debbie.mcnerney@news-jrnl.com>
To: "Beginners perl" <beginners@perl.org>
Sent: Monday, March 04, 2002 2:27 PM
Subject: send email and upload file


> Hello
>
> My apologies to everyone but this list does say 'beginners'. My
problem...I
> am trying to modify  a script that a co-worker wrote for us. He no longer
> works here.
>
> The snippets of the script below
>
>
> #!/usr/bin/perl
>
>
>  BEGIN {
> $email_addresses = "blah\@blah.com, blahblah\blah.com,etc";
>
>
> # ---------------------------------------------------------------------
> #lots more stuff goes in here....
>
> &Email_User;
>
> # ---------------------------------------------------------------------
> #lots more stuff goes in here....
>
> sub Email_User {
>     $sj="-s \"MyDirectory. file transfers\"";
>     system("mail $sj " . "$email_addresses" . " < ../MyDirectory/uploads/"
> "$descrip");
>     }
> # ---------------------------------------------------------------------
>
> The html form that this script refers to, is very simple. It allows a user
> to fill out pertinent info about a file; Upload the file; and  emails the
> contents of the form, along with a link to the uploaded file (resides on
our
> web server) to whoever I put into the
> $email_addresses = "blah\@blah.com, blahblah\blah.com,etc";
> line.
>
> My modification is this...
> I want to change the html form to included a customized email that can be
> filled in by the user. I want THAT email address used instead of the
> pre-filled in emails that were previously put into the $email_address
area.
>
> I do not know enough about Perl to have it point to that line on the form
> for the email address. My ultimate goal would be to CC: to another email.
We
> are a newspaper and the 'files' would be ad proofs to customers. the CC:
> would go to ad reps to let them know/see that a proof was delivered.
>
> I have reference books and I am learning but need some direction. This
seems
> like a simple thing to do. Can someone help?
> --
> Debbie McNerney, Systems Dept.
> The News-Journal Corp.®
> 901 6th Street
> Daytona Beach, Florida 32117
> 386-252-1511 ext. 2314
> debbie.mcnerney@news-jrnl.com
>
>
> --
> To unsubscribe, e-mail: beginners-unsubscribe@perl.org
> For additional commands, e-mail: beginners-help@perl.org


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About