diff options
author | Olivier Blin <oblin@mandriva.com> | 2007-07-31 13:56:50 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.com> | 2007-07-31 13:56:50 +0000 |
commit | 090a7f1f98b6514f285081c018a342ad3a7f546d (patch) | |
tree | c05df1eda4a778e4fe426bc6530e24b86f96f92c | |
parent | 848306c79c54cdcaa00e33888b9eb44967149862 (diff) | |
download | transfugdrake-090a7f1f98b6514f285081c018a342ad3a7f546d.tar transfugdrake-090a7f1f98b6514f285081c018a342ad3a7f546d.tar.gz transfugdrake-090a7f1f98b6514f285081c018a342ad3a7f546d.tar.bz2 transfugdrake-090a7f1f98b6514f285081c018a342ad3a7f546d.tar.xz transfugdrake-090a7f1f98b6514f285081c018a342ad3a7f546d.zip |
use N() instead of _()
-rwxr-xr-x | transfugdrake | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/transfugdrake b/transfugdrake index ce9764e..bfeb68e 100755 --- a/transfugdrake +++ b/transfugdrake @@ -60,7 +60,7 @@ local $_ = join '', @ARGV; /-version/ and die 'transfugdrake '.$version."\n"; $::isEmbedded or $::isWizard = 1; $::Wizard_pix_up = "wiz_drakgw.png"; -$::Wizard_title = _("Transfugdrake"); +$::Wizard_title = N("Transfugdrake"); $::direct = /-direct/; # Application initialization @@ -79,8 +79,8 @@ if($debug) { print "- Starting Transfugdrake\n"; } #my %linux_config = transfugdrake::get_linux_config(); -$::direct or $in->ask_okcancel(_("Transfugdrake"), -_("Welcome to Transfugdrake! I will help you to ease the step windows-linux +$::direct or $in->ask_okcancel(N("Transfugdrake"), +N("Welcome to Transfugdrake! I will help you to ease the step windows-linux by migrating your documents, mails and address books"), 1) or quit_global($in, 0); #- ********************************** @@ -103,8 +103,8 @@ 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 "") { - $in->ask_warn(_("Can't find documents folder!"), - _("Can't find the folder where the documents are located. Exiting...")); + $in->ask_warn(N("Can't find documents folder!"), + N("Can't find the folder where the documents are located. Exiting...")); quit_global($in, 0); } @@ -131,8 +131,8 @@ if($document_location eq $win_mountpoint.'/'.$documents_folders[0]) { elsif($document_location eq $win_mountpoint.'/'.$documents_folders[1]) { # For XP, go see in the documents folder to get the directory listing if($debug) { print "--- Windows XP found\n"; } - $in->ask_warn(_("No mail migration available"), - _("Warning: Windows XP detected. No mail migration available yet for your Windows version.")); + $in->ask_warn(N("No mail migration available"), + N("Warning: Windows XP detected. No mail migration available yet for your Windows version.")); $windowsxp = 1; opendir YREP, $document_location or die "unable to opendir: $!\n"; my @tmp_user_array = readdir YREP; @@ -147,13 +147,13 @@ elsif($document_location eq $win_mountpoint.'/'.$documents_folders[1]) { } if($users[0] eq "") { - $in->ask_warn(_("No user found!"), - _("Can't find any user on your Windows partition. Will copy all documents from Windows")); + $in->ask_warn(N("No user found!"), + N("Can't find any user on your Windows partition. Will copy all documents from Windows")); } else { $::Wizard_no_previous = 0; - my $chosen_user = $in->ask_from_list(_("Transfugdrake"), - _("You have the following users in Windows. Which one do you want to use for migration?"), + my $chosen_user = $in->ask_from_list(N("Transfugdrake"), + N("You have the following users in Windows. Which one do you want to use for migration?"), [ @users ], $users[0]) or goto step_0; } @@ -190,8 +190,8 @@ if(-d $win_mountpoint."/WINDOWS/Application Data/Identities") { } } -my $chosen_task = $in->ask_from_list(_("Transfugdrake"), -_("Welcome to TransfugDrake! You are now able to ease\n the step Windows-Linux with many migrations. Please choose what you\n want to do:"), [ @tasks ], $tasks[0]) or quit_global($in, 0); +my $chosen_task = $in->ask_from_list(N("Transfugdrake"), +N("Welcome to TransfugDrake! You are now able to ease\n the step Windows-Linux with many migrations. Please choose what you\n want to do:"), [ @tasks ], $tasks[0]) or quit_global($in, 0); if($chosen_task eq "Copy files and folders from your Windows partition") { goto step_4; } #if($chosen_task eq "Migrate address book from Windows (not implemented yet)") { goto step_7; } @@ -210,8 +210,8 @@ $laststep = "step_4"; #- * 5th step: redo if needed step_5: -if($in->ask_yesorno(_("Transfugdrake"), -_("Do you want to copy other files from another folder?"), 1)) { +if($in->ask_yesorno(N("Transfugdrake"), +N("Do you want to copy other files from another folder?"), 1)) { goto step_2; } $laststep = "step_5"; @@ -221,8 +221,8 @@ $laststep = "step_5"; step_6: if ($windowsxp) { goto step_8; } -$::direct or $in->ask_okcancel(_("Transfug"), -_("We will bring back your Outlook Mailboxes to a standard unix mbox\n +$::direct or $in->ask_okcancel(N("Transfug"), +N("We will bring back your Outlook Mailboxes to a standard unix mbox\n NB: This feature works only with Outlook Express 4.5 and 5"), 1) or goto step_7; mkdir "$ENV{HOME}/Mail" unless (-e "$ENV{HOME}/Mail"); @@ -249,15 +249,15 @@ $laststep = "step_6"; # In XP, address book is located in /Document and Settings/user/Appli Data/Microsoft/Address Book/ #step_7: -#$::direct or $in->ask_okcancel(_("Transfugdrake"), -#_("Here will come the address book migration page."), 1) or quit_global($in, 0); +#$::direct or $in->ask_okcancel(N("Transfugdrake"), +#N("Here will come the address book migration page."), 1) or quit_global($in, 0); #- ******************************* #- * 8th step: finish step_8: $::Wizard_no_previous = 0; -$::direct or $in->ask_okcancel(_("Transfugdrake"), -_("The migration of all of your Windows data is finished."), 1) or goto $laststep; +$::direct or $in->ask_okcancel(N("Transfugdrake"), +N("The migration of all of your Windows data is finished."), 1) or goto $laststep; #- ******************************* #- FUNCTIONS @@ -286,8 +286,8 @@ sub detect_partition { # If nothing is found, print an error and exit. if(!$found) { print "- No windows partitions\n"; - $in->ask_warn(_("Can't find windows!"), - _("Sorry, I can't find windows. Maybe it's not installed, or your windows partition is not mounted on Mandrake.")); + $in->ask_warn(N("Can't find windows!"), + N("Sorry, I can't find windows. Maybe it's not installed, or your windows partition is not mounted on Mandrake.")); quit_global($in); } else { @@ -321,12 +321,12 @@ sub copy_documents { $dest .= "/win_backup"; $::Wizard_no_previous = 1; - if(!($in->ask_yesorno(_("Transfugdrake"), - _("Do you want to copy all the content of\n \"$source\" to\n \"$dest\"?"), 1))) { + if(!($in->ask_yesorno(N("Transfugdrake"), + N("Do you want to copy all the content of\n \"$source\" to\n \"$dest\"?"), 1))) { goto step_5; } - $wait_configuring = $in->wait_message(_("Copying files..."), - _("Copying all files from $source to $dest. This may take several minutes.")); + $wait_configuring = $in->wait_message(N("Copying files..."), + N("Copying all files from $source to $dest. This may take several minutes.")); $source =~ s/\ /\\ /g; system("cp -R $source $dest"); |