refinerycms-mailchimp 0.0.1

data/app/controllers/admin/campaigns_controller.rb

@@ -0,0 +1,80 @@
+class Admin::CampaignsController < Admin::BaseController
+  
+  crudify :campaign, :order => "updated_at desc", :sortable => false, :title_attribute => :subject
+  
+  rescue_from Refinery::Mailchimp::API::BadAPIKeyError, :with => :need_api_key
+  rescue_from Hominid::APIError, :with => :need_api_key
+  
+  before_filter :get_mailchimp_assets, :except => :index
+  before_filter :find_campaign, :except => [:index, :new, :create]
+  
+  def new
+    @campaign = Campaign.new :to_name => RefinerySetting.get_or_set(Refinery::Mailchimp::API::DefaultToNameSetting[:name], Refinery::Mailchimp::API::DefaultToNameSetting[:default]),
+                             :from_name => RefinerySetting.get_or_set(Refinery::Mailchimp::API::DefaultFromNameSetting[:name], Refinery::Mailchimp::API::DefaultFromNameSetting[:default]),
+                             :from_email => RefinerySetting.get_or_set(Refinery::Mailchimp::API::DefaultFromEmailSetting[:name], Refinery::Mailchimp::API::DefaultFromEmailSetting[:default])
+  end
+
+  def send_options
+  end
+
+  def send_test
+    if @campaign.send_test_to params[:email]
+      flash[:notice] = t('admin.campaigns.campaign.send_test_success', :email => params[:email])
+    else
+      flash[:alert] = t('admin.campaigns.campaign.send_test_failure', :email => params[:email])
+    end
+    sending_redirect_to admin_campaigns_path
+  end
+  
+  def send_now
+    if @campaign.send_now
+      flash[:notice] = t('admin.campaigns.campaign.send_now_success')
+    else
+      flash[:alert] = t('admin.campaigns.campaign.send_now_failure')
+    end
+    sending_redirect_to admin_campaigns_path
+  end
+  
+  def schedule
+    if @campaign.schedule_for DateTime.new(*params['date'].values_at('year','month','day','hour','minute').map{|x|x.to_i})
+      flash[:notice] = t('admin.campaigns.campaign.schedule_success')
+    else
+      flash[:alert] = t('admin.campaigns.campaign.schedule_failure')
+    end
+    sending_redirect_to admin_campaigns_path
+  end
+  
+  def unschedule
+    if @campaign.unschedule
+      flash[:notice] = t('admin.campaigns.campaign.unschedule_success')
+    else
+      flash[:alert] = t('admin.campaigns.campaign.unschedule_failure')
+    end
+    sending_redirect_to admin_campaigns_path
+  end
+
+protected
+  def sending_redirect_to(path)
+    if from_dialog?
+      render :text => "<script>parent.window.location = '#{path}';</script>"
+    else
+      redirect_to path
+    end
+  end
+
+  def need_api_key
+    msg = t('admin.campaigns.index.set_api_key')
+    msg += " <a href=\"#{edit_admin_refinery_setting_path(RefinerySetting.find_by_name(Refinery::Mailchimp::API::KeySetting[:name]))}\" style=\"display:inline\">#{t('admin.campaigns.index.set_api_link')}</a>"
+    flash[:alert] = msg.html_safe
+    redirect_to admin_campaigns_path
+  end
+  
+  def get_mailchimp_assets
+    @lists = client.lists['data']
+    @templates = client.templates['user']
+  end
+  
+  def client
+    @client ||= Refinery::Mailchimp::API.new
+  end
+end

data/app/models/campaign.rb

