Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Perl
branch: master

Fetching latest commit…

Cannot retrieve the latest commit at this time

Failed to load latest commit information.
lib/Jifty/Plugin
share/po
t
.gitignore
Changes
Makefile.PL
README

README

NAME
    Jifty::Plugin::Comment - Add comments to any record

SYNOPSIS
    Setup the config.yml

      Plugins:
        - Comment:

          # Set this if you want spam checking by Net::Akismet
          Akismet:
            Key: 1234567890a
            Url: http://example.com

          # Set this if you want to customize the HTML scrubbing of comments
          Scrubber:
            message: "Comments may only contain <strong>, <em>, and <a> tags."
            allow:
              - strong
              - em
              - a
            default:
              - 0
              - 
                '*': 0
                href: !!perl/regexp:
                  REGEXP: '^(?!(?:java)?script)'
                  MODIFIERS: i

    Setup a model that has comments:

      package App::Model::Fooble;

      use Jifty::DBI::Schema;
      use App::Record schema {
          column scribble => type is 'text';
          column wobble => type is 'int';
      };

      use Jifty::Plugin::Comment::Mixin::Model::Commented;

      sub allow_owner_update_delete {
          my $self = shift;
          my ($right, %args) = @_;

          if ($right eq 'create') {
              return 'allow' ;#if $self->current_user->id;
          }

          if ($right eq 'update' || $right eq 'delete') {
              return 'allow' if $self->current_user->id;
          }

          if ($right eq 'read') {
              return 'allow';
          }

          return 'deny';
      };

      App::Model::FoobleComment->add_trigger( name => 'before_access', callback => \&allow_owner_update_delete);
      App::Model::Comment->add_trigger( name => 'before_access', callback => \&allow_owner_update_delete);

    Setup a view for creating, viewing, and managing the comments:

      # assuming $fooble here isa App::Action::UpdateFooble object
      template 'fooble/view' => page {
          my $fooble = get 'fooble';

          render_action $fooble, undef, { render_mode => 'read' };

          render_region
              name     => 'fooble-comments',
              path     => '__comment/list_and_add',
              defaults => { 
                  comment_upon  => $fooble->record->for_commenting,
                  initial_title => 'Re: '.substr($fooble->scribble, 0, 20).'...',
              },
              ;
      };

DESCRIPTION
    This plugin allows you to attach comments to any model. You do this
    using the three steps listed in the synopsis. For variations on these
    steps, see the other classes that handle the individual parts.

COMMENTED RECORDS
    To set up a commented model, you will need to do the following:

    1 Add ths plugin to your project by modifying your config.yml.
    1 Add the Jifty::Plugin::Comment::Mixin::Model::Commented mixin to the
    model or models that you want to have comments attached to. See that
    class for details on how it works. You may also want to examine
    Jifty::Plugin::Comment::Model::Comment on how to customize that class
    for your application.
    1 Create a view that appends a comment editor to your edit form (or on a
    separate page or wherever you feel like comments work best in your
    application). You should be able to use these views from either
    Template::Declare or HTML::Mason templates. See
    Jifty::Plugin::Comment::View for additional details on what views are
    available.

METHODS
  init
    Called during initialization. This will setup the Net::Akismet object if
    it is configured and available.

  akismet
    This returns an instance of Net::Akismet that is used to check to see if
    a new comment posted contains spam. No such checking is performed if
    this returns "undef", which indicates that "Net::Akismet" is
    unavailable, wasn't configured, or there was an error configuring it
    (e.g., the Akismet server was unavailable during Jifty startup).

  scrubber
    This returns an instance of HTML::Scrubber that is used to clean up HTML
    submitted in comments.

TO DO
    Right now the module depends directly upon HTML::Scrubber to do the work
    of cleaning up the text. You might want to use something else to do
    this. It also provides no mechanism for customizing any other aspect of
    the formatting. For example, your application might want to use
    Markdown, or BBCode, or just turn line breaks in the BR-tags, or
    anything else to format the comment text.

    In the future, I'd like to consider something like Text::Pipe or a
    similar API to allow these formats to be customized more easily.

SEE ALSO
    Net::Akismet, HTML::Scrubber

AUTHOR
    Andrew Sterling Hanenkamp, "<hanenkamp@cpan.org>"

COPYRIGHT AND LICENSE
    Copyright 2007 Boomer Consulting, Inc. All Rights Reserved.

    This program is free software and may be modified and distributed under
    the same terms as Perl itself.

Something went wrong with that request. Please try again.