Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]247[/thread]

Datei-Download: Kleines Problem (Seite 2)

Leser: 1


<< |< 1 2 >| >> 14 Einträge, 2 Seiten
Gast Gast
 2004-07-03 03:46
#2309 #2309
esscars's Weg ist sicher der richtigere (allein weil er funktioniert) ...

Hab den Code nochmal ein wenig gekürzt
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
##################################
sub send_file_to_browser {
##################################
    my $dest = shift;
    my $file;
    local $_;
    
    chomp $$dest;
    
    $$dest =~ s/\\/\//g;
    ($file = (split /\//, $$dest)[-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");
}
[E|B]
 2004-07-03 12:56
#2310 #2310
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Tipp zur anderen Lösung, wie ich sie auch oft und gern verwende: Man prüft zuerst, um welches File es sich handelt (MIME-Type). Angenommen es handelt sich um ein *.gif. Mit Hilfe einer zusammengestellter Datei sämtlicher MIME-Typen der Form...

Code: (dl )
1
2
3
4
5
6
image/bmp			bmp
image/gif			gif				base64
image/ief			ief				base64
image/jpeg			jpeg,jpg,jpe			base64
image/png			png				base64
image/tiff			tiff,tif			base64


...kann ich nun hingehen und gucken, welchen Content-type gif benötigt und ihn dann ausgeben. Ist der entsprechende CT nicht vorhanden, wird der octet-stream ausgegeben.
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]
esskar
 2004-07-27 18:45
#2311 #2311
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
hab gerade festgestellt, dass

Code: (dl )
print "Content-Disposition: attachment; filename=\"$name\"\n";


noch viel besser funzt als "inline"
jan
 2004-07-27 19:06
#2312 #2312
User since
2003-08-04
2536 Artikel
ModeratorIn
[Homepage] [default_avatar]
falls referenz-material von nöten ist:
http://www.faqs.org/rfcs/rfc1806.html
<< |< 1 2 >| >> 14 Einträge, 2 Seiten



View all threads created 2004-05-02 19:48.