@@ -0,0 +1,105 @@
+class Campaign < ActiveRecord::Base
+
+  acts_as_indexed :fields => [:subject, :body]
+  
+  validates_presence_of :subject, :body, :mailchimp_list_id, :from_email, :from_name, :to_name
+  
+  before_save :update_mailchimp_campaign
+  before_create :create_mailchimp_campaign
+  before_destroy :delete_mailchimp_campaign
+  
+  def sent?
+    !!sent_at || !!scheduled_at && scheduled_at <= Time.now
+  end
+  
+  def scheduled?
+    !!scheduled_at && scheduled_at > Time.now
+  end
+  
+  def sent
+    sent_at || scheduled_at
+  end
+  
+  def send_test_to(*emails)
+    Refinery::Mailchimp::API.new.campaign_send_test mailchimp_campaign_id, emails
+  rescue Hominid::APIError
+    false
+  end
+  
+  def send_now
+    success = Refinery::Mailchimp::API.new.campaign_send_now mailchimp_campaign_id
+    self.update_attribute :sent_at, Time.now if success
+    success
+  rescue Hominid::APIError
+    false
+  end
+  
+  def schedule_for(datetime)
+    success = Refinery::Mailchimp::API.new.campaign_schedule mailchimp_campaign_id, datetime.utc.strftime("%Y-%m-%d %H:%M:%S")
+    self.update_attribute :scheduled_at, datetime if success
+    success
+  rescue Hominid::APIError
+    false
+  end
+  
+  def unschedule
+    success = Refinery::Mailchimp::API.new.campaign_unschedule mailchimp_campaign_id
+    self.update_attribute :scheduled_at, nil if success
+    success
+  rescue Hominid::APIError
+    false
+  end
+  
+  def google_analytics
+    RefinerySetting.find_or_set Refinery::Mailchimp::API::GoogleAnalyticsSetting[:name], Refinery::Mailchimp::API::GoogleAnalyticsSetting[:default]
+  end
+  
+protected
+
+  def create_mailchimp_campaign
+    options = { :subject => subject, :from_email => from_email, :from_name => from_name, :to_name => to_name, :list_id => mailchimp_list_id, :auto_tweet => auto_tweet }
+    options[:template_id] = mailchimp_template_id unless mailchimp_template_id.blank?
+    # options[:analytics] = { :google => google_analytics } unless google_analytics.blank?
+    
+    self.mailchimp_campaign_id = begin
+      Refinery::Mailchimp::API.new.campaign_create 'regular', options, { content_key => body }
+    rescue Hominid::APIError
+      nil
+    end
+
+    return halt_with_mailchimp_error if self.mailchimp_campaign_id.blank?
+  end
+  
+  def update_mailchimp_campaign
+    return if new_record?
+    
+    client = Refinery::Mailchimp::API.new
+    
+    options = {:title => :subject, :from_email => :from_email, :from_name => :from_name, :to_name => :to_name, :list_id => :mailchimp_list_id, :template_id => :mailchimp_template_id, :content => :body, :auto_tweet => :auto_tweet }
+    options.each_pair do |option_name, attribute|
+      if changed.include?(attribute.to_s)
+        success = client.campaign_update mailchimp_campaign_id, option_name, (option_name == :content ? { content_key => body } : self.send(attribute))
+        return halt_with_mailchimp_error unless success
+      end
+    end
+  end
+  
+  def delete_mailchimp_campaign
+    success = begin
+      Refinery::Mailchimp::API.new.campaign_delete mailchimp_campaign_id
+    rescue Hominid::APIError
+      nil
+    end
+    
+    return halt_with_mailchimp_error unless success
+  end
+
+  def halt_with_mailchimp_error
+    self.errors.add :base, I18n.t('admin.campaigns.campaign.mailchimp_error')
+    return false
+  end
+  
+  def content_key
+    mailchimp_template_id.blank? ? :html : :html_MAIN
+  end
+end

data/app/views/admin/campaigns/_campaign.html.erb

@@ -0,0 +1,22 @@
+<li class='clearfix record <%= cycle("on", "on-hover") %>' id="<%= dom_id(campaign) -%>">
+  <span class='subject'>
+    <%= campaign.subject %>
+    
+    <% if campaign.sent? %>
+      <span class="preview" title="<%= campaign.sent %>">sent <%= distance_of_time_in_words_to_now(campaign.sent) %> ago</span>
+    <% elsif campaign.scheduled? %>
+      <span class="preview" title="<%= campaign.scheduled_at %>">sending in <%= distance_of_time_in_words_to_now(campaign.scheduled_at) %></span>
+    <% end %>
+  </span>
+  <span class='actions'>
+    <%= link_to refinery_icon_tag("application_edit.png"), edit_admin_campaign_path(campaign),
+         :subject => t('.edit') %>
+    <%= link_to refinery_icon_tag("email_go.png"), send_options_admin_campaign_path(campaign, :dialog => true, :width => 725, :height => 525),
+        :title => t('send_dialog', :scope => 'admin.campaigns.campaign') %>
+    <%= link_to refinery_icon_tag("delete.png"), admin_campaign_path(campaign),
+        :class => "cancel confirm-delete",
+        :subject => t('.delete'),
+        :'data-confirm' => t('admin.campaigns.campaign.delete_confirmation', :subject => campaign.subject),
+        :'data-method' => :delete %>
+  </span>
+</li>

