From a3d5079d63d53d7a639162a03a89fa8fdcfbee8a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 30 Nov 2001 17:19:30 +0000
Subject: fileshare should be ok, handle diskdrake --fileshare, fix smb import

---
 perl-install/network/smb.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index d5c128b41..a9f8907ce 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -35,13 +35,13 @@ sub find_servers() {
 sub find_exports {
     my ($server) = @_;
     my @l;
-    my $name  = $server->{name}  ? " -L $server->{name}"  : '';
+    my $ip    = $server->{ip}    ? " -I $server->{ip}"  : '';
     my $group = $server->{group} ? " -W $server->{group}" : '';
 
     # WARNING: using smbclient -L is ugly. It can't handle more than 15
     # characters shared names
 
-    foreach (`smbclient -U% -L -I $server->{ip}$name$group`) {
+    foreach (`smbclient -U% -L $server->{name}$ip$group`) {
 	chomp;
 	s/^\t//;
 	my ($name, $type, $comment) = unpack "A15 A10 A*", $_;
-- 
cgit v1.2.1