From d7bd836e42d64fd537bf7412a878134df89fddc1 Mon Sep 17 00:00:00 2001 From: Christian Belisle Date: Tue, 22 Jan 2002 14:47:35 +0000 Subject: not allowing double listed users for win95-98 --- transfugdrake | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/transfugdrake b/transfugdrake index bddad2c..63a4984 100755 --- a/transfugdrake +++ b/transfugdrake @@ -85,7 +85,7 @@ by migrating your documents, mails and address books"), 1) or quit_global($in, 0 #- ********************************** #- * 1st step: Windows configuration step_1: -if($debug) { print "-Getting Windows Configuration\n"; } +if($debug) { print "- Getting Windows Configuration\n"; } my ($win_partition, $win_fstype, $win_mountpoint) = transfugdrake::get_windows_config($in); #- ********************************** @@ -97,7 +97,7 @@ my $addbook_folder_win95 = "$windows_config->{mountpoint}/WINDOWS/Application Da if($debug) { print "- Windows User Chooser page\n"; } -if($debug) { print "-- Looking where is the document folder$win_mountpoint\n"; } +if($debug) { print "-- Looking where is the document folder $win_mountpoint\n"; } my $document_location = get_documents_folder(@documents_folders, $win_mountpoint); if($document_location eq "") { @@ -116,7 +116,11 @@ if($document_location eq $win_mountpoint.'/'.$documents_folders[0]) { closedir YREP; foreach my $addbook (@addbook_files) { $addbook =~ s/.wab//g; - push(@users, $addbook); + foreach my $tmp_ignored (@users) { + if($addbook eq $tmp_ignored) { $notvalid = 1; } + } + if($notvalid != 1) { push(@users, $addbook); } + $notvalid = 0; } } elsif($document_location eq $win_mountpoint.'/'.$documents_folders[1]) { -- cgit v1.2.1