data/app/views/admin/campaigns/_form.html.erb

@@ -0,0 +1,85 @@
+<% form_for [:admin, @campaign] do |f| -%>
+  <%= render :partial => "/shared/admin/error_messages", :locals => {
+    :object => @campaign,
+    :include_object_name => true
+  } %>
+  
+  <div class='field'>
+    <span class='label_with_help'>
+      <%= f.label :subject -%>
+      <%= refinery_help_tag t('.subject_help') %>
+    </span>
+    <%= f.text_field :subject, :class => 'larger widest' -%>
+  </div>
+  
+  <div class='field'>
+    <%= f.label :body -%>
+    <%= f.text_area :body, :rows => 20, :class => 'wymeditor widest' -%>
+  </div>
+
+  <div class="hemisquare">
+    <h2><%= t('.to_and_from') %></h2>
+    
+    <div class='field'>
+      <span class='label_with_help'>
+        <%= f.label :to_name, t('.to_name') -%>
+        <%= refinery_help_tag t('.to_name_help') %>
+      </span>
+      <%= f.text_field :to_name %>
+    </div>
+    
+    <div class='field'>
+      <span class='label_with_help'>
+        <%= f.label :from_name, t('.from_name') -%>
+        <%= refinery_help_tag t('.from_name_help') %>
+      </span>
+      <%= f.text_field :from_name %>
+    </div>
+    
+    <div class='field'>
+      <span class='label_with_help'>
+        <%= f.label :from_email, t('.from_email') -%>
+        <%= refinery_help_tag t('.from_email_help') %>
+      </span>
+      <%= f.text_field :from_email %>
+    </div>
+  </div>
+
+  <div class="hemisquare right_side">
+    <h2><%= t('.settings') %></h2>
+    
+    <div class='field'>
+      <span class='label_with_help'>
+        <%= f.label :mailchimp_list_id, t('.mailchimp_list_id') -%>
+        <%= refinery_help_tag t('.mailchimp_list_id_help') %>
+      </span>
+      <%= f.select :mailchimp_list_id, @lists.collect{ |list| [list['name'], list['id']] } %>
+    </div>
+    
+    <div class='field'>
+      <span class='label_with_help'>
+        <%= f.label :mailchimp_template_id, t('.mailchimp_template_id') -%>
+        <%= refinery_help_tag t('.mailchimp_template_id_help') %>
+      </span>
+      <%= f.select :mailchimp_template_id, @templates.collect{ |template| [template['name'], template['id']] }, :include_blank => true %>
+    </div>
+    
+    <div class='field'>
+      <span class='label_with_help'>
+        <%= f.label :auto_tweet, t('.auto_tweet') -%>
+        <%= refinery_help_tag t('.auto_tweet_help') %>
+      </span>
+      <%= f.check_box :auto_tweet %>
+    </div>
+  </div>
+  
+  <div class="clearfix"></div>
+
+  <%= render :partial => "/shared/admin/form_actions",
+              :locals => {
+                :f => f,
+                :continue_editing => false,
+                :delete_subject => t('admin.campaigns.campaign.delete'),
+                :delete_confirmation => t('admin.campaigns.campaign.delete_confirmation', :subject => @campaign.subject)
+              } %>
+<% end -%>

data/app/views/admin/campaigns/_modal_fields.html.erb

@@ -0,0 +1,4 @@
+<% if from_dialog? %>
+  <input type='hidden' name='modal' value='true' />
+  <input type='hidden' name='dialog' value='true' />
+<% end %>

data/app/views/admin/campaigns/_sortable_list.html.erb

