summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-20 12:53:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-20 12:53:11 +0000
commit87b49bfc79f2f318a5a63f2acce39d7af0298205 (patch)
tree732c7da4d2b51f243f13dbd4d3964c30d2a1eacf /perl-install
parentc3f329b62cf6ca096df6edd75376df40829a8d17 (diff)
downloaddrakx-backup-do-not-use-87b49bfc79f2f318a5a63f2acce39d7af0298205.tar
drakx-backup-do-not-use-87b49bfc79f2f318a5a63f2acce39d7af0298205.tar.gz
drakx-backup-do-not-use-87b49bfc79f2f318a5a63f2acce39d7af0298205.tar.bz2
drakx-backup-do-not-use-87b49bfc79f2f318a5a63f2acce39d7af0298205.tar.xz
drakx-backup-do-not-use-87b49bfc79f2f318a5a63f2acce39d7af0298205.zip
fix $'s in i18n'ed strings
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index bf7b1b5f6..1fb0d9499 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -731,7 +731,7 @@ sub show_warning {
$mode = "WARNING" if ($mode eq "w");
$mode = "FATAL" if ($mode eq "f");
if ($interactive) {
- $in->ask_warn('',_("$mode: $warning"));
+ $in->ask_warn('', "$mode: $warning");
} else {
warn "$mode: $warning\n";
}
@@ -819,7 +819,7 @@ return(1);
$exp_command = "ssh-copy-id -i $_ $login_user\@$host_name" if ($mode eq "sendkey");
if ((-e $backup_key) && ($mode eq "sendkey")) {
- if ($in->ask_yesorno('',_("$backup_key exists, delete?\n\nWarning: If you've already done this process you'll probably\n need to purge the entry from authorized_keys on the server."))) {
+ if ($in->ask_yesorno('', _("%s exists, delete?\n\nWarning: If you've already done this process you'll probably\n need to purge the entry from authorized_keys on the server.", $backup_key))) {
unlink($backup_key);
unlink($backup_key . '.pub');
} else {
@@ -835,7 +835,7 @@ return(1);
cursor_norm();
}
- my $exp = Expect->spawn($exp_command) or $in->ask_warn('',_("ERROR: Cannot spawn $exp_command."));
+ my $exp = Expect->spawn($exp_command) or $in->ask_warn('',_("ERROR: Cannot spawn %s.", $exp_command));
$interactive and progress($pbar3, 1/@send_files, _("Total progess"));
$interactive and $stext->set_text($_);
@@ -862,7 +862,7 @@ return(1);
);
my $exit_stat = $exp->exitstatus;
- $in->ask_warn('',_("Transfer successful\nYou may want to verify you can login to the server with:\n\nssh -i $backup_key $login_user\@$host_name\n\nwithout being prompted for a password.")) if (($exit_stat eq 0) && ($mode eq "sendkey"));
+ $in->ask_warn('',_("Transfer successful\nYou may want to verify you can login to the server with:\n\nssh -i %s %s\@%s\n\nwithout being prompted for a password.", $backup_key, $login_user, $host_name)) if (($exit_stat eq 0) && ($mode eq "sendkey"));
$log_buff .= "$_\n" if (($exit_stat eq 0) && ($mode eq "backup"));
$exp->hard_close();
}
@@ -1279,7 +1279,7 @@ sub build_backup_files {
build_cd() if ($daemon_media eq 'cd');
build_tape() if ($daemon_media eq 'tape');
- $results .= _("\nDrakbackup activities via $daemon_media:\n\n") ;
+ $results .= _("\nDrakbackup activities via %s:\n\n", $daemon_media) ;
$results .= $log_buff;
}
@@ -1302,7 +1302,7 @@ sub build_backup_files {
ssh_client() if (($net_proto eq 'ssh') && !($use_expect));
do_expect("backup", "") if (($net_proto eq 'ssh') && ($use_expect));
webdav_client() if ($net_proto eq 'webdav');
- $results .= _("\nDrakbackup activities via $net_proto:\n\n");
+ $results .= _("\nDrakbackup activities via %s:\n\n", $net_proto);
}
if ($where_cd) {