
jacksonpt
Deleted
Jun 29, 2000, 9:29 AM
Post #4 of 4
(1832 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.
|