Mac Forum / Programming / Perl / June 2005

Hi,

I'm having a problem with redirecting (Location: script.cgi) after a  
file has been downloaded.

Here is the gist of the script. It creates two files (one html, the  
other text), then a download dialog box comes up so the first newly  
created file can be saved. But after the file is saved, I'm trying to  
call the script again to download the second file, as I can't seem to  
get the second file to download after the first one has finished. But  
all I am getting is the first file downloaded with the 'print  
"Location: script.cgi?text\n\n"' at the bottom of the saved file. Do I  
need to change the Content-type or something to be able to call the  
script again? Here is a sample of the script.

Any ideas would be very helpful. Thanks very much,

Mark
------------------------------------------------------------------------
-

<CODE>

my $request = $ENV{'QUERY_STRING'};
if ($request eq "text") { &save_text; exit; }

# Create the files
.
.
.
#===========================
# Save HTML version
#===========================

&save_file($htmlname);

print "Location: script.cgi?text\n\n";

exit;

#===========================
# Save TEXT version
#===========================

sub save_text {

&save_file($textname);

print "Content-type: text/html\n\n";

print "finished.";

exit;

}

#===========================
# Save files
#===========================

sub save_file {

my $path = "$pathtofile$_[0]";
my $filename = $_[0];
my $size = (stat($path))[7]; # the size, in bytes
binmode STDOUT;

print "Content-Length: $size\n";
print "Content-Disposition: attachment;filename=$filename\n";
print "Content-Type: application/octet-stream\n\n";

open (FILE, "< $path") || die("Can't open($filename): $!");
binmode(FILE);

my $data;
while(read(FILE,$data,4096)) {
    print $data;
}
close(FILE);

}

</CODE>