1 files changed, 92 insertions, 0 deletions
diff --git a/lib/OpenSLX/DistroUtils/InitFile.pm b/lib/OpenSLX/DistroUtils/InitFile.pm
new file mode 100644
index 00000000..e26ec6ad
--- /dev/null
+++ b/lib/OpenSLX/DistroUtils/InitFile.pm
@@ -0,0 +1,92 @@
+package OpenSLX::DistroUtils::InitFile;
+
+use strict;
+use warnings;
+
+sub new {
+    my $class  = shift;
+    my $params = shift || {};
+    my $self = {
+    };
+    
+    $self->{'configHash'} = _initialConfigHash();
+    
+    return bless $self, $class;
+}
+
+sub _initialConfigHash() {
+    return {
+        'name'  =>  "",
+        'requiredStart' => "",
+        'requiredStop' => "",
+        'defaultStart' => "2 3 4 5",
+        'defaultStop' => "1",
+        'shortDesc' => "",
+        
+        'head'      => {
+            'blockDesc' => "head: file existing checks, etc.",
+            'content'   => {}
+        },
+        'functions' => {
+            'blockDesc' => "functions: helper functions",
+            'content'   => {}
+        },
+        'start'     => {
+            'blockDesc' => "start: defines start function for initscript",
+            'content'   => {}
+        },
+        'stop'      => {
+            'blockDesc' => "stop: defines stop function for initscript",
+            'content'   => {}
+        },
+        'reload'    => {
+            'blockDesc' => "reload: defines reload function for initscript",
+            'content'   => {}
+        },
+        'restart'   => {
+            'blockDesc' => "restart: defines restart function for initscript",
+            'content'   => {}
+        },
+        'status'    => {
+            'blockDesc' => "status: defines status function for initscript",
+            'content'   => {}
+        },
+        'usage'     => {
+            'blockDesc' => "usage: defines usage function for initscript",
+            'content'   => {}
+        }
+    };
+}
+
+sub addToBlock {
+    my $self = shift;
+    my $blockName = shift;
+    my $content = shift;
+    my $priority = shift || 5;
+    
+    #check if block is valid..
+    
+    push(@{$self->{'configHash'}->{$blockName}->{'content'}->{$priority}}, $content);
+    
+    return $self;
+}
+
+sub setName {
+    my $self = shift;
+    my $name = shift;
+    
+    $self->{'configHash'}->{'name'} = $name;
+    return $self;
+}
+
+sub setDesc {
+    my $self = shift;
+    my $desc = shift;
+    
+    $self->{'configHash'}->{'shortDesc'} = $desc;
+    return $self;
+}
+
+
+
+1;
+\ No newline at end of file