Hi, God bless you.
On Tue, May 28, 2002 at 12:45:53PM -0500, Camilo Gonzalez wrote:
>
> I've been having this problem in various permutations throughout my Perl
> life. For this particular function, I set $confirm_counter to 1. Then I use
....
> $xheader = "X-HTTP-Client: [$1]\n"
> . "X-Generated-By: NMS FormMail.pl v$VERSION\n";
> }
>
> if ( $confirm_counter = "1"){
^ May be this your problem?
> if ( $send_confirmation_mail ) {
> open_sendmail_pipe(\*CMAIL, $mailprog);
In the indicated if condition below you are allways assigning 1 to
$confirm_counter instead of comparing it to 1. Should be:
if($confirm_counter=="1") {
...
}
Well that may be a typo, but if you pasted this part of the script
then it may be the error.
<tip_if_newbie>
If this is the error, it should be good for you to use the '-w' flag
in the perl command line to check for simple errors like this. Also
using: 'use strict;' could be useful. :) Just put:
#!/usr/bin/perl -w
use strict;
At the beginning of your scripts.
</tip_if_newbie>
See you
Roberto Ruiz
--
A train stops at a train station; a bus stops at a bus station; on my
desk I have a workstation...
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
