Hi, I am new to Perl CGI and I am trying to send mail in HTML format. I
am using the MIME::Lite package, and I was finally able to send mail.
However, it is printing the following errors on my CGI form. I have
never modified, let alone opened the Config.pm or the Domain.pm. I've
noticed that 3 out of 4 errors have to do with the domain. Am I suppose
to modify these files and if so what am I suppose to modify?
Errors:
Use of uninitialized value in concatenation (.) at
E:/Perl/site/lib/Net/Config.pm line 44. 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:
Config.pm
--------------------------------------------------------
if ($< == $> and !$CONFIGURE) {
my $home = eval { (getpwuid($>))[7] } || $ENV{HOME};
$file = $home . "/.libnetrc"; #line 44
$ref = eval { do $file } if -f $file;
%NetConfig = (%NetConfig, %{ $ref })
if ref($ref) eq 'HASH';
}
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;
}
Domain.pm
------------------------------------------------------------------------
-----------
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;
Thanks,
Sheri
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
