From 1a05343d41fb6d7fb4c3f6a1b2cdc9522bb035ce Mon Sep 17 00:00:00 2001
From: Sebastian Schmelzer
Date: Tue, 11 Aug 2009 12:06:52 +0000
Subject: distroutils update

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@3069 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 lib/OpenSLX/DistroUtils/InitFile.pm | 44 +++++++++++++++++++++++++++++++++----
 1 file changed, 40 insertions(+), 4 deletions(-)

(limited to 'lib/OpenSLX/DistroUtils/InitFile.pm')

diff --git a/lib/OpenSLX/DistroUtils/InitFile.pm b/lib/OpenSLX/DistroUtils/InitFile.pm
index a77f8ea7..a7e5da5d 100644
--- a/lib/OpenSLX/DistroUtils/InitFile.pm
+++ b/lib/OpenSLX/DistroUtils/InitFile.pm
@@ -143,11 +143,47 @@ sub setDesc {
     return $self;
 }
 
+sub addFunction {
+	my $self   = shift;
+	my $name   = shift;
+	my $script = shift;
+	my $flags  = shift || {};
+    my $priority    = $flags->{priority} || 5;
+
+    push(@{$self->{'configHash'}->{'highlevelConfig'}},
+    {
+        name => $name,
+        script => $script,
+        priority => $priority,
+        type => 'function'
+    });
+    return 1;
+}
+
+sub addFunctionCall {
+	my $self       = shift;
+	my $function   = shift;
+	my $block      = shift;
+	my $flags      = shift;
+	my $priority   = $flags->{priority} || 5;
+	my $parameters = $flags->{parameters} || "";
+
+    push(@{$self->{'configHash'}->{'highlevelConfig'}},
+    {
+        function => $function,
+        block => $block,
+        parameters => $parameters,
+        priority => $priority,
+        type => 'functionCall'
+    });
+    return 1;
+}
+
 sub addScript {
-    my $self = shift;
-    my $name = shift;
-    my $script = shift;
-    my $flags = shift || {};
+    my $self    = shift;
+    my $name    = shift;
+    my $script  = shift;
+    my $flags   = shift || {};
     my $block       = $flags->{block} || 'start';
     my $required    = $flags->{required} || 1;
     my $errormsg    = $flags->{errormsg} || "$name failed!";
-- 
cgit v1.2.3-55-g7522