From 47b886b5e1b7a00ae3fb4d0cf247eab0353161dd Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Mon, 7 May 2007 16:07:15 +0000
Subject: * reworked construction of export-URI to be delegated into the
 respective   exporter module, as a result, the NBD-URLs are now correct *
 added 'nbd' as an alias for the 'nbd-squash' export type

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1024 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 installer/OpenSLX/OSExport/ExportType/NFS.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'installer/OpenSLX/OSExport/ExportType/NFS.pm')

diff --git a/installer/OpenSLX/OSExport/ExportType/NFS.pm b/installer/OpenSLX/OSExport/ExportType/NFS.pm
index dad07b57..fa1d73b3 100644
--- a/installer/OpenSLX/OSExport/ExportType/NFS.pm
+++ b/installer/OpenSLX/OSExport/ExportType/NFS.pm
@@ -21,6 +21,7 @@ use strict;
 use Carp;
 use File::Basename;
 use OpenSLX::Basics;
+use OpenSLX::ConfigDB qw(:support);
 use OpenSLX::Utils;
 use OpenSLX::OSExport::ExportType::Base 1.01;
 
@@ -58,6 +59,20 @@ sub purgeExport
 	1;
 }
 
+sub generateExportURI
+{
+	my $self = shift;
+	my $export = shift;
+
+	my $server
+		= length($export->{server_ip})
+			? $export->{server_ip}
+			: generatePlaceholderFor('serverip');
+	$server .= ":$export->{port}"		if length($export->{port});
+
+	return "nfs://$server$openslxConfig{'export-path'}/nfs/$export->{name}"
+}
+
 sub requiredFSMods
 {
 	my $self = shift;
-- 
cgit v1.2.3-55-g7522