diff options
author | Sebastian Schmelzer | 2009-08-11 14:06:52 +0200 |
---|---|---|
committer | Sebastian Schmelzer | 2009-08-11 14:06:52 +0200 |
commit | 1a05343d41fb6d7fb4c3f6a1b2cdc9522bb035ce (patch) | |
tree | 63bbf06fba7ee341c0003a70f2f32452577af1b0 /lib/OpenSLX/DistroUtils/InitFile.pm | |
parent | Do nothing if no partition found ... (diff) | |
download | core-1a05343d41fb6d7fb4c3f6a1b2cdc9522bb035ce.tar.gz core-1a05343d41fb6d7fb4c3f6a1b2cdc9522bb035ce.tar.xz core-1a05343d41fb6d7fb4c3f6a1b2cdc9522bb035ce.zip |
distroutils update
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@3069 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'lib/OpenSLX/DistroUtils/InitFile.pm')
-rw-r--r-- | lib/OpenSLX/DistroUtils/InitFile.pm | 44 |
1 files changed, 40 insertions, 4 deletions
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!"; |