drakx - Mageia Installer and base platform for many utilities

diff options

author	Pascal Rigaux <pixel@mandriva.com>	2004-10-19 08:24:48 +0000
committer	Pascal Rigaux <pixel@mandriva.com>	2004-10-19 08:24:48 +0000
commit	88def3bb966603ed5b91c2d7f1794bd1f769ab3c (patch)
tree	21959fe0797b8a88039aaef26a0d3dcf241a8311 /perl-install/patch/patch-IMPS2.pl
parent	b641341ac89ed27cf57ac07c48574f0ad4a28968 (diff)
download	drakx-88def3bb966603ed5b91c2d7f1794bd1f769ab3c.tar drakx-88def3bb966603ed5b91c2d7f1794bd1f769ab3c.tar.gz drakx-88def3bb966603ed5b91c2d7f1794bd1f769ab3c.tar.bz2 drakx-88def3bb966603ed5b91c2d7f1794bd1f769ab3c.tar.xz drakx-88def3bb966603ed5b91c2d7f1794bd1f769ab3c.zip

fix typo

Diffstat (limited to 'perl-install/patch/patch-IMPS2.pl')

0 files changed, 0 insertions, 0 deletions

package fs::mount_options; # $Id$ 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', ); 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) ], smbfs => [ qw(username= password=) ], davfs2 => [ qw(username= password= uid= gid=) ], ext4dev => [ qw(extents) ], reiserfs => [ 'notail' ], ); push @{$per_fs{$_}}, 'usrquota', 'grpquota' foreach 'ext2', 'ext3', 'ext4dev', '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); $non_defaults->{encrypted} = 1; 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() { ( 'encrypted' => N("Use an encrypted file system"), '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., 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."), 'users' => N("Allow every user to mount and umount the file system."), 'user' => N("Allow an ordinary user to mount the file system."), 'usrquota' => N("Enable user disk quota accounting, and optionally enforce limits"), 'user_xattr' => N("Support \"user.\" extended attributes"), 'umask=0' => N("Give write access to ordinary users"), 'umask=0022' => N("Give read-only access to ordinary users"), ); } sub rationalize { my ($part) = @_; my ($options, $unknown) = &unpack($part); if ($part->{fs_type} ne 'reiserfs') { $options->{notail} = 0; } if (!fs::type::can_be_one_of_those_fs_types($part, 'vfat', 'smbfs', 'iso9660', 'udf')) { delete $options->{'codepage='}; } if (member($part->{mntpoint}, fs::type::directories_needed_to_boot())) { foreach (qw(users user noauto)) { if ($options->{$_}) { $options->{$_} = 0; $options->{$_} = 0 foreach qw(nodev noexec nosuid); } } } &pack($part, $options, $unknown); } sub set_default { my ($part, %opts) = @_; #- opts are: security iocharset codepage ignore_is_removable my ($options, $unknown) = &unpack($part); if (!$opts{ignore_is_removable} && $part->{is_removable} && !member($part->{mntpoint}, fs::type::directories_needed_to_boot()) && (!$part->{fs_type} || $part->{fs_type} eq 'auto' || $part->{fs_type} =~ /:/)) { $options->{supermount} = 0; #- always disable supermount $part->{fs_type} = 'auto'; $options->{flush} = 1 if $part->{media_type} ne 'cdrom'; } if ($part->{media_type} eq 'cdrom') { $options->{ro} = 1; } if ($part->{media_type} eq 'fd') { # slow device so do not loose time, write now! $options->{flush} = 1; } if (isTrueLocalFS($part)) { #- noatime on laptops (do not wake up the hd) #- otherwise relatime (wake up the hd less often / better performances) #- Do not update inode access times on this #- file system (e.g, for faster access on the #- news spool to speed up news servers). $options->{relatime} = $options->{noatime} = 0; $options->{detect_devices::isLaptop() ? 'noatime': 'relatime'} = 1 if !$opts{force_atime}; } if ($part->{fs_type} eq 'nfs') { put_in_hash($options, { nosuid => 1, 'rsize=8192,wsize=8192' => 1, soft => 1, }); } if ($part->{fs_type} eq 'smbfs') { add2hash($options, { 'username=' => '%' }) if !$options->{'credentials='}; } if (fs::type::can_be_this_fs_type($part, 'vfat')) { put_in_hash($options, { users => 1, noexec => 0, }) if $part->{is_removable}; put_in_hash($options, { 'umask=0' => $opts{security} < 3, 'umask=0022' => $opts{security} < 4, 'iocharset=' => $opts{iocharset}, 'codepage=' => $opts{codepage}, }); } if ($part->{fs_type} eq 'ext4dev') { put_in_hash($options, { extents => 1 }); } if ($part->{fs_type} eq 'ntfs') { put_in_hash($options, { ro => 1, 'nls=' => $opts{iocharset}, 'umask=0' => $opts{security} < 3, 'umask=0022' => $opts{security} < 4, }); } if (fs::type::can_be_this_fs_type($part, 'iso9660')) { put_in_hash($options, { users => 1, noexec => 0, 'iocharset=' => $opts{iocharset} }); } if ($part->{fs_type} eq 'reiserfs') { $options->{notail} = 1; $options->{user_xattr} = 1; } if (isLoopback($part) && !isSwap($part)) { #- no need for loop option for swap files $options->{loop} = 1; } # rationalize: no need for user if ($options->{autofs}) { $options->{users} = $options->{user} = 0; } if ($options->{user} || $options->{users}) { # have noauto when we have user $options->{noauto} = 1; # ensure security (user_implies - noexec as noexec is not a security matter) $options->{$_} = 1 foreach 'nodev', 'nosuid'; } &pack($part, $options, $unknown); rationalize($part); } sub set_all_default { my ($all_hds, %opts) = @_; #- opts are: security iocharset codepage foreach my $part (fs::get::really_all_fstab($all_hds)) { set_default($part, %opts); } } 1;


context:
space:
mode: