diff options
Diffstat (limited to 'installer/OpenSLX/OSExport/ExportType')
-rw-r--r-- | installer/OpenSLX/OSExport/ExportType/Base.pm | 7 | ||||
-rw-r--r-- | installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm | 15 | ||||
-rw-r--r-- | installer/OpenSLX/OSExport/ExportType/NFS.pm | 15 |
3 files changed, 34 insertions, 3 deletions
diff --git a/installer/OpenSLX/OSExport/ExportType/Base.pm b/installer/OpenSLX/OSExport/ExportType/Base.pm index ccf21826..a21d5499 100644 --- a/installer/OpenSLX/OSExport/ExportType/Base.pm +++ b/installer/OpenSLX/OSExport/ExportType/Base.pm @@ -60,11 +60,12 @@ sub addExportToConfigDB return $openslxDB->addExport($export); } -sub requiredFSMods +sub generateExportURI { - my $self = shift; +} - return ''; +sub requiredFSMods +{ } ################################################################################ diff --git a/installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm b/installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm index ec25d067..d5782b59 100644 --- a/installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm +++ b/installer/OpenSLX/OSExport/ExportType/NBD_Squash.pm @@ -21,6 +21,7 @@ use strict; use Carp; use File::Basename; use OpenSLX::Basics; +use OpenSLX::ConfigDB qw(:support); use OpenSLX::OSExport::ExportType::Base 1.01; ################################################################################ @@ -111,6 +112,20 @@ sub addExportToConfigDB return $res; } +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 "nbd://$server/squashfs"; +} + sub requiredFSMods { my $self = shift; 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; |