Registry Defined Type

subkey.pp

# Use it

# I want this windows machine to announce the time as described at:
# http://support.microsoft.com/kb/816042
registry::subkey { 'HKLM\System\CurrentControlSet\Services\W32Time\Config\AnnounceFlags':
 value_data => 'A',
 value_type => DWORD,
}

# The definition

define registry::subkey($ensure = present, $subkey=undef, $value_data=undef, $value_type=undef) {
  $subkey_real = $subkey? {
    undef   => $name,
    default => $subkey,
  }

  # dirname() and basename() should definitely be in stdlib.  If they're not, we write them.
  $key_name   = dirname($subkey_real)
  $value_name = basename($subkey_real)

  # Always manage the parent key
  if ! defined("Registry_key[$key_name]") {
    registry_key { $key_name:
      ensure => present,
    }
  }
  # Finally manage the value
  registry_value { "${key_name}:${value_name}":
    ensure => $ensure,
    data => $value_data,
    type => $value_type,
    require => Registry_key[$key_name],
  }
}