Duplicate mails with sendmail

[JimJx]

Hi all,

I have 2 scripts that are sending email out through sendmail, one of them sends the mail 2X

I may be wrong here, but since I have one script that works fine, I am assuming that the problem has to be in the script itself, but being a novice with PERL, I cannot seem to find anything. If anyone can take a look at the code below and point me in the right direction or spot the problem, it would be a great help.

Thanks in advance,
Jim

#===== Send the card =====
sub send_card        {
   srand (time|$$);
    $userid = int (rand(1000));
    $userid .= "$$";

 open (PAGE, "$thank_you") || die ("I am sorry, but I was unable to open the file $thank_you.");
   while (<PAGE>)           {
        s/%%name%%/$input{'name'}/g;
        s/%%pickup%%/$pickup/g;
        print $_;      }
 close (PAGE);

 open (DATABASE, &quot;>>$cardlist&quot;) || die (&quot;I am sorry, but I was unable to open the file.&quot;);

#===== Remove any pipe symbols from input =====
    $input{'sender'} =~ s/\|//g;
    $input{'message'} =~ s/\|//g;
    $input{'name'} =~ s/\|//g;
    $input{'senderemail'} =~ s/\|//g;
    $input{'message'} =~ s/\s+/ /g;

    flock (DATABASE, 2);

      print DATABASE &quot;$userid\|$input{'sender'}\|$input{'senderemail'}\|$input{'message'}\|&quot;;
      print DATABASE &quot;$input{'name'}\|$input{'card_number'}\|$time\|$date\n&quot;;

    flock (DATABASE, 8);
 close (DATABASE);

#===== Send e-mail to recipient =====
 open (MAIL, &quot;|$mailprog $input{'address'}&quot;) || die &quot;Can't open $mailprog!\n&quot;;
        print MAIL &quot;Reply-to: $input{'senderemail'}\n&quot;;
        print MAIL &quot;From: $input{'senderemail'}\n&quot;;
        print MAIL &quot;To: $input{'address'}\n&quot;;
        print MAIL &quot;Subject: $subject\n\n&quot;;
 open (PAGE, &quot;$mail_message&quot;) || die (&quot;I am sorry, but I was unable to open the file $thank_you.&quot;);
        while (<PAGE>)                {
        s/%%sender%%/$input{'sender'}/g;
        s/%%userid%%/$userid/g;
        s/%%pickup%%/$pickup/g;
        s/%%company%%/$company/g;
        print MAIL $_;
        }
 close (PAGE);
 close (MAIL);
}

 

[tiz]

Try changing your sendmail part to

open(MAIL, "| /usr/lib/sendmail -t") || die "Error";
$r = select(MAIL); $|=1;

print "To: $input{'address'}\n";
print "From: $input{'reply-to'}\n";
print "Subject: $subject\n";
print "Reply-To: $input{'senderemail'}\n";
print "Date: $d\n\n";

open (PAGE, "$mail_message") || die ("I am sorry, but I was unable to open the file $thank_you.");
        while (<PAGE>)                {
        s/%%sender%%/$input{'sender'}/g;
        s/%%userid%%/$userid/g;
        s/%%pickup%%/$pickup/g;
        s/%%company%%/$company/g;
        print $_;
        }
close (PAGE);
close(MAIL);

select($r);
}

What does input{'sender'} contain in your script?

Hope this helps,

Tim
--
Tim <tim@planetedge.co.uk>

 

[JimJx]

Hi Tim,

input{'sender'} is a text form field that contains a person's real name, such as &quot;Jon Dough&quot;.


I made the suggested changes, and it works perfectly. As I said in the first post, I an a novice to PERL, and I just couldn't get it.

Thank you very much for the help.

Jim