@@ -0,0 +1,4 @@
+<ul id='sortable_list'>
+  <%= render :partial => 'campaign', :collection => @campaigns %>
+</ul>
+<%= render :partial => "/shared/admin/sortable_list", :locals => {:continue_reordering => (defined?(continue_reordering) ? continue_reordering : true)} %>

data/app/views/admin/campaigns/edit.html.erb

@@ -0,0 +1 @@
+<%= render :partial => "form" %>

data/app/views/admin/campaigns/index.html.erb

@@ -0,0 +1,49 @@
+<div id='actions'>
+  <ul>
+    <% if Admin::CampaignsController.searchable? %>
+      <li>
+        <%= render :partial => "/shared/admin/search",
+                    :locals => {
+                      :url => admin_campaigns_url
+                    } %>
+      </li>
+    <% end %>
+    <li>
+      <%= link_to t('.create_new'), new_admin_campaign_url,
+                   :class => "add_icon" %>
+    </li>
+  </ul>
+</div>
+<div id='records'>
+  <% if searching? %>
+    <h2><%= t('shared.admin.search.results_for', :query => params[:search]) %></h2>
+    <% if @campaigns.any? %>
+      <%= will_paginate @campaigns, :previous_label => '&laquo;', :next_label => '&raquo;' %>
+      <ul>
+        <%= render :partial => "campaign",
+                    :collection => @campaigns %>
+      </ul>
+      <%= will_paginate @campaigns, :previous_label => '&laquo;', :next_label => '&raquo;' %>
+    <% else %>
+      <p><%= t('shared.admin.search.no_results') %></p>
+    <% end %>
+  <% else %>
+    <% if @campaigns.any? %>
+      <%= will_paginate @campaigns,
+                         :previous_label => '&laquo;',
+                         :next_label => '&raquo;' %>
+
+      <%= render :partial => "sortable_list" %>
+
+      <%= will_paginate @campaigns,
+                         :previous_label => '&laquo;',
+                         :next_label => '&raquo;' %>
+    <% else %>
+      <p>
+        <strong>
+          <%= t('.no_items_yet') %>
+        </strong>
+      </p>
+    <% end %>
+  <% end %>
+</div>

data/app/views/admin/campaigns/new.html.erb

@@ -0,0 +1 @@
+<%= render :partial => "form" %>

data/app/views/admin/campaigns/send_options.html.erb

@@ -0,0 +1,40 @@
+<% if @campaign.sent? %>
+  <h2>Sent</h2>
+  <p>
+    This campaign was sent <strong title="<%= @campaign.sent_at %>"><%= distance_of_time_in_words_to_now(@campaign.sent_at) %> ago</strong>.
+  </p>
+<% elsif @campaign.scheduled? %>
+  <h2>Scheduled</h2>
+  <p>
+    This campaign is scheduled to be sent in <strong title="<%= @campaign.scheduled_at %>"><%= distance_of_time_in_words_to_now(@campaign.scheduled_at) %></strong>.
+  </p>
+  <%= form_tag unschedule_admin_campaign_path(@campaign) do -%>
+    <%= render :partial => "modal_fields" %>
+    <%= submit_tag "Unschedule Campaign"%>
+  <% end %>
+<% else %>
+  <h2>Send Test Email</h2>
+  <p>This will send a test email to the email address you enter below.</p>
+  <%= form_tag send_test_admin_campaign_path(@campaign) do -%>
+    <%= render :partial => "modal_fields" %>
+    <%= label_tag :email %>
+    <%= text_field_tag :email, current_user.email %>
+    <%= submit_tag "Send Test" %>
+  <% end %>
+  
+  <h2>Send Campaign Now</h2>
+  <p>This will send the campaign.</p>
+  <%= form_tag send_now_admin_campaign_path(@campaign) do -%>
+    <%= render :partial => "modal_fields" %>
+    <%= submit_tag "Send Now"%>
+  <% end %>
+  
+  <h2>Schedule Campaign for Later</h2>
+  <p>This will schedule the campaign to be sent automatically at a future date.</p>
+  <%= form_tag schedule_admin_campaign_path(@campaign) do -%>
+    <%= render :partial => "modal_fields" %>
+    <%= label_tag :send_at %>
+    <%= select_datetime %>
+    <%= submit_tag "Schedule Campaign"%>
+  <% end %>
+<% end %>

