git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2407 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 54 insertions, 2 deletions

diff --git a/lib/OpenSLX/DistroUtils/InitFile.pm b/lib/OpenSLX/DistroUtils/InitFile.pm
index 0319e73c..570126e6 100644
--- a/lib/OpenSLX/DistroUtils/InitFile.pm
+++ b/lib/OpenSLX/DistroUtils/InitFile.pm
@@ -16,6 +16,9 @@ package OpenSLX::DistroUtils::InitFile;
 use strict;
 use warnings;
 
+use OpenSLX::Basics;
+use OpenSLX::Utils;
+
 sub new {
     my $class  = shift;
     my $params = shift || {};
@@ -30,8 +33,8 @@ sub new {
 sub _initialConfigHash() {
     return {
         'name'  =>  "",
-        'requiredStart' => "",
-        'requiredStop' => "",
+        'requiredStart' => "\$remote_fs",
+        'requiredStop' => "\$remote_fs",
         'defaultStart' => "2 3 4 5",
         'defaultStop' => "1",
         'shortDesc' => "",
@@ -56,6 +59,10 @@ sub _initialConfigHash() {
             'blockDesc' => "reload: defines reload function for initscript",
             'content'   => {}
         },
+        'force-reload'    => {
+            'blockDesc' => "force-reload: defines force-reload function for initscript",
+            'content'   => {}
+        },
         'restart'   => {
             'blockDesc' => "restart: defines restart function for initscript",
             'content'   => {}
@@ -100,6 +107,51 @@ sub setDesc {
     return $self;
 }
 
+sub addScript {
+    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!";
+    my $priority    = $flags->{priority} || 5;
+    
+    push(@{$self->{'configHash'}->{'highlevelConfig'}},
+    {
+        name => $name,
+        script => $script,
+        block => $block,
+        required => $required,
+        priority => $priority,
+        errormsg => $errormsg,
+        type => 'script'
+    });
+    return 1;
+}
+
+sub addDaemon {
+    my $self = shift;
+    my $binary = shift;
+    my $parameters = shift || "";
+    my $flags = shift || {};
+    my $required    = $flags->{required} || 1;
+    my $desc        = $flags->{desc} || "$binary";
+    my $errormsg    = $flags->{errormsg} || "$desc failed!";
+    my $priority    = $flags->{priority} || 5;
+    
+    push(@{$self->{'configHash'}->{'highlevelConfig'}},
+    {
+        binary => $binary,
+        parameters => $parameters,
+        desc => $desc,
+        errormsg => $errormsg,
+        required => $required,
+        priority => $priority,
+        type => 'daemon'
+    });
+    return 1;
+}
 
 
 1;
\ No newline at end of file