puppet-parse 0.0.1 → 0.0.2

data/lib/vendor/puppet/type/macauthorization.rb

@@ -0,0 +1,167 @@
+Puppet::Type.newtype(:macauthorization) do
+
+  @doc = "Manage the Mac OS X authorization database. See the
+    [Apple developer site](http://developer.apple.com/documentation/Security/Conceptual/Security_Overview/Security_Services/chapter_4_section_5.html)
+    for more information.
+
+    Note that authorization store directives with hyphens in their names have
+    been renamed to use underscores, as Puppet does not react well to hyphens
+    in identifiers.
+
+    **Autorequires:** If Puppet is managing the `/etc/authorization` file, each
+    macauthorization resource will autorequire it."
+
+  ensurable
+
+  autorequire(:file) do
+    ["/etc/authorization"]
+  end
+
+  def munge_boolean(value)
+    case value
+    when true, "true", :true
+      :true
+    when false, "false", :false
+      :false
+    else
+      fail("munge_boolean only takes booleans")
+    end
+  end
+
+  def munge_integer(value)
+      Integer(value)
+  rescue ArgumentError
+      fail("munge_integer only takes integers")
+  end
+
+  newparam(:name) do
+    desc "The name of the right or rule to be managed.
+    Corresponds to `key` in Authorization Services. The key is the name
+    of a rule. A key uses the same naming conventions as a right. The
+    Security Server uses a rule's key to match the rule with a right.
+    Wildcard keys end with a '.'. The generic rule has an empty key value.
+    Any rights that do not match a specific rule use the generic rule."
+
+    isnamevar
+  end
+
+  newproperty(:auth_type) do
+    desc "Type --- this can be a `right` or a `rule`. The `comment` type has
+    not yet been implemented."
+
+    newvalue(:right)
+    newvalue(:rule)
+    # newvalue(:comment)  # not yet implemented.
+  end
+
+  newproperty(:allow_root, :boolean => true) do
+    desc "Corresponds to `allow-root` in the authorization store. Specifies
+    whether a right should be allowed automatically if the requesting process
+    is running with `uid == 0`.  AuthorizationServices defaults this attribute
+    to false if not specified."
+
+    newvalue(:true)
+    newvalue(:false)
+
+    munge do |value|
+      @resource.munge_boolean(value)
+    end
+  end
+
+  newproperty(:authenticate_user, :boolean => true) do
+    desc "Corresponds to `authenticate-user` in the authorization store."
+
+    newvalue(:true)
+    newvalue(:false)
+
+    munge do |value|
+      @resource.munge_boolean(value)
+    end
+  end
+
+  newproperty(:auth_class) do
+    desc "Corresponds to `class` in the authorization store; renamed due
+    to 'class' being a reserved word in Puppet."
+
+    newvalue(:user)
+    newvalue(:'evaluate-mechanisms')
+    newvalue(:allow)
+    newvalue(:deny)
+    newvalue(:rule)
+  end
+
+  newproperty(:comment) do
+    desc "The `comment` attribute for authorization resources."
+  end
+
+  newproperty(:group) do
+    desc "A group which the user must authenticate as a member of. This
+    must be a single group."
+  end
+
+  newproperty(:k_of_n) do
+    desc "How large a subset of rule mechanisms must succeed for successful
+    authentication. If there are 'n' mechanisms, then 'k' (the integer value
+    of this parameter) mechanisms must succeed. The most common setting for
+    this parameter is `1`. If `k-of-n` is not set, then every mechanism ---
+    that is, 'n-of-n' --- must succeed."
+
+    munge do |value|
+      @resource.munge_integer(value)
+    end
+  end
+
+  newproperty(:mechanisms, :array_matching => :all) do
+    desc "An array of suitable mechanisms."
+  end
+
+  newproperty(:rule, :array_matching => :all) do
+    desc "The rule(s) that this right refers to."
+  end
+
+  newproperty(:session_owner, :boolean => true) do
+    desc "Whether the session owner automatically matches this rule or right.
+    Corresponds to `session-owner` in the authorization store."
+
+    newvalue(:true)
+    newvalue(:false)
+
+    munge do |value|
+      @resource.munge_boolean(value)
+    end
+  end
+
+  newproperty(:shared, :boolean => true) do
+    desc "Whether the Security Server should mark the credentials used to gain
+    this right as shared. The Security Server may use any shared credentials
+    to authorize this right. For maximum security, set sharing to false so
+    credentials stored by the Security Server for one application may not be
+    used by another application."
+
+    newvalue(:true)
+    newvalue(:false)
+
+    munge do |value|
+      @resource.munge_boolean(value)
+    end
+  end
+
+  newproperty(:timeout) do
+    desc "The number of seconds in which the credential used by this rule will
+    expire. For maximum security where the user must authenticate every time,
+    set the timeout to 0. For minimum security, remove the timeout attribute
+    so the user authenticates only once per session."
+
+    munge do |value|
+      @resource.munge_integer(value)
+    end
+  end
+
+  newproperty(:tries) do
+    desc "The number of tries allowed."
+    munge do |value|
+      @resource.munge_integer(value)
+    end
+  end
+
+end

data/lib/vendor/puppet/type/mailalias.rb

@@ -0,0 +1,48 @@
+module Puppet
+  newtype(:mailalias) do
+    @doc = "Creates an email alias in the local alias database."
+
+    ensurable
+
+    newparam(:name, :namevar => true) do
+      desc "The alias name."
+    end
+
+    newproperty(:recipient, :array_matching => :all) do
+      desc "Where email should be sent.  Multiple values
+        should be specified as an array."
+
+      def is_to_s(value)
+        if value.include?(:absent)
+          super
+        else
+          value.join(",")
+        end
+      end
+
+      def should
+        @should
+      end
+
+      def should_to_s(value)
+        if value.include?(:absent)
+          super
+        else
+          value.join(",")
+        end
+      end
+    end
+
+    newproperty(:target) do
+      desc "The file in which to store the aliases.  Only used by
+        those providers that write to disk."
+
+      defaultto { if @resource.class.defaultprovider.ancestors.include?(Puppet::Provider::ParsedFile)
+          @resource.class.defaultprovider.default_target
+        else
+          nil
+        end
+      }
+    end
+  end
+end

data/lib/vendor/puppet/type/maillist.rb

@@ -0,0 +1,62 @@
+module Puppet
+  newtype(:maillist) do
+    @doc = "Manage email lists.  This resource type can only create
+      and remove lists; it cannot currently reconfigure them."
+
+    ensurable do
+      defaultvalues
+
+      newvalue(:purged) do
+        provider.purge
+      end
+
+      def change_to_s(current_value, newvalue)
+        return "Purged #{resource}" if newvalue == :purged
+        super
+      end
+
+      def insync?(is)
+        return true if is == :absent && should == :purged
+        super
+      end
+    end
+
+    newparam(:name, :namevar => true) do
+      desc "The name of the email list."
+    end
+
+    newparam(:description) do
+      desc "The description of the mailing list."
+    end
+
+    newparam(:password) do
+      desc "The admin password."
+    end
+
+    newparam(:webserver) do
+      desc "The name of the host providing web archives and the administrative interface."
+    end
+
+    newparam(:mailserver) do
+      desc "The name of the host handling email for the list."
+    end
+
+    newparam(:admin) do
+      desc "The email address of the administrator."
+    end
+
+    def generate
+      if provider.respond_to?(:aliases)
+        should = self.should(:ensure) || :present
+        if should == :purged
+          should = :absent
+        end
+        atype = Puppet::Type.type(:mailalias)
+
+        provider.aliases.
+          reject  { |name,recipient| catalog.resource(:mailalias, name) }.
+          collect { |name,recipient| atype.new(:name => name, :recipient => recipient, :ensure => should) }
+      end
+    end
+  end
+end

data/lib/vendor/puppet/type/mcx.rb

@@ -0,0 +1,99 @@
+Puppet::Type.newtype(:mcx) do
+
+  @doc = "MCX object management using DirectoryService on OS X.
+
+The default provider of this type merely manages the XML plist as
+reported by the `dscl -mcxexport` command.  This is similar to the
+content property of the file type in Puppet.
+
+The recommended method of using this type is to use Work Group Manager
+to manage users and groups on the local computer, record the resulting
+puppet manifest using the command `puppet resource mcx`, then deploy it
+to other machines.
+
+**Autorequires:** If Puppet is managing the user, group, or computer that these
+MCX settings refer to, the MCX resource will autorequire that user, group, or computer.
+"
+  feature :manages_content, \
+    "The provider can manage MCXSettings as a string.",
+    :methods => [:content, :content=]
+
+  ensurable do
+    desc "Create or remove the MCX setting."
+
+    newvalue(:present) do
+      provider.create
+    end
+
+    newvalue(:absent) do
+      provider.destroy
+    end
+
+  end
+
+  newparam(:name) do
+    desc "The name of the resource being managed.
+    The default naming convention follows Directory Service paths:
+
+        /Computers/localhost
+        /Groups/admin
+        /Users/localadmin
+
+    The `ds_type` and `ds_name` type parameters are not necessary if the
+    default naming convention is followed."
+    isnamevar
+  end
+
+  newparam(:ds_type) do
+
+    desc "The DirectoryService type this MCX setting attaches to."
+
+    newvalues(:user, :group, :computer, :computerlist)
+
+  end
+
+  newparam(:ds_name) do
+    desc "The name to attach the MCX Setting to. (For example, `localhost`
+    when `ds_type => computer`.) This setting is not required, as it can be
+    automatically discovered when the resource name is parseable.  (For
+    example, in `/Groups/admin`, `group` will be used as the dstype.)"
+  end
+
+  newproperty(:content, :required_features => :manages_content) do
+    desc "The XML Plist used as the value of MCXSettings in DirectoryService.
+    This is the standard output from the system command:
+
+        dscl localhost -mcxexport /Local/Default/<ds_type>/ds_name
+
+    Note that `ds_type` is capitalized and plural in the dscl command."
+  end
+
+  # JJM Yes, this is not DRY at all.  Because of the code blocks
+  # autorequire must be done this way.  I think.
+
+  def setup_autorequire(type)
+    # value returns a Symbol
+    name = value(:name)
+    ds_type = value(:ds_type)
+    ds_name = value(:ds_name)
+    if ds_type == type
+      rval = [ ds_name.to_s ]
+    else
+      rval = [ ]
+    end
+    rval
+  end
+
+  autorequire(:user) do
+    setup_autorequire(:user)
+  end
+
+  autorequire(:group) do
+    setup_autorequire(:group)
+  end
+
+  autorequire(:computer) do
+    setup_autorequire(:computer)
+  end
+
+end