data/config/locales/en.yml

@@ -0,0 +1,60 @@
+en:
+  shared:
+    admin:
+      image_picker:
+        image: image
+  plugins:
+    campaigns:
+      title: Campaigns
+  admin:
+    refinery_settings:
+      form:
+        help:
+          mailchimp_api_key: "Get your API key from your Mailchimp dashboard by choosing 'Account' and then 'API Keys & Info.'"
+          mailchimp_default_to_name: "The default To: name recipients will see (not email address). This can be changed for each campaign."
+          mailchimp_default_from_name: "The default From: name for your campaign message (not an email address). This can be changed for each campaign."
+          mailchimp_default_from_email: "The default From: email address for your campaign message. This can be changed for each campaign."
+          mailchimp_admin_base_url: The base URL of your Mailchimp admin area. This is used to generate links to your campaigns for convenience. Only change it if you know what you're doing.
+    campaigns:
+      index:
+        create_new: Create a new Campaign
+        reorder: Reorder Campaigns
+        reorder_done: Done Reordering Campaigns
+        sorry_no_results: Sorry! There are no results found.
+        no_items_yet: There are no Campaigns yet. Click "Create a new Campaign" to add your first campaign.
+        set_api_key: You must set a valid Mailchimp API key.
+        set_api_link: Click here to update your key.
+      campaign:
+        view_live: View this campaign live <br/><em>(opens in a new window)</em>
+        edit: Edit this campaign
+        delete: Remove this campaign forever
+        delete_confirmation: "Are you sure you want to remove '%{subject}'?"
+        mailchimp_error: "Could not save to Mailchimp! Please make sure your API key is right and that you are using a good 'From' email address."
+        send_dialog: "Send, schedule, or test this campaign"
+        send_test_success: Test email successfully sent to %{email}.
+        send_test_failure: Test email could not be sent to %{email}. Please check the email address.
+        send_now_success: The campaign was successfully sent!
+        send_now_failure: The campaign could not be sent. Please check in Mailchimp to make sure everything is ok.
+        schedule_success: The campaign was successfully scheduled.
+        schedule_failure: The campaign could not be scheduled. Please check in Mailchimp to make sure everything is ok.
+        unschedule_success: The campaign was successfully unscheduled.
+        unschedule_failure: The campaign could not be unscheduled. Please check in Mailchimp to make sure everything is ok.
+      form:
+        to_and_from: To and From
+        settings: Settings
+        subject_help: The subject line that will be used for the campaign emails.
+        mailchimp_list_id: Mailing List
+        mailchimp_list_id_help: The mailing list to send this campaign to. These are managed in Mailchimp.
+        mailchimp_template_id: Template
+        mailchimp_template_id_help: The HTML template to use for this campaign. These are managed in Mailchimp.
+        to_name: To Name
+        to_name_help: "The To: name recipients will see (not email address). You can change the default in Settings."
+        from_name: From Name
+        from_name_help: "The From: name for your campaign message (not an email address). You can change the default in Settings."
+        from_email: From Email
+        from_email_help: "The From: email address for your campaign message. You can change the default in Settings."
+        auto_tweet: Auto Tweet
+        auto_tweet_help: Automatically tweet about this campaign when sent. Requires setting up Twitter from Mailchimp.
+  campaigns:
+    show:
+      other: Other Campaigns

data/config/locales/nb.yml

@@ -0,0 +1,19 @@
+nb:
+  plugins:
+    refinerycms_mailchimp:
+      title: Campaigns
+  admin:
+    campaigns:
+      index:
+        create_new: Lag en ny Campaign
+        reorder: Endre rekkefølgen på Campaigns
+        reorder_done: Ferdig å endre rekkefølgen Campaigns
+        sorry_no_results: Beklager! Vi fant ikke noen resultater.
+        no_items_yet: Det er ingen Campaigns enda. Klikk på "Lag en ny Campaign" for å legge til din første campaign.
+      campaign:
+        view_live: Vis hvordan denne campaign ser ut offentlig <br/><em>(åpner i et nytt vindu)</em>
+        edit: Rediger denne campaign
+        delete: Fjern denne campaign permanent
+  campaigns:
+    show:
+      other: Andre Campaigns

