summaryrefslogtreecommitdiffstats
path: root/installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm')
-rw-r--r--installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm91
1 files changed, 0 insertions, 91 deletions
diff --git a/installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm b/installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm
deleted file mode 100644
index 25e112ee..00000000
--- a/installer/OpenSLX/OSExport/BlockDevice/DNBD2.pm
+++ /dev/null
@@ -1,91 +0,0 @@
-# Copyright (c) 2006, 2008 - OpenSLX GmbH
-#
-# This program is free software distributed under the GPL version 2.
-# See http://openslx.org/COPYING
-#
-# If you have any feedback please consult http://openslx.org/feedback and
-# send your suggestions, praise, or complaints to feedback@openslx.org
-#
-# General information about OpenSLX can be found at http://openslx.org/
-# -----------------------------------------------------------------------------
-# DNBD2.pm
-# - provides DNBD2+Squashfs-specific overrides of the
-# OpenSLX::OSExport::BlockDevice API.
-# -----------------------------------------------------------------------------
-package OpenSLX::OSExport::BlockDevice::DNBD2;
-
-use strict;
-use warnings;
-
-use base qw(OpenSLX::OSExport::BlockDevice::Base);
-
-use File::Basename;
-use OpenSLX::Basics;
-use OpenSLX::ConfigDB qw(:support);
-use OpenSLX::OSExport::BlockDevice::Base 1;
-use OpenSLX::Utils;
-
-################################################################################
-### interface methods
-################################################################################
-sub new
-{
- my $class = shift;
- my $self = {'name' => 'dnbd2',};
- return bless $self, $class;
-}
-
-sub getExportPort
-{
- my $self = shift;
- my $openslxDB = shift;
-
- return $openslxDB->incrementGlobalCounter('next-nbd-server-port');
-}
-
-sub generateExportURI
-{
- 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});
-
- return "dnbd2://$server";
-}
-
-sub requiredBlockDeviceModules
-{
- my $self = shift;
-
- return qw( dnbd2 );
-}
-
-sub requiredBlockDeviceTools
-{
- my $self = shift;
-
- 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:",
- "\n# dnbd2 server configuration\n<server>\n",
- "$export->{port}\n",
- "$self->{fs}->{'export-path'}\n\n",
- '#' x 80, "\n";
- return;
-}
-
-1;