unfuddle_my_email 0.1.3

data/lib/unfuddle_my_email/configuration.rb

@@ -0,0 +1,29 @@
+require 'yaml'
+
+module UnfuddleMyEmail
+  # Configuration loads the given +path+ as a YAML file and enables
+  # method-like access to configuration information.
+  #
+  # The expected format of the YAML file is:
+  #
+  #   configuration_key: configuration_value
+  #   configuration_second_key: configuration_value
+  #
+  # etc.
+  #
+  # Example usage:
+  #
+  #   configuration = Configuration.new("path/to/yaml.yml")
+  #   configuration.key # => value
+  class Configuration
+    attr_accessor :settings
+
+    def initialize(path)
+      @settings = YAML.load_file(path)
+    end
+
+    def method_missing(method_symbol, *args)
+      @settings[method_symbol.to_s]
+    end
+  end
+end

data/lib/unfuddle_my_email/email_ticket.rb

@@ -0,0 +1,47 @@
+require 'builder'
+
+module UnfuddleMyEmail
+  # Create an XML formatted ticket.
+  #
+  # Expects an object that responds to the following methods:
+  #
+  # * +subject+: The summary for the ticket
+  # * +from+: An array of authors
+  # * +body+: Will be added the the ticket description
+  class EmailTicket
+    attr_accessor :message
+
+    def initialize(message)
+      @message = message
+    end
+
+
+    # Returns an XML representation of an Unfuddle ticket.
+    def to_xml
+      builder = Builder::XmlMarkup.new
+      return xml = builder.ticket { |ticket|
+        ticket.priority    "1"
+        ticket.summary     subject
+        ticket.description description
+      }
+    end
+
+    private
+
+    def subject
+      @message.subject
+    end
+
+    def description
+      "From: #{from}\n\n#{body}"
+    end
+
+    def from
+      @message.from.join(',')
+    end
+
+    def body
+      @message.body
+    end
+  end
+end

data/lib/unfuddle_my_email/fetcher.rb

@@ -0,0 +1,42 @@
+require 'net/pop3_ssl'
+require 'tmail'
+
+module UnfuddleMyEmail
+  # Fetcher iterates through all emails in the given POP3 mailbox and
+  # yields each one, optionally deleting the message after yield. The
+  # message yielded is an instance of TMail::Mail.
+  #
+  # Example:
+  #
+  #   fetch = Fetcher.new('pop.example.com',995,true,'username','password',false)
+  #   fetcher.each do |message|
+  #     puts message.subject
+  #   end
+  #
+  #   # Enumerable is included so you can use those features (except for sort,min,max) as well:
+  #   fetcher.to_a # => [#<TMail::Mail instance>]
+  class Fetcher
+    def initialize(server, port, ssl, username, password, delete=false)
+      @pop3_server        = server
+      @pop3_port          = port
+      @pop3_ssl           = ssl
+      @pop3_username      = username
+      @pop3_password      = password
+      @pop3_delete        = delete
+    end
+
+    def each
+      if @pop3_ssl
+        Net::POP3.enable_ssl(OpenSSL::SSL::VERIFY_NONE)
+      end
+      Net::POP3.start(@pop3_server, @pop3_port, @pop3_username, @pop3_password) do |pop|
+        pop.each_mail { |message|
+          mail_item = TMail::Mail.parse(message.pop)
+          yield mail_item
+          message.delete if @pop3_delete
+        }
+      end
+    end
+    include Enumerable
+  end
+end

data/lib/unfuddle_my_email/poster.rb

@@ -0,0 +1,44 @@
+require 'net/https'
+
+module UnfuddleMyEmail
+  class Poster
+    # Return a new Net::HTTP session for the given +domain+. Optionally,
+    # enable +ssl+.
+    def self.http(domain, ssl = false)
+      http = Net::HTTP.new(domain, ssl ? 443 : 80)
+      if ssl
+        http.use_ssl = true
+        http.verify_mode = OpenSSL::SSL::VERIFY_NONE
+      end
+      return http
+    end
+
+    # Post XML content with basic authentication.
+    #
+    # Arguments:
+    # * +domain+: The domain name to use
+    # * +uri+: The url minuse the domain
+    # * +ssl+: Set true to enable SSL.
+    # * +username+: The username to use for Basic Auth.
+    # * +password+: The password to use for Basic Auth.
+    # * +content+: The content to POST via HTTP.
+    #
+    # Example:
+    #
+    #   Poster::post('example.com','/tickets',false,'john','doe','<data>value</data>')
+    #
+    # Raises error on anything but success or redirect.
+    def self.post(domain, uri, ssl, username, password, content)
+      request = Net::HTTP::Post.new(uri, {'Content-type' => 'application/xml'})
+      request.basic_auth username, password
+      request.body = content
+      response = http(domain, ssl).request(request)
+      case response
+      when Net::HTTPSuccess, Net::HTTPRedirection
+        return true
+      else
+        response.error!
+      end
+    end
+  end
+end

