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/DNBD2.pm | 78 ++++++++++++-------------
 1 file changed, 39 insertions(+), 39 deletions(-)

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

diff --git a/installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm b/installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm
index 8cd20904..8dcc340b 100644
--- a/installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm
+++ b/installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm
@@ -9,8 +9,8 @@
 # General information about OpenSLX can be found at http://openslx.org/
 # -----------------------------------------------------------------------------
 # DNBD2.pm
-#	- provides DNBD2+Squashfs-specific overrides of the
-#	  OpenSLX::OSExport::BlockDevice API.
+#    - provides DNBD2+Squashfs-specific overrides of the
+#      OpenSLX::OSExport::BlockDevice API.
 # -----------------------------------------------------------------------------
 package OpenSLX::OSExport::BlockDevice::DNBD2;
 
@@ -30,73 +30,73 @@ use OpenSLX::Utils;
 ################################################################################
 sub new
 {
-	my $class = shift;
-	my $self = {'name' => 'dnbd2',};
-	return bless $self, $class;
+    my $class = shift;
+    my $self = {'name' => 'dnbd2',};
+    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 "dnbd2://$server";
+    return "dnbd2://$server";
 }
 
 sub requiredBlockDeviceModules
 {
-	my $self = shift;
+    my $self = shift;
 
-	return qw( dnbd2 );
+    return qw( dnbd2 );
 }
 
 sub requiredBlockDeviceTools
 {
-	my $self = shift;
+    my $self = shift;
 
-	return qw( );
+    return qw( );
 }
 
 sub showExportConfigInfo
 {
-	my $self   = shift;
-	my $export = shift;
-
-	print '#' x 80 , "\n", 
-	_tr(
-		"Please make sure you start a corresponding dnbd2-server:\n\t%s\n",
-		"dnbd2-server /etc/dnbd2/server.conf\n"
-	),
-	"Create or modify a config file like /etc/dnbd2/server.conf, looking like:",
-	"<server>\n",
-	"$export->{port}\n",
-	"$self->{fs}->{'export-path'}\n",
-	'#' x 80, "\n";
-	return;
+    my $self   = shift;
+    my $export = shift;
+
+    print '#' x 80 , "\n", 
+    _tr(
+        "Please make sure you start a corresponding dnbd2-server:\n\t%s\n",
+        "dnbd2-server /etc/dnbd2/server.conf\n"
+    ),
+    "Create or modify a config file like /etc/dnbd2/server.conf, looking like:",
+    "<server>\n",
+    "$export->{port}\n",
+    "$self->{fs}->{'export-path'}\n",
+    '#' x 80, "\n";
+    return;
 }
 
 1;
-- 
cgit v1.2.3-55-g7522