Re: good practice subroutine coding in web context

Tue, 16 Apr 2002 08:45:07 -0700 

Cool!  Thanks Bill.  I am going to need to be doing this later this 
week.  You just saved me some time in having to research it.  :)

-Alex


Bill -Sx- Jones wrote:

>=pod
>
>>Any chance of a repost?
>>
>
>Sure - it was small - it may need to be
>fixed because of mailing reformatting it;
>
>-Sx- :]
>
>=cut
>
>#!/usr/bin/perl -w
>
>require 5.004;
>
>use strict;
>use diagnostics;
>
>my $mailAdmin   = '[EMAIL PROTECTED]'; # Send Reports to?
>my $mailProject = '[EMAIL PROTECTED]'; # Responsible for Project?
>
>my $SENDMAIL    = '/usr/lib/sendmail'; # your sendmail binary...
># on MacOS X it is at /usr/sbin/sendmail
>
>$| = 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>
>
>....
>.... Posted on the MacOSX Perl list  :)
>....
>
>        </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...
>
>

Reply via email to