nicht angemeldet
Hallo CGI-Programmer,
wie kann ich eine Datei mittels unten stehenden Skript Downloaden???
Download funktioniert auch recht gut, nut allerding wird statt "test.zip" als Download-Datei "test.cgi" verwerwendet."
Wie kann ich nun erreichen, das ich den Dateinamen angeben kann???
also "test.zip"???
Vielen Dank im Voraus
paul
#!/usr/bin/perl
$base_data = "$ENV{DOCUMENT_ROOT}";
open(DATA,"$base_data/data/test.zip") || &file_io_error;
@data = <DATA>;
close(DATA);
print "Content-type: application/zip\n\n";
#print "Content-Disposition: attachment; filename='test.zip'\n";
foreach $data_line (@data) {
print "$data_line";
}
exit;
sub file_io_error
{
print "Content-type: text/html\n\n";
print "<html><head><title></title></head>";
print "<body>";
print "<H1>Die Datei konnte nicht geoefnet werden.<br>";
print "$base_data/data/test.zip<br>";
print "</body></html>";
}