Realtime output to the browser

[Mark Schouten]

Hi, 

I'm writing some code to autmatically retrieve a file if the local file
is older than a day.

I would like to output some data to the browser while this script is
running instead of waiting untill the script is done.

Here's the code:
================
if (-M $file => 1) {
  
  print '<pre>Datafile is one day old or older, retrieving and
processing new file.';

  open(updatelockfile, ">$lockfile");
  print updatelockfile 'updating';
  close(updatelockfile);
  
  my $ftp = Net::FTP->new('$host', Debug => 0);
  $ftp->login($user, $pass);
  $ftp->get($remotefile, $tmpfile);
  $ftp->quit;
  print 'File retrieved. Processing data</pre>';

  unlink($lockfile);
  unlink($tmpfile);
}

================

Anyone knows how to do it?

Thanks,

Mark

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]