Re: [MacPerl-Modules] Slow script with MIME::Lite and HTML print problem

[email protected] (Dave Johnson) Wed, 25 Sep 2002 16:28:59 -0400
Newsgroups	perl.macperl.modules
Message-ID	<B9B794CB.9184%[email protected]>
on 9/25/02 16:20, Mark Wheeler at [email protected] wrote:

> Hi all,
> 
> Thank you so much for your help on the last one, but I've run accross
> another snag. The sending of mail goes great, but is slow on my 7600. It
> takes about 10 to 12 seconds to run the script. Here is the script:
> 
> #!/usr/local/bin/perl
> 
> print <<END;
> <html>
> <head></head>
> <body bgcolor=#ffffff>
> Sending Mail...<br>
> <br>
> <img src="../graphics/progress_bar.gif" width=182 height=16>
> </body>
> </html>
> END
> ;
> 
> #================================
> # Parse the input from the form =
> #================================
> 
> read(STDIN,$temp,$ENV{'CONTENT_LENGTH'});
> @pairs=split(/&/,$temp);
> foreach $item(@pairs)
> {
> ($key,$content)=split(/=/,$item);
> $content=~tr/+/ /;
> $content=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
> $fields{$key}=$content;
> }    
> 
> #=================================
> # Gets rid of the extra carriage =
> # returns added in the TextArea  =
> # when the form is submitted.    =
> #=================================
> 
> $fields{message}=~s/\n+//g;
> 
> #==========================
> # Prepare to send message =
> #==========================
> 
> use MIME::Lite;
> 
> # Set up variables
> 
> my $server = 'my.smtp.server';       # Set this variable to your SMTP server
> name
> my $from = $fields{from}             # From email address
> my $to = '[email protected]';            # To email address
> my $subject = $fields{subject};      # The Subject line in the email
> my $mime_type = $fields{mime};       # Text or HTML
> my $header = "--------------------------------------------------\nName:
> $fields{first_name} $fields{last_name}\n\nEmail:
> $fields{from}\n--------------------------------------------------\n\n";
> my $message = "$header$fields{message}";      # body of the send message
> 
> my $mime_msg = MIME::Lite->new(
> From => $from,
> To   => $to,
> Subject => $subject,
> Type => $mime_type,
> Data => $message
> )
> or die "Couldn't create MIME body: $!\n"; # If you can't create the email,
> don't proceed with the rest of the script
> 
> # Initiate the mail transaction
> 
> MIME::Lite->send('smtp', $server);
> $mime_msg->send() or die "Error sending message: $!\n";
> 
> #======================
> # Send the Auto-Reply =
> #======================
> 
> # Set up variables
> 
> my $from = '[email protected]';   # From email address
> my $to = $fields{from};                  # To email address (reversed 'From'
> emailaddress)
> my $subject = 'Thank You - TDS';         # The Subject line in the email
> my $mime_type = $fields{mime_ar};        # Text or HTML
> 
> # Body od the auto-reply message
> 
> my $message = '
> <html>
>   <head>
>       <title></title>
>       <style media="screen" type="text/css"><!--
> body { color: red; font-size: 12px; font-family: Arial, Helvetica, Geneva,
> Swiss, SunSans-Regular; background-color: white }
> --></style>
>   </head>
>   <body bgcolor="#ffffff">
>       <table border="0" cellpadding="0" cellspacing="0" width="553"
> height="200">
>           <tr>
>               <td valign="top" width="99%"><br>
>                   <br>
>                   Thank for your interest. We will get back to you as soon
> as possible.
>                   <p>TDS</p>
>               </td>
>           </tr>
>       </table>
>   </body>
> </html>'; # body message for auto-reply
> 
> my $mime_msg = MIME::Lite->new(
> From => $from,
> To   => $to,
> Subject => $subject,
> Type => $mime_type,
> Data => $message
> )
> or die "Couldn't create MIME body: $!\n"; # If you can't create the email,
> don't proceed with the rest of the script
> 
> # Initiate the mail transaction
> 
> MIME::Lite->send('smtp', $server);
> $mime_msg->send() or die "Error sending message: $!\n";
> 
> #==============================
> # Send user to thank you page =
> #==============================
> 
> print "Location: $fields{thank_you}\n\n";
> 
> Is there any way to speed MacPerl up?
> 
> As a result of this, I am trying to have a progress bar (animated gif) come
> up in the window as the mail is sent in the background. When the mail is
> done sending, is will call a "thank you" page.
> 
> What's happening is the mail gets sent FIRST, then the progress bar comes
> up, AS WELL AS the Thank You page doesn't come up, but I get the actual
> script printed to the screen, "Location: $fields{thank_you}\n\n".
> 
> Any help you could give would be greatly appreciated. If I can get the
> script to run in a couple of seconds, I wouldn't need the pregress bar. So
> that would be the ideal.
> 
> Thanks,
> 
> Mark
> 
>