perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Dermot Paikkos" <der...@sciencephoto.co.uk>
Subject Refresh referring page
Date Tue, 03 May 2005 13:29:39 GMT
Hi,

MP2 RC5, Template,  Image::Magick

I hope this is not off topic, apologises if it is.

I have a perl script written as a handler. It scans a dir for image 
files and offers the user a chance to convert them from tiff to jpeg. 
As there can be lots of files of some size, it can take some time for 
the process to return.

What I wanted was to loop through the files and refresh the page as 
each file was processed. So I had something like;


$r = shift if $ENV{MOD_PERL};
my $tt = Template->new...

foreach my $f (@files) {
	my @files_processed;
	...snip
	push(@files_processed,$f);

	my $vars = {
			files => \@files_processed,
		};
	$r->content_type('text/html');
	$r->headers_out;
	$tt->process($tt_file,$vars)
      	  || die $tt->error;

} # End of foreach

# $r->headers_out;

I thought this would re-send the $vars and headers_out until the list 
was exhausted but in practise what I get was the page repeated for 
each file. EG: if there are 4 files I get 4 <html></html> and a messy 
looking page.

I am not sure what I am doing wrong. If I move the headers_out 
outside the foreach loop I get to the array contents but I still get 
the (size of @files_processed) x <html> tags rather than one nice 
page and I still have to wait for the whole process to complete.

I imagine I am going to have to take another approach but can't thing 
of one. Does anyone now how to refresh a referring page or loop in 
the may I described?

Thanx in advance.
Dp.
 


					


Mime
View raw message