4980d72792
The maillist type in puppet has pluggable providers. The default mailman one assumes that clearly you want a ton of entries in /etc/aliases. Since we do not want a ton of entries in /etc/aliases, subclass that provider and override the bits that make us sad. Change-Id: I86bcbe2665dfa18d766a03a60263a37088a53b5c
120 lines
3.3 KiB
Ruby
120 lines
3.3 KiB
Ruby
# Copyright (c) 2014 Hewlett-Packard Development Company, L.P.
|
|
#
|
|
# Licensed under the Apache License, Version 2.0 (the "License");
|
|
# you may not use this file except in compliance with the License.
|
|
# You may obtain a copy of the License at
|
|
#
|
|
# http://www.apache.org/licenses/LICENSE-2.0
|
|
#
|
|
# Unless required by applicable law or agreed to in writing, software
|
|
# distributed under the License is distributed on an "AS IS" BASIS,
|
|
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
|
|
# implied.
|
|
# See the License for the specific language governing permissions and
|
|
# limitations under the License.
|
|
|
|
# Puppet maillist provider for mailman mailing lists.
|
|
# Based on the 'mailman' package provider in puppet 2.7, except this one
|
|
# does not muck with aliases.
|
|
|
|
require 'puppet/provider/parsedfile'
|
|
|
|
Puppet::Type.type(:maillist).provide(:noaliasmailman) do
|
|
|
|
defaultfor :kernel => 'Linux'
|
|
|
|
if [ "CentOS", "RedHat", "Fedora" ].any? { |os| Facter.value(:operatingsystem) == os }
|
|
commands :list_lists => "/usr/lib/mailman/bin/list_lists", :rmlist => "/usr/lib/mailman/bin/rmlist", :newlist => "/usr/lib/mailman/bin/newlist"
|
|
commands :mailman => "/usr/lib/mailman/mail/mailman"
|
|
else
|
|
# This probably won't work for non-Debian installs, but this path is sure not to be in the PATH.
|
|
commands :list_lists => "list_lists", :rmlist => "rmlist", :newlist => "newlist"
|
|
commands :mailman => "/var/lib/mailman/mail/mailman"
|
|
end
|
|
|
|
mk_resource_methods
|
|
|
|
# Return a list of existing mailman instances.
|
|
def self.instances
|
|
list_lists('--bare').
|
|
split("\n").
|
|
collect { |line| new(:ensure => :present, :name => line.strip) }
|
|
end
|
|
|
|
# Prefetch our list list, yo.
|
|
def self.prefetch(lists)
|
|
instances.each do |prov|
|
|
if list = lists[prov.name] || lists[prov.name.downcase]
|
|
list.provider = prov
|
|
end
|
|
end
|
|
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 destroy(purge = false)
|
|
args = []
|
|
args << "--archives" if purge
|
|
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}
|
|
@property_hash[:ensure] = :absent if @property_hash.empty?
|
|
end
|
|
@property_hash.dup
|
|
end
|
|
|
|
# Remove the list and its archives.
|
|
def purge
|
|
destroy(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 or list.name.downcase == self.name
|
|
return list.properties
|
|
end
|
|
end
|
|
nil
|
|
end
|
|
end
|