From 9136f007c185947f273859b69f9ba06464d079e0 Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Thu, 29 Aug 2002 07:17:20 +0000 Subject: corrected English typos (no space before colon in English) --- perl-install/harddrake/ui.pm | Bin 9880 -> 9879 bytes perl-install/harddrake/v4l.pm | 10 +++++----- perl-install/standalone/drakbackup | 28 ++++++++++++++-------------- 3 files changed, 19 insertions(+), 19 deletions(-) (limited to 'perl-install') diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm index 0069c9288..fe10ca862 100644 Binary files a/perl-install/harddrake/ui.pm and b/perl-install/harddrake/ui.pm 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) } -- cgit v1.2.1