data/lib/unfuddle_my_email/runner.rb

@@ -0,0 +1,26 @@
+module UnfuddleMyEmail
+  class Runner
+    def initialize(configuration_path)
+      @options = Configuration.new(configuration_path)
+    end
+
+    def run
+      fetcher = Fetcher.new(@options.pop3_server, @options.pop3_port, @options.pop3_ssl, @options.pop3_username, @options.pop3_password, @options.pop3_delete)
+      fetcher.each do |message|
+        ticket = EmailTicket.new(message)
+        p "Posting ticket: #{ticket.message.subject}"
+        Poster::post(domain, url, @options.unfuddle_ssl, @options.unfuddle_username, @options.unfuddle_password, ticket.to_xml)
+      end
+    end
+
+    private
+
+    def domain
+      "#{@options.unfuddle_subdomain}.unfuddle.com"
+    end
+
+    def url
+      "#{@options.unfuddle_api_url}/projects/#{@options.unfuddle_project_id}/tickets"
+    end
+  end
+end

data/lib/unfuddle_my_email.rb

@@ -0,0 +1,9 @@
+require 'unfuddle_my_email/configuration'
+require 'unfuddle_my_email/email_ticket'
+require 'unfuddle_my_email/fetcher'
+require 'unfuddle_my_email/poster'
+require 'unfuddle_my_email/runner'
+
+module UnfuddleMyEmail
+
+end

data/test/configuration_test.rb

@@ -0,0 +1,29 @@
+require 'shoulda'
+require 'test/unit'
+require 'unfuddle_my_email'
+
+class ConfigurationTest < Test::Unit::TestCase
+  include UnfuddleMyEmail
+
+  context "a Configuration instance" do
+    setup do
+      @configuration = Configuration.new("test/test_configuration.yml")
+    end
+
+    should "assign Hash from configuration to settings accessor" do
+      assert @configuration.settings.is_a?(Hash)
+    end
+
+    context "for each key in configuration.yml file" do
+      setup do
+        @data = YAML.load_file("test/test_configuration.yml")
+      end
+
+      should "return value for key when called as a method" do
+        @data.each_pair do |key,value|
+          assert_equal value, @configuration.send(key)
+        end
+      end
+    end
+  end
+end

data/test/email_ticket_test.rb

@@ -0,0 +1,27 @@
+require 'flexmock/test_unit'
+require 'shoulda'
+require 'test/unit'
+require 'unfuddle_my_email'
+
+class EmailTicketTest < Test::Unit::TestCase
+  include UnfuddleMyEmail
+
+  context "a EmailTicket instance" do
+    setup do
+      message = flexmock('message',
+                         :subject => 'Hello, world',
+                         :from    => ['Matt Haley <matt@example.com>'],
+                         :body    => 'Message body.')
+      @email_ticket = EmailTicket.new(message)
+    end
+
+    should "assign a message" do
+      assert @email_ticket.message = "a message"
+    end
+
+    should "return xml" do
+      assert_equal "<ticket><priority>1</priority><summary>Hello, world</summary><description>From: Matt Haley &lt;matt@example.com&gt;\n\nMessage body.</description></ticket>",
+        @email_ticket.to_xml
+    end
+  end
+end

data/test/fetcher_test.rb

