From 8b2c4debf88d45c0a84291372866089ad745f824 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Jun 2003 13:42:51 +0000
Subject: don't use description of fstab options from manpage mount(8), inline
 them in the source

---
 perl-install/fs.pm | 63 ++++++++++++++++++++++++++++++------------------------
 1 file changed, 35 insertions(+), 28 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 618c58f7d..3b1ae70f6 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -385,34 +385,41 @@ sub mount_options_pack {
 }
 
 sub mount_options_help {
-    my %help = map { $_ => '' } @_;
-    my %short = map { if_(/(.*?)=/, "$1=" => $_) } keys %help;
-
-    foreach (split(':', $ENV{LANGUAGE}), '') {
-	my $manpage = "/usr/share/man/$_/man8/mount.8.bz2";
-	-e $manpage or next;
-
-	my ($tp, $option);
-	foreach (`bzip2 -dc $manpage`) {
-	    my $prev_tp = $tp;
-	    $tp = /^\.(TP|RE)/;
-	    my ($s) = /^\.B (.*)/;
-	    if (($prev_tp && $s eq '\-o') .. /X^/) {
-		if (my $v = ($prev_tp && $s =~ /^[a-z]/i) .. $tp) {
-		    if ($v == 1) {
-			$s = $short{$s} || $s;
-			$option = exists $help{$s} && !$help{$s} ? $s : '';
-		    } elsif ($v !~ /E0/) {
-			s/\\//g;
-			s/\s*"(.*?)"\s*/$1/g if s/^\.BR\s+//;
-			s/^\.B\s+//;
-			$help{$option} .= $_ if $option;
-		    }
-		}        
-	    }
-	}
-    }
-    %help;
+    (
+
+	'grpquota' => '',
+
+	'noatime' => N("Do not update inode access times on this file system
+(e.g, for faster access on the news spool to speed up news servers)."),
+
+	'noauto' => N("Can only be mounted explicitly (i.e.,
+the -a option will not cause the file system to be mounted)."),
+
+	'nodev' => N("Do not interpret character or block special devices on the file system."),
+
+	'noexec' => N("Do not allow execution of any binaries on the mounted
+file system. This option might be useful for a server that has file systems
+containing binaries for architectures other than its own."),
+
+	'nosuid' => N("Do not allow set-user-identifier or set-group-identifier
+bits to take effect. (This seems safe, but is in fact rather unsafe if you
+have suidperl(1) installed.)"),
+
+	'ro' => N("Mount the file system read-only."),
+
+	'sync' => N("All I/O to the file system should be done synchronously."),
+
+	'supermount' => '',
+
+	'user' => N("Allow an ordinary user to mount the file system. The
+name of the mounting user is written to mtab so that he can unmount the file
+system again. This option implies the options noexec, nosuid, and nodev
+(unless overridden by subsequent options, as in the option line
+user,exec,dev,suid )."),
+
+	'usrquota' => '',
+
+    );
 }
 
 sub set_default_options {
-- 
cgit v1.2.1