data/config/locales/nl.yml

@@ -0,0 +1,19 @@
+nl:
+  plugins:
+    refinerycms_mailchimp:
+      title: Campaigns
+  admin:
+    campaigns:
+      index:
+        create_new: Maak een nieuwe Campaign
+        reorder: Wijzig de volgorde van de Campaigns
+        reorder_done: Klaar met het wijzingen van de volgorde van de Campaigns
+        sorry_no_results: Helaas! Er zijn geen resultaten gevonden.
+        no_items_yet: Er zijn nog geen Campaigns. Druk op 'Maak een nieuwe Campaign' om de eerste aan te maken.
+      campaign:
+        view_live: Bekijk deze campaign op de website <br/><em>(opent een nieuw venster)</em>
+        edit: Bewerk deze campaign
+        delete: Verwijder deze campaign voor eeuwig
+  campaigns:
+    show:
+      other: Andere Campaigns

data/config/routes.rb

@@ -0,0 +1,13 @@
+Refinery::Application.routes.draw do
+  scope(:path => 'refinery', :as => 'admin', :module => 'admin') do
+    resources :campaigns do
+      member do
+        get :send_options
+        post :send_test
+        post :send_now
+        post :schedule
+        post :unschedule
+      end
+    end
+  end
+end

data/db/migrate/1_create_campaigns.rb

@@ -0,0 +1,25 @@
+class CreateCampaigns < ActiveRecord::Migration
+  
+  def self.up
+    create_table :campaigns do |t|
+      t.string :subject, :mailchimp_campaign_id, :mailchimp_list_id, :mailchimp_template_id, :from_email, :from_name, :to_name
+      t.text :body
+      t.datetime :sent_at, :scheduled_at
+      t.boolean :auto_tweet, :default => false
+      t.timestamps
+    end
+
+    add_index :campaigns, :id
+
+    load(Rails.root.join('db', 'seeds', 'campaigns.rb'))
+  end
+
+  def self.down
+    UserPlugin.destroy_all({:name => "Campaigns"})
+
+    Page.delete_all({:link_url => "/campaigns"})
+
+    drop_table :campaigns
+  end
+
+end

data/db/seeds/campaigns.rb

@@ -0,0 +1,10 @@
+User.find(:all).each do |user|
+  user.plugins.create(:name => "campaigns",
+                      :position => (user.plugins.maximum(:position) || -1) +1)
+end
+
+RefinerySetting.create :name => Refinery::Mailchimp::API::KeySetting[:name],              :value => Refinery::Mailchimp::API::KeySetting[:default],              :restricted => true
+RefinerySetting.create :name => Refinery::Mailchimp::API::DefaultFromNameSetting[:name],  :value => Refinery::Mailchimp::API::DefaultFromNameSetting[:default],  :restricted => true
+RefinerySetting.create :name => Refinery::Mailchimp::API::DefaultFromEmailSetting[:name], :value => Refinery::Mailchimp::API::DefaultFromEmailSetting[:default], :restricted => true
+RefinerySetting.create :name => Refinery::Mailchimp::API::DefaultToNameSetting[:name],    :value => Refinery::Mailchimp::API::DefaultToNameSetting[:default],    :restricted => true
+

data/features/campaigns.feature_brainstorm

@@ -0,0 +1,15 @@
+@campaign
+Feature: Campaigns
+  Campaigns can be created through the given user model
+  current_user is assumed through admin screens
+  
+  Scenario: Saving a campaign is successful
+    Given I am a logged in refinery user
+    
+    When I am on the new campaign form
+    And I fill in "Subject" with "This is my campaign"
+    And I fill in "Body" with "And I love it"
+    And I press "Save"
+    
+    Then there should be 1 campaign
+    And the campaign should belong to me

data/features/support/factories/campaigns.rb

@@ -0,0 +1,8 @@
+Factory.define(:campaign) do |f|
+  f.sequence(:subject) { |n| "See our #{n} newest site additions!" }
+  f.body "Here's a campaign body!"
+  f.to_name "Jimmy"
+  f.from_name "Johnny"
+  f.from_email "Johnson"
+  f.mailchimp_list_id "ah23jxj"
+end

data/features/support/paths.rb

