From 75e94e63628fe07f36d35b9ba668195f005ed471 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 8 Jan 2004 16:14:16 +0000 Subject: authentification is french, the english word is authentication --- perl-install/diskdrake/smbnfs_gtk.pm | 2 +- perl-install/network/smb.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/diskdrake/smbnfs_gtk.pm b/perl-install/diskdrake/smbnfs_gtk.pm index 39a81ee73..8c414f9d5 100644 --- a/perl-install/diskdrake/smbnfs_gtk.pm +++ b/perl-install/diskdrake/smbnfs_gtk.pm @@ -162,7 +162,7 @@ sub import_tree { $in->ask_warn('', N("Can't login using username %s (bad password?)", $server->{username})); network::smb::remove_bad_credentials($server); } else { - if (my @l = network::smb::authentifications_available($server)) { + if (my @l = network::smb::authentications_available($server)) { my $user = $in->ask_from_list_(N("Domain Authentication Required"), N("Which username"), [ @l, N_("Another one") ]) or return; if ($user ne 'Another one') { diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm index d8c3024fd..941463c65 100644 --- a/perl-install/network/smb.pm +++ b/perl-install/network/smb.pm @@ -100,7 +100,7 @@ sub find_exports { @l; } -sub authentifications_available { +sub authentications_available { my ($server) = @_; map { if_(/^auth.\Q$server->{name}.\E(.*)/, $1) } all("/etc/samba"); } -- cgit v1.2.1