Catalyst::Plugin::Static - DEPRECATED - Serve static files with Catalyst

Catalyst-Plugin-Static documentation Contained in the Catalyst-Plugin-Static distribution.

Index

Code Index:

NAME

Top

Catalyst::Plugin::Static - DEPRECATED - Serve static files with Catalyst

SYNOPSIS

Top

    use Catalyst 'Static';

    # let File::MMagic determine the content type
    $c->serve_static;

    # or specify explicitly if you know better
    $c->serve_static('text/css');

DESCRIPTION

Top

Serve static files from config->{root}. You probably want to use use Catalyst::Plugin::Static::Simple rather than this module.

METHODS

finalize

This plugin overrides finalize to make sure content is removed on redirect.

serve_static

Call this method from your action to serve requested path as a static file from your root. takes an optional content_type parameter

serve_static_file <file>

Serve a specified static file.

SEE ALSO

Top

Catalyst.

CAVEATS

Top

This module is not as optimized for static files as a normal web server, and is most useful for stand alone operation and development.

AUTHOR

Top

Sebastian Riedel, sri@cpan.org Christian Hansen <ch@ngmedia.com> Marcus Ramberg <mramberg@cpan.org>

THANK YOU

Top

Torsten Seemann and all the others who've helped.

COPYRIGHT

Top

This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

Catalyst-Plugin-Static documentation Contained in the Catalyst-Plugin-Static distribution. 
package Catalyst::Plugin::Static;

use strict;
use base 'Class::Data::Inheritable';
use File::MimeInfo::Magic;
use File::stat;
use File::Slurp;
use File::Spec::Functions qw/catdir no_upwards splitdir/;
use MRO::Compat;;

our $VERSION = '0.11';



sub finalize {
    my $c = shift;
    if ( $c->res->status =~ /^(1\d\d|[23]04)$/ ) {
        $c->res->headers->remove_content_headers;
        $c->finalize_headers;
    }
    return $c->next::method(@_);

}


sub serve_static {
    my $c    = shift;
    my $r = eval {
    my $path = $c->config->{root} . '/' . $c->req->path;
    $c->serve_static_file( $path, @_ );
    };
    warn("serve_static puked $@") if $@;
    $r;
}


sub serve_static_file {
    my $c    = shift;
    my $path = catdir(no_upwards(splitdir( shift )));

    if ( -f $path ) {

        my $stat = stat($path);

        if ( $c->req->headers->header('If-Modified-Since') ) {

            if ( $c->req->headers->if_modified_since == $stat->mtime ) {
                $c->res->status(304); # Not Modified
                $c->res->headers->remove_content_headers;
                return 1;
            }
        }

        my $type = shift || mimetype($path);
        my $content = read_file($path);
        $c->res->headers->content_type($type);
        $c->res->headers->content_length( $stat->size );
        $c->res->headers->last_modified( $stat->mtime );
        $c->res->output($content);
        if ( $c->config->{static}->{no_logs} && $c->log->can('abort') ) {
           $c->log->abort( 1 );
	}
        $c->log->debug(qq/Serving file "$path" as "$type"/) if $c->debug;
        return 1;
    }

    $c->log->debug(qq/Failed to serve file "$path"/) if $c->debug;
    $c->res->status(404);

    return 0;
}


1;