#

# CDDL HEADER START

#

# The contents of this file are subject to the terms of the

# Common Development and Distribution License (the "License").

# You may not use this file except in compliance with the License.

#

# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE

# or http://www.opensolaris.org/os/licensing.

# See the License for the specific language governing permissions

# and limitations under the License.

#

# When distributing Covered Code, include this CDDL HEADER in each

# file and include the License file at usr/src/OPENSOLARIS.LICENSE.

# If applicable, add the following below this CDDL HEADER, with the

# fields enclosed by brackets "[]" replaced with your own identifying

# information: Portions Copyright [yyyy] [name of copyright owner]

#

# CDDL HEADER END

#

#

# Copyright (c) 2013, Oracle and/or its affiliates. All rights reserved.

#

require 'ipaddr'

require 'puppet/property/list'

def valid_hostname?(hostname)

    return false if hostname.length > 255 or hostname.scan('..').any?

    hostname = hostname[0...-1] if hostname.index('.', -1)

    return hostname.split('.').collect { |i|

        i.size <= 63 and

        not (i.rindex('-', 0) or i.index('-', -1) or i.scan(/[^a-z\d-]/i).any?)

    }.all?

end

def valid_ip?(value)

    begin

        ip = IPAddr.new(value)

    rescue ArgumentError

        return false

    end

    return true

end

Puppet::Type.newtype(:ldap) do

    @doc = "Manage the configuration of the LDAP client for Oracle Solaris"

    newparam(:name) do

        desc "The LDAP profile name"

    end

    newproperty(:server_list, :parent => Puppet::Property::List) do

        desc "LDAP server names or addresses.  Specify multiple servers as an

              array"

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

        def should

        end

        def insync?(is)

            is = [] if is == :absent or is.nil?

            is.sort == self.should.sort

        end

        # svcprop returns multivalue entries delimited with a space

        def delimiter

            " "

        end

        validate do |value|

            raise Puppet::Error, "default_server entry:  #{value} is 

                invalid" if not valid_ip?(value) and not valid_hostname?(value)

        end

    end

    newproperty(:preferred_server_list, :parent => Puppet::Property::List) do

        desc "LDAP server(s) to contact before any servers listed in

              default_server_list"

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

        def should

        end

        def insync?(is)

            is = [] if is == :absent or is.nil?

            is.sort == self.should.sort

        end

        # svcprop returns multivalue entries delimited with a space

        def delimiter

            " "

        end

        validate do |value|

            raise Puppet::Error, "preferred_server entry:  #{value} is 

                invalid" if not valid_ip?(value) and not valid_hostname?(value)

        end

    end

    newproperty(:search_base) do

        desc "The default search base DN"

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

    end

    newproperty(:search_scope) do

        desc "The default search scope for the client's search operations.

              Valid values are base, one, sub."

        newvalues("base", "one", "sub")

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

    end

    newproperty(:authentication_method, :parent => Puppet::Property::List) do

        desc "The default authentication method(s).  Specify multiple methods

              as an array.  Valid values are none, simple, sasl/CRAM-MD5,

              sasl/DIGEST-MD5, sasl/GSSAPI, tls:simple, tls:sasl/CRAM-MD5,

              tls:sasl/DIGEST-MD5"

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

        def should

        end

        def insync?(is)

            is = [] if is == :absent or is.nil?

            is.sort == self.should.sort

        end

        # svcprop returns multivalue entries delimited with a space

        def delimiter

            " "

        end

        newvalues("none", "simple", "sasl/CRAM-MD5", "sasl/DIGEST-MD5",

                  "sasl/GSSAPI", "tls:simple", "tls:sasl/CRAM-MD5",

                  "tls:sasl/DIGEST-MD5")

    end

    newproperty(:credential_level) do

        desc "The credential level the client should use to contact the

              directory.  Valid values are anonymous, proxy, self"

        newvalues("anonymous", "proxy", "self")

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

    end

    newproperty(:search_time_limit) do

        desc "The maximum number of seconds allowed for an LDAP search

              operation."

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

    end

    newproperty(:bind_time_limit) do

        desc "The maximum number of seconds a client should spend performing a

              bind operation."

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

    end

    newproperty(:follow_referrals) do

        desc "The referral setting.  Valid values are true, false"

        newvalues(:true, :false)

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

    end

    newproperty(:profile_ttl) do

        desc "The TTL value in seconds for the client information"

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

    end

    newproperty(:attribute_map, :parent => Puppet::Property::List) do

        desc "A mapping from an attribute defined by a service to an attribute

              in an alternative schema.  Specify multiple mappings as an array."

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

        def should

        end

        def insync?(is)

            is = [] if is == :absent or is.nil?

            is.sort == self.should.sort

        end

        # svcprop returns multivalue entries delimited with a space

        def delimiter

            " "

        end

    end

    newproperty(:objectclass_map, :parent => Puppet::Property::List) do

        desc "A  mapping from an objectclass defined by a service to an

              objectclass in an alternative schema.  Specify multiple mappings

              as an array."

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

        def should

        end

        def insync?(is)

            is = [] if is == :absent or is.nil?

            is.sort == self.should.sort

        end

        # svcprop returns multivalue entries delimited with a space

        def delimiter

            " "

        end

    end

    newproperty(:service_credential_level) do

        desc "The credential level to be used by a service.  Value values are

              anonymous, proxy"

        newvalues("anonymous", "proxy")

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

    end

    newproperty(:service_authentication_method,

                :parent => Puppet::Property::List) do

        desc "The authentication method to be used by a service.  Specify

              multiple methods as an array."

        class << self

            attr_accessor :pg

        end

        self.pg = "config"

        def should

        end

        def insync?(is)

            is = [] if is == :absent or is.nil?

            is.sort == self.should.sort

        end

        # svcprop returns multivalue entries delimited with a space

        def delimiter

            " "

        end

    end

    newproperty(:bind_dn, :parent => Puppet::Property::List) do

        desc "An entry that has read permission for the requested database.

              Specify multiple entries as an array."

        class << self

            attr_accessor :pg

        end

        self.pg = "cred"

        def should

        end

        def insync?(is)

            is = [] if is == :absent or is.nil?

            is.sort == self.should.sort

        end

        # svcprop returns multivalue entries delimited with a space

        def delimiter

            " "

        end

    end

    newproperty(:bind_passwd) do

        desc "password to be used for authenticating the bind DN."

        class << self

            attr_accessor :pg

        end

        self.pg = "cred"

    end

    newproperty(:enable_shadow_update) do

        desc "Specify whether the client is allowed to update shadow

              information.  Valid values are true, false"

        newvalues(:true, :false)

        class << self

            attr_accessor :pg

        end

        self.pg = "cred"

    end

    newproperty(:admin_bind_dn) do

        desc "The Bind Distinguised Name for the administrator identity that

              is used for shadow information update"

        class << self

            attr_accessor :pg

        end

        self.pg = "cred"

    end

    newproperty(:admin_bind_passwd) do

        desc "The administrator password"

        class << self

            attr_accessor :pg

        end

        self.pg = "cred"

    end

    newproperty(:certificate_path) do

        desc "The location of the certificate files"

        class << self

            attr_accessor :pg

        end

        self.pg = "cred"

    end

end