Hi!
I added the code below to my CGI script to send HTML mail. The HTML mail
sends fine, however within the text display of my CGI form, CGI errors
are printing referring to the Domain.pm. I have never modified, let
alone opened the Domain.pm. I included the errors and the lines of the
Domain.pm that the errors are referring. What am I doing wrong? Any help
would be appreciated.
Thanks,
Sheri
________________________________________________________________________
_____________________________________________________________________
My code, which sends HTML mail:
my $msg = MIME::Lite->new(
To =>$usrEmail,
From =>'[EMAIL PROTECTED]',
Subject =>' Eval Info',
Type =>'multipart/related'
);
$msg->attach(Type => 'text/html',
Data => qq{ <body>
<p><img
src=\"http://madras/elsitechweb/downloads/images/downloadsheader.gif\"
alt=\"downloadsheader.gif (4798 bytes)\" width=\"750\"
height=\"83\"></p>
<p><font size=1 face=\"Verdana, Arial,
Helvetica, sans-serif\">Thank you for your interest in the Visual
Intercept Incident Management System. Based
on the preferences you selected we recommend that you download and
evaluate the
following products.</font></p>
<p><font size=1 face=\"Verdana, Arial,
Helvetica, sans-serif\">You will want to download and install <b>Visual
Intercept Enterprise:
</b> <a
HREF=\"http://someone.somewhere.com/anon-ftp/software/viee135re01.exe\">
viee135re01.exe</a>. This package
installs the core components of the Visual Intercept
Incident Management System:</font></p>
<UL>
<LI><font size=1 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=1 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=1 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=1 face=\"Verdana,
Arial, Helvetica, sans-serif\">The <b>Visual Intercept Wizard</b> will
allow you to create a c omplete
Visual Intercept Project hierarchy in one setting.</font></LI>
<LI><font size=1 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=1 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=1 face=\"Verdana, Arial,
Helvetica, sans-serif\">$strWebBase1
$strWebBase2
$strWebBase3
$strWebBase4
$strWebBase5
$strWebBase6
$strWebBase7</font></p>
<p><font size=1 face=\"Verdana, Arial,
Helvetica, sans-serif\">$strWebDev1
$strWebDev2
$strWebDev3
$strWebDev4</font></p>
<p><font size=1 face=\"Verdana, Arial,
Helvetica, sans-serif\">$strMSPrj1
$strMSPrj2
$strMSPrj3
$strMSPrj4
$strMSPrj5
$strMSPrj6</font></p>
<p><font size=1 face=\"Verdana, Arial,
Helvetica, sans-serif\">$strSDK1
$strSDK2
$strSDK3
$strSDK4
$strSDK5
$strSDK6
$strSDK7</font></p>
<p><font size=1 face=\"Verdana, Arial,
Helvetica, sans-serif\">We would like to thank you again for your
interest in the Visual Intercept I ncident
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:someone\@somewhere.com\">someone\@somewhere.com</a>.</font
></p>
</body> }
);
MIME::Lite->send('smtp', "192.168.1.1 -t -oi -oem", Timeout=>6);
$msg->send();
________________________________________________________________________
____________________________________________________________
Errors displaying on my CGI form:
Use of uninitialized value in scalar assignment at
E:/Perl/site/lib/Net/Domain.pm line 204.
Use of uninitialized value in scalar assignment at
E:/Perl/site/lib/Net/Domain.pm line 204.
Use of uninitialized value in pattern match (m//) at
E:/Perl/site/lib/Net/Domain.pm line 228.
Use of uninitialized value in split at E:/Perl/site/lib/Net/Domain.pm
line 235.
------------------------------------------------------------------------
----------------------------------------
I've included the code in which the errors point:
Domain.pm
----------------------------------
# Look for environment variable
$domain ||= $ENV{LOCALDOMAIN} ||= $ENV{DOMAIN} || undef; #line 204
if(defined $domain) {
$domain =~ s/[\r\n\0]+//g;
$domain =~ s/(\A\.+|\.+\Z)//g;
$domain =~ s/\.\.+/\./g;
}
sub domainname {
return $fqdn
if(defined $fqdn);
_hostname();
_hostdomain();
# Assumption: If the host name does not contain a period
# and the domain name does, then assume that they are correct
# this helps to eliminate calls to gethostbyname, and therefore
# eleminate DNS lookups
return $fqdn = $host . "." . $domain #line 228
if($host !~ /\./ && $domain =~ /\./);
# For hosts that have no name, just an IP address
return $fqdn = $host if $host =~ /^\d+(\.\d+){3}$/;
my @host = split(/\./, $host);
my @domain = split(/\./, $domain); #line 235
my @fqdn = ();
# Determine from @host & @domain the FQDN
my @d = @domain;
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
