# $Id: nfs_export.rb 2613 2009-06-21 17:43:52Z uwaechte $

Puppet::Type.newtype(:nfs_export) do
  @doc = "Manages nfs-server's /etc/exports file."

  ensurable

  newproperty(:export_point) do
    desc "The directory which is exported"
    isnamevar
  end

  newproperty(:client) do
    desc "The client addresses (or wildcards) to which the export_point should be exported"
    # check for invalid characters
    validate do |value|
      unless value =~ /[-\w\*\?\/\@\.]+/
	raise ArgumentError, "%s is not a valid client specification" % value
      end
    end
  end

  newproperty(:options) do
    desc "Export options in linux-style notation. Those options that are applicable in FreeBSD are converted automatically."
    defaultto "rw,no_subtree_check"    
    munge do |value| 
      if Facter.value(:kernel) == "FreeBSD"
	linux_to_bsd_options(value)
      else
        super
      end
    end

    
    def linux_to_bsd_options(opts)
      options = []
      optarr = opts.split(",")
      optarr.each { |opt|
	case opt
	when "ro":
	  options << "-ro"
	when "no_root_squash"
	  options << "-maproot=root"
	when "root_squash"
	  uid=nil
	  gid=nil
	  optarr.each { |k|
	    case k 
	    when /anonuid=(.*)/
	      uid=$1
	    when /anongid=(.*)/
	      gid=$1
	    end
	  }
	  map=[]
	  if !uid.nil?
	    map << uid.to_s
	  end
	  if !gid.nil?
	    map << gid.to_s
	  end
	  if map.length > 0
	    maps = map.join(":")
	  else
	    maps = "root"
	  end
	  options << "-maproot=#{maps}"
	when "all_squash"
	  uid=nil
	  gid=nil
	  optarr.each { |k|
	    case k 
	    when /anonuid=(.*)/
	      uid=$1
	    when /anongid=(.*)/
	      gid=$1
	    end
	  }
	  map=[]
	  if !uid.nil?
	    map << uid.to_s
	  end
	  if !gid.nil?
	    map << gid.to_s
	  end
	  if map.length > 0
	    maps = map.join(":")
	  else
	    maps = "nobody"
	  end
	  options << "-mapall=#{maps}"
	end
      }
      return options.join(" ")
    end
    
  end

  newparam(:name, :namevar => true) do
    desc "The name of this export"
  end
end