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
---
 installer/OpenSLX/OSExport/FileSystem/Base.pm | 104 +++++++++++++-------------
 1 file changed, 52 insertions(+), 52 deletions(-)

(limited to 'installer/OpenSLX/OSExport/FileSystem/Base.pm')

diff --git a/installer/OpenSLX/OSExport/FileSystem/Base.pm b/installer/OpenSLX/OSExport/FileSystem/Base.pm
index a59cc944..1014d596 100644
--- a/installer/OpenSLX/OSExport/FileSystem/Base.pm
+++ b/installer/OpenSLX/OSExport/FileSystem/Base.pm
@@ -9,14 +9,14 @@
 # General information about OpenSLX can be found at http://openslx.org/
 # -----------------------------------------------------------------------------
 # Base.pm
-#	- provides empty base of the OpenSLX OSExport::FileSystem API.
+#    - provides empty base of the OpenSLX OSExport::FileSystem API.
 # -----------------------------------------------------------------------------
 package OpenSLX::OSExport::FileSystem::Base;
 
 use strict;
 use warnings;
 
-our $VERSION = 1.01;		# API-version . implementation-version
+our $VERSION = 1.01;        # API-version . implementation-version
 
 use File::Basename;
 
@@ -28,7 +28,7 @@ use OpenSLX::Utils;
 ################################################################################
 sub new
 {
-	confess "Creating OpenSLX::OSExport::FileSystem::Base-objects directly makes no sense!";
+    confess "Creating OpenSLX::OSExport::FileSystem::Base-objects directly makes no sense!";
 }
 
 sub initialize
@@ -45,16 +45,16 @@ sub purgeExport
 
 sub checkRequirements
 {
-	return 1;
+    return 1;
 }
 
 sub addExportToConfigDB
 {
-	my $self = shift;
-	my $export = shift;
-	my $openslxDB = shift;
+    my $self = shift;
+    my $export = shift;
+    my $openslxDB = shift;
 
-	return $openslxDB->addExport($export);
+    return $openslxDB->addExport($export);
 }
 
 sub generateExportURI
@@ -78,54 +78,54 @@ sub showExportConfigInfo
 ################################################################################
 sub _pickKernelVersion
 {
-	my $self         = shift;
-	my $vendorOSPath = shift;
-	
-	my $kernel = followLink("$vendorOSPath/boot/vmlinuz");
-	if (!-e $kernel) {
-		# 'vmlinuz'-link doesn't exist, so we have to pick the kernel manually
-		my $osSetupEngine = instantiateClass("OpenSLX::OSSetup::Engine");
-		$osSetupEngine->initialize($self->{engine}->{'vendor-os-name'}, 'none');
-		$kernel = $osSetupEngine->pickKernelFile("$vendorOSPath/boot");
-	}
-	my $kernelName = basename($kernel);
-	if ($kernelName !~ m[-(.+)$]) {
-		die _tr("unable to determine version of kernel '%s'!", $kernelName);
-	}
-	return $1;
+    my $self         = shift;
+    my $vendorOSPath = shift;
+    
+    my $kernel = followLink("$vendorOSPath/boot/vmlinuz");
+    if (!-e $kernel) {
+        # 'vmlinuz'-link doesn't exist, so we have to pick the kernel manually
+        my $osSetupEngine = instantiateClass("OpenSLX::OSSetup::Engine");
+        $osSetupEngine->initialize($self->{engine}->{'vendor-os-name'}, 'none');
+        $kernel = $osSetupEngine->pickKernelFile("$vendorOSPath/boot");
+    }
+    my $kernelName = basename($kernel);
+    if ($kernelName !~ m[-(.+)$]) {
+        die _tr("unable to determine version of kernel '%s'!", $kernelName);
+    }
+    return $1;
 }
 
 sub _locateKernelModule
 {
-	my $self         = shift;
-	my $vendorOSPath = shift;
-	my $moduleName   = shift;
-	my $defaultPaths = shift;
-
-	vlog(1, _tr("locating kernel-module '%s'", $moduleName));
-	# check default paths first:
-	foreach my $defPath (@$defaultPaths) {
-		vlog(2, "trying $defPath/$moduleName");
-		my $target = followLink("$defPath/$moduleName", $vendorOSPath);
-		return $target unless !-e $target;
-	}
-	# use brute force to search for the newest incarnation of the module:
-	use File::Find;
-	my $location;
-	my $locationAge = 9999999;
-	vlog(2, "searching in $vendorOSPath/lib/modules");
-	find sub {
-		return unless $_ eq $moduleName;
-		if (-M _ < $locationAge) {
-			$locationAge = -M _;
-			$location    = $File::Find::name;
-			vlog(2, "located at $location (age=$locationAge days)");
-		}
-	}, "$vendorOSPath/lib/modules";
-	if (defined $location) {
-		return followLink($location, $vendorOSPath);
-	}
-	return;
+    my $self         = shift;
+    my $vendorOSPath = shift;
+    my $moduleName   = shift;
+    my $defaultPaths = shift;
+
+    vlog(1, _tr("locating kernel-module '%s'", $moduleName));
+    # check default paths first:
+    foreach my $defPath (@$defaultPaths) {
+        vlog(2, "trying $defPath/$moduleName");
+        my $target = followLink("$defPath/$moduleName", $vendorOSPath);
+        return $target unless !-e $target;
+    }
+    # use brute force to search for the newest incarnation of the module:
+    use File::Find;
+    my $location;
+    my $locationAge = 9999999;
+    vlog(2, "searching in $vendorOSPath/lib/modules");
+    find sub {
+        return unless $_ eq $moduleName;
+        if (-M _ < $locationAge) {
+            $locationAge = -M _;
+            $location    = $File::Find::name;
+            vlog(2, "located at $location (age=$locationAge days)");
+        }
+    }, "$vendorOSPath/lib/modules";
+    if (defined $location) {
+        return followLink($location, $vendorOSPath);
+    }
+    return;
 }
 
 1;
-- 
cgit v1.2.3-55-g7522