summaryrefslogtreecommitdiffstats
path: root/postfix_wizard/Postfix.pm
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2004-02-20 22:35:29 +0000
committerAntoine Ginies <aginies@mandriva.com>2004-02-20 22:35:29 +0000
commit1062492c1358cbe707984568ffe263cbcb2e5eec (patch)
treeebc8c86718f414c3396578d1ab16dbe003f905d0 /postfix_wizard/Postfix.pm
parent890aab5bdb482f07a1b4785f4639050ef785af32 (diff)
downloaddrakwizard-1062492c1358cbe707984568ffe263cbcb2e5eec.tar
drakwizard-1062492c1358cbe707984568ffe263cbcb2e5eec.tar.gz
drakwizard-1062492c1358cbe707984568ffe263cbcb2e5eec.tar.bz2
drakwizard-1062492c1358cbe707984568ffe263cbcb2e5eec.tar.xz
drakwizard-1062492c1358cbe707984568ffe263cbcb2e5eec.zip
add information
Diffstat (limited to 'postfix_wizard/Postfix.pm')
-rwxr-xr-xpostfix_wizard/Postfix.pm16
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;
}