From a0ce0340d0f95514008cfac751fe58748bbadd88 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Thu, 20 Mar 2008 00:04:16 +0000
Subject: * Switched indent used in Perl-code and settings files from tabs to 4
 spaces.   May need some manual corrections here and there, but should
 basically be ok.

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1658 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 .../vmwarebinary/OpenSLX/OSPlugin/vmwarebinary.pm  | 160 ++++++++++-----------
 1 file changed, 80 insertions(+), 80 deletions(-)

(limited to 'os-plugins/plugins/vmwarebinary/OpenSLX/OSPlugin/vmwarebinary.pm')

diff --git a/os-plugins/plugins/vmwarebinary/OpenSLX/OSPlugin/vmwarebinary.pm b/os-plugins/plugins/vmwarebinary/OpenSLX/OSPlugin/vmwarebinary.pm
index bf6a9252..5773b1ce 100644
--- a/os-plugins/plugins/vmwarebinary/OpenSLX/OSPlugin/vmwarebinary.pm
+++ b/os-plugins/plugins/vmwarebinary/OpenSLX/OSPlugin/vmwarebinary.pm
@@ -9,7 +9,7 @@
 # General information about OpenSLX can be found at http://openslx.org/
 # -----------------------------------------------------------------------------
 # vmwarebinary.pm
-#	- declares necessary information for the vmware plugin
+#    - declares necessary information for the vmware plugin
 # -----------------------------------------------------------------------------
 package OpenSLX::OSPlugin::vmwarebinary;
 
@@ -25,106 +25,106 @@ use OpenSLX::Utils;
 
 sub new
 {
-	my $class = shift;
+    my $class = shift;
 
-	my $self = {
-		name => 'vmwarebinary',
-	};
+    my $self = {
+        name => 'vmwarebinary',
+    };
 
-	return bless $self, $class;
+    return bless $self, $class;
 }
 
 sub getInfo
 {
-	my $self = shift;
-
-	return {
-		description => unshiftHereDoc(<<'		End-of-Here'),
-			!!! descriptive text missing here !!!
-		End-of-Here
-		mustRunAfter => [],
-	};
+    my $self = shift;
+
+    return {
+        description => unshiftHereDoc(<<'        End-of-Here'),
+            !!! descriptive text missing here !!!
+        End-of-Here
+        mustRunAfter => [],
+    };
 }
 
 sub getAttrInfo
-{	# returns a hash-ref with information about all attributes supported
-	# by this specific plugin
-	my $self = shift;
-
-	# This default configuration will be added as attributes to the default
-	# system, such that it can be overruled for any specific system by means
-	# of slxconfig.
-	return {
-		# attribute 'active' is mandatory for all plugins
-		'vmwarebinary::active' => {
-			applies_to_systems => 1,
-			applies_to_clients => 0,
-			description => unshiftHereDoc(<<'			End-of-Here'),
-				should the 'vmwarebinary'-plugin be executed during boot?
-			End-of-Here
-			content_regex => qr{^(0|1)$},
-			content_descr => '1 means active - 0 means inactive',
-			default => '1',
-		},
-		# attribute 'precedence' is mandatory for all plugins
-		'vmwarebinary::precedence' => {
-			applies_to_systems => 1,
-			applies_to_clients => 0,
-			description => unshiftHereDoc(<<'			End-of-Here'),
-				the execution precedence of the 'vmwarebinary' plugin
-			End-of-Here
-			content_regex => qr{^\d\d$},
-			content_descr => 'allowed range is from 01-99',
-			default => 70,
-		},
-		# attribute 'imagesrc' defines where we can find vmware images
-		'vmwarebinary::imagessrc' => {
-			applies_to_systems => 1,
-			applies_to_clients => 1,
-			description => unshiftHereDoc(<<'			End-of-Here'),
-				Where do we store our vmware images? NFS? Filesystem?
-			End-of-Here
-			content_regex => qr{^\d\d$},
-			content_descr => 'Allowed values: path or URI',
-			default => "",
-		},
-
-	};
+{   # returns a hash-ref with information about all attributes supported
+    # by this specific plugin
+    my $self = shift;
+
+    # This default configuration will be added as attributes to the default
+    # system, such that it can be overruled for any specific system by means
+    # of slxconfig.
+    return {
+        # attribute 'active' is mandatory for all plugins
+        'vmwarebinary::active' => {
+            applies_to_systems => 1,
+            applies_to_clients => 0,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                should the 'vmwarebinary'-plugin be executed during boot?
+            End-of-Here
+            content_regex => qr{^(0|1)$},
+            content_descr => '1 means active - 0 means inactive',
+            default => '1',
+        },
+        # attribute 'precedence' is mandatory for all plugins
+        'vmwarebinary::precedence' => {
+            applies_to_systems => 1,
+            applies_to_clients => 0,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                the execution precedence of the 'vmwarebinary' plugin
+            End-of-Here
+            content_regex => qr{^\d\d$},
+            content_descr => 'allowed range is from 01-99',
+            default => 70,
+        },
+        # attribute 'imagesrc' defines where we can find vmware images
+        'vmwarebinary::imagessrc' => {
+            applies_to_systems => 1,
+            applies_to_clients => 1,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                Where do we store our vmware images? NFS? Filesystem?
+            End-of-Here
+            content_regex => qr{^\d\d$},
+            content_descr => 'Allowed values: path or URI',
+            default => "",
+        },
+
+    };
 }
 
 sub installationPhase
 {
-	my $self                 = shift;
-	my $pluginRepositoryPath = shift;
-	my $pluginTempPath       = shift;
-	my $openslxPath          = shift;
+    my $self                 = shift;
+    my $pluginRepositoryPath = shift;
+    my $pluginTempPath       = shift;
+    my $openslxPath          = shift;
 
-	# get path of files we need to install
-	my $pluginFilesPath = "$openslxPath/lib/plugins/$self->{'name'}/files";
+    # get path of files we need to install
+    my $pluginFilesPath = "$openslxPath/lib/plugins/$self->{'name'}/files";
 
-	# copy all needed files now
-	my @files = qw( installbinary.sh locations
-		VMware-player-2.0.2-59824.i386.tar.gz depmod.sh uname.sh
-		nvram.5.0 insmod.sh runvmware-v2 );
-	foreach my $file (@files) {
-		copyFile("$pluginFilesPath/$file", $pluginRepositoryPath);
-	}
+    # copy all needed files now
+    my @files = qw( installbinary.sh locations
+        VMware-player-2.0.2-59824.i386.tar.gz depmod.sh uname.sh
+        nvram.5.0 insmod.sh runvmware-v2 );
+    foreach my $file (@files) {
+        copyFile("$pluginFilesPath/$file", $pluginRepositoryPath);
+    }
 
-	system("/bin/sh /opt/openslx/plugin-repo/$self->{'name'}/installbinary.sh");
+    system("/bin/sh /opt/openslx/plugin-repo/$self->{'name'}/installbinary.sh");
 
-	return;
+    return;
 }
 
 sub removalPhase
 {
-	my $self                 = shift;
-	my $pluginRepositoryPath = shift;
-	my $pluginTempPath       = shift;
-	my $openslxPath          = shift;
-	
-	rmtree ( [ $pluginRepositoryPath ] );
-	
-	return;
+    my $self                 = shift;
+    my $pluginRepositoryPath = shift;
+    my $pluginTempPath       = shift;
+    my $openslxPath          = shift;
+    
+    rmtree ( [ $pluginRepositoryPath ] );
+    
+    return;
 }
 
 1;
-- 
cgit v1.2.3-55-g7522