* first ideas of distro based utilities

 * usage: 
    use OpenSLX::DistroUtils;
    
    # get initfile object
    my $initfile = newInitFile();
    
    # modify the object
    $initfile->addToBlock('head', 'set some variables');
    
    # 3rd parameter is setting the priority of the entry
    # default is 5
    $initfile->addToBlock('head', 'set sth at the very beginning', 1);
    $initfile->addToBlock('start', '/bin/startsomething');
    $initfile->addToBlock('stop', '/bin/stopsomething');
    $initfile->setName('foo');
    ..
    
    # get generated content of initfile
    $source = getInitFileForDistro($initfile, 'Ubuntu');
    

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

1 files changed, 58 insertions, 0 deletions

diff --git a/lib/OpenSLX/DistroUtils.pm b/lib/OpenSLX/DistroUtils.pm
new file mode 100644
index 00000000..454ffbd3
--- /dev/null
+++ b/lib/OpenSLX/DistroUtils.pm
@@ -0,0 +1,58 @@
+# Copyright (c) 2008 - OpenSLX GmbH
+#
+# This program is free software distributed under the GPL version 2.
+# See http://openslx.org/COPYING
+#
+# If you have any feedback please consult http://openslx.org/feedback and
+# send your suggestions, praise, or complaints to feedback@openslx.org
+#
+# General information about OpenSLX can be found at http://openslx.org/
+# -----------------------------------------------------------------------------
+# DistroUtils.pm
+#    - provides utility distro based functions for OpenSLX
+# -----------------------------------------------------------------------------
+package OpenSLX::DistroUtils;
+
+use strict;
+use warnings;
+
+use OpenSLX::Utils;
+use OpenSLX::Basics;
+
+use OpenSLX::DistroUtils::Engine;
+use OpenSLX::DistroUtils::InitFile;
+
+use Exporter;
+
+use vars qw(@ISA @EXPORT $VERSION);
+
+use Exporter;
+$VERSION = 1.01;
+@ISA     = qw(Exporter);
+
+@EXPORT = qw(
+  newInitFile
+  getInitFileForDistro
+);
+
+
+
+sub newInitFile {
+    return OpenSLX::DistroUtils::InitFile->new();
+}
+
+
+sub getInitFileForDistro {
+    my $initFile = shift;
+    my $distroName = shift;
+    
+    my $engine = OpenSLX::DistroUtils::Engine->new();
+    my $distro = $engine->loadDistro($distroName);
+    
+    return $distro->generateInitFile($initFile);
+}
+
+
+
+
+1;