From a77fbe82060bb0b00639aeb5855c64db076f01e7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Jan 2009 08:15:43 +0000
Subject: - diskdrake:   o --smb: cifs must be used instead of smbfs (#42483)

---
 perl-install/NEWS                | 1 +
 perl-install/fs/mount.pm         | 2 +-
 perl-install/fs/mount_options.pm | 6 +++---
 perl-install/fs/remote/smb.pm    | 2 +-
 4 files changed, 6 insertions(+), 5 deletions(-)

(limited to 'perl-install')

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);
-- 
cgit v1.2.1