[JaxPM] Error message

Wed May 15 10:37:46 CDT 2002

On the jacksonville-pm-list; Jax.PM'er Aaron Johnson <solution at gina.net> wrote -

I might also suggest the use of the MIME::Lite module if available.  It
makes creating and sending email much easier IMHO

Aaron

On Wed, 2002-05-15 at 11:01, -Sx- IUDICIUM wrote:
> On the jacksonville-pm-list; Jax.PM'er -Sx- IUDICIUM <sneex at mac.com> wrote -
> 
> 
> On Wednesday, May 15, 2002, at 10:43  AM, Andre McDowall wrote:
> 
> > Thanks for responding to my request. To say that I am new to Perl 
> > would be an understatement. I downloaded this script from 
> > cgi-resources and I have been trying to fix it for a 2weeks. I 
> > finally decided to seek help. What I would like to do, is get rid 
> > of that part of the script all-together. But when I remove it, 
> > although it does allow all users to access the email form, it 
> > continues to send emails and continues to do so untill the user 
> > hits stop on their browser. How can I remove it and still have the 
> > scirpt perform as it should (i.e. sedn only one email.)
> 
> 
> Not a problem - just delete that script. Here is some homework -  
> make this into a CGI.
> BTW - I will be teaching Perl here at FCCJ this Fall - see CGS2557...
> 
> See
> #!/usr/bin/perl -w
> 
> require 5.004;
> 
> use strict;
> use diagnostics;
> 
> 	my $mailAdmin   = 'nobody at fccj.org'; # Send Reports to?
> 	my $mailProject = 'bill at fccj.org'; # Responsible for Project?
> 	my $SENDMAIL    = '/usr/lib/sendmail'; # The location of your 
> sendmail binary...
> 
> $| = 1;  # Use unbuffered I/O...
> 
> # open (MAIL, "| $SENDMAIL -t -v") || die ("$0:  Fatal Error!  
> Cannot open sendmail: $!\n");
>   open (MAIL, "| $SENDMAIL $mailProject") || die ("$0:  Fatal 
> Error!  Cannot open sendmail: $!\n");
> 
> 	print MAIL<<EndOfMailer;
> User-Agent: IUDICIUM HTMLMailer  v0.0 Alpha: Sx 09/21/2001 @ 10:40AM
> X-Sender: html sender project
> X-Comments: A message from the $0 script...
> Subject: How does one send HTML via an SMTP server?
> MIME-Version: 1.0
> Content-Type: multipart/alternative; charset=us-ascii;
>      boundary="This_is_the_boundary_hip_ho"
> Content-Transfer-Encoding: 7bit
> 
> --This_is_the_boundary_hip_ho
> Content-Type: text/html; charset=us-ascii
> Content-Transfer-Encoding: 7bit
> 
> <HTML><HEAD>
> <TITLE>HTML via SMTP?</TITLE>
> </HEAD><BODY>
> <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=600>
>      <TR VALIGN=TOP>
>          <TD COLSPAN=3><IMG
> SRC="http://web.fccj.org/~wcjones/Jax.PM.org/table_top.gif" ALT="" 
> WIDTH=600 HEIGHT=15 BORDER=0></TD>
>      </TR>
>      <TR VALIGN=TOP>
>          <TD WIDTH=10 
> BACKGROUND="http://web.fccj.org/~wcjones/Jax.PM.org/table_left.gif"><IMG
> SRC="http://web.fccj.org/~wcjones/Jax.PM.org/table_left.gif" ALT="" 
> WIDTH=10 HEIGHT=10 BORDER=0 ALT=""></TD>
>          <TD WIDTH=570>
> 
> ..
> .. Here's looking at you...
> ..
> 
>          </TD>
>          <TD WIDTH=20 
> BACKGROUND="http://web.fccj.org/~wcjones/Jax.PM.org/table_right.gif"><IMG
> SRC="http://web.fccj.org/~wcjones/Jax.PM.org/table_right.gif" 
> ALT="" WIDTH=20 HEIGHT=10 BORDER=0 ALT=""></TD>
>      </TR>
>      <TR VALIGN=TOP>
>          <TD COLSPAN=3><IMG
> SRC="http://web.fccj.org/~wcjones/Jax.PM.org/table_bottom.gif" 
> ALT="" WIDTH=600 HEIGHT=15 BORDER=0></TD>
>      </TR>
> </TABLE>
> 
> </body>
> </html>
> 
> --This_is_the_boundary_hip_ho--
> 
> EndOfMailer
> 
>    close (MAIL);
> 
> __END__
> 
> # Physical end of the script...
> 
> 
> http://cpan.valueclick.com/authors/id/S/SN/SNEEX/
> 
> _Sx____________________
>     "iudicium ferat"
> 
> 
> Jax.PM Moderator's Note:
> This message was posted to the Jacksonville Perl Monger's Group listserv.
> The group manager can be reached at -- owner-jacksonville-pm-list at pm.org
> to whom send all praises, complaints, or comments...
> 
> 

Jax.PM Moderator's Note:
This message was posted to the Jacksonville Perl Monger's Group listserv.
The group manager can be reached at -- owner-jacksonville-pm-list at pm.org
to whom send all praises, complaints, or comments...