summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm13
-rw-r--r--perl-install/fs.pm21
-rw-r--r--perl-install/fs/mount_options.pm17
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/any.pm2
-rw-r--r--perl-install/install/steps.pm3
-rwxr-xr-xperl-install/standalone/diskdrake2
-rwxr-xr-xperl-install/standalone/drakupdate_fstab8
8 files changed, 20 insertions, 47 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 7e08981e0..a98f402b0 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -350,12 +350,6 @@ sub Auto_allocate {
sub More {
my ($in, $hd) = @_;
- my %automounting = (
- 0 => N("No supermount"),
- 1 => N("Supermount"),
- magicdev => N("Supermount except for CDROM drives"),
- );
-
my $r;
$in->ask_from(N("More"), '',
[
@@ -363,11 +357,6 @@ sub More {
{ val => N("Restore partition table"), clicked_may_quit => sub { ReadFromFile($in, $hd); 1 } },
if_($::isInstall,
{ val => N("Reload partition table"), clicked_may_quit => sub { $r = 'force_reload'; 1 } }),
- if_($::isInstall || 1,
- { label => N("Removable media automounting"), val => \$::o->{useSupermount},
- format => sub { $automounting{$_[0]} },
- list => [ 0, 'magicdev', 1 ], advanced => 1 },
- ),
],
) && $r;
}
@@ -961,7 +950,7 @@ sub Loopback {
sub Options {
my ($in, $hd, $part, $all_hds) = @_;
- my @simple_options = qw(users noauto supermount username= password=);
+ my @simple_options = qw(users noauto username= password=);
my (undef, $user_implies) = fs::mount_options::list();
my ($options, $unknown) = fs::mount_options::unpack($part);
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 15c2f9240..15de5228d 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -50,10 +50,15 @@ sub read_fstab {
$options = 'defaults' if $options eq 'rw'; # clean-up for mtab read
if ($fs_type eq 'supermount') {
- # normalize this bloody supermount
- $options = join(",", 'supermount', grep {
+ log::l("dropping supermount");
+ $options = join(",", grep {
if (/fs=(.*)/) {
$fs_type = $1;
+
+ #- with supermount, the type could be something like ext2:vfat
+ #- but this can not be done without supermount, so switching to "auto"
+ $fs_type = 'auto' if $fs_type =~ /:/;
+
0;
} elsif (/dev=(.*)/) {
$dev = $1;
@@ -238,18 +243,6 @@ sub prepare_write_fstab {
s/ /\\040/g foreach $mntpoint, $device, $options;
- # handle bloody supermount special case
- if ($options =~ /supermount/) {
- my @l = grep { $_ ne 'supermount' } split(',', $options);
- my ($l1, $l2) = partition { member($_, 'ro', 'exec') } @l;
- $options = join(",", "dev=$device", "fs=$fs_type", @$l1, if_(@$l2, '--', @$l2));
- ($device, $fs_type) = ('none', 'supermount');
- } else {
- #- if we were using supermount, the type could be something like ext2:vfat
- #- but this can not be done without supermount, so switching to "auto"
- $fs_type = 'auto' if $fs_type =~ /:/;
- }
-
my $file_dep = $options =~ /\b(loop|bind)\b/ ? $device : '';
[ $file_dep, $mntpoint, $_->{comment} . join(' ', $device, $mntpoint, $fs_type, $options || 'defaults', $freq, $passno) . "\n" ];
diff --git a/perl-install/fs/mount_options.pm b/perl-install/fs/mount_options.pm
index 596c3378d..ce06ef9e2 100644
--- a/perl-install/fs/mount_options.pm
+++ b/perl-install/fs/mount_options.pm
@@ -43,8 +43,6 @@ sub unpack {
$non_defaults->{encrypted} = 1;
- $non_defaults->{supermount} = 1 if $part->{fs_type} =~ /:/ || member($part->{fs_type}, 'auto', @auto_fs);
-
my $defaults = { reverse %$non_defaults };
my %options = map { $_ => '' } keys %$non_defaults;
my @unknown;
@@ -134,8 +132,6 @@ have suidperl(1) installed.)"),
'sync' => N("All I/O to the file system should be done synchronously."),
- 'supermount' => '',
-
'users' => N("Allow every user to mount and umount the file system."),
'user' => N("Allow an ordinary user to mount the file system."),
@@ -163,7 +159,7 @@ sub rationalize {
delete $options->{'codepage='};
}
if (member($part->{mntpoint}, fs::type::directories_needed_to_boot())) {
- foreach (qw(users user noauto supermount)) {
+ foreach (qw(users user noauto)) {
if ($options->{$_}) {
$options->{$_} = 0;
$options->{$_} = 0 foreach qw(nodev noexec nosuid);
@@ -176,16 +172,15 @@ sub rationalize {
sub set_default {
my ($part, %opts) = @_;
- #- opts are: useSupermount security iocharset codepage ignore_is_removable
+ #- 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} = $opts{useSupermount} && !($opts{useSupermount} eq 'magicdev' && $part->{media_type} eq 'cdrom');
- $part->{fs_type} = !$options->{supermount} ? 'auto' :
- $part->{media_type} eq 'cdrom' ? 'udf:iso9660' : 'ext2:vfat';
+ $options->{supermount} = 0; #- always disable supermount
+ $part->{fs_type} = 'auto';
$options->{sync} = 1 if $part->{media_type} ne 'cdrom';
}
@@ -240,7 +235,7 @@ sub set_default {
}
# rationalize: no need for user
- if ($options->{autofs} || $options->{supermount}) {
+ if ($options->{autofs}) {
$options->{users} = $options->{user} = 0;
}
@@ -258,7 +253,7 @@ sub set_default {
sub set_all_default {
my ($all_hds, %opts) = @_;
- #- opts are: useSupermount security iocharset codepage
+ #- opts are: security iocharset codepage
foreach my $part (fs::get::really_all_fstab($all_hds)) {
set_default($part, %opts);
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 953feea1f..414819858 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- drop supermount support
- diskdrake: drop "Rescue partition table" feature
(was based on rescuept which has been dropped in util-linux, but was quite
bad compared to testdisk anyway)
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 1ce4dc6d2..956f1adff 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -706,7 +706,7 @@ sub g_auto_install {
$_->{mntpoint} && fs::format::known_type($_);
} @{$::o->{fstab}} ];
- exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(locale authentication mouse net timezone superuser keyboard users partitioning isUpgrade manualFstab nomouseprobe crypto security security_user libsafe useSupermount autoExitInstall X services postInstall postInstallNonRooted); #- TODO modules bootloader
+ exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(locale authentication mouse net timezone superuser keyboard users partitioning isUpgrade manualFstab nomouseprobe crypto security security_user libsafe autoExitInstall X services postInstall postInstallNonRooted); #- TODO modules bootloader
local $o->{partitioning}{auto_allocate} = !$b_replay;
$o->{autoExitInstall} = !$b_replay;
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index 0da947097..beeabde1e 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -350,7 +350,7 @@ sub beforeInstallPackages {
}
if ($o->{isUpgrade} =~ /redhat|conectiva/) {
- #- to ensure supermount is removed for cds
+ #- to ensure supermount is removed (???)
fs::mount_options::set_all_default($o->{all_hds}, %$o, lang::fs_options($o->{locale}));
}
@@ -826,7 +826,6 @@ sub miscellaneous {
}
sub miscellaneousAfter {
my ($o) = @_;
- add2hash_ $o, { useSupermount => $o->{security} < 4 ? 'magicdev' : 0 };
$ENV{SECURE_LEVEL} = $o->{security}; #- deprecated with chkconfig 1.3.4-2mdk, uses /etc/sysconfig/msec
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index a1c09ccd0..97564e3e0 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -102,11 +102,9 @@ if ($type eq 'list-hd') {
$raw_hd->{mntpoint} ||= find { !fs::get::has_mntpoint($_, $all_hds) } map { "/media/$mntpoint$_" } '', 2 .. 10;
$raw_hd->{is_removable} = 1; #- force removable flag
- my $useSupermount = 'magicdev';
require security::level;
require lang;
fs::mount_options::set_default($raw_hd,
- useSupermount => $useSupermount,
security => security::level::get(),
lang::fs_options(lang::read()));
}
diff --git a/perl-install/standalone/drakupdate_fstab b/perl-install/standalone/drakupdate_fstab
index 4d48ef1f1..cbc182c5c 100755
--- a/perl-install/standalone/drakupdate_fstab
+++ b/perl-install/standalone/drakupdate_fstab
@@ -93,11 +93,10 @@ sub device_name_to_entry {
}
sub set_options {
- my ($part, $useSupermount, $o_sync) = @_;
+ my ($part, $o_sync) = @_;
$part->{is_removable} = 1; #- force removable flag
fs::mount_options::set_default($part,
- useSupermount => $useSupermount,
security => security::level::get(),
lang::fs_options(lang::read()));
@@ -151,8 +150,7 @@ sub main {
return;
}
my %dynamic = getVarsFromSh('/etc/sysconfig/dynamic');
- my $useSupermount = $dynamic{SUPERMOUNT} eq 'yes' ? 'magicdev' : '';
- set_options($part, $useSupermount, to_bool($dynamic{SYNC} ne 'no'));
+ set_options($part, to_bool($dynamic{SYNC} ne 'no'));
set_mount_point($part, $fstab) or return;
my ($line) = fs::prepare_write_fstab([$part]);
@@ -162,7 +160,7 @@ sub main {
}
if ($::auto) {
- print $part->{mntpoint}, " ", $useSupermount ? 'supermount' : 'user', "\n";
+ print $part->{mntpoint}, " user\n";
}
} else {
if (!@$existing_fstab_entries) {