summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2002-08-29 07:17:20 +0000
committerPablo Saratxaga <pablo@mandriva.com>2002-08-29 07:17:20 +0000
commit9136f007c185947f273859b69f9ba06464d079e0 (patch)
treea2622af3d44bd3cc050ba00153392e38201be492 /perl-install
parent22dbbe3229fd6eb79108edac3209a828e1f917a7 (diff)
downloaddrakx-backup-do-not-use-9136f007c185947f273859b69f9ba06464d079e0.tar
drakx-backup-do-not-use-9136f007c185947f273859b69f9ba06464d079e0.tar.gz
drakx-backup-do-not-use-9136f007c185947f273859b69f9ba06464d079e0.tar.bz2
drakx-backup-do-not-use-9136f007c185947f273859b69f9ba06464d079e0.tar.xz
drakx-backup-do-not-use-9136f007c185947f273859b69f9ba06464d079e0.zip
corrected English typos (no space before colon in English)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/harddrake/ui.pmbin9880 -> 9879 bytes
-rw-r--r--perl-install/harddrake/v4l.pm10
-rwxr-xr-xperl-install/standalone/drakbackup28
3 files changed, 19 insertions, 19 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index 0069c9288..fe10ca862 100644
--- a/perl-install/harddrake/ui.pm
+++ b/perl-install/harddrake/ui.pm
Binary files differ
diff --git a/perl-install/harddrake/v4l.pm b/perl-install/harddrake/v4l.pm
index 0619adb2d..aa80e2fd8 100644
--- a/perl-install/harddrake/v4l.pm
+++ b/perl-install/harddrake/v4l.pm
@@ -210,12 +210,12 @@ sub config {
if ($in->ask_from("BTTV configuration", _("For most modern TV cards, the bttv module of the GNU/Linux kernel just auto-detect the rights parameters.
If your card is misdetected, you can force the right tuner and card types here. Just select your tv card parameters if needed"),
[
- { label => _("Card model :"), val => \$conf{card}, list => [keys %{$cards_lst->{$driver}}], type => 'combo', default => -1, sort =>1, separator => '|'},
- { label => _("Tuner type :"), val => \$conf{tuner}, list => [keys %tuners_lst], format => sub { $tuners_lst{$_[0]} }, sort => 1, separator => '|'},
- { label => _("Number of capture buffers :"), val => \$conf{gbuffers}, min=>2, max=>32, sort => 1, default => 0, type=>'range', advanced =>1, help => _("number of capture buffers for mmap'ed capture")},
+ { label => _("Card model:"), val => \$conf{card}, list => [keys %{$cards_lst->{$driver}}], type => 'combo', default => -1, sort =>1, separator => '|'},
+ { label => _("Tuner type:"), val => \$conf{tuner}, list => [keys %tuners_lst], format => sub { $tuners_lst{$_[0]} }, sort => 1, separator => '|'},
+ { label => _("Number of capture buffers:"), val => \$conf{gbuffers}, min=>2, max=>32, sort => 1, default => 0, type=>'range', advanced =>1, help => _("number of capture buffers for mmap'ed capture")},
if_($driver eq 'bttv',
- { label => _("PLL setting :"), val => \$conf{pll}, list => [keys %pll_lst], format => sub { $pll_lst{$_[0]} }, sort => 1, default => 0, advanced =>1},
- { label => _("Radio support :"), val => \$conf{radio}, type => "bool", text => _("enable radio support")}),
+ { label => _("PLL setting:"), val => \$conf{pll}, list => [keys %pll_lst], format => sub { $pll_lst{$_[0]} }, sort => 1, default => 0, advanced =>1},
+ { label => _("Radio support:"), val => \$conf{radio}, type => "bool", text => _("enable radio support")}),
]
))
{
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 6785475b2..e42126615 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -84,7 +84,7 @@
# rsync
# perl Expect
-# BUGS :
+# BUGS:
#DONE restore->other_media->next->previous => crash ...
#DONE selection des sources a inclure dans le backup cd.
#DONE help -> ok after install_rpm
@@ -101,7 +101,7 @@
# 6 - total backup.( all partitions wanted, windows partitions for example!)
# dump use for total backup.
# 7 - custom deamon
-# 10- backend : --resore_all, --restore_sys, --restore_users
+# 10- backend: --resore_all, --restore_sys, --restore_users
#WHAT IS THIS?
# --build_cd_autoinst
# 12- cpio use !!
@@ -749,7 +749,7 @@ sub ftp_client {
use Net::FTP;
my $ftp;
- $DEBUG and print "file list to send : $_\n " foreach @file_list_to_send_by_ftp;
+ $DEBUG and print "file list to send: $_\n " foreach @file_list_to_send_by_ftp;
if ($DEBUG && $interactive) { $ftp = Net::FTP->new($host_name, Debug => 1) or return(1) }
elsif ($interactive) { $ftp = Net::FTP->new($host_name, Debug => 0) or return(1) }
else { $ftp = Net::FTP->new($host_name, Debug => 0) or return(1) }
@@ -865,7 +865,7 @@ return(1);
}
sub ssh_client {
- $DEBUG and print "file list to send : $_\n " foreach @file_list_to_send_by_ftp;
+ $DEBUG and print "file list to send: $_\n " foreach @file_list_to_send_by_ftp;
my $command;
my $value;
@@ -892,7 +892,7 @@ sub ssh_client {
}
sub webdav_client {
- $DEBUG and print "file list to send : $_\n " foreach @file_list_to_send_by_ftp;
+ $DEBUG and print "file list to send: $_\n " foreach @file_list_to_send_by_ftp;
if (!(-e "$user_home/.sitecopy/drakbackup")) {
my $command = "sitecopy -f $host_path";
spawn_progress($command, "Initializing sitecopy");
@@ -911,7 +911,7 @@ sub webdav_client {
}
sub rsync_client {
- $DEBUG and print "file list to send : $_\n " foreach @file_list_to_send_by_ftp;
+ $DEBUG and print "file list to send: $_\n " foreach @file_list_to_send_by_ftp;
my $rsync_cmd = "rsync -tv $save_path/* ";
$rsync_cmd = $rsync_cmd . "--password-file=$cfg_dir/rsync.user " if ($passwd_user ne '');
$rsync_cmd = $rsync_cmd . "$login_user\@" if ($login_user ne '');
@@ -1341,7 +1341,7 @@ sub build_backup_files {
#- leave this one alone for now - works well
#- integrate with other methods later
if (($where_net && !$daemon && ($net_proto eq 'ftp')) || ($daemon && ($daemon_media eq 'ftp'))) {
- $results .= _("file list sent by FTP : %s\n ", $_) foreach @file_list_to_send_by_ftp;
+ $results .= _("file list sent by FTP: %s\n ", $_) foreach @file_list_to_send_by_ftp;
$interactive and build_backup_ftp_status();
if (ftp_client()) {
$results .= _("\n FTP connection problem: It was not possible to send your backup files by FTP.\n");
@@ -2323,7 +2323,7 @@ sub advanced_options{
# 0, gtkset_sensitive(my $check_backupignore = new Gtk::CheckButton( _("Use .backupignore files")), 0),
0, new Gtk::VBox(0,10),
0, gtkpack_(new Gtk::HBox(0,10),
- 0, my $check_mail = new Gtk::CheckButton(_("Send mail report after each backup to :")),
+ 0, my $check_mail = new Gtk::CheckButton(_("Send mail report after each backup to:")),
1, new Gtk::HBox(0,10),
0, my $mail_entry = new Gtk::Entry(),
),
@@ -2588,7 +2588,7 @@ sub system_state {
$backup_user and $system_state .= "\t\t$_\n" foreach @user_list;
@list_other and $system_state .= _("\n- Other Files:\n");
@list_other and $system_state .= "\t\t$_\n" foreach @list_other;
- $where_hd and $system_state .= _("\n- Save on Hard drive on path : %s\n", $save_path);
+ $where_hd and $system_state .= _("\n- Save on Hard drive on path: %s\n", $save_path);
if (($del_hd_files) && (($where_cd) || ($where_tape) || ($where_net)) && ($daemon_media ne 'hd')) {
$system_state .= _("\n- Delete hard drive tar files after backup.\n");
@@ -2599,13 +2599,13 @@ sub system_state {
$erase_media = 'YES' if (($media_erase) && ($where_cd || $where_tape));
$where_cd and $system_state .= _("\n- Burn to CD");
$where_cd and $cdrw and $system_state .= _("RW");
- $where_cd and $system_state .= _(" on device : %s", $cd_device);
+ $where_cd and $system_state .= _(" on device: %s", $cd_device);
$where_cd and $multi_session and $system_state .= _(" (multi-session)");
- $where_tape and $system_state .= _("\n- Save to Tape on device : %s", $tape_device);
+ $where_tape and $system_state .= _("\n- Save to Tape on device: %s", $tape_device);
(($where_cd || $where_tape) && $media_erase) and $system_state .= _("\t\tErase=%s", $erase_media);
($where_cd || $where_tape) and $system_state .= "\n";
- $where_net and $system_state .= _("\n- Save via %s on host : %s\n", $net_proto, $host_name);
+ $where_net and $system_state .= _("\n- Save via %s on host: %s\n", $net_proto, $host_name);
$where_net and $system_state .= _("\t\t user name: %s\n\t\t on path: %s \n", $login_user, $host_path);
$system_state .= _("\n- Options:\n");
$backup_sys or $system_state .= _("\tDo not include System Files\n");
@@ -2616,7 +2616,7 @@ sub system_state {
$system_state .= _("\tBackups use tar and gzip\n");
}
- $daemon_media and $system_state .= _("\n- Daemon (%s) include :\n", $when_space);
+ $daemon_media and $system_state .= _("\n- Daemon (%s) include:\n", $when_space);
($daemon_media eq 'hd') and $system_state .= _("\t-Hard drive.\n");
($daemon_media eq 'cd') and $system_state .= _("\t-CDROM.\n");
($daemon_media eq 'tape') and $system_state .= _("\t-Tape \n");
@@ -3633,7 +3633,7 @@ sub restore_ftp {
my ($cat_entry, $hostname, $hostpath, $username, $userpass, @restore_files) = @_;
my $indv_files = @restore_files;
- $DEBUG and print "file list to retrieve : $cat_entry\n ";
+ $DEBUG and print "file list to retrieve: $cat_entry\n ";
if ($DEBUG && $interactive) { $ftp = Net::FTP->new($hostname, Debug => 1) or return(1) }
elsif ($interactive) { $ftp = Net::FTP->new($hostname, Debug => 0) or return(1) }
else { $ftp = Net::FTP->new($hostname, Debug => 0) or return(1) }