CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Intermediate:
Mailing List does not work corectly - Why ? Please help

 



kiho
Deleted

Jul 11, 2000, 10:05 AM

Post #1 of 1 (566 views)
Mailing List does not work corectly - Why ? Please help Can't Post

My database has 5 email addresses but I dont know why my script just sent 3 email ?

Please take a look with this script

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

sub sendmail {
$pid = fork();
$pid;
if (!pid) {
&error("fork error");
}

if ($pid) {
&sendOK;
exit(0);
}
else {
close (STDOUT);

foreach $email_lines(@email_array) {
chomp($email_lines);

open (MAIL,"| $mailpro -t") | | die ("Can not");
print MAIL "To: $email_lines\n";
print MAIL "From: webmaster\n";
print MAIL "Reply-to: $FORM{'mymail'}\n";
print MAIL "Subject: $FORM{'subject'} \n\n";
print MAIL "$FORM{'message'}\n";
close (MAIL);

}
}
}

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

What wrong with this script ? Any idea ? Please tell my why ?


[This message has been edited by kiho (edited 07-11-2000).]

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives