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
>
>
