Noosfero/noosfero

class MailingListPlugin < Noosfero::Plugin
  def self.plugin_name
    _("Mailing List")
  end

  def self.plugin_description
    _("Integrates Noosfero groups with sympa mailing lists through foruns and blogs.")
  end

  def stylesheet?
    true
  end

  def control_panel_entries
    [MailingListPlugin::ControlPanel::OrganizationList, MailingListPlugin::ControlPanel::PersonList]
  end

  def member_added(group, person)
    @environment_settings = Noosfero::Plugin::Settings.new group.environment, MailingListPlugin
    @client = MailingListPlugin::Client.new(@environment_settings)
    @client.subscribe_person_on_group_list(person, group)
  end

  def member_removed(group, person)
    @environment_settings = Noosfero::Plugin::Settings.new group.environment, MailingListPlugin
    @client = MailingListPlugin::Client.new(@environment_settings)
    @client.unsubscribe_person_from_group_list(person, group)
  end

  def article_after_create_callback(article)
    watched_content_creation(article, article.parent)
  end

  def comment_after_create_callback(comment)
    watched_content_creation(comment, comment.article.parent)
  end

  private

    def watched_content_creation(content, parent)
      content_metadata = Noosfero::Plugin::Metadata.new content, self.class
      return if content_metadata.uuid.present?

      if parent.present?
        profile_settings = Noosfero::Plugin::Settings.new parent.profile, self.class
        parent_metadata = Noosfero::Plugin::Metadata.new parent, self.class
        if profile_settings.enabled && parent_metadata.watched
          if content.kind_of?(Comment)
            uuid = content.mailing_list_plugin_uuid
            reference = content.reply_of || content.source
            reference_metadata = Noosfero::Plugin::Metadata.new reference, self.class
            return if reference_metadata.uuid.blank?
          end

          uuid ||= SecureRandom.uuid + "@" + content.environment.default_hostname

          content_metadata.uuid = uuid
          content_metadata.save!

          # Ensure comments created by e-mails sent to the list are not sent once
          # again to the list by Noosfero.
          return if content.kind_of?(Comment) && content.mailing_list_plugin_from_list

          MailingListPlugin::Mailer.reply_email(content).deliver
        end
      end
    end
end