Re: good practice subroutine coding in web context

Tue, 16 Apr 2002 04:33:02 -0700 

On 4/16/02 1:01 AM, "Chris Devers" <[EMAIL PROTECTED]> wrote:

> I would feel awful if my rudeness made you or anyone else drop off the
> list. Please accept my deep & sincere apologies for what I wrote.


You guys are starting to remind me of the '97 Usenet flamewars...

To add Perl back to this - here:

(Attachment is text - BBEdit txt.)
_Sx____________________
  ('>    -Sx- IUDICIUM
  //\   Have Computer -
  v_/_    Will Hack...



#!/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'; # 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>

...
... See you in class  :)  (smarty pants)
...

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