Newbie Help Needed! Mail Problem!

[Palm Optins]

Hello All.

I have a admin script for a protected members area. In it, I can email all the members
to let them know the Updates of the program.

For some unknown reason, it keeps sending out double emails for each address.
Can someone tell me what I did wrong?

Here's the code I used for the mailer:

sub mmail {

$pid = fork();
print "Content-type: text/html \n\n fork failed: $!" unless defined 

$pid;
if ($pid) {
&mailsent;

exit(0);
 }
else {
 close (STDOUT);

##### SEND OUT EMAILS HERE ############

open (DAT,"<$memberinfo/amdata.db");
if ($LOCK_EX){ 
      flock(DAT, $LOCK_EX); #Locks the file
 }
 @database_array = <DAT>;
close (DAT);

foreach $lines(@database_array) {
          @edit_array = split(/\:/,$lines);
          

open (MAIL, "|$mailprog -t")
             || print "Can't start mail program"; 
 
    print MAIL "To: $edit_array[2]\n";
    print MAIL "From: $orgmail ($orgname)\n";
    print MAIL "Subject: $INPUT{'mail_subject'}\n";
    print MAIL "Important Admin Message Below\n";
    print MAIL "-" x 75 . "\n\n";
    print MAIL "$INPUT{'message'}\n\n"; 
    print MAIL "======================================\n"; 
    print MAIL "Admin:\n\n";
    print MAIL "$orgname\n";
    print MAIL "Email: $orgmail\n";    
    print MAIL "======================================\n";
       close (MAIL);
 
        }
-----------------------------------------------------
sub mailsent {
print "Content-type: text/html\n\n";
&header;
print<<EOF;
<FORM ACTION="$cgiurl" METHOD="POST"><CENTER><BR>
<TABLE BORDER="0" WIDTH="500"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
COLSTART="1"><P><B><FONT FACE="verdana, arial, helvetica"><FONT
COLOR="#FF0000">Account
Manager</FONT> Status:  Success!</FONT></B></P>
<P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Mass Mailing has been 
sent!</FONT></P>
<P><FONT SIZE="-1" FACE="verdana, arial, helvetica">Please contact
<A HREF="mailto:$orgmail";>$orgname Support</A> if you need any further
assistance.</FONT><BR><BR></P></TD></TR></ROWS></TBODY></TABLE></CENTER><HR
SIZE="1" WIDTH="450"><CENTER><TABLE BORDER="1" WIDTH="500"><TBODY><COLDEFS><COLDEF>
<COLDEF></COLDEFS><ROWS><TR><TD
VALIGN="MIDDLE" ALIGN="CENTER" WIDTH="50%" BGCOLOR="#C0C0C0" COLSTART="1"><INPUT
TYPE="SUBMIT" VALUE="Main Menu Return" NAME="admin2"></TD><TD
VALIGN="MIDDLE" ALIGN="CENTER" WIDTH="50%" BGCOLOR="#C0C0C0" COLSTART="2"><FONT
SIZE="+1" FACE="verdana, arial, helvetica"><B><FONT SIZE="-1">Main Menu
Return</FONT></B></FONT></TD></TR></ROWS></TBODY></TABLE></CENTER><CENTER><TABLE
BORDER="0" WIDTH="500"><TBODY><COLDEFS><COLDEF></COLDEFS><ROWS><TR><TD
COLSTART="1"><HR SIZE="1">
<CENTER><FONT SIZE="-2" FACE="verdana, arial, helvetica"><B>$orgname
&copy; $copy</A></B></FONT> 
</CENTER></TD></TR></ROWS></TBODY></TABLE></CENTER></FORM>
EOF
&footer;
exit;
}

Thanks and God Bless
Linda
ICQ #: 179542247

¤§¤=========¤§¤=========¤§¤¤§¤=========¤§¤=========¤§¤

For God so loved the world, that He gave his only begotten
Son, that whosoever believeth in him should not perish, but
have everlasting life.

¤§¤=========¤§¤=========¤§¤¤§¤=========¤§¤=========¤§¤