sub exportdatabase { 

fork: {

my ($recnum,$revnum,$book,$chap,$verse,$text) = '';
my @resp = ();
my $timestamp = "$curdate_$curtime";
$timestamp =~ s/[\/:.]/-/g;
my $to_windows = '';
my $CRLF = "\n";
     if ($OS eq "Windows") { 
     	$to_windows = '--to-crlf'; # SAME AS -l
     	$CRLF = "\r\n";
} 
my $zipfile = "$db_export_file.zip";
my $encoding = "UTF-8";

$statement = qq| SELECT a.RecordNum, a.RevisionNum, a.Book, a.Chapter, a.Verse, a.Text from $table a INNER JOIN (SELECT RecordNum, max(RevisionNum) RevisionNum FROM $table GROUP BY RecordNum) b USING (RecordNum,RevisionNum); |;

&connectdb('exportdatabase');

push @resp, "RECORD#\tREVISION#\tBOOK#\tCHAP#\tVERSE#\tTEXT, AS EDITED BY: $curdate $curtime (Pacific Time)$CRLF"; 

while (($recnum,$revnum,$book,$chap,$verse,$text) = $quest->fetchrow_array()) {
			push @resp, "$recnum\t$revnum\t$book\t$chap\t$verse\t$text$CRLF"; 
	}
	
binmode STDOUT;  # just to play it safe
        print qq|Content-Type: application/zip, application/octet-stream$CRLF|;
        print qq|Cache-Control: no-cache, no-store, must-revalidate$CRLF|;
	print qq|Accept-Ranges: bytes$CRLF|;
	print qq|Content-Language: utf8$CRLF|;
	#print qq|Content-Length: | . (stat $zipfile)[7] . "$CRLF";
	print qq|Content-Disposition: attachment; filename="$zipfile";$CRLF$CRLF|;

my $z = IO::Compress::Zip->new('-', # STDOUT
    Name => "$db_export_file" )
        or die "zip failed: $ZipError\n";
	
for my $line (@resp) {
    $z->print( encode($encoding, $line,
        Encode::FB_CROAK|Encode::LEAVE_SRC) );
}
$z->close();

} #END fork
} # END SUB exportdatabase