(70007)The timeout specified has expired:
ap_content_length_filter: apr_bucket_read() failed

##</code><code>##


use strict;
use warnings;
use CGI;

if ($CGI->param('check')) {
  my $filename = "./xml/" . $CGI->param('username');
  if (-e "$filename.finished") {
    open ("XML", "< $filename")
      or die ("Can't open the file $filename");
    print $CGI->header({-type => 'application/xml'});
    while (<XML>) {
      print $_;
    }
    close ("XML");
    unlink ($filename);
    unlink ("$filename.finished");
    exit;
  }
  else {
    print $CGI->header({-type => 'text/html'});
    print $CGI->start_html;
    print "<meta http-equiv=\"refresh\" content=\"3;url=\"foo.cgi?check=1&username=". $CGI->param('username') . "\">\n";
    print $CGI->h4("User ", $CGI->param('username')), "\n";
    print $CGI->h4("Password ", "******"), "\n";
    print $CGI->p("The script is now generating your XML report in the background.  The page will reload when it is ready.");
    print $CGI->h4("Unfortunately the script is not yet done.");
    exit;
  }
  exit;
}
elsif ($CGI->param('do')) {
  my $pid = fork;
  if (not (defined $pid)) {
    die ("The \$pid was not defined");
  }
  elsif ($pid) {
    print $CGI->header({-type => 'text/html'});
    print $CGI->start_html;
    print "<meta http-equiv=\"refresh\" content=\"3;url=\"foo.cgi?check=1&username=". $CGI->param('username') . "\">\n";
    print $CGI->h4("User ", $CGI->param('username')), "\n";
    print $CGI->h4("Password ", "******"), "\n";
    print $CGI->p("The script is now generating your XML report in the background.  The page will reload when it is ready.");
    print "<script>document.location = \"scraper.cgi?check=1&username=" . $CGI->param('username') . "\"</script>\n";
    exit;
  }
  else {
    main::generate_report;
  }
}