data/lib/vendor/puppet/type/mount.rb

@@ -0,0 +1,241 @@
+module Puppet
+  # We want the mount to refresh when it changes.
+  newtype(:mount, :self_refresh => true) do
+    @doc = "Manages mounted filesystems, including putting mount
+      information into the mount table. The actual behavior depends
+      on the value of the 'ensure' parameter.
+
+      Note that if a `mount` receives an event from another resource,
+      it will try to remount the filesystems if `ensure` is set to `mounted`."
+
+    feature :refreshable, "The provider can remount the filesystem.",
+      :methods => [:remount]
+
+    # Use the normal parent class, because we actually want to
+    # call code when sync is called.
+    newproperty(:ensure) do
+      desc "Control what to do with this mount. Set this attribute to
+        `umounted` to make sure the filesystem is in the filesystem table
+        but not mounted (if the filesystem is currently mounted, it will be
+        unmounted).  Set it to `absent` to unmount (if necessary) and remove
+        the filesystem from the fstab.  Set to `mounted` to add it to the
+        fstab and mount it. Set to `present` to add to fstab but not change
+        mount/unmount status."
+
+      #  IS        -> SHOULD     In Sync  Action
+      #  ghost     -> present    NO       create
+      #  absent    -> present    NO       create
+      # (mounted   -> present    YES)
+      # (unmounted -> present    YES)
+      newvalue(:defined) do
+        provider.create
+        return :mount_created
+      end
+
+      aliasvalue :present, :defined
+
+      #  IS        -> SHOULD     In Sync  Action
+      #  ghost     -> unmounted  NO       create, unmount
+      #  absent    -> unmounted  NO       create
+      #  mounted   -> unmounted  NO       unmount
+      newvalue(:unmounted) do
+        case self.retrieve
+        when :ghost   # (not in fstab but mounted)
+          provider.create
+          @resource.flush
+          provider.unmount
+          return :mount_unmounted
+        when nil, :absent  # (not in fstab and not mounted)
+          provider.create
+          return :mount_created
+        when :mounted # (in fstab and mounted)
+          provider.unmount
+          syncothers # I guess it's more likely that the mount was originally mounted with
+                     # the wrong attributes so I sync AFTER the umount
+          return :mount_unmounted
+        else
+          raise Puppet::Error, "Unexpected change from #{current_value} to unmounted}"
+        end
+      end
+
+      #  IS        -> SHOULD     In Sync  Action
+      #  ghost     -> absent     NO       unmount
+      #  mounted   -> absent     NO       provider.destroy AND unmount
+      #  unmounted -> absent     NO       provider.destroy
+      newvalue(:absent, :event => :mount_deleted) do
+        current_value = self.retrieve
+        provider.unmount if provider.mounted?
+        provider.destroy unless current_value == :ghost
+      end
+
+      #  IS        -> SHOULD     In Sync  Action
+      #  ghost     -> mounted    NO       provider.create
+      #  absent    -> mounted    NO       provider.create AND mount
+      #  unmounted -> mounted    NO       mount
+      newvalue(:mounted, :event => :mount_mounted) do
+        # Create the mount point if it does not already exist.
+        current_value = self.retrieve
+        currently_mounted = provider.mounted?
+        provider.create if [nil, :absent, :ghost].include?(current_value)
+
+        syncothers
+
+        # The fs can be already mounted if it was absent but mounted
+        provider.property_hash[:needs_mount] = true unless currently_mounted
+      end
+
+      # insync: mounted   -> present
+      #         unmounted -> present
+      def insync?(is)
+        if should == :defined and [:mounted,:unmounted].include?(is)
+          true
+        else
+          super
+        end
+      end
+
+      def syncothers
+        # We have to flush any changes to disk.
+        currentvalues = @resource.retrieve_resource
+
+        # Determine if there are any out-of-sync properties.
+        oos = @resource.send(:properties).find_all do |prop|
+          unless currentvalues.include?(prop)
+            raise Puppet::DevError, "Parent has property %s but it doesn't appear in the current values", [prop.name]
+          end
+          if prop.name == :ensure
+            false
+          else
+            ! prop.safe_insync?(currentvalues[prop])
+          end
+        end.each { |prop| prop.sync }.length
+        @resource.flush if oos > 0
+      end
+    end
+
+    newproperty(:device) do
+      desc "The device providing the mount.  This can be whatever
+        device is supporting by the mount, including network
+        devices or devices specified by UUID rather than device
+        path, depending on the operating system."
+    end
+
+    # Solaris specifies two devices, not just one.
+    newproperty(:blockdevice) do
+      desc "The device to fsck.  This is property is only valid
+        on Solaris, and in most cases will default to the correct
+        value."
+
+      # Default to the device but with "dsk" replaced with "rdsk".
+      defaultto do
+        if Facter["operatingsystem"].value == "Solaris"
+          device = @resource.value(:device)
+          if device =~ %r{/dsk/}
+            device.sub(%r{/dsk/}, "/rdsk/")
+          else
+            nil
+          end
+        else
+          nil
+        end
+      end
+    end
+
+    newproperty(:fstype) do
+      desc "The mount type.  Valid values depend on the
+        operating system.  This is a required option."
+    end
+
+    newproperty(:options) do
+      desc "Mount options for the mounts, as they would
+        appear in the fstab."
+    end
+
+    newproperty(:pass) do
+      desc "The pass in which the mount is checked."
+
+      defaultto {
+        0 if @resource.managed?
+      }
+    end
+
+    newproperty(:atboot) do
+      desc "Whether to mount the mount at boot.  Not all platforms
+        support this."
+    end
+
+    newproperty(:dump) do
+      desc "Whether to dump the mount.  Not all platform support this.
+        Valid values are `1` or `0`. or `2` on FreeBSD, Default is `0`."
+
+      if Facter["operatingsystem"].value == "FreeBSD"
+        newvalue(%r{(0|1|2)})
+      else
+        newvalue(%r{(0|1)})
+      end
+
+      newvalue(%r{(0|1)})
+
+      defaultto {
+        0 if @resource.managed?
+      }
+    end
+
+    newproperty(:target) do
+      desc "The file in which to store the mount table.  Only used by
+        those providers that write to disk."
+
+      defaultto { if @resource.class.defaultprovider.ancestors.include?(Puppet::Provider::ParsedFile)
+          @resource.class.defaultprovider.default_target
+        else
+          nil
+        end
+      }
+    end
+
+    newparam(:name) do
+      desc "The mount path for the mount."
+
+      isnamevar
+    end
+
+    newparam(:path) do
+      desc "The deprecated name for the mount point.  Please use `name` now."
+
+      def value=(value)
+        warning "'path' is deprecated for mounts.  Please use 'name'."
+        @resource[:name] = value
+        super
+      end
+    end
+
+    newparam(:remounts) do
+      desc "Whether the mount can be remounted  `mount -o remount`.  If
+        this is false, then the filesystem will be unmounted and remounted
+        manually, which is prone to failure."
+
+      newvalues(:true, :false)
+      defaultto do
+        case Facter.value(:operatingsystem)
+        when "FreeBSD", "Darwin", "AIX"
+          false
+        else
+          true
+        end
+      end
+    end
+
+    def refresh
+      # Only remount if we're supposed to be mounted.
+      provider.remount if self.should(:fstype) != "swap" and provider.mounted?
+    end
+
+    def value(name)
+      name = name.intern
+      ret = nil
+      if property = @parameters[name]
+        return property.value
+      end
+    end
+  end
+end

data/lib/vendor/puppet/type/nagios_command.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :command

data/lib/vendor/puppet/type/nagios_contact.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :contact

data/lib/vendor/puppet/type/nagios_contactgroup.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :contactgroup

data/lib/vendor/puppet/type/nagios_host.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :host

data/lib/vendor/puppet/type/nagios_hostdependency.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :hostdependency

data/lib/vendor/puppet/type/nagios_hostescalation.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :hostescalation

data/lib/vendor/puppet/type/nagios_hostextinfo.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :hostextinfo

data/lib/vendor/puppet/type/nagios_hostgroup.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :hostgroup

data/lib/vendor/puppet/type/nagios_service.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :service

data/lib/vendor/puppet/type/nagios_servicedependency.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :servicedependency

data/lib/vendor/puppet/type/nagios_serviceescalation.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :serviceescalation

data/lib/vendor/puppet/type/nagios_serviceextinfo.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :serviceextinfo

data/lib/vendor/puppet/type/nagios_servicegroup.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :servicegroup

data/lib/vendor/puppet/type/nagios_timeperiod.rb

@@ -0,0 +1,3 @@
+require 'puppet/util/nagios_maker'
+
+Puppet::Util::NagiosMaker.create_nagios_type :timeperiod