Lets Get Dugg!

Lets Get Dugg!

October 2008

Kobayashi vs Bear in hot dog eating contest

FileColumn For Catalyst

Release of Typeface 0 dot 7

Happy New Year

Kobayashi vs Bear in hot dog eating contest

FileColumn For Catalyst

Release of Typeface 0 dot 7

Happy New Year

Calendar

Categories

Archives

Links

Syndicate

Meta

Categories

Archives

Links

Syndicate

Meta

Posted by victori

Categories: other

Kobayashi vs Bear in hot dog eating contest's RSS feed

I found this fairly entertaining, definitely worth my 4 minutes of life. For those who don't know Kabayashi is the Japanese gentleman who beats us lard ass Americans at our own game; glutting. This does deliver.

Posted by victori

Categories: web development perl

FileColumn For Catalyst's RSS feed

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

1;

Posted by victori

Categories: web development catalyst perl Typeface

Release of Typeface 0 dot 7's RSS feed [1] comments

Instead of sitting on this any longer, I decided to release Typeface 0.7. Typeface has been updated to utilize the recent Catalyst::Controller::FormBuilder module. I have also included two new ported WordPress themes Chaotic Soul and Connections. Since refactoring the template view, porting WordPress themes is extremely trivial now.

You can find the release at http://typeface-project.org/

-Victor

Posted by victori

Categories: web development other perl Typeface

Happy New Year's RSS feed

Just wanted to wish everyone a happy new year. A new Typeface release is imminent. The new revision has a vastly snappier Dojo backend due to optimization. The Typeface release will include two new extra themes; connections and chaoticsoul.

I have also been working on Catalyst::Controller::FormBuilder::DBIC. This module builds FormBuilder interfaces based off DBIC schemas. It should make developing CRUD applications in Catalyst a snap. The unique thing that makes this stand out from other solutions such as Rails scaffolding or the Django admin backend is that Catalyst::Controller::FormBuilder::DBIC builds a formbuilder object at runtime which can be modified in the controller action before sending it off to the view. This enables you to modify any details on the form before displaying to the user. Since no code is written you don't have to scaffold, rewrite and repeat.

Should look something like this:

October 2008