@@ -0,0 +1,41 @@
+require 'flexmock/test_unit'
+require 'net/pop3_ssl'
+require 'shoulda'
+require 'test/unit'
+require 'tmail'
+require 'unfuddle_my_email'
+
+class FetcherTest < Test::Unit::TestCase
+  include UnfuddleMyEmail
+
+  context "a Fetcher instance" do
+    setup do
+      @fetcher = Fetcher.new('pop.example.com', 110, false, 'user', 'password')
+
+      @message = flexmock('message', :test => true)
+      @message.should_receive(:pop).and_return(
+        "From: john@example.com\n" +
+        "Subject: Test subject\n\n" +
+        "This is a test.\n.\n"
+      )
+
+      @pop3_int = flexmock('pop3_int')
+      @pop3_int.should_receive(:each_mail).and_yield(@message)
+
+      @pop3_lib = flexmock(Net::POP3)
+      @pop3_lib.should_receive(:start).and_yield(@pop3_int)
+
+      @tmail_lib = flexmock(TMail::Mail)
+      @tmail_lib.should_receive(:parse).and_return(@message)
+    end
+
+    should "yield each message" do
+      success = false
+      @fetcher.each do |message|
+        success = message.test
+      end
+      assert success
+    end
+  end
+end
+

data/test/poster_test.rb

@@ -0,0 +1,38 @@
+require 'net/http'
+require 'unfuddle_my_email'
+require 'test/unit'
+require 'flexmock/test_unit'
+require 'shoulda'
+
+class PosterTest < Test::Unit::TestCase
+  include UnfuddleMyEmail
+
+  context "a Poster class" do
+    should "return a Net::HTTP instance when http called" do
+      http = Poster.http('example.com')
+      assert http.is_a?(Net::HTTP)
+    end
+
+    should "set SSL mode" do
+      http = Poster.http('example.com', ssl = true)
+      assert http.use_ssl?
+    end
+
+    should "post content" do
+      post_i = flexmock('post_i')
+      post_i.should_receive(:basic_auth).with(String, String)
+      post_i.should_receive(:body=).with(String)
+      post = flexmock('post')
+      post.should_receive(:new).with(String).and_return(post_i)
+
+      http_request = flexmock('request')
+      http_request.should_receive(:request).and_return(Net::HTTPSuccess.new('','',''))
+
+      http_lib = flexmock(Net::HTTP)
+      http_lib.should_receive(:new).and_return(http_request)
+      http_lib.should_receive(:post).and_return(post)
+
+      assert Poster.post('example.com','/', false, 'user','password','test content')
+    end
+  end
+end

data/test/test_configuration.yml

@@ -0,0 +1,12 @@
+unfuddle_subdomain:   'mysubdomain'
+unfuddle_username:    'username'
+unfuddle_password:    'password'
+unfuddle_ssl:         true
+unfuddle_project_id:  1234
+unfuddle_api_url:     '/api/v1/'
+pop3_server:          'pop.example.com'
+pop3_port:            110
+pop3_username:        'username'
+pop3_password:        'password'
+pop3_delete:          false
+

metadata

@@ -0,0 +1,75 @@
+--- !ruby/object:Gem::Specification 
+name: unfuddle_my_email
+version: !ruby/object:Gem::Version 
+  version: 0.1.3
+platform: ruby
+authors: 
+- Matt Haley
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2009-10-25 00:00:00 -07:00
+default_executable: unfuddle_my_email
+dependencies: []
+
+description: Post emails from POP server as Unfuddle Tickets.
+email: matt@smajn.net
+executables: 
+- unfuddle_my_email
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- LICENSE
+- VERSION.yml
+- bin/unfuddle_my_email
+- configuration-sample.yml
+- lib/net/pop3_ssl.rb
+- lib/unfuddle_my_email.rb
+- lib/unfuddle_my_email/configuration.rb
+- lib/unfuddle_my_email/email_ticket.rb
+- lib/unfuddle_my_email/fetcher.rb
+- lib/unfuddle_my_email/poster.rb
+- lib/unfuddle_my_email/runner.rb
+- test/configuration_test.rb
+- test/email_ticket_test.rb
+- test/fetcher_test.rb
+- test/poster_test.rb
+- test/test_configuration.yml
+- README.rdoc
+has_rdoc: true
+homepage: http://github.com/smajn/unfuddle_my_email
+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: mhaley
+rubygems_version: 1.3.5
+signing_key: 
+specification_version: 3
+summary: Post emails from POP server as Unfuddle Tickets.
+test_files: 
+- test/poster_test.rb
+- test/configuration_test.rb
+- test/fetcher_test.rb
+- test/email_ticket_test.rb