Parley

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - added config options to use quote_char and name_sep in DB calls
    - updated order_by params in searches to work with quote_char
    - removed config block in Model::ParleyDB (it comes from parley.conf, and
      this saves confusion)
    - fixed CSS list (ol, ul) item display issue

1.0.0   Mon Oct  6 19:08:22 BST 2008
    - upgrade to YUI 2.5.1
    - moved README.* into doc/
    - added parley.sites-enabled
    - switched from Graphics::Magick to Image::Magick
    - resolved some bugs and errors when deploying from scratch
    - added more comprehensive instructions for getting started
    - updated to new Authentication and Authorization modules
    - added recent i18n translations (.it and .nl)
    - extended ::ForumCode to work with bbcode/explosm [URL] and [IMG] syntax


After knackering up the version numbers towards the end of 0.59
I've taken the bold step of declaring the next release v1.0.0

META.yml  view on Meta::CPAN

  Catalyst::View::TT: 0.27
  Config::General: 2.37
  Data::FormValidator: 4.50
  Data::SpreadPagination: 0.1.2
  Date::Manip: 5.54
  DateTime: 0.41
  DateTime::Format::Pg: 0.16001
  DateTime::TimeZone: 0.70
  Email::Valid: 0.179
  HTML::FillInForm: 1.07
  Image::Magick: 0
  Image::Size: 3.1
  JSON: 2.04
  List::MoreUtils: 0.21
  MIME::Lite: 3.020
  Net::IP::Match::Regexp: 1.00
  Perl6::Export::Attrs: 0.0.3
  Proc::Daemon: 0.03
  Proc::PID::File: 1.2.4
  Readonly: 0
  Template::Plugin::ForumCode: 0.0.5

Makefile.PL  view on Meta::CPAN

    'Catalyst::View::TT'                                        => '0.27',
    'Catalyst::View::JSON'                                      => '0.24',
    'Config::General'                                           => '2.37',
    'Data::FormValidator'                                       => '4.50',
    'Data::SpreadPagination'                                    => '0.1.2',
    'Date::Manip'                                               => '5.54',
    'DateTime'                                                  => '0.41',
    'DateTime::Format::Pg'                                      => '0.16001',
    'DateTime::TimeZone'                                        => '0.70',
    'Email::Valid'                                              => '0.179',
    'Image::Magick'                                             => 0,
    'HTML::FillInForm'                                          => '1.07',
    'Image::Size'                                               => '3.1',
    'JSON'                                                      => '2.04',
    'List::MoreUtils'                                           => '0.21',
    'MIME::Lite'                                                => '3.020',
    'Net::IP::Match::Regexp'                                    => '1.00',
    'Perl6::Export::Attrs'                                      => '0.0.3',
    'Proc::Daemon'                                              => '0.03',
    'Proc::PID::File'                                           => '1.2.4',
    'Readonly'                                                  => 0,

lib/Parley/Controller/My.pm  view on Meta::CPAN

package Parley::Controller::My;
use strict;
use warnings;

use Parley::Version;  our $VERSION = $Parley::VERSION;
use base 'Catalyst::Controller';

use Image::Magick;
use JSON;
use Image::Size qw( html_imgsize imgsize );

use Parley::App::Error qw( :methods );

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Global class data
# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

my %dfv_profile_for = (

lib/Parley/Controller/My.pm  view on Meta::CPAN

    my ($file, $destdir) = @_;
    my $options = {
        'width'  => 100,
        'height' => 150,
    };

    # get the image dimensions
    my ($width, $height) = imgsize($file);

    # create a new image mangling object
    my $img = Image::Magick->new()
        or die $!;

    # read in the image file
    $img->Read($file);

    if ($width > $options->{width} or $height > $options->{height}) {
        # scale the longest side - if it's square, scale by height
        if ($width > $height) {
            # scale down by width
            #warn('# scale down by width');