jacksonpt
Deleted
Jun 29, 2000, 9:29 AM
Post #4 of 4
(1061 views)
|
|
Re: attn: Jasmine - sending attachments
[In reply to]
|
Can't Post
|
|
I am having trouble getting it going... do I have to do any initializing for the $msg->send; line? Here is what I've got:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#!/usr/bin/perl
$mailagent = '/usr/lib/sendmail';
&parse_form_data(*input);
&print_table;
&setup_email;
¬ify_user;
exit(0);
sub parse_form_data {
# does most of the form work
}
sub print_table {
#overwrites the existing HTML file
}
sub setup_email {
open (MAIL, "|$mailagent $recipient") | | die "Can't open $mailagent!\n";
$message = MIME::Lite->new(
From => 'jtaylor@binghamton.edu',
To => 'jacksonpt@stny.rr.com',
Subject => 'Job Listing',
Type => 'text/html',
Encoding => 'base64',
Path => 'test.htm'
);
$message->send;
}
sub notify_user {
# displays confirmation message to user
}
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Thanks again.
|
MAIN
SEARCH
WHO'S 
LOG 
So have your program generate the HTML file, save it on your server, attach and email it using MIME::Lite, then delete (unlink) it unless you want to keep it.