bcaccinolo-mailchimp_api 0.0.3

data/README

@@ -0,0 +1,6 @@
+Mailchimp API
+============
+Author: Benoit Caccinolo
+
+
+

data/Rakefile

@@ -0,0 +1,33 @@
+
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gemspec|
+    gemspec.name = "mailchimp_api"
+    gemspec.summary = "Summarize your gem"
+    gemspec.description = "Describe your gem"
+    gemspec.email = "benoit.caccinolo@gmail.com"
+    gemspec.homepage = "http://ruready.tumblr.com"
+    gemspec.description = "TODO"
+    gemspec.authors = ["Benoit Caccinolo"]
+  end
+rescue LoadError
+  puts "Jeweler not available. Install it with: sudo gem install technicalpickles-jeweler -s http://gems.github.com"
+end
+
+
+
+
+task :default do
+  puts "default task"
+end
+
+desc "Launch unit tests."
+task :test do 
+  require 'test/unit/ui/console/testrunner'
+  require 'test/test_mc'
+  Test::Unit::UI::Console::TestRunner.run(TestMailChimp)
+end
+
+
+

data/VERSION

@@ -0,0 +1 @@
+0.0.3

data/lib/mailchimp.rb

@@ -0,0 +1,142 @@
+# For the API 1.1
+# http://www.mailchimp.com/api/1.1/
+#
+require "rubygems"
+require 'net/http'
+require 'uri'
+require "json"
+require 'yaml'
+
+class MailChimp
+
+  attr_accessor :api
+
+  # tested
+  def login username, password
+    ret = call_server 'login', {:username => username, :password => password}
+    @api = ret.slice(1, ret.size-2) if ret.class == String
+  end
+
+  # tested
+  def ping
+    ret = call_server 'ping'
+    return ((ret.class == String) and !(ret =~ /Everything.*Chimpy/).nil?) ? true : false 
+  end
+
+  # tested
+  def campaign_create list_id, from_email, from_name, subject, content
+    params = {:options => {:list_id => list_id, :subject => subject, 
+              :from_name => from_name, :from_email => from_email}, 
+              :type => "regular", :content => {"html" => content} }
+    ret = call_server 'campaignCreate', params
+    if ret.class == String
+      ret = ret.slice(1, ret.size-2) 
+    end
+    ret
+  end
+
+  # tested
+  def campaign_update cid, name, value
+    params = {:cid => cid, :name => name, :value => value}
+    ret = call_server 'campaignUpdate', params
+    ret 
+  end
+
+  # tested
+  def campaign_delete cid
+    params = {:cid => cid}
+    ret = call_server 'campaignDelete', params
+    ret 
+  end
+
+  # not tested
+  def campaign_send_now cid
+    params = {:cid => cid}
+    ret = call_server 'campaignSendNow', params
+    ret
+  end
+
+  # tested
+  def campaign_send_test cid, emails
+    params = {:cid => cid, :test_emails => emails}
+    ret = call_server 'campaignSendTest', params
+    ret
+  end
+
+  # not tested
+  def list_batch_subscribe list_id, batch_emails
+    params = {:id => list_id, :batch => batch_emails}
+    ret = call_server 'listBatchSubscribe', params
+    ret
+  end
+
+  # tested
+  def list_batch_unsubscribe list_id, batch_emails
+    params = {:id => list_id, :emails => batch_emails, :delete_member => true, :send_goodbye => false }
+    ret = call_server 'listBatchUnsubscribe', params
+    ret
+  end
+
+  # tested
+  def list_subscribe list_id, email
+    params = {:id => list_id, :email_address => email, 
+              :merge_vars => {'FIRST' => '', 'LAST' => ''} , :double_optin => false}
+    ret = call_server 'listSubscribe', params
+    ret
+  end
+
+  # tested
+  def list_unsubscribe list_id, email
+    params = {:id => list_id, :email_address => email}
+    ret = call_server 'listUnsubscribe', params
+    ret
+  end
+
+  # tested
+  def lists
+    params = {}
+    ret = call_server 'lists', params
+    ret
+  end
+
+  # not tested
+  def list_members list_id
+    params = {:id => list_id}
+    ret = call_server 'listMembers', params
+    (ret.class == Hash) ? [] : ret
+  end
+
+  def call_server method , params={}
+    url = "api.mailchimp.com"
+    path = "/1.1/?output=json&method=#{method}"
+    params[:apikey] = @api unless method == "login"
+    data = gen_params_list(params)
+    #puts "http://#{url}#{path}&#{data}"
+    http = Net::HTTP.new(url)
+    result = http.post(path, data)
+    begin
+      json_res = JSON.parse result.body
+    rescue JSON::ParserError
+      json_res = result.body
+    end
+    json_res
+  end
+
+  def gen_params_list params
+    params.map do |key, value|
+      if value.class == Hash
+        value.map do |k, v| 
+         "#{key}[#{k}]=#{v}" 
+        end.join '&'
+      elsif value.class == Array
+        value.map do |v|
+         "#{key}[]=#{v}" 
+        end.join '&'
+      else
+        "#{key}=#{value}"
+      end 
+    end.join '&'
+  end
+
+end
+

