package IIc4465d99e56b7bc627a7b42ab7169f3a::Image; use strict; use base qw /II720d6e18aa34327713eb014408fc9144/; use Zen; use IIc4465d99e56b7bc627a7b42ab7169f3a::MIME; sub process { my $class = shift; my ($controller, $request, $file) = @_; my $data = Zen->engineFileContent("image/$file"); if (defined $data) { my ($ext) = $file =~ /\.(\w+)$/; die "unknown extension [$ext]" unless $MIME{$ext}; print "Content-type: $MIME{$ext}\n\n"; binmode STDOUT; print $data; } else { $request->bluescreen('url'); } } 1; 