@@ -0,0 +1,24 @@
+module NavigationHelpers
+  module Refinery
+    module Mailchimp
+      def path_to(page_name)
+        case page_name
+        when /the list of campaigns/
+          admin_campaigns_path
+        when /the new campaigns? form/
+          new_admin_campaign_path
+        else
+          begin
+            if page_name =~ /the campaign subjectd "?([^\"]*)"?/ and (page = Campaign.find_by_subject($1)).present?
+              self.url_for(page.url)
+            else
+              nil
+            end
+          rescue
+            nil
+          end
+        end
+      end
+    end
+  end
+end

data/lib/generators/refinerycms_mailchimp_generator.rb

@@ -0,0 +1,8 @@
+require 'refinery/generators'
+
+class RefinerycmsMailchimp < Refinery::Generators::EngineInstaller
+
+  source_root File.expand_path('../../../', __FILE__)
+  engine_name "refinerycms-mailchimp"
+
+end

data/lib/refinerycms-mailchimp.rb

@@ -0,0 +1,39 @@
+require 'refinery'
+require 'hominid'
+
+module Refinery
+  module Mailchimp
+    class Engine < Rails::Engine
+      initializer "static assets" do |app|
+        app.middleware.insert_after ::ActionDispatch::Static, ::ActionDispatch::Static, "#{root}/public"
+      end
+
+      config.after_initialize do
+        Refinery::Plugin.register do |plugin|
+          plugin.name = "campaigns"
+          plugin.activity = {:class => Campaign,}
+        end
+      end
+    end
+    
+    class API < Hominid::API
+      KeySetting = { :name => "mailchimp_api_key", :default => "Set me!" }
+      DefaultFromNameSetting = { :name => "mailchimp_default_from_name", :default => "" }
+      DefaultFromEmailSetting = { :name => "mailchimp_default_from_email", :default => "" }
+      DefaultToNameSetting = { :name => "mailchimp_default_to_name", :default => "" }
+      
+      class BadAPIKeyError < StandardError; end
+      
+      def initialize
+        api_key = RefinerySetting.get_or_set KeySetting[:name], KeySetting[:default]
+        raise BadAPIKeyError if api_key.blank? || api_key == KeySetting[:default]
+        
+        begin
+          super api_key
+        rescue ArgumentError
+          raise BadAPIKeyError
+        end
+      end
+    end
+  end
+end

data/lib/tasks/mailchimp.rake

@@ -0,0 +1,13 @@
+namespace :refinery do
+  
+  namespace :mailchimp do
+    
+    # call this task my running: rake refinery:campaigns:my_task
+    # desc "Description of my task below"
+    # task :my_task => :environment do
+    #   # add your logic here
+    # end
+  
+  end
+  
+end

data/spec/controllers/admin/campaigns_controller_spec.rb

@@ -0,0 +1,19 @@
+require 'spec_helper'
+Dir[File.expand_path('../../../../features/support/factories/*.rb', __FILE__)].each{|factory| require factory}
+
+describe Admin::CampaignsController do
+  describe "getting lists and templates" do
+    it "should get lists and templates on new"
+    it "should get lists and templates on create"
+  end
+  
+  describe "creating a campaign" do
+    it "should redirect to index with flash message if API is not set up"
+  end
+  
+  describe "sending the campaign" do
+    it "should send a test email"
+    it "should send the campaign now"
+    it "should schedule the campaign to send in the future"
+  end
+end

data/spec/models/api_spec.rb

@@ -0,0 +1,35 @@
+require 'spec_helper'
+require 'hominid'
+
+Dir[File.expand_path('../../../features/support/factories/*.rb', __FILE__)].each{|factory| require factory}
+
+describe Refinery::Mailchimp::API do
+  describe "the client" do
+    before do      
+      RefinerySetting.find_by_name(Refinery::Mailchimp::API::KeySetting[:name]).try :destroy
+      RefinerySetting.rewrite_cache
+    end
+    
+    it "should give a properly setup client if the API key is set" do
+      RefinerySetting.set Refinery::Mailchimp::API::KeySetting[:name], 'abcdefg-us1'
+      Refinery::Mailchimp::API.new
+    end
+    
+    it "should raise an error if the API key is not set" do
+      begin
+        client = Refinery::Mailchimp::API.new
+        fail
+      rescue Refinery::Mailchimp::API::BadAPIKeyError
+      end
+    end
+    
+    it "should raise an error if the API key is malformed" do
+      begin
+        RefinerySetting.set Refinery::Mailchimp::API::KeySetting[:name], 'abcdefg'
+        client = Refinery::Mailchimp::API.new
+        fail
+      rescue Refinery::Mailchimp::API::BadAPIKeyError
+      end
+    end
+  end
+end

