add information

1 files changed, 8 insertions, 8 deletions

diff --git a/postfix_wizard/Postfix.pm b/postfix_wizard/Postfix.pm
index 46991f39..aac18dae 100755
--- a/postfix_wizard/Postfix.pm
+++ b/postfix_wizard/Postfix.pm
@@ -35,16 +35,16 @@ my $wiz_domain_name = $wiz->{net}->network_get("DOMAINNAME");
 my $wiz_host_name = $wiz->{net}->network_get("HOSTNAME");
 
 
-my $o = { 
+my $o = {
 	 name => N("Postfix wizard"),
-	 var => { 
+	 var => {
 		 wiz_mail_masquerade => '',
 		 wiz_ext_mail_relay => '',
 		 wiz_myorigin => $wiz_domain_name,
 		},
 	 init => sub {
 	   check_sendmail();
-	   my $t = grep { /$wiz_host_name/ } cat_("/etc/hosts");
+	   my $t = any { /$wiz_host_name/ } cat_("/etc/hosts");
 	   if ($t == 0) {
 	     return 0, N("Error, can't find your hostname in /etc/hosts. Exiting.")
 	   }
@@ -63,7 +63,7 @@ my %level = (
 
 $o->{pages} = {
 	       welcome => {
-			   name => N("Internet Mail Configuration Wizard") . "\n\n" . N("This wizard will help you configuring the Internet Mail services for your network, or configure an Internet Mail server."),
+			   name => N("Internet Mail Configuration Wizard") . "\n\n" . N("This wizard will help you configuring an Internet Mail serer for your network, or configure an External Mail server."),
 			   no_back => 1,
                            pre => sub {
                              $o->{var}{wiz_level} ||= 1;
@@ -141,18 +141,18 @@ $o->{pages} = {
 			   next => 'endext'
 			  },
 	       summaryint => {
-			      name =>  N("Configuring the Internal Mail Server"),
+			      name =>  N("The wizard now will configure an Internal Mail Server."),
 			      post => \&do_it_internal,
 			      next => 'endext'
 			     },
 	       endext => {
-		       name => N("Congratulations") . "\n\n" . N("The wizard successfully configured your Internet Mail service of your server."),
+		       name => N("Congratulations") . "\n\n" . N("The wizard successfully configured your Externet Mail server."),
 		       end => 1,
 		       next => 0
 		      },
 	       error_end => {
 			     name => N("Failed"),
-                             data => [ { label => N("Relaunch drakwizard, and try to change some parameters.") } ],
+                             data => [ { label => N("Please relaunch drakwizard, and try to change some parameters.") } ],
                              no_back => 1,
                              end => 1,
                              next => 0,
@@ -169,7 +169,7 @@ sub new {
 sub check_sendmail {
   my $in = 'interactive'->vnew('su', 'Check sendmail');
   my $w = $in->wait_message(N("Postfix Server"), N("Check if sendmail is installed, to avoid conflict...."));
-  my $test = grep { /sendmail/ } system("rpm -qa sendmail");
+  my $test = any { /sendmail/ } system("rpm -qa sendmail");
   !$test or return 'error_sendmail';
   undef $w;
 }