Opened by Gast at 2004-05-02 19:48
[quote=esskar,02.05.2004, 18:32][quote=Dieter,02.05.2004, 18:21]Das kannte ich noch nicht.[/quote]
Bin damals drauf gekommen als ich viel mit Mails und MIME zu tun hatte; da ist es ja ähnlich und da sich die Formate auch sonst ähneln, hatte ich es auf einen Versuch ankommen lassen![/quote]
Wenn ich das so schreibe dann klappt's auch mit dem IE und auch mit solchen Servern die 'application/octet-stream' nicht explizit aufgenommen haben (und die Funktion benötigt dann nur einen Block).
Nochmals Danke für den Hinweis.
Bin damals drauf gekommen als ich viel mit Mails und MIME zu tun hatte; da ist es ja ähnlich und da sich die Formate auch sonst ähneln, hatte ich es auf einen Versuch ankommen lassen![/quote]
Wenn ich das so schreibe dann klappt's auch mit dem IE und auch mit solchen Servern die 'application/octet-stream' nicht explizit aufgenommen haben (und die Funktion benötigt dann nur einen Block).
Nochmals Danke für den Hinweis.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
my $dest = 'c:/inetpub/wwwroot/cgi-bin/the_script.pl';
send_file_to_browser(\$dest);
##################################
sub send_file_to_browser {
##################################
my $dest = shift;
my ($file, @path);
local $_;
chomp $$dest;
$$dest =~ s/\\/\//g;
@path = split /\//, $$dest;
($file = $path[-1]) =~ s/\s/_/g;
binmode STDOUT;
print "Content-Type: application/*\n";
print "Content-Disposition: inline; filename=\"$file\"\n\n";
open FILE, "< $$dest" or die("File $file couldn't be opened");
binmode FILE;
print while <FILE>;
close FILE or die("File $file couldn't be closed");
}