data/mailchimp_api.gemspec

@@ -0,0 +1,44 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE
+# Instead, edit Jeweler::Tasks in Rakefile, and run `rake gemspec`
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{mailchimp_api}
+  s.version = "0.0.3"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Benoit Caccinolo"]
+  s.date = %q{2009-08-11}
+  s.description = %q{TODO}
+  s.email = %q{benoit.caccinolo@gmail.com}
+  s.extra_rdoc_files = [
+    "README"
+  ]
+  s.files = [
+    "README",
+     "Rakefile",
+     "VERSION",
+     "lib/mailchimp.rb",
+     "mailchimp_api.gemspec",
+     "test/test_mc.rb"
+  ]
+  s.homepage = %q{http://ruready.tumblr.com}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.4}
+  s.summary = %q{Summarize your gem}
+  s.test_files = [
+    "test/test_mc.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end

data/test/test_mc.rb

@@ -0,0 +1,100 @@
+require "test/unit"
+require "lib/mailchimp"
+
+LOGIN=""
+PWD=""
+
+class TestMailChimp < Test::Unit::TestCase
+
+  @@done = nil
+  @@list_id = ""
+  @@campaign_id = ""
+
+  def setup
+    raise "You have to set the Constants LOGIN and PWD." if LOGIN == ""
+    if @@done.nil?
+      @@done = true
+      @@mc = MailChimp.new
+      @@mc.login LOGIN, PWD
+      test_lists
+    end
+  end
+
+  #def teardown
+  #end
+
+  def test_ping
+    ret = @mc.ping
+    assert ret == true
+  end
+  
+  def test_lists
+    ret = @@mc.lists
+    list_ids = ret.map { |e| e['name'] }
+    result = list_ids.include?("test_list")
+    unless result 
+      raise "In order to continue the tests, you have to create a list called test_list."
+    end
+    ret.each do |list| 
+      @@list_id = list["id"] if list["name"] == "test_list"
+    end
+    assert result
+  end
+
+  def test_list_subscribe
+    assert @mc.list_subscribe(@list_id, "benoit_test@gmail.com")
+  end
+
+  def test_list_unsubscribe
+    assert @mc.list_unsubscribe(@list_id, "benoit_test@gmail.com")
+  end
+
+  def test_list_batch_subscribe
+    ret = @mc.list_batch_subscribe(@list_id, [ ["EMAIL" => "benoit_test4@gmail.com"] ]) 
+    assert(ret["success_count"] == "1", ret.to_yaml)
+  end
+
+  def test_list_batch_unsubscribe
+    @mc.list_subscribe(@list_id, "benoit_test1@gmail.com")
+    @mc.list_subscribe(@list_id, "benoit_test2@gmail.com")
+    ret = @mc.list_batch_unsubscribe(@list_id, ["benoit_test1@gmail.com", "benoit_test2@gmail.com"])
+    assert(ret["success_count"] == 2, ret.to_yaml)
+  end
+
+  def test_campaign_create_and_delete
+    ret = @@mc.campaign_create(@@list_id, "from_benoit@gmail.com", "Benoit Caccinolo", 
+                        "This the subject of the newsletter", 
+                        "This is the content of the newsletter")
+    if ret.class == String
+      @@campaign_id = ret
+    end
+    assert(ret.class == String)
+
+    ret = @@mc.campaign_delete @@campaign_id
+    assert ret
+  end
+
+  def test_campaign_update
+    ret = @@mc.campaign_create(@@list_id, "from_benoit@gmail.com", "Benoit Caccinolo", 
+                        "This the subject of the newsletter", 
+                        "This is the content of the newsletter")
+    campaign_id = ret
+    ret = @@mc.campaign_update(campaign_id, "content", {"html" => "New content"})
+    assert ret
+    @@mc.campaign_delete campaign_id
+  end
+
+  def test_campaign_send_test
+    ret = @@mc.campaign_create(@@list_id, "from_benoit@gmail.com", "Benoit Caccinolo", 
+                        "This the subject of the newsletter 2222222222222", 
+                        "This is the content of the newsletter")
+    campaign_id = ret
+
+    ret = @@mc.campaign_send_test(campaign_id, ["benoit.caccinolo@gmail.com"])
+    puts ret
+    assert ret
+    @@mc.campaign_delete campaign_id
+  end
+
+end
+

metadata

@@ -0,0 +1,59 @@
+--- !ruby/object:Gem::Specification 
+name: bcaccinolo-mailchimp_api
+version: !ruby/object:Gem::Version 
+  version: 0.0.3
+platform: ruby
+authors: 
+- Benoit Caccinolo
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-08-11 00:00:00 -07:00
+default_executable: 
+dependencies: []
+
+description: TODO
+email: benoit.caccinolo@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: 
+- README
+files: 
+- README
+- Rakefile
+- VERSION
+- lib/mailchimp.rb
+- mailchimp_api.gemspec
+- test/test_mc.rb
+has_rdoc: false
+homepage: http://ruready.tumblr.com
+licenses: 
+post_install_message: 
+rdoc_options: 
+- --charset=UTF-8
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: "0"
+  version: 
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Summarize your gem
+test_files: 
+- test/test_mc.rb