data/spec/models/campaign_spec.rb

@@ -0,0 +1,43 @@
+require 'spec_helper'
+Dir[File.expand_path('../../../features/support/factories/*.rb', __FILE__)].each{|factory| require factory}
+
+describe Campaign do
+  describe "validations" do
+    it "should be valid with valid attributes" do
+      Factory.build(:campaign).should be_valid
+    end
+
+    it "requires subject" do
+      Factory.build(:campaign, :subject => "").should_not be_valid
+    end
+    
+    it "requires a body" do
+      Factory.build(:campaign, :body => "").should_not be_valid
+    end
+  end
+  
+  describe "integrating with Mailchimp" do
+    it "should save to mailchimp before create" do
+      campaign = Factory.build(:campaign)
+      campaign.mailchimp_campaign_id.should be_nil
+
+      Refinery::Mailchimp::API.should_receive(:new).and_return(mock('api', :campaign_create => 'abcdef'))
+      campaign.save
+      campaign.reload.mailchimp_campaign_id.should == 'abcdef'
+    end
+    
+    it "should not create and add error if mailchimp create fails" do
+      campaign = Factory.build(:campaign)
+      mock_api = mock('api')
+      mock_api.stub(:campaign_create) { |*args| raise Hominid::APIError.new(mock('xmlerror', :faultCode => -32602, :message => "server error. invalid method parameters")) }
+      Refinery::Mailchimp::API.should_receive(:new).and_return(mock_api)
+      campaign.save.should be_false
+      campaign.errors[:base].should include(I18n.t('admin.campaigns.campaign.mailchimp_error'))
+    end
+    
+    it "should update mailchimp before save"
+    it "should not save if mailchimp update fails"
+    it "should know if it's been sent or scheduled"
+    it "should know where it was sent to"
+  end
+end

metadata

@@ -0,0 +1,105 @@
+--- !ruby/object:Gem::Specification 
+name: refinerycms-mailchimp
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: 
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Ian Terrell
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-04-04 00:00:00 -04:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hominid
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        hash: 7
+        segments: 
+        - 3
+        - 0
+        version: "3.0"
+  type: :runtime
+  version_requirements: *id001
+description: Ruby on Rails Mailchimp engine for Refinery CMS.  Manage your campaigns right from the admin!
+email: ian.terrell@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/generators/refinerycms_mailchimp_generator.rb
+- lib/refinerycms-mailchimp.rb
+- lib/tasks/mailchimp.rake
+- config/locales/en.yml
+- config/locales/nb.yml
+- config/locales/nl.yml
+- config/routes.rb
+- app/controllers/admin/campaigns_controller.rb
+- app/models/campaign.rb
+- app/views/admin/campaigns/_campaign.html.erb
+- app/views/admin/campaigns/_form.html.erb
+- app/views/admin/campaigns/_modal_fields.html.erb
+- app/views/admin/campaigns/_sortable_list.html.erb
+- app/views/admin/campaigns/edit.html.erb
+- app/views/admin/campaigns/index.html.erb
+- app/views/admin/campaigns/new.html.erb
+- app/views/admin/campaigns/send_options.html.erb
+- spec/controllers/admin/campaigns_controller_spec.rb
+- spec/models/api_spec.rb
+- spec/models/campaign_spec.rb
+- features/campaigns.feature_brainstorm
+- features/support/factories/campaigns.rb
+- features/support/paths.rb
+- db/migrate/1_create_campaigns.rb
+- db/seeds/campaigns.rb
+has_rdoc: true
+homepage: https://github.com/ianterrell/refinerycms-mailchimp
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.5.2
+signing_key: 
+specification_version: 3
+summary: Ruby on Rails Mailchimp engine for Refinery CMS
+test_files: []
+