From 742a41b032a9cf2681df8b70bff17dceac6f533c Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 25 Jul 2007 16:59:50 +0000
Subject: * fixed bug in check for required kernel modules for distros that do
 not   provide a vmlinuz-link (reported by Detlef Schulz) * filled void
 requirements check for NFS

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

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

diff --git a/installer/OpenSLX/OSExport/FileSystem/NFS.pm b/installer/OpenSLX/OSExport/FileSystem/NFS.pm
index 878b956b..3233b10c 100644
--- a/installer/OpenSLX/OSExport/FileSystem/NFS.pm
+++ b/installer/OpenSLX/OSExport/FileSystem/NFS.pm
@@ -68,6 +68,31 @@ sub purgeExport
 	return 1;
 }
 
+sub checkRequirements
+{
+	my $self         = shift;
+	my $vendorOSPath = shift;
+
+	# determine most appropriate kernel version ...
+	my $kernelVer = $self->_pickKernelVersion($vendorOSPath);
+
+	# ... and check if that kernel-version provides all the required modules
+	my $nfsMod = $self->_locateKernelModule(
+		$vendorOSPath,
+		'nfs.ko',
+		[
+			"$vendorOSPath/lib/modules/$kernelVer/kernel/fs/nfs",
+			"$vendorOSPath/lib/modules/$kernelVer/kernel/fs"
+		]
+	);
+	if (!defined $nfsMod) {
+		warn _tr("unable to find nfs-module for kernel version '%s'.",
+			$kernelVer);
+		return;
+	}
+	return 1;
+}
+
 sub generateExportURI
 {
 	my $self = shift;
-- 
cgit v1.2.3-55-g7522