-# == Define: concat::fragment
+# Creates a concat_fragment in the catalogue
#
-# Puts a file fragment into a directory previous setup using concat
-#
-# === Options:
-#
-# [*target*]
-# The file that these fragments belong to
-# [*content*]
-# If present puts the content into the file
-# [*source*]
-# If content was not specified, use the source
-# [*order*]
+# @param target The file that these fragments belong to
+# @param content If present puts the content into the file
+# @param source If content was not specified, use the source
+# @param order
# By default all files gets a 10_ prefix in the directory you can set it to
# anything else using this to influence the order of the content in the file
-# [*ensure*]
-# Present/Absent or destination to a file to include another file
-# [*mode*]
-# Deprecated
-# [*owner*]
-# Deprecated
-# [*group*]
-# Deprecated
-# [*backup*]
-# Deprecated
#
define concat::fragment(
- $target,
- $content = undef,
- $source = undef,
- $order = '10',
- $ensure = undef,
- $mode = undef,
- $owner = undef,
- $group = undef,
- $backup = undef
+ String $target,
+ Optional[String] $content = undef,
+ Optional[Variant[String, Array]] $source = undef,
+ Variant[String, Integer] $order = '10',
) {
- validate_string($target)
- validate_string($content)
- if !(is_string($source) or is_array($source)) {
- fail('$source is not a string or an Array.')
- }
- if !(is_string($order) or is_integer($order)) {
- fail('$order is not a string or integer.')
- } elsif (is_string($order) and $order =~ /[:\n\/]/) {
- fail("Order cannot contain '/', ':', or '\n'.")
- }
- if $mode {
- warning('The $mode parameter to concat::fragment is deprecated and has no effect')
- }
- if $owner {
- warning('The $owner parameter to concat::fragment is deprecated and has no effect')
- }
- if $group {
- warning('The $group parameter to concat::fragment is deprecated and has no effect')
- }
- if $backup {
- warning('The $backup parameter to concat::fragment is deprecated and has no effect')
- }
-
- $my_backup = concat_getparam(Concat[$target], 'backup')
- $_backup = $my_backup ? {
- '' => undef,
- default => $my_backup
- }
-
- if $ensure == undef {
- $my_ensure = concat_getparam(Concat[$target], 'ensure')
- } else {
- if ! ($ensure in [ 'present', 'absent' ]) {
- warning('Passing a value other than \'present\' or \'absent\' as the $ensure parameter to concat::fragment is deprecated. If you want to use the content of a file as a fragment please use the $source parameter.')
- }
- $my_ensure = $ensure
- }
-
- include concat::setup
-
- $safe_name = regsubst($name, '[/:\n]', '_', 'GM')
- $safe_target_name = regsubst($target, '[/:\n]', '_', 'GM')
- $concatdir = $concat::setup::concatdir
- $fragdir = "${concatdir}/${safe_target_name}"
- $fragowner = $concat::setup::fragment_owner
- $fraggroup = $concat::setup::fragment_group
- $fragmode = $concat::setup::fragment_mode
-
- # The file type's semantics are problematic in that ensure => present will
- # not over write a pre-existing symlink. We are attempting to provide
- # backwards compatiblity with previous concat::fragment versions that
- # supported the file type's ensure => /target syntax
-
- # be paranoid and only allow the fragment's file resource's ensure param to
- # be file, absent, or a file target
- $safe_ensure = $my_ensure ? {
- '' => 'file',
- undef => 'file',
- 'file' => 'file',
- 'present' => 'file',
- 'absent' => 'absent',
- default => $my_ensure,
- }
+ $resource = 'Concat::Fragment'
- # if it looks line ensure => /target syntax was used, fish that out
- if ! ($my_ensure in ['', 'present', 'absent', 'file' ]) {
- $ensure_target = $my_ensure
- } else {
- $ensure_target = undef
+ if (is_string($order) and $order =~ /[:\n\/]/) {
+ fail("${resource}['${title}']: 'order' cannot contain '/', ':', or '\n'.")
}
- # the file type's semantics only allows one of: ensure => /target, content,
- # or source
- if ($ensure_target and $source) or
- ($ensure_target and $content) or
- ($source and $content) {
- fail('You cannot specify more than one of $content, $source, $ensure => /target')
- }
-
- if ! ($content or $source or $ensure_target) {
+ if ! ($content or $source) {
crit('No content, source or symlink specified')
+ } elsif ($content and $source) {
+ fail("${resource}['${title}']: Can't use 'source' and 'content' at the same time.")
}
- file { "${fragdir}/fragments/${order}_${safe_name}":
- ensure => $safe_ensure,
- owner => $fragowner,
- group => $fraggroup,
- mode => $fragmode,
- source => $source,
+ $safe_target_name = regsubst($target, '[/:~\n\s\+\*\(\)@]', '_', 'GM')
+
+ concat_fragment { $name:
+ target => $target,
+ tag => $safe_target_name,
+ order => $order,
content => $content,
- backup => $_backup,
- replace => true,
- alias => "concat_fragment_${name}",
- notify => Exec["concat_${target}"]
+ source => $source,
}
}