[JaxPM] Error message

Wed May 15 10:01:55 CDT 2002

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...