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
---
 .../vmchooser/OpenSLX/OSPlugin/vmchooser.pm        | 180 ++++++++++-----------
 1 file changed, 90 insertions(+), 90 deletions(-)

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

diff --git a/os-plugins/plugins/vmchooser/OpenSLX/OSPlugin/vmchooser.pm b/os-plugins/plugins/vmchooser/OpenSLX/OSPlugin/vmchooser.pm
index adbc5557..b18aaa02 100644
--- a/os-plugins/plugins/vmchooser/OpenSLX/OSPlugin/vmchooser.pm
+++ b/os-plugins/plugins/vmchooser/OpenSLX/OSPlugin/vmchooser.pm
@@ -9,7 +9,7 @@
 # General information about OpenSLX can be found at http://openslx.org/
 # -----------------------------------------------------------------------------
 # vmchooser.pm
-#	- allows user to pick from a list of virtual machin images
+#    - allows user to pick from a list of virtual machin images
 # -----------------------------------------------------------------------------
 package OpenSLX::OSPlugin::vmchooser;
 
@@ -23,112 +23,112 @@ use OpenSLX::Utils;
 
 sub new
 {
-	my $class = shift;
+    my $class = shift;
 
-	my $self = {
-		name => 'vmchooser',
-	};
+    my $self = {
+        name => 'vmchooser',
+    };
 
-	return bless $self, $class;
+    return bless $self, $class;
 }
 
 sub getInfo
 {
-	my $self = shift;
-
-	return {
-		description => unshiftHereDoc(<<'		End-of-Here'),
-			allows user to pick from a list of different virtual machine images
-			based on xml-files, which tell about available images.
-		End-of-Here
-		mustRunAfter => []
-	};
+    my $self = shift;
+
+    return {
+        description => unshiftHereDoc(<<'        End-of-Here'),
+            allows user to pick from a list of different virtual machine images
+            based on xml-files, which tell about available images.
+        End-of-Here
+        mustRunAfter => []
+    };
 }
 
 sub getAttrInfo
 {
-	my $self = shift;
-
-	return {
-		'vmchooser::active' => {
-			applies_to_systems => 0,
-			applies_to_clients => 0,
-			description => unshiftHereDoc(<<'			End-of-Here'),
-				should the 'vmchooser'-plugin be executed during boot?
-			End-of-Here
-			content_regex => qr{^(0|1)$},
-			content_descr => '1 means active - 0 means inactive',
-			default => '1',
-		},
-		'vmchooser::precedence' => {
-			applies_to_systems => 1,
-			applies_to_clients => 1,
-			description => unshiftHereDoc(<<'			End-of-Here'),
-				the execution precedence of the 'vmchooser' plugin
-			End-of-Here
-			content_regex => qr{^\d\d$},
-			content_descr => 'allowed range is from 01-99',
-			default => 50,
-		},
-	};
+    my $self = shift;
+
+    return {
+        'vmchooser::active' => {
+            applies_to_systems => 0,
+            applies_to_clients => 0,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                should the 'vmchooser'-plugin be executed during boot?
+            End-of-Here
+            content_regex => qr{^(0|1)$},
+            content_descr => '1 means active - 0 means inactive',
+            default => '1',
+        },
+        'vmchooser::precedence' => {
+            applies_to_systems => 1,
+            applies_to_clients => 1,
+            description => unshiftHereDoc(<<'            End-of-Here'),
+                the execution precedence of the 'vmchooser' plugin
+            End-of-Here
+            content_regex => qr{^\d\d$},
+            content_descr => 'allowed range is from 01-99',
+            default => 50,
+        },
+    };
 }
 
 
 sub installationPhase
-{	# called while chrooted to the vendor-OS root in order to give the plugin
-	# a chance to install required files into the vendor-OS.
-	my $self = shift;
-	
-	my $pluginRepositoryPath = shift;
-		# The folder where the stage1-plugin should store all files
-		# required by the corresponding stage3 runlevel script.
-		# As this method is being executed while chrooted into the vendor-OS,
-		# this path is relative to that root (i.e. directly usable).
-	my $pluginTempPath = shift;
-		# A temporary playground that will be cleaned up automatically.
-		# As this method is being executed while chrooted into the vendor-OS,
-		# this path is relative to that root (i.e. directly usable).
-	my $openslxPath = shift;
-		# the openslx base path bind-mounted into the chroot (/mnt/openslx)
-	
-	# for this example plugin, we simply create two files:
-	spitFile("$pluginRepositoryPath/right", "(-;\n");
-	spitFile("$pluginRepositoryPath/left", ";-)\n");
-
-	# Some plugins have to copy files from their plugin folder into the
-	# vendor-OS. In order to make this possible while chrooted, the host's
-	# /opt/openslx folder will be mounted to /mnt/openslx in the vendor-OS. 
-	# So each plugin could copy some files like this:
-	#
-	
-	# get our own name:
-	my $pluginName = $self->{'name'};
-	
-	
-	# get our own base path:
-	my $pluginBasePath = "/mnt/openslx/lib/plugins/$pluginName";
-	
-	# copy all needed files now:
-	foreach my $file ( qw( vmchooser ) ) {
-	    copyFile("$pluginBasePath/$file", "$pluginRepositoryPath/");
-	}
-
-	# name of current os
-	# $self->{'os-plugin-engine'}->{'vendor-os-name'} 
-
-	return;
+{   # called while chrooted to the vendor-OS root in order to give the plugin
+    # a chance to install required files into the vendor-OS.
+    my $self = shift;
+    
+    my $pluginRepositoryPath = shift;
+        # The folder where the stage1-plugin should store all files
+        # required by the corresponding stage3 runlevel script.
+        # As this method is being executed while chrooted into the vendor-OS,
+        # this path is relative to that root (i.e. directly usable).
+    my $pluginTempPath = shift;
+        # A temporary playground that will be cleaned up automatically.
+        # As this method is being executed while chrooted into the vendor-OS,
+        # this path is relative to that root (i.e. directly usable).
+    my $openslxPath = shift;
+        # the openslx base path bind-mounted into the chroot (/mnt/openslx)
+    
+    # for this example plugin, we simply create two files:
+    spitFile("$pluginRepositoryPath/right", "(-;\n");
+    spitFile("$pluginRepositoryPath/left", ";-)\n");
+
+    # Some plugins have to copy files from their plugin folder into the
+    # vendor-OS. In order to make this possible while chrooted, the host's
+    # /opt/openslx folder will be mounted to /mnt/openslx in the vendor-OS. 
+    # So each plugin could copy some files like this:
+    #
+    
+    # get our own name:
+    my $pluginName = $self->{'name'};
+    
+    
+    # get our own base path:
+    my $pluginBasePath = "/mnt/openslx/lib/plugins/$pluginName";
+    
+    # copy all needed files now:
+    foreach my $file ( qw( vmchooser ) ) {
+        copyFile("$pluginBasePath/$file", "$pluginRepositoryPath/");
+    }
+
+    # name of current os
+    # $self->{'os-plugin-engine'}->{'vendor-os-name'} 
+
+    return;
 }
 
 sub removalPhase
-{	# called while chrooted to the vendor-OS root in order to give the plugin
-	# a chance to uninstall no longer required files from the vendor-OS.
-	my $self = shift;
-	my $pluginRepositoryPath = shift;
-		# the repository folder, relative to the vendor-OS root
-	my $pluginTempPath = shift;
-		# the temporary folder, relative to the vendor-OS root
-
-	return;
+{   # called while chrooted to the vendor-OS root in order to give the plugin
+    # a chance to uninstall no longer required files from the vendor-OS.
+    my $self = shift;
+    my $pluginRepositoryPath = shift;
+        # the repository folder, relative to the vendor-OS root
+    my $pluginTempPath = shift;
+        # the temporary folder, relative to the vendor-OS root
+
+    return;
 }
 
 1;
-- 
cgit v1.2.3-55-g7522