corrected English typos (no space before colon in English)

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
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) }