You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
www_admin/lib/admin/View/Binary.pm

55 lines
777 B

package admin::View::Binary;
use strict;
=head1 NAME
admin::View::Binary - TT View for binary data
=head1 DESCRIPTION
Binary View for admin. It will output binary data with the corresponding
content-type header set.
=cut
sub new {
return bless {}, shift;
}
sub process {
my ( $self, $c ) = @_;
$c->response->content_type($c->stash->{content_type});
$c->response->body($c->stash->{content});
return 1;
}
=head1 BUGS AND LIMITATIONS
=over
=item none I know.
=back
=head1 SEE ALSO
Catalyst, admin
=head1 AUTHORS
Daniel Tiefnig <dtiefnig@sipwise.com>
=head1 COPYRIGHT
The Binary view is Copyright (c) 2007-2010 Sipwise GmbH, Austria. You
should have received a copy of the licences terms together with the
software.
=cut
# over and out
1;