Hi Everybody,
I downloaded and installed ActivePerl on a Windows NT box. I finally got my
Web site working perfectly on the NT box. I then had to upload my HTML page
and 2 CGI scripts to the UNIX box hosted by MindSpring. Well one of my CGI
scripts sends 2 separate e-mails, one text e-mail which is working fine (I'm
using sendmail), however the second e-mail is trying to send HTML e-mail.
For the HTML mail I'm trying to use MIME::Entity, however when I hit that
CGI script I am receiving an "Internal Server Error."
I am new to CGI scripting and do not completely understand how to use the
Entity.pm. When I created these pages originally I was on a Windows NT box
and was using MIME::Lite to send HTML mail and this worked great, however
MIME::Lite is not supported on the UNIX box hosted by MindSpring.
I've included the code that I am using for MIME::Entity as well as
MIME::Lite, which worked perfect. Can MIME::Entity do what MIME::Lite does,
because that is what I need? I have been working from the MIME::Entity
documentation that I found on CPAN and ActiveState, but obviously has not
gotten me to where I need to be at this point. Any help/ideas would be
helpful!
Thanks in advance for all your help!
Below is the test code I am using for MIME::Entity.
------------------------------------------------------------
#!/usr/bin/perl
$ent = MIME::ENTITY build(Type => "text/html",
From => '[EMAIL PROTECTED]',
To => '[EMAIL PROTECTED]',
Subject => "Visual Intercept
Evaluation Guide",
Data => ["Thank you:\n"]);
open MAIL, "|/usr/local/bin/perl5/MIME/Entity -t -i" or die "open: $!";
$ent->print(\*MAIL);
close MAIL;
----------------------------------------------------------------------------
---
Below is the code I used for MIME::Lite. This is what I need MIME::Entity to
do.
----------------------------------------------------------------------------
------------
# my $msg = MIME::Lite->new(
# To =>$usrEmail,
# From =>'[EMAIL PROTECTED]',
# Subject =>'Visual Intercept Evaluation Guide',
# Type =>'multipart/related'
# );
# Data => qq{ <body>
# <p><img
src='http://$wbSvr/elsitechweb/downloads/images/downloadsheader.gif'
alt=\"downloadsheader.gif (4798 bytes)\" width=\"750\" height=\"83\"></p>
# <table border=0 cellpadding=0 cellspacing=0
width=750>
# <tr>
# <p><font size=2 face=\"Verdana, Arial,
Helvetica, sans-serif\"><b>Thank you for your interest in the Visual
Intercept Incident Management System. Based
# on the preferences you
selected:</b></font></p>
# <UL>
# $strPrfDsk
# $strPrfMSdev
# $strPrfMSoff
# $strPrfWDv
# $strPrfWBs
# $strPrfPrj
# $strPrfSDK
# </UL>
# <p><font size=2 face=\"Verdana, Arial,
Helvetica, sans-serif\"><b>We recommend that you download and evaluate the
following products. This evaluation will expire 30 days after
installation.</b></font></p>
# <p><img
src=\"http://$wbSvr/elsitechweb/customer/images/vieLine0.gif\"
alt=\"vieLine0.gif (1045 bytes)\" width=\"750\" height=\"20\"></p>
# <p><A NAME=\"VIEE\"><img
src=\"http://$wbSvr/elsitechweb/customer/images/viee_hdr.gif\"
alt=\"viee_hdr.gif (1277 bytes)\" width=\"275\" height=\"20\"></A></p>
# <br>
# <table border=0 cellpadding=0 cellspacing=0
width=750>
# <tr>
# <td width=100 valign=top><img
src=\"http://$wbSvr/elsitechweb/customer/images/enterprise_box.gif\"
# alt=\"enterprise_box.gif
(9880 bytes)\" width=\"152\" height=\"171\"></td>
# <td width=10> </td>
# <font size=2 face=\"Verdana, Arial,
Helvetica, sans-serif\">You will want to download and install <b>Visual
Intercept Enterprise:
# </b><a
HREF=\"http://support.elsitech.com/anon-ftp/software/viee135re01.exe\">
# viee135re01.exe</a>. This package installs
the core components of the Visual Intercept
# Incident Management System:</font>
# <UL>
# <LI><font size=2 face=\"Verdana,
Arial, Helvetica, sans-serif\">The <b>Visual Intercept Manager</b> provides
a powerful and intuitive tool for working
# with your incident
management data over your network.</font></LI>
# <LI><font size=2 face=\"Verdana,
Arial, Helvetica, sans-serif\">The <b>Visual Intercept Administrator</b>
will allow you to create new Visual Intercept
# users, administrate security
groups, and define workflow rules.</font></LI>
# <LI><font size=2 face=\"Verdana,
Arial, Helvetica, sans-serif\">The <b>Visual Intercept database files</b>
will allow you to use a pre-configured MS
# Access database with Visual
Intercept or run a script to create a database in SQL Server, Oracle,
# Sybase or Fox
Pro.</font></LI>
# <LI><font size=2 face=\"Verdana,
Arial, Helvetica, sans-serif\">The <b>Visual Intercept Wizard</b> will allow
you to create a complete Visual Intercept
# Project hierarchy in one
setting.</font></LI>
# <LI><font size=2 face=\"Verdana,
Arial, Helvetica, sans-serif\">The <b>Visual Intercept Services Manager</b>
allows you to create Visual Intercept
# services for e-mail
notification and synchronization with Visual Source Safe
databases.</font></LI>
# <LI><font size=2 face=\"Verdana,
Arial, Helvetica, sans-serif\"><b>Visual Intercept Studio</b> provides
simple and easy access to your
# incident management data
from Microsoft development environments and Microsoft
# Office 2000
products.</font></LI>
# </UL>
# <p><font size=2 face=\"Verdana, Arial,
Helvetica, sans-serif\">Please refer to the
# <b><i><a
HREF=\"http://support.elsitech.com/techsupport/GSGuide/GSIndex.asp\">Visual
# Intercept Enterprise Getting Started
Guide</a></i></b>, which contains information about
# system requirements, installation, and an
overview of the Visual Intercept
# Enterprise Incident Management
System.</font></p>
# </td>
# </tr>
# </table>
# $imgVieLine1
# <A NAME=\"VIWB\">$imgWbSvr</A>
# <table border=0 cellpadding=0 cellspacing=0
width=750>
# <tr>
# <td width=130
valign=top>$imgWbBx</td>
# <td width=640>
# <font size=2 face=\"Verdana, Arial,
Helvetica, sans-serif\">$strWebBase1
# $strWebBase2
# $strWebBase3
# $strWebBase4
# $strWebBase5
# $strWebBase6
# $strWebBase7
# $strWebBase8</font>
# </td>
# </tr>
# </table>
# $imgVieLine2
# <A NAME=\"VIWD\">$imgWbDev</A>
# <table border=0 cellpadding=0 cellspacing=0
width=750>
# <tr>
# <td width=130
valign=top>$imgWbBx2</td>
# <td width=640>
# <font size=2 face=\"Verdana, Arial,
Helvetica, sans-serif\">$strWebDev1
# $strWebDev2
# $strWebDev3
# $strWebDev4
# $strWebDev5</font>
# </td>
# </tr>
# </table>
# $imgVieLine3
# <A NAME=\"VIWD\">$imgWbDev2</A>
# <table border=0 cellpadding=0 cellspacing=0
width=750>
# <tr>
# <td width=130
valign=top>$imgWbBx3</td>
# <td width=640>
# $strWbBaseFal2
# $strWbBaseFal3
# $strWbBaseFal4
# $strWbBaseFal5
# $strWbBaseFal6
# $strWbBaseFal7</font>
## </td>
# </tr>
# </table>
# $imgVieLine4
# <A NAME=\"VIPrj\">$imgViePrj</A>
# <table border=0 cellpadding=0 cellspacing=0
width=750>
# <tr>
# <td width=130
valign=top>$imgPrjBx</td>
# <td width=640>
# <font size=2 face=\"Verdana, Arial,
Helvetica, sans-serif\">$strMSPrj1
# $strMSPrj2
# $strMSPrj3
# $strMSPrj4
# $strMSPrj5
# $strMSPrj6</font>
# </td>
# </tr>
# </table>
# $imgVieLine5
# <A NAME=\"VISDK\">$imgVieSDK</A>
# <table border=0 cellpadding=0 cellspacing=0
width=750>
# <tr>
# <td width=130
valign=top>$imgSDKBx</td>
# <td width=640>
# <font size=2 face=\"Verdana, Arial,
Helvetica, sans-serif\">$strSDK1
# $strSDK2
# $strSDK3
# $strSDK4
# $strSDK5
# $strSDK6
# $strSDK7</font>
# </td>
# </tr>
# </table>
# <p><img
src=\"http://$wbSvr/elsitechweb/customer/images/vieLine0.gif\"
alt=\"vieLine0.gif (1045 bytes)\" width=\"750\" height=\"20\"></p>
# <table border=0 cellpadding=0 cellspacing=0
width=750>
# <p><font size=2 face=\"Verdana, Arial,
Helvetica, sans-serif\">We would like to thank you again for your interest
in the Visual Intercept Incident Management
# System. If you have technical questions
during your evaluation that are not covered by this e-mail or by
# the documentation, please send an e-mail
with your questions to:
# <a
HREF=\"mailto:support\@elsitech.com\">support\@elsitech.com</a>. If you have
questions related to sales
# or licensing, please send an e-mail to <a
HREF=\"mailto:sales\@elsitech.com\">sales\@elsitech.com</a>.</font></p>
# <br>
# <p><img
src=\"http://$wbSvr/elsitechweb/home/images/bottomheader.gif\"
alt=\"bottomheader.gif (589 bytes)\" width=\"750\" height=\"22\"></p>
# </table>
# </body></html> }
# );
#MIME::Lite->send('smtp', "1.1.1.1 -t -oi -oem", Timeout=>6);
#$msg->send();
----------------------------------------------------------------------------
------------
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
