Re: good practice subroutine coding in web context

Tue, 16 Apr 2002 07:01:22 -0700 

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

_Sx____________________
  ('>    -Sx- IUDICIUM
  //\   Have Computer -
  v_/_    Will Hack...

Reply via email to