try if downgrading to 1.2.2 solves my problem
[mirror/dsa-puppet.git] / 3rdparty / modules / concat / manifests / fragment.pp
1 # == Define: concat::fragment
2 #
3 # Puts a file fragment into a directory previous setup using concat
4 #
5 # === Options:
6 #
7 # [*target*]
8 #   The file that these fragments belong to
9 # [*content*]
10 #   If present puts the content into the file
11 # [*source*]
12 #   If content was not specified, use the source
13 # [*order*]
14 #   By default all files gets a 10_ prefix in the directory you can set it to
15 #   anything else using this to influence the order of the content in the file
16 # [*ensure*]
17 #   Present/Absent or destination to a file to include another file
18 # [*mode*]
19 #   Deprecated
20 # [*owner*]
21 #   Deprecated
22 # [*group*]
23 #   Deprecated
24 # [*backup*]
25 #   Deprecated
26 #
27 define concat::fragment(
28     $target,
29     $content = undef,
30     $source  = undef,
31     $order   = '10',
32     $ensure  = undef,
33     $mode    = undef,
34     $owner   = undef,
35     $group   = undef,
36     $backup  = undef
37 ) {
38   validate_string($target)
39   validate_string($content)
40   if !(is_string($source) or is_array($source)) {
41     fail('$source is not a string or an Array.')
42   }
43   if !(is_string($order) or is_integer($order)) {
44     fail('$order is not a string or integer.')
45   } elsif (is_string($order) and $order =~ /[:\n\/]/) {
46     fail("Order cannot contain '/', ':', or '\n'.")
47   }
48   if $mode {
49     warning('The $mode parameter to concat::fragment is deprecated and has no effect')
50   }
51   if $owner {
52     warning('The $owner parameter to concat::fragment is deprecated and has no effect')
53   }
54   if $group {
55     warning('The $group parameter to concat::fragment is deprecated and has no effect')
56   }
57   if $backup {
58     warning('The $backup parameter to concat::fragment is deprecated and has no effect')
59   }
60
61   $my_backup = concat_getparam(Concat[$target], 'backup')
62   $_backup = $my_backup ? {
63     ''      => undef,
64     default => $my_backup
65   }
66
67   if $ensure == undef {
68     $my_ensure = concat_getparam(Concat[$target], 'ensure')
69   } else {
70     if ! ($ensure in [ 'present', 'absent' ]) {
71       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.')
72     }
73     $my_ensure = $ensure
74   }
75
76   include concat::setup
77
78   $safe_name        = regsubst($name, '[/:\n]', '_', 'GM')
79   $safe_target_name = regsubst($target, '[/:\n]', '_', 'GM')
80   $concatdir        = $concat::setup::concatdir
81   $fragdir          = "${concatdir}/${safe_target_name}"
82   $fragowner        = $concat::setup::fragment_owner
83   $fraggroup        = $concat::setup::fragment_group
84   $fragmode         = $concat::setup::fragment_mode
85
86   # The file type's semantics are problematic in that ensure => present will
87   # not over write a pre-existing symlink.  We are attempting to provide
88   # backwards compatiblity with previous concat::fragment versions that
89   # supported the file type's ensure => /target syntax
90
91   # be paranoid and only allow the fragment's file resource's ensure param to
92   # be file, absent, or a file target
93   $safe_ensure = $my_ensure ? {
94     ''        => 'file',
95     undef     => 'file',
96     'file'    => 'file',
97     'present' => 'file',
98     'absent'  => 'absent',
99     default   => $my_ensure,
100   }
101
102   # if it looks line ensure => /target syntax was used, fish that out
103   if ! ($my_ensure in ['', 'present', 'absent', 'file' ]) {
104     $ensure_target = $my_ensure
105   } else {
106     $ensure_target = undef
107   }
108
109   # the file type's semantics only allows one of: ensure => /target, content,
110   # or source
111   if ($ensure_target and $source) or
112     ($ensure_target and $content) or
113     ($source and $content) {
114     fail('You cannot specify more than one of $content, $source, $ensure => /target')
115   }
116
117   if ! ($content or $source or $ensure_target) {
118     crit('No content, source or symlink specified')
119   }
120
121   file { "${fragdir}/fragments/${order}_${safe_name}":
122     ensure  => $safe_ensure,
123     owner   => $fragowner,
124     group   => $fraggroup,
125     mode    => $fragmode,
126     source  => $source,
127     content => $content,
128     backup  => $_backup,
129     replace => true,
130     alias   => "concat_fragment_${name}",
131     notify  => Exec["concat_${target}"]
132   }
133 }