ruml 0.0.1

data/.gitignore

@@ -0,0 +1 @@
+pkg

data/.rvmrc

@@ -0,0 +1 @@
+rvm @ruml --create

data/Gemfile

@@ -0,0 +1,3 @@
+source :rubygems
+
+gem 'mail'

data/Gemfile.lock

@@ -0,0 +1,19 @@
+GEM
+  remote: http://rubygems.org/
+  specs:
+    i18n (0.6.0)
+    mail (2.3.0)
+      i18n (>= 0.4.0)
+      mime-types (~> 1.16)
+      treetop (~> 1.4.8)
+    mime-types (1.17.2)
+    polyglot (0.3.2)
+    treetop (1.4.10)
+      polyglot
+      polyglot (>= 0.3.1)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  mail

data/README.md

@@ -0,0 +1,22 @@
+# ruml
+
+Ruby mailing list software
+
+## File structure
+
+<pre>
+testml/
+├── bounce_to
+├── members
+├── name
+└── to
+</pre>
+
+* to        - E-mail of the mailing list
+* name      - Name of the mailing list displayed in subject. E.g. \[Fancy ML\] (optional)
+* member    - List of member's addresses
+* bounce_to - Bounce mails go to this email (optional)
+
+## TODO
+
+* Write tests!

data/Rakefile

@@ -0,0 +1 @@
+require "bundler/gem_tasks"

data/bin/ruml

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+
+$debug = ENV['DEBUG']
+
+require 'ruml'
+
+ml = Ruml.new(ARGV[0])
+ml.broadcast!(STDIN.read)

data/example/testml/bounce_to

@@ -0,0 +1 @@
+testml-bounce@example.com

data/example/testml/members

@@ -0,0 +1,5 @@
+# Empty entries or entries with pound sign will be ignored
+foo@bar.com
+# stupid@guy.com
+
+info@example.com

data/example/testml/name

@@ -0,0 +1 @@
+[ExampleML]

data/example/testml/to

@@ -0,0 +1 @@
+testml@example.com

data/lib/ruml.rb

@@ -0,0 +1,11 @@
+require 'mail'
+
+module Ruml
+  autoload :List,         'ruml/list'
+  autoload :Broadcaster,  'ruml/broadcaster'
+  autoload :VERSION,      'ruml/version'
+
+  def self.new(*args)
+    List.new(*args)
+  end
+end

data/lib/ruml/broadcaster.rb

@@ -0,0 +1,85 @@
+module Ruml
+  class Broadcaster
+    def initialize(ml, message)
+      @ml = ml
+      @message = Mail.new(message)
+    end
+
+    def sendable?
+      !been_there? && valid_member?
+    end
+
+    def valid_member?
+      expected = @message.from.size
+      actual   = (@message.from(&:downvase) & @ml.members.map(&:downcase)).size
+      expected == actual
+    end
+
+    def been_there?
+      @message['X-BeenThere'].to_s == @ml.to
+    end
+
+    def add_headers!(mail)
+      mail['X-BeenThere'] = @ml.to
+      mail['List-Id']     = "<#{@ml.id}>"
+      mail['List-Post']   = "<mailto:#{@ml.to}>"
+      mail['Precedence']  = 'list'
+      mail['Sender']      = @ml.bounce_to
+      mail['Errors-To']   = @ml.bounce_to
+      mail['User-Agent']  = @message['User-Agent'].value if @message['User-Agent']
+    end
+
+    def add_body!(mail)
+      if @message.multipart?
+        @message.parts.each do |part|
+          mail.add_part part
+        end
+      else
+        mail.body @message.body.raw_source
+      end
+    end
+
+    def from
+      @message.from.first
+    end
+
+    def to
+      @ml.to
+    end
+
+    def subject
+      if @ml.name && !@message.subject.include?(@ml.name)
+        "#{@ml.name} #{@message.subject}"
+      else
+        @message.subject
+      end
+    end
+
+    def send!
+      @ml.members.each do |recipient|
+        send_to(recipient)
+      end
+    end
+
+    def send_to(recipient)
+      mail = Mail.new
+      mail.subject  subject
+      mail.from     from
+      mail.to       to
+      mail.bcc      recipient
+
+      add_headers! mail
+      add_body! mail
+      deliver! mail
+    end
+
+    def deliver! mail
+      if $debug
+        puts mail.to_s
+      else
+        mail.delivery_method :sendmail
+        mail.deliver
+      end
+    end
+  end
+end

data/lib/ruml/list.rb

@@ -0,0 +1,50 @@
+module Ruml
+  class List
+    attr_reader :name
+
+    def initialize(dir)
+      @dir = dir
+      raise "Unknown ml #{name} (#{@dir})" unless File.directory?(@dir)
+    end
+
+    def id
+      @id ||= to.gsub('@', '.')
+    end
+
+    def name
+      @name ||= readlines("name").first
+    end
+
+    def members
+      @members ||= readlines("members").reject { |member| member =~ /^#|^$/ }
+    end
+
+    def to
+      @to ||= readlines("to").first
+    end
+
+    def bounce_to
+      @bounce_to ||= readlines("bounce_to").first || to
+    end
+
+    def broadcaster(body)
+      Broadcaster.new(self, body)
+    end
+
+    def broadcast!(body)
+      message = broadcaster(body)
+      if message.sendable?
+        message.send!
+      end
+    end
+
+  private
+
+    def readlines(name)
+      path = File.join(@dir, name)
+      File.readlines(path).map(&:strip)
+    rescue Errno::ENOENT
+      []
+    end
+  end
+end

data/lib/ruml/version.rb

@@ -0,0 +1,3 @@
+module Ruml
+  VERSION = "0.0.1"
+end

data/ruml.gemspec

@@ -0,0 +1,21 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "ruml"
+
+Gem::Specification.new do |s|
+  s.name        = "ruml"
+  s.version     = Ruml::VERSION
+  s.authors     = ["Peter Suschlik"]
+  s.email       = ["peter@suschlik.de"]
+  s.homepage    = "https://github.com/splattael/ruml"
+  s.summary     = %q{Ruby mailing list software}
+  s.description = %q{}
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+
+  # specify any dependencies here; for example:
+  s.add_runtime_dependency "mail", "~> 2.3.0"
+end

metadata

@@ -0,0 +1,96 @@
+--- !ruby/object:Gem::Specification 
+name: ruml
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: 
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Peter Suschlik
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-10-27 00:00:00 Z
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: mail
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ~>
+      - !ruby/object:Gem::Version 
+        hash: 3
+        segments: 
+        - 2
+        - 3
+        - 0
+        version: 2.3.0
+  type: :runtime
+  version_requirements: *id001
+description: ""
+email: 
+- peter@suschlik.de
+executables: 
+- ruml
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- .gitignore
+- .rvmrc
+- Gemfile
+- Gemfile.lock
+- README.md
+- Rakefile
+- bin/ruml
+- example/testml/bounce_to
+- example/testml/members
+- example/testml/name
+- example/testml/to
+- lib/ruml.rb
+- lib/ruml/broadcaster.rb
+- lib/ruml/list.rb
+- lib/ruml/version.rb
+- ruml.gemspec
+homepage: https://github.com/splattael/ruml
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.8.10
+signing_key: 
+specification_version: 3
+summary: Ruby mailing list software
+test_files: []
+