blob: 86f3b2286a2e480de929178d1862901abc3c7664 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
<%init>
# This autohandler will spit out RT's images if the user hasn't
# properly configured their webserver to stop RT from passing
# images through the mason handler.
my $file = $m->base_comp->source_file;
my $type = "application/octet-stream";
if ($file =~ /\.(gif|png|jpe?g)$/i) {
$type = "image/$1";
$type =~ s/jpg/jpeg/gi;
}
die unless (-f $file && -r $file);
$r->content_type($type);
open (FILE, "<$file") || die;
$m->out($_) while (<FILE>);
close(FILE);
$m->abort;
</%init>
|
