diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2009-01-08 08:15:43 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2009-01-08 08:15:43 +0000 |
commit | a77fbe82060bb0b00639aeb5855c64db076f01e7 (patch) | |
tree | cbe21c25143e608aa1b8215cacd94ce1c2aa271d /perl-install | |
parent | a185ff45425be7d41b41a0f92f0e3b7ec526e27b (diff) | |
download | drakx-a77fbe82060bb0b00639aeb5855c64db076f01e7.tar drakx-a77fbe82060bb0b00639aeb5855c64db076f01e7.tar.gz drakx-a77fbe82060bb0b00639aeb5855c64db076f01e7.tar.bz2 drakx-a77fbe82060bb0b00639aeb5855c64db076f01e7.tar.xz drakx-a77fbe82060bb0b00639aeb5855c64db076f01e7.zip |
- diskdrake:
o --smb: cifs must be used instead of smbfs (#42483)
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/NEWS | 1 | ||||
-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, 6 insertions, 5 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 088a23a85..86eed4587 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,5 +1,6 @@ - diskdrake: + o --smb: cifs must be used instead of smbfs (#42483) o ext4dev is now stable and called ext4 in 2.6.28+ - harddrake: o fix displaying in proper category sound coprocessor & misc ACPI event keys diff --git a/perl-install/fs/mount.pm b/perl-install/fs/mount.pm index 2ea0cdc7f..a3c6d3a28 100644 --- a/perl-install/fs/mount.pm +++ b/perl-install/fs/mount.pm @@ -38,7 +38,7 @@ sub mount { my @fs_modules = qw(ext3 ext4 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 8d3158d56..4a502f12f 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=) ], ext4 => [ 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 1399d2f62..5d16164b6 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); |