Hi,

I have a shopping cart which includes a bulk mailing option. Once activated - is it possible to abort!

The relevant coding is:

        # get the email list
        open(IN,"$list_file");
        while(<IN>){
            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| <html><body bgcolor=white><font face=arial> <h2>Send
+ing Message</h2>  Your message is being sent to the members of the $l
+ist_name.  There are $total_emails members in the list.<br><br>|; 
                
        # 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<br>";
                if ($email_method eq "SMTP") {
                    &sendmail($email_list[$x],$FORM{'from'},$FORM{'sub
+ject'},$message,$FORM{'format'});
                } else {
                    &unixsendmail($email_list[$x],$FORM{'from'},$FORM{
+'subject'},$message,$FORM{'format'});
                }
        }

[download]

In reply to STOP SENDMAIL by rogerhadden

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.