The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Jifty::Plugin::Comment::Notification::CommentNeedsModeration - new comments made, but not published

SYNOPSIS

To activate this notification, you must override the notification in your application.

  use strict;
  use warnings;

  package MyApp::Notification::CommentNeedsModeration;
  use base qw/ Jifty::Plugin::Comment::Notification::CommentNeedsModeration /;

  sub setup {
      my $self = shift;

      # Limit to users that have a "moderator" column set to 1
      my $users = MyApp::Model::UserCollection->new;
      $users->limit( column => 'moderator', value => 1 );
      $self->to_list(@{ $users->items_array_ref });

      $self->SUPER::setup(@_);
  }

  sub url {
      my $self = shift;
      return Jifty->config->framework('Web')->{'BaseURL'}
          . $self->parent->permalink
          . '#comment-'.$self->comment->id;
  }

  1;

DESCRIPTION

This notificaiton (when properly configured) is sent out to any who need to know when a comment has been created, but not published because Net::Akismet has marked it as spam.

METHODS

setup

This method sets up the notification. This method should be overridden to setup "to_list" in Jifty::Notification to select who will receive this message. See the "SYNOPSIS".

comment

This will contain the Jifty::Plugin::Comment::Model::Comment that has been published.

parent

This will contain the object that the comment has been attached to.

url

THis returns the URL that the message will link to. This should be overridden to provide application-specific URLs. The default implementation returns the BaseURL setting for the application.

SEE ALSO

Jifty::Notification, Jifty::Plugin::Comment::Notification::CommentPublished

AUTHOR

Andrew Sterling Hanenkamp, <hanenkamp@cpan.org>

COPYRIGHT AND LICENSE

Copyright 2008 Boomer Consulting, Inc. All Rights Reserved.

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