apsis-on-steroids 0.0.3 → 0.0.4

data/VERSION

@@ -1 +1 @@
-0.0.3
+0.0.4

data/apsis-on-steroids.gemspec

@@ -5,7 +5,7 @@
 
 Gem::Specification.new do |s|
   s.name = "apsis-on-steroids"
-  s.version = "0.0.3"
+  s.version = "0.0.4"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["kaspernj"]

data/include/mailing_list.rb

@@ -164,4 +164,56 @@ class ApsisOnSteroids::MailingList < ApsisOnSteroids::SubBase
       raise "Unexpected result: '#{data}'." if element["Value"] != "Succefully deleted"
     end
   end
+  
+  # Moves a subscriber to the opt-out-list.
+  def opt_out_subscriber(sub)
+    res = aos.req_json("v1/optouts/mailinglists/#{data(:id)}/subscribers/queued", :post, :json => [{
+      "ExternalId" => "",
+      "Reason" => "",
+      "SendQueueId" => 0,
+      "SubscriberId" => sub.data(:id)
+    }])
+    raise "Unexpected result: #{res}" if res["Code"] != 1
+    data = aos.read_queued_response(res["Result"]["PollURL"])
+    
+    raise data if data["FailedSubscriberIds"] && data["FailedSubscriberIds"].any?
+  end
+  
+  # Returns a list of subscribers on the opt-out-list.
+  def opt_out_list
+    res = aos.req_json("v1/optouts/mailinglists/#{data(:id)}/queued", :post)
+    raise "Unexpected result: #{res}" if res["Code"] != 1
+    data = aos.read_queued_response(res["Result"]["PollURL"])
+    
+    ret = []
+    data.each do |opt_out_data|
+      sub = ApsisOnSteroids::Subscriber.new(:aos => aos, :data => {:id => opt_out_data["Id"], :email => opt_out_data["Email"]})
+      
+      if block_given?
+        yield sub
+      else
+        ret << sub
+      end
+    end
+    
+    return ret
+  end
+  
+  # Returns true if the given subscriber is on the opt-out-list.
+  def opt_out?(sub)
+    opt_out_list do |sub_opt_out|
+      return true if sub_opt_out.data(:email) == sub.data(:email) || sub.data(:id).to_i == sub_opt_out.data(:id).to_i
+    end
+    
+    return false
+  end
+  
+  # Removes the given subscriber from the opt-out-list.
+  def opt_out_remove_subscriber(sub)
+    res = aos.req_json("v1/optouts/mailinglists/#{data(:id)}/subscribers/queued", :delete, :json => [
+      sub.data(:email)
+    ])
+    data = aos.read_queued_response(res["Result"]["PollURL"])
+    raise data if data["FailedSubscriberEmails"] && data["FailedSubscriberEmails"].any?
+  end
 end

data/lib/apsis-on-steroids.rb

@@ -120,6 +120,26 @@ class ApsisOnSteroids
     return res
   end
   
+  def read_queued_response(url)
+    uri = URI.parse(url)
+    
+    Timeout.timeout(300) do
+      loop do
+        sleep 1
+        res = req_json(uri.path)
+        
+        if res["State"] == "2"
+          uri_data = URI.parse(res["DataUrl"])
+          return req_json(uri_data.path)
+        elsif res["State"] == "1" || res["State"] == "0"
+          # Keep waiting.
+        else
+          raise "Unknown state '#{res["State"]}': #{res}"
+        end
+      end
+    end
+  end
+  
   def parse_obj(obj)
     if obj.is_a?(Array)
       ret = []

data/spec/apsis-on-steroids_spec.rb

@@ -111,5 +111,12 @@ describe "ApsisOnSteroids" do
       sub.active?.should eql(true)
       mlist.member?(sub).should eql(true)
     end
+    
+    it "should be able to opt out a subscriber" do
+      mlist.opt_out_subscriber(sub)
+      mlist.opt_out?(sub).should eql(true)
+      mlist.opt_out_remove_subscriber(sub)
+      mlist.opt_out?(sub).should eql(false)
+    end
   end
 end

metadata

@@ -2,7 +2,7 @@
 name: apsis-on-steroids
 version: !ruby/object:Gem::Version
   prerelease: 
-  version: 0.0.3
+  version: 0.0.4
 platform: ruby
 authors:
 - kaspernj
@@ -144,7 +144,7 @@ required_ruby_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       segments:
       - 0
-      hash: -867617378324524175
+      hash: -3749909533048990827
       version: '0'
 required_rubygems_version: !ruby/object:Gem::Requirement
   none: false