Error is as follows.....

[raevans]

Hello. Maybe someone can give me a little insight into these error messages. I have the perl interpreter loaded on a win2K server laptop... which isntr really even completely configured yet... I loaded the formmail script from nms_ in london, and also the nms_sendmail script from them, to take place of my nonexistent binary sendmail program. I am getting the following errors when I try to submit a simple standard html form which is calling the formmail script, located in the cgi bin of the

http://wwwroot

in the inetpu directory of my c drive.

use of uninitialized value in pattern match (m// at formmail.pl line 129.
main::fatalstobrowser('invalid [] range "\x{fe}\x{83}\x{bf}\x{bf}\x{bf}\x{be}\x{80}-3" in transliteration operator at f...'} called at formmail.pl line 572...

Then it has the xml error code and at the end anothe Invalid [] range "wierd characters here...." in transliteration operator at line 572. As best as I can tell the following is the lines 130-131.. and after... lines 572.

# We need finer control over what gets to the browser and the CGI::Carp
# set_message() is not available everywhere
# This is basically the same as what CGI::Carp does inside but simplified
# for our purposes here.

BEGIN
{
sub fatalsToBrowser
{
my ( $message ) = @_;

if ( $DEBUGGING )
{
$message =~ s/</&lt;/g;
$message =~ s/>/&gt;/g;
}
else
{
$message = '';
}

my ( $pack, $file, $line, $sub ) = caller(1);
my ($id ) = $file =~ m%([^/]+)$%;

return undef if $file =~ /^\(eval/;



lines 572+-
# Allow no unusual characters and impose a length limit. We
# need to allow extended ASCII characters because they can
# occur in non-English names.
$realname =~ tr# a-zA-Z0-9_\-,./'\200-377##dc;
$realname = substr $realname, 0, 128;
} else {
# Be as generous as possible without opening any known or
# strongly suspected relaying holes.
$realname =~ tr#()\\#{}/#;
}

return $realname;

FINALLY...
I am assuming that in addition to other possible syntactic errors... I messed up the configuration of the send_mail binary from nms. I configured the file this way:::

# You will need to change $mailhost below to to the
# name of a host that will act as an SMTP relay for
# your web server.

my $mailhost = 'smtp.comcast.net';

# You may need to change $helohost below to the name
# of the host on which you're installing nms_sendmail.
# Most SMTP servers will accept '.' though, so most
# people don't need to.

my $helohost = '.';

#######################################################

=head1 NAME

nms_sendmail - a Perl emulation of C<sendmail -oi -t>

=head1 SYNOPSIS

open SENDMAIL, '|nms_sendmail -oi -t' or die &quot;open: $!&quot;;
...
close SENDMAIL or die 'nms_sendmail failed';


open SENDMAIL, '|nms_sendmail -f envelope-sender@your.domain -oi -t'
or die &quot;open: $!&quot;;
..
etc etc..
ANY Advice will be greatly appreciated, and TIA

 

[MikeLacey]

Hi raevans,

The following code compiles without error, I just copied it from your post above. Could you post a small piece of code that gives your error please?

sub fatalsToBrowser
{
my ( $message ) = @_;

if ( $DEBUGGING )
{
$message =~ s/</</g;
$message =~ s/>/>/g;
}
else
{
$message = '';
}

my ( $pack, $file, $line, $sub ) = caller(1);
my ($id ) = $file =~ m%([^/]+)$%;

return undef if $file =~ /^\(eval/;
}
fatalsToBrowser;
1;
Mike

&quot;Experience is the comb that Nature gives us, after we are bald.&quot;

Is that a haiku?
I never could get the hang
of writing those things.