diff options
| -rw-r--r-- | perl-install/NEWS | 3 | ||||
| -rw-r--r-- | perl-install/fs/mount.pm | 2 | ||||
| -rw-r--r-- | perl-install/fs/mount_options.pm | 6 | ||||
| -rw-r--r-- | perl-install/fs/remote/smb.pm | 2 |
4 files changed, 8 insertions, 5 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 9ed34a126..d301b3e43 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,6 @@ +- diskdrake: + o --smb: cifs must be used instead of smbfs (#42483) + Version 11.71.3 - 6 January 2009 - diskdrake: diff --git a/perl-install/fs/mount.pm b/perl-install/fs/mount.pm index 6dc312049..285848663 100644 --- a/perl-install/fs/mount.pm +++ b/perl-install/fs/mount.pm @@ -38,7 +38,7 @@ sub mount { my @fs_modules = qw(ext3 ext4dev hfs jfs nfs ntfs romfs reiserfs ufs xfs vfat); my @types = (qw(ext2 proc sysfs usbfs usbdevfs iso9660 devfs devpts auto ntfs-3g), @fs_modules); - push @types, 'smb', 'smbfs', 'davfs2' if !$::isInstall; + push @types, 'smb', 'cifs', 'davfs2' if !$::isInstall; if (!member($fs, @types)) { log::l("skipping mounting $dev partition ($fs)"); diff --git a/perl-install/fs/mount_options.pm b/perl-install/fs/mount_options.pm index 6ac55584a..24820edb7 100644 --- a/perl-install/fs/mount_options.pm +++ b/perl-install/fs/mount_options.pm @@ -30,7 +30,7 @@ sub unpack { vfat => [ qw(flush umask=0 umask=0022) ], ntfs => [ qw(umask=0 umask=0022) ], nfs => [ qw(rsize=8192 wsize=8192) ], - smbfs => [ qw(username= password=) ], + cifs => [ qw(username= password=) ], davfs2 => [ qw(username= password= uid= gid=) ], ext4dev => [ qw(extents) ], reiserfs => [ 'notail' ], @@ -164,7 +164,7 @@ sub rationalize { if ($part->{fs_type} ne 'reiserfs') { $options->{notail} = 0; } - if (!fs::type::can_be_one_of_those_fs_types($part, 'vfat', 'smbfs', 'iso9660', 'udf')) { + if (!fs::type::can_be_one_of_those_fs_types($part, 'vfat', 'cifs', 'iso9660', 'udf')) { delete $options->{'codepage='}; } if (member($part->{mntpoint}, fs::type::directories_needed_to_boot())) { @@ -216,7 +216,7 @@ sub set_default { nosuid => 1, 'rsize=8192,wsize=8192' => 1, soft => 1, }); } - if ($part->{fs_type} eq 'smbfs') { + if ($part->{fs_type} eq 'cifs') { add2hash($options, { 'username=' => '%' }) if !$options->{'credentials='}; } if (fs::type::can_be_this_fs_type($part, 'vfat')) { diff --git a/perl-install/fs/remote/smb.pm b/perl-install/fs/remote/smb.pm index 7757eeb3f..f1452f5a7 100644 --- a/perl-install/fs/remote/smb.pm +++ b/perl-install/fs/remote/smb.pm @@ -12,7 +12,7 @@ our @ISA = 'fs::remote'; sub to_fstab_entry { my ($class, $e) = @_; - my $part = $class->to_fstab_entry_raw($e, 'smbfs'); + my $part = $class->to_fstab_entry_raw($e, 'cifs'); if ($e->{server}{username}) { my ($options, $unknown) = fs::mount_options::unpack($part); $options->{"$_="} = $e->{server}{$_} foreach qw(username password domain); |