diff options
author | Oliver Tappe | 2007-03-14 22:38:33 +0100 |
---|---|---|
committer | Oliver Tappe | 2007-03-14 22:38:33 +0100 |
commit | 275a583f5fad043e2fd54c2de4f1f44ec9f1ead4 (patch) | |
tree | 8e86d30f4d6c37065f3965f747392d0d30c00fc5 /installer/OpenSLX | |
parent | * added two checks around cloning in order to protect users from making bad (diff) | |
download | core-275a583f5fad043e2fd54c2de4f1f44ec9f1ead4.tar.gz core-275a583f5fad043e2fd54c2de4f1f44ec9f1ead4.tar.xz core-275a583f5fad043e2fd54c2de4f1f44ec9f1ead4.zip |
* applied several fixed to svnos-export and respective modules (as reported by Dirk)
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@772 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'installer/OpenSLX')
-rw-r--r-- | installer/OpenSLX/OSExport/Engine.pm | 4 | ||||
-rw-r--r-- | installer/OpenSLX/OSExport/ExportType/NFS.pm | 13 |
2 files changed, 15 insertions, 2 deletions
diff --git a/installer/OpenSLX/OSExport/Engine.pm b/installer/OpenSLX/OSExport/Engine.pm index 085d10f7..413f5fde 100644 --- a/installer/OpenSLX/OSExport/Engine.pm +++ b/installer/OpenSLX/OSExport/Engine.pm @@ -167,6 +167,9 @@ sub addExportToConfigDB { my $self = shift; +print "adding the export to the config-DB is not implemented yet, sorry!\n"; +return; + my $configDBModule = "OpenSLX::ConfigDB"; unless (eval "require $configDBModule") { if ($! == 2) { @@ -184,6 +187,7 @@ sub addExportToConfigDB my $openslxDB = connectConfigDB(); # insert new export if it doesn't already exist in DB: my $exportName = $self->{'vendor-os-name'}; + my $export = fetchExportsByFilter( $openslxDB, { 'name' => $exportName }, 'id' ); diff --git a/installer/OpenSLX/OSExport/ExportType/NFS.pm b/installer/OpenSLX/OSExport/ExportType/NFS.pm index b5529502..ccaa32c5 100644 --- a/installer/OpenSLX/OSExport/ExportType/NFS.pm +++ b/installer/OpenSLX/OSExport/ExportType/NFS.pm @@ -58,6 +58,10 @@ sub exportViaRsync my $source = shift; my $target = shift; + if (system("mkdir -p $target")) { + die _tr("unable to create directory '%s', giving up! (%s)\n", + $target, $!); + } my $includeExcludeList = $self->determineIncludeExcludeList(); vlog 1, "using include-exclude-filter:\n$includeExcludeList\n"; open(RSYNC, "| rsync -av --delete --exclude-from=- $source/ $target") @@ -91,8 +95,13 @@ sub addTargetToNfsExports my $self = shift; my $target = shift; - my $exports = slurpFile("/etc/exports"); -print "$exports\n"; + print (('#' x 80)."\n"); + print _tr("Please make sure the following line is contained in /etc/exports\nin order to activate the NFS-export of this vendor-OS:\n\t%s\n", + "$self->{engine}->{'export-path'}\t*(ro,root_squash,sync,no_subtree_check)"); + print (('#' x 80)."\n"); + +# TODO : add something a bit more clever here... +# my $exports = slurpFile("/etc/exports"); } 1; |