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/BlockDevice/NBD.pm | 70 +++++++++++++--------------
 1 file changed, 35 insertions(+), 35 deletions(-)

(limited to 'installer/OpenSLX/OSExport/BlockDevice/NBD.pm')

diff --git a/installer/OpenSLX/OSExport/BlockDevice/NBD.pm b/installer/OpenSLX/OSExport/BlockDevice/NBD.pm
index fff4b024..73694fbc 100644
--- a/installer/OpenSLX/OSExport/BlockDevice/NBD.pm
+++ b/installer/OpenSLX/OSExport/BlockDevice/NBD.pm
@@ -9,8 +9,8 @@
 # General information about OpenSLX can be found at http://openslx.org/
 # -----------------------------------------------------------------------------
 # NBD.pm
-#	- provides NBD+Squashfs-specific overrides of the
-#	  OpenSLX::OSExport::BlockDevice API.
+#    - provides NBD+Squashfs-specific overrides of the
+#      OpenSLX::OSExport::BlockDevice API.
 # -----------------------------------------------------------------------------
 package OpenSLX::OSExport::BlockDevice::NBD;
 
@@ -30,69 +30,69 @@ use OpenSLX::Utils;
 ################################################################################
 sub new
 {
-	my $class = shift;
-	my $self = {'name' => 'nbd',};
-	return bless $self, $class;
+    my $class = shift;
+    my $self = {'name' => 'nbd',};
+    return bless $self, $class;
 }
 
 sub initialize
 {
-	my $self   = shift;
-	my $engine = shift;
-	my $fs     = shift;    
+    my $self   = shift;
+    my $engine = shift;
+    my $fs     = shift;    
 
-	$self->{'engine'} = $engine;
-	$self->{'fs'}     = $fs;
-	return;
+    $self->{'engine'} = $engine;
+    $self->{'fs'}     = $fs;
+    return;
 }
 
 sub getExportPort
 {
-	my $self      = shift;
-	my $openslxDB = shift;
+    my $self      = shift;
+    my $openslxDB = shift;
 
-	return $openslxDB->incrementGlobalCounter('next-nbd-server-port');
+    return $openslxDB->incrementGlobalCounter('next-nbd-server-port');
 }
 
 sub generateExportURI
 {
-	my $self   = shift;
-	my $export = shift;
+    my $self   = shift;
+    my $export = shift;
 
-	my $serverIP = $export->{server_ip} || '';
-	my $server 
-		= length($serverIP) ? $serverIP : generatePlaceholderFor('serverip');
-	$server .= ":$export->{port}" if length($export->{port});
+    my $serverIP = $export->{server_ip} || '';
+    my $server 
+        = length($serverIP) ? $serverIP : generatePlaceholderFor('serverip');
+    $server .= ":$export->{port}" if length($export->{port});
 
-	return "nbd://$server";
+    return "nbd://$server";
 }
 
 sub requiredBlockDeviceModules
 {
-	my $self = shift;
+    my $self = shift;
 
-	return qw( nbd );
+    return qw( nbd );
 }
 
 sub requiredBlockDeviceTools
 {
-	my $self = shift;
+    my $self = shift;
 
-	return qw( nbd-client );
+    return qw( nbd-client );
 }
 
 sub showExportConfigInfo
 {
-	my $self   = shift;
-	my $export = shift;
-
-	print(('#' x 80) . "\n");
-	print _tr(
-		"Please make sure you start a corresponding nbd-server:\n\t%s\n",
-		"nbd-server $export->{port} $self->{fs}->{'export-path'} -r"
-	);
-	print(('#' x 80) . "\n");
-	return;
+    my $self   = shift;
+    my $export = shift;
+
+    print(('#' x 80) . "\n");
+    print _tr(
+        "Please make sure you start a corresponding nbd-server:\n\t%s\n",
+        "nbd-server $export->{port} $self->{fs}->{'export-path'} -r"
+    );
+    print(('#' x 80) . "\n");
+    return;
 }
 
 1;
-- 
cgit v1.2.3-55-g7522