chimp 0.0.1

data/LICENSE

@@ -0,0 +1,19 @@
+Copyright (c) 2010, 2011 Michel Martens, Damian Janowski and Cyril David
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README

@@ -0,0 +1,22 @@
+CHIMP(1)
+
+NAME
+      chimp -- Super light mailchimp client
+
+SYNOPSIS
+      chimp = Chimp.connect("acbd18db4cc2f85cedef654fccc4a4d8-us4")
+
+      # Get all lists for your account
+      chimp.lists
+      # => {"total"=>1, "data"=>[{"id"=>"l654321", ...}]]}
+
+      # Add a new email to one of your lists identified by id
+      chimp.subscribe("foo@bar.com", "l654321")
+      # => "true"
+
+      # Unsubscribe an existing email
+      chimp.unsubscribe("foo@bar.com", "l654321")
+      # => "true"
+
+INSTALLATION
+      $ gem install chimp

data/chimp.gemspec

@@ -0,0 +1,21 @@
+Gem::Specification.new do |s|
+  s.name              = "chimp"
+  s.version           = "0.0.1"
+  s.summary           = "Lightweight mailchimp client"
+  s.description       = "For those who want something nimble."
+  s.authors           = ["Cyril David"]
+  s.email             = ["me@cyrildavid.com"]
+  s.homepage          = "http://github.com/cyx/chimp"
+
+  s.files = Dir[
+    "LICENSE",
+    "README",
+    "rakefile",
+    "lib/**/*.rb",
+    "*.gemspec",
+    "test/*.*"
+  ]
+
+  s.add_development_dependency "dep"
+  s.add_development_dependency "cutest"
+end

data/lib/chimp.rb

@@ -0,0 +1,51 @@
+require "uri"
+require "json"
+
+class Chimp
+  URL = "https://%s.api.mailchimp.com/1.3/?method="
+
+  attr :url
+  attr :data
+
+  def self.connect(apikey)
+    dc = apikey[/-(.+)$/, 1]
+
+    new(apikey, dc)
+  end
+
+  def initialize(apikey, datacenter)
+    @url  = URL % datacenter
+    @data = { apikey: apikey }
+  end
+
+  def lists
+    JSON(post("lists"))
+  end
+
+  def subscribe(email, list_id)
+    post("listSubscribe", email_address: email, id: list_id)
+  end
+
+  def unsubscribe(email, list_id)
+    post("listUnsubscribe", email_address: email, id: list_id)
+  end
+
+private
+  def post(method, dict = {})
+    options = '-X POST --data "%s"' % payload(dict)
+
+    curl(url + method, options)
+  end
+
+  def payload(dict = {})
+    params = data.merge(dict)
+
+    params.map do |k, v|
+      "%s=%s" % [k, URI.encode_www_form_component(v)]
+    end.join("&")
+  end
+
+  def curl(url, options)
+    `curl #{options} #{url} 2>/dev/null`
+  end
+end

data/rakefile

@@ -0,0 +1,5 @@
+desc "Run all tests"
+task :test do
+  exec("cutest test/chimp.rb")
+end
+task :default => :test

data/test/chimp.rb

@@ -0,0 +1,49 @@
+require_relative "../lib/chimp"
+
+test "connect" do
+  chimp = Chimp.connect("foo-us1")
+
+  assert_equal("https://us1.api.mailchimp.com/1.3/?method=", chimp.url)
+  assert_equal({ apikey: "foo-us1" }, chimp.data)
+end
+
+scope do
+  # minimalistic mocking :-)
+  class Chimp
+    def curl(url, options)
+      $curl = "curl #{options} #{url}"
+
+      return $curl_result if $curl_result
+    end
+  end
+
+  setup do
+    Chimp.connect("key-us1")
+  end
+
+  test "lists" do |chimp|
+    $curl_result = JSON.dump({ id: "12345" })
+
+    result = chimp.lists
+
+    assert_equal({ "id" => "12345" }, result)
+
+    curl = 'curl -X POST --data "apikey=key-us1" ' +
+           'https://us1.api.mailchimp.com/1.3/?method=lists'
+
+    assert_equal curl, $curl
+  end
+
+  test "subscribe" do |chimp|
+    $curl_result = "OK"
+
+    result = chimp.subscribe("foo@bar.com", "654321")
+
+    assert_equal("OK", result)
+
+    curl = 'curl -X POST --data "apikey=key-us1&email_address=foo%40bar.com' +
+           '&id=654321" https://us1.api.mailchimp.com/1.3/?method=listSubscribe'
+
+    assert_equal curl, $curl
+  end
+end

metadata

@@ -0,0 +1,73 @@
+--- !ruby/object:Gem::Specification
+name: chimp
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+  prerelease: 
+platform: ruby
+authors:
+- Cyril David
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-04-03 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: dep
+  requirement: &70103702043580 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70103702043580
+- !ruby/object:Gem::Dependency
+  name: cutest
+  requirement: &70103702043020 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70103702043020
+description: For those who want something nimble.
+email:
+- me@cyrildavid.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- LICENSE
+- README
+- rakefile
+- lib/chimp.rb
+- chimp.gemspec
+- test/chimp.rb
+homepage: http://github.com/cyx/chimp
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.11
+signing_key: 
+specification_version: 3
+summary: Lightweight mailchimp client
+test_files: []