Rename mga-common module to mga_common.

New puppet version doesn't like modules with a - in their name.

6 files changed, 67 insertions, 0 deletions

diff --git a/modules/mga_common/lib/puppet/parser/functions/group_members.rb b/modules/mga_common/lib/puppet/parser/functions/group_members.rb
new file mode 100644
index 00000000..c5cecbe8
--- /dev/null
+++ b/modules/mga_common/lib/puppet/parser/functions/group_members.rb
@@ -0,0 +1,10 @@
+require 'etc'
+# group_members($group)
+#   -> return a array with the login of the group members
+
+module Puppet::Parser::Functions
+    newfunction(:group_members, :type => :rvalue) do |args| 
+        group = args[0]
+        return Etc.getgrnam(group).mem
+    end
+end
diff --git a/modules/mga_common/lib/puppet/parser/functions/hash_keys.rb b/modules/mga_common/lib/puppet/parser/functions/hash_keys.rb
new file mode 100644
index 00000000..3a926bee
--- /dev/null
+++ b/modules/mga_common/lib/puppet/parser/functions/hash_keys.rb
@@ -0,0 +1,10 @@
+module Puppet::Parser::Functions
+    newfunction(:hash_keys, :type => :rvalue) do |args|
+	unless args[0].is_a?(Hash)
+	    Puppet.warning "hash_keys takes one argument, the input hash"
+	    nil
+	else
+	    args[0].keys
+	end
+    end
+end
diff --git a/modules/mga_common/lib/puppet/parser/functions/hash_merge.rb b/modules/mga_common/lib/puppet/parser/functions/hash_merge.rb
new file mode 100644
index 00000000..375bffa4
--- /dev/null
+++ b/modules/mga_common/lib/puppet/parser/functions/hash_merge.rb
@@ -0,0 +1,11 @@
+module Puppet::Parser::Functions
+    newfunction(:hash_merge, :type => :rvalue) do |args|
+	unless args[0].is_a?(Hash) and args[1].is_a?(Hash)
+	    Puppet.warning "hash_merge takes two arguments"
+	    nil
+	else
+	    print "hash_merge\n"
+	    args[0].merge(args[1])
+	end
+    end
+end
diff --git a/modules/mga_common/lib/puppet/parser/functions/str_join.rb b/modules/mga_common/lib/puppet/parser/functions/str_join.rb
new file mode 100644
index 00000000..de97bfb5
--- /dev/null
+++ b/modules/mga_common/lib/puppet/parser/functions/str_join.rb
@@ -0,0 +1,11 @@
+# str_join($array, $sep)
+#   -> return a string created by converting each element of the array to
+#   a string, separated by $sep
+
+module Puppet::Parser::Functions
+    newfunction(:str_join, :type => :rvalue) do |args| 
+	array = args[0]
+	sep = args[1]
+	return array.join(sep)
+    end
+end
diff --git a/modules/mga_common/manifests/local_script.pp b/modules/mga_common/manifests/local_script.pp
new file mode 100644
index 00000000..70aad7b0
--- /dev/null
+++ b/modules/mga_common/manifests/local_script.pp
@@ -0,0 +1,22 @@
+define mga_common::local_script(
+                $content = undef,
+                $source = undef,
+		$owner = 'root',
+		$group = 'root',
+		$mode = '0755') {
+    $filename = "/usr/local/bin/$name"
+    file { $filename:
+	owner   => $owner,
+	group   => $group,
+	mode    => $mode,
+    }
+    if ($source == undef) {
+	File[$filename] {
+	    content => $content,
+	}
+    } else {
+	File[$filename] {
+	    source => $source,
+	}
+    }
+}
diff --git a/modules/mga_common/manifests/var/perl.pp b/modules/mga_common/manifests/var/perl.pp
new file mode 100644
index 00000000..47ff54be
--- /dev/null
+++ b/modules/mga_common/manifests/var/perl.pp
@@ -0,0 +1,3 @@
+class mga_common::var::perl(
+    $site_perl_dir = '/usr/lib/perl5/site_perl'
+) {}