# get the email list open(IN,"$list_file"); while(){ chomp; @field=split(/\|/,$_); $field[0]=~s/ //g; if (&email_check($field[0])){ $email_list[$r]=$field[0]; $r++; } } close(IN); $total_emails=@email_list; print qq|

Sending Message

Your message is being sent to the members of the $list_name. There are $total_emails members in the list.

|; # send the emails if ($FORM{'start'} eq "") {$FORM{'start'}=0;} $end=$email_batch+$FORM{'start'}; if ($end >= $total_emails) { $end=$total_emails; $finished=1; } for ($x=$FORM{'start'};$x<$end;$x++) { $y=$x+1; print "Sending to List Member $y
"; if ($email_method eq "SMTP") { &sendmail($email_list[$x],$FORM{'from'},$FORM{'subject'},$message,$FORM{'format'}); } else { &unixsendmail($email_list[$x],$FORM{'from'},$FORM{'subject'},$message,$FORM{'format'}); } }