Adding a maillist type, with support for mailman. It is not as flexible as I would like, partially because of how mailman is implemented (the "mailman" command is never in the search path), but at least it is working for mailman on debian.

git-svn-id: https://reductivelabs.com/svn/puppet/trunk@2677 980ebf18-57e1-0310-9a29-db15c13687c0

1 files changed, 112 insertions, 0 deletions

diff --git a/lib/puppet/provider/maillist/mailman.rb b/lib/puppet/provider/maillist/mailman.rb
new file mode 100755
index 000000000..95abf9b3d
--- /dev/null
+++ b/lib/puppet/provider/maillist/mailman.rb
@@ -0,0 +1,112 @@
+require 'puppet/provider/parsedfile'
+
+Puppet::Type.type(:maillist).provide(:mailman) do
+    commands :list_lists => "list_lists", :rmlist => "rmlist", :newlist => "newlist"
+
+    # This probably won't work for non-Debian installs, but this path is sure not to be in the PATH.
+    commands :mailman => "/var/lib/mailman/mail/mailman"
+
+    mk_resource_methods
+
+    # Return a list of existing mailman instances.
+    def self.instances
+        list_lists.split("\n").reject { |line| line.include?("matching mailing lists") }.collect do |line|
+            name, description = line.sub(/^\s+/, '').sub(/\s+$/, '').split(/\s+-\s+/)
+            if description.include?("no description available")
+                description = :absent
+            end
+            new(:ensure => :present, :name => name, :description => description)
+        end
+    end
+
+    # Prefetch our list list, yo.
+    def self.prefetch(lists)
+        instances.each do |prov|
+            if list = lists[prov.name]
+                list.provider = prov
+            end
+        end
+    end
+
+    def aliases
+        mailman = self.class.command(:mailman)
+        aliases = {self.name => "| #{mailman} post #{self.name}"}
+        %w{admin bounces confirm join leave owner request subscribe unsubscribe}.each do |address|
+            aliases["%s-%s" % [self.name, address]] = "| %s %s %s" % [mailman, address, name]
+        end
+        aliases
+    end
+
+    # Create the list.
+    def create
+        args = []
+        if val = @resource[:mailserver]
+            args << "--emailhost" << val
+        end
+        if val = @resource[:webserver]
+            args << "--urlhost" << val
+        end
+
+        args << self.name
+        if val = @resource[:admin]
+            args << val
+        else
+            raise ArgumentError, "Mailman lists require an administrator email address"
+        end
+        if val = @resource[:password]
+            args << val
+        else
+            raise ArgumentError, "Mailman lists require an administrator password"
+        end
+        newlist(*args)
+    end
+
+    # Delete the list.
+    def delete(purge = false)
+        args = []
+        if purge
+            args << "--archives"
+        end
+        args << self.name
+        rmlist(*args)
+    end
+
+    # Does our list exist already?
+    def exists?
+        properties[:ensure] != :absent
+    end
+
+    # Clear out the cached values.
+    def flush
+        @property_hash.clear
+    end
+
+    # Look up the current status.
+    def properties
+        if @property_hash.empty?
+            @property_hash = query || {:ensure => :absent}
+            if @property_hash.empty?
+                @property_hash[:ensure] = :absent
+            end
+        end
+        @property_hash.dup
+    end
+
+    # Remove the list and its archives.
+    def purge
+        delete(true)
+    end
+
+    # Pull the current state of the list from the full list.  We're
+    # getting some double entendre here....
+    def query
+        self.class.instances.each do |list|
+            if list.name == self.name
+                return list.property_hash
+            end
+        end
+        nil
+    end
+end
+
+# $Id$