FileColumn For Catalyst

Unlike most people I came to Catalyst from the Rails camp. I miss a few things namely, file_column for mapping file uploads to the filesystem.
Thankfully writing DBIC components is fairly trivial. I wrote this in a few minutes so consider this a hack. This component makes your DBIC class dependent on Catalyst since it uses a reference from the Catalyst upload context.

I hope to improve upon this and add thumbnail support for images. For now this will do.

package DBIx::Class::FileColumn;

use strict;
use warnings;
use base 'DBIx::Class';
use File::Path;
use Path::Class;

__PACKAGE__->mk_classdata('store_where');
__PACKAGE__->mk_classdata( 'db_file_columns' => [] );

sub file_column_store {
    my ( $self, $store_where ) = @_;
    $self->store_where($store_where);
    return $self->store_where;
}

sub file_columns {
    my $self = shift;

# for (@_) {
#     $self->throw_exception("column $_ doesn't exist") unless $self->has_column($_);
# }
    $self->db_file_columns( \@_ );
}

sub insert {
    my ( $self, @rest ) = @_;

my @file;
    for ( @{ $self->db_file_columns } ) {
        push @file, $self->$_;
        $self->$_( $self->$_->filename );
    }

my $ret = $self->next::method(@rest);

my $file_path = dir( $self->store_where, $ret->id );
    mkpath [$file_path];
    for (@file) {
        $_->copy_to( $file_path . "/" . $_->filename );
    }
    return $ret;
}

sub delete {
    my ( $self, @rest ) = @_;

my $path = dir( $self->store_where, $self->id );

my $ret = $self->next::method(@rest);

rmtree( [$path], 0, 0 );
    return $ret;
}

=head1 NAME

DBIx::Class::FileColumn - FileColumn map Catalyst uploads from Database to the filesystem.

=head1 DESCRIPTION

FileColumn

=head1 SYNOPSIS

In your L<DBIx::Class> table class:

__PACKAGE__->load_components( "PK::Auto", "FileColumn", "Core" );
    __PACKAGE__->file_column_store(MyApp->config->{home} . '/root/static/files');
    __PACKAGE__->file_columns(qw/filename/);

In your L<Catalyst::Controller> class:

my $entry = $c->model('MyAppDB::Articles')->create({ 
        subject => 'blah',
        filename => $c->req->upload('myupload'),
        body => '....'
    });
    
Thats it, all there is to it, The file will be stored on the filesystem for later retrieval.
Calling delete on your resultset will delete the file from the filesystem.

=head1 AUTHOR

Victor Igumnov

=head1 LICENSE

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

=cut

Name
Email
Website
Body
Verification

May 2008
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30	31

Lets Get Dugg!

FileColumn For Catalyst

Leave a Reply

Calendar

May 2008

Categories

Categories

Archives

Archives

Links

Links

Syndicate

Syndicate

Meta

Meta