Fix for bug 171296: changing Content-disposition header in attachment.cgi to use 'inline' instead of 'attachment' so that it
doesn't *force* you to download it. r= bbaetz, bzbarsky git-svn-id: svn://10.0.0.236/trunk@130641 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
parent
7da0dbd61d
commit
061444b7f3
@ -342,17 +342,11 @@ sub view
|
||||
SendSQL("SELECT mimetype, filename, thedata FROM attachments WHERE attach_id = $::FORM{'id'}");
|
||||
my ($contenttype, $filename, $thedata) = FetchSQLData();
|
||||
|
||||
# Determine if the browser supports the Content-Disposition header or not
|
||||
my $usedisposition = 1; # assume yes, unless we discover otherwise
|
||||
if ($::ENV{HTTP_USER_AGENT} =~ /^Mozilla.*MSIE (\d+)/) {
|
||||
if ($1 < 5) { $usedisposition = 0; } # MSIE < 5.0 chokes on it
|
||||
}
|
||||
|
||||
# Return the appropriate HTTP response headers.
|
||||
$filename =~ s/^.*[\/\\]//;
|
||||
my $filesize = length($thedata);
|
||||
print qq{Content-Type: $contenttype; name="$filename"\n};
|
||||
print qq{Content-Disposition: attachment; filename=$filename\n} if $usedisposition;
|
||||
print qq{Content-Disposition: inline; filename=$filename\n};
|
||||
print qq{Content-Length: $filesize\n};
|
||||
print qq{\n$thedata};
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user