ruby-mailchimp 0.1.0 → 0.2.0

data/lib/mail_chimp.rb

@@ -47,7 +47,7 @@ require 'action_mailer'
 #   end
 #   
 class MailChimp
-
+  
   attr_accessor :email_server, :email_user, :email_password
   
   #
@@ -57,6 +57,22 @@ class MailChimp
     self.email_server = server
     self.email_user = user
     self.email_password = password
+    return true
+  end
+  
+  #
+  # Convenience method - converts a list of e-mails into an array
+  # suitable for a single subscribe_users or unsubscribe_users call.
+  #
+  def emails_to_hash_array(list_id, email_array)
+    output_array = Array::new
+    email_array.each do |email|
+      output_hash = Hash::new
+      output_hash['EMAIL'] = email
+      output_hash['id'] = list_id
+      output_array << output_hash      
+    end
+    return output_array
   end
   
   #
@@ -75,10 +91,10 @@ class MailChimp
   
   #
   # Executes a batch subscribe of multiple users.
-  # hash_array - An array of hash lines
+  # hash_array - An array of hashes, each representing a user.
   # 
   def subscribe_users(hash_array)
-    post_to_mailchimp(hash_array, "subscribe.phtml")
+    post_to_mailchimp(hash_array, "/subscribe.phtml")
   end
   
   #
@@ -98,18 +114,20 @@ class MailChimp
   # hash_array - An array of hash lines
   # 
   def unsubscribe_users(hash_array)
-    post_to_mailchimp(hash_array, "unsub.phtml")
+    post_to_mailchimp(hash_array, "/unsub.phtml")
   end  
   
   #
   # Reads IMAP mail from the mailbox initialized with initialize_inbox.
   # Returns a subscribers array containing hashes of user data, and an
-  # unsubscriber's array containing hashes of user data.  Email, IP, and date as 
-  # a string are returned to the caller.  
+  # unsubscriber's array containing hashes of user data, as well as two integers
+  # indicating how many messages were found in the inbox and how many were processed successfully.
+  # Email, IP, and a string representation of the date.  
   # 
   #
-  def check_inbox(delete=nil, mode=nil)
-    delete = false if (delete.nil?)
+  def check_inbox(delete=nil, mode=nil, delete_skipped=nil)
+    delete = true if (delete.nil?)
+    delete_skipped = false if delete_skipped.nil?
     if (!mode.nil? && mode.upcase != "IMAP")
       STDERR.write("Mode #{mode} not supported.  Only IMAP supported at this time.")
     elsif (email_server.nil? || email_user.nil? || email_password.nil?)
@@ -120,19 +138,28 @@ class MailChimp
       imap = Net::IMAP.new(email_server)
       imap.authenticate('LOGIN', email_user, email_password)
       imap.select('INBOX')
+      messages_found = 0
+      messages_processed = 0
       imap.search(['ALL']).each do |message_id|
         msg = imap.fetch(message_id,'RFC822')[0].attr['RFC822']
+        messages_found += 1
         stored_value = Processor.receive(msg)
-        subscribes << stored_value if (!stored_value.nil? && stored_value[:type] == :subscription)
-        unsubscribes << stored_value if (!stored_value.nil? && stored_value[:type] == :unsubscription)
-        #Mark message as deleted and it will be removed from storage when user session closes
-        imap.store(message_id, "+FLAGS", [:Deleted]) if (delete == true)
-      end
-      
+        if (!stored_value.nil? && stored_value[:type] == :subscription)
+          subscribes << stored_value 
+          imap.store(message_id, "+FLAGS", [:Deleted]) if (delete == true)
+          messages_processed += 1
+        elsif (!stored_value.nil? && stored_value[:type] == :unsubscription)
+          unsubscribes << stored_value 
+          imap.store(message_id, "+FLAGS", [:Deleted]) if (delete == true)
+          messages_processed += 1
+        else
+          STDERR.write("Skipping message with raw data: #{msg}")
+          imap.store(message_id, "+FLAGS", [:Deleted]) if (delete_skipped == true)          
+        end
+      end      
       imap.expunge if (delete == true)
-      
       imap.disconnect
-      return [subscribes, unsubscribes]
+      return [subscribes, unsubscribes, messages_found, messages_processed]
     end
     return nil
   end
@@ -143,14 +170,27 @@ class MailChimp
   # Handles internal posting to MailChimp, given a processor page.
   #
   def post_to_mailchimp(hash_array, page)
+    post_results = Array.new
     hash_array.each do |additional_fields|      
       http = Net::HTTP.new("www.mailchimp.com")
       headers = {
         "Content-type" => "application/x-www-form-urlencoded",
         "User-Agent" => "MCSubscriber ruby-0.1"     
       }
-      response, body = http.post("/unsub.phtml", hash_to_uri(additional_fields), headers)
+      response, body = http.post(page, hash_to_uri(additional_fields), headers)
+      status = body.match(/(<result>)(.+)(<\/result>)/)
+      report = "Unknown"
+      if (!status.nil? && status.size == 4)
+        if (status[2] == "error")
+          error_details = body.match(/(<EMAILERROR>)(.+)(<\/EMAILERROR>)/)
+          report = error_details[2] if (!error_details.nil? && error_details.size == 4)
+        else 
+          report = status[2]
+        end
+      end
+      post_results << [additional_fields['EMAIL'], report]
     end    
+    return post_results
   end
   
   #
@@ -166,13 +206,9 @@ class MailChimp
   
   class Processor < ActionMailer::Base
     def receive(msg)
-      p msg.subject
-      p msg.subject =~ /New Subscribe to/
-      p msg.subject =~ /Unsubscribe from/
       #Process all new subscriptions
       is_subscription = !((msg.subject =~ /New Subscribe to/).nil?)
       is_unsubscription = !((msg.subject =~ /Unsubscribe from/).nil?) 
-      p "status = #{is_subscription} #{is_unsubscription}"
       if is_subscription || is_unsubscription
         stored_value = Hash::new
         if (is_subscription)

metadata

@@ -3,7 +3,7 @@ rubygems_version: 0.9.0
 specification_version: 1
 name: ruby-mailchimp
 version: !ruby/object:Gem::Version 
-  version: 0.1.0
+  version: 0.2.0
 date: 2007-05-10 00:00:00 -04:00
 summary: Allows programmatic subscription and unsubscription to MailChimp.  Requires MailChimp account.
 require_paths: