drakx - Mageia Installer and base platform for many utilities

diff options

author	Pascal Rigaux <pixel@mandriva.com>	2000-01-05 21:26:23 +0000
committer	Pascal Rigaux <pixel@mandriva.com>	2000-01-05 21:26:23 +0000
commit	f66da5419372f9c931645c7685fd44d69d8a66c5 (patch)
tree	de23bce9c5c1ddcd9c541b9833da99c298d034d3 /docs
parent	fd6b89e3d9cb165829a25cd196b5340104a4e440 (diff)
download	drakx-f66da5419372f9c931645c7685fd44d69d8a66c5.tar drakx-f66da5419372f9c931645c7685fd44d69d8a66c5.tar.gz drakx-f66da5419372f9c931645c7685fd44d69d8a66c5.tar.bz2 drakx-f66da5419372f9c931645c7685fd44d69d8a66c5.tar.xz drakx-f66da5419372f9c931645c7685fd44d69d8a66c5.zip

no_comment

Diffstat (limited to 'docs')

-rw-r--r--

docs/TODO

1 files changed, 1 insertions, 4 deletions

package fs::mount_options; # $Id: mount_options.pm 268841 2010-05-17 06:52:12Z pterjan $ use diagnostics; use strict; use common; use fs::type; use fs::get; use log; sub list() { my %non_defaults = ( sync => 'async', noatime => 'atime', noauto => 'auto', ro => 'rw', user => 'nouser', nodev => 'dev', noexec => 'exec', nosuid => 'suid', user_xattr => 'nouser_xattr', acl => 'noacl', ); my @user_implies = qw(noexec nodev nosuid); \%non_defaults, \@user_implies; } sub unpack { my ($part) = @_; my $packed_options = $part->{options}; my ($non_defaults, $user_implies) = list(); my @auto_fs = fs::type::guessed_by_mount(); my %per_fs = ( iso9660 => [ qw(unhide) ], vfat => [ qw(flush umask=0 umask=0022) ], ntfs => [ qw(umask=0 umask=0022) ], nfs => [ qw(rsize=8192 wsize=8192) ], cifs => [ qw(username= password=) ], davfs2 => [ qw(username= password= uid= gid=) ], reiserfs => [ 'notail' ], ); push @{$per_fs{$_}}, 'usrquota', 'grpquota' foreach 'ext2', 'ext3', 'ext4', 'xfs'; while (my ($fs, $l) = each %per_fs) { $part->{fs_type} eq $fs || $part->{fs_type} eq 'auto' && member($fs, @auto_fs) or next; $non_defaults->{$_} = 1 foreach @$l; } $non_defaults->{relatime} = 1 if isTrueLocalFS($part) || $part->{fs_type} eq 'ntfs-3g'; my $defaults = { reverse %$non_defaults }; my %options = map { $_ => '' } keys %$non_defaults; my @unknown; foreach (split(",", $packed_options)) { if ($_ eq 'defaults') { #- skip } elsif (member($_, 'user', 'users')) { $options{$_} = 1 foreach $_, @$user_implies; } elsif (exists $non_defaults->{$_}) { $options{$_} = 1; } elsif ($defaults->{$_}) { $options{$defaults->{$_}} = 0; } elsif (/(.*?=)(.*)/) { $options{$1} = $2; } else { push @unknown, $_; } } # merge those, for cleaner help $options{'rsize=8192,wsize=8192'} = delete $options{'rsize=8192'} && delete $options{'wsize=8192'} if exists $options{'rsize=8192'}; my $unknown = join(",", @unknown); \%options, $unknown; } sub pack_ { my ($_part, $options, $unknown) = @_; my ($non_defaults, $user_implies) = list(); my @l; my @umasks = map { if (/^umask=/) { my $v = delete $options->{$_}; /^umask=(.+)/ ? if_($v, $1) : $v; } else { () } } keys %$options; if (@umasks) { push @l, 'umask=' . min(@umasks); } if (my $user = find { delete $options->{$_} } 'users', 'user') { push @l, $user; delete $options->{user}; foreach (@$user_implies) { if (!delete $options->{$_}) { # overriding $options->{$non_defaults->{$_}} = 1; } } } push @l, map_each { if_($::b, $::a =~ /=$/ ? "$::a$::b" : $::a) } %$options; push @l, $unknown; join(",", uniq(grep { $_ } @l)); } sub pack { my ($part, $options, $unknown) = @_; $part->{options} = pack_($part, $options, $unknown) || 'defaults'; noreturn(); } # update me on each util-linux new release: sub help() { ( 'acl' => N("Enable Posix Access Control Lists"), 'flush' => N("Flush write cache on file close"), 'grpquota' => N("Enable group disk quota accounting and optionally enforce limits"), '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)."), 'relatime' => N("Update inode access times on this filesystem in a more efficient way (e.g, for faster access on the news spool to speed up news servers)."), 'noauto' => N("Can only be mounted explicitly (i.e.,


context:
space:
mode: