From 333f23dcb783fe5b121eb9bd82634d4939b34864 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Wed, 21 Jan 2004 16:22:08 +0000 Subject: perl_checker recommendation --- postfix_wizard/Postfix.pm | 2 +- pxe_wizard/Pxe.pm | 14 +++++++------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/postfix_wizard/Postfix.pm b/postfix_wizard/Postfix.pm index 0fd2a328..cddd17ee 100755 --- a/postfix_wizard/Postfix.pm +++ b/postfix_wizard/Postfix.pm @@ -183,7 +183,7 @@ sub do_it { } } if ($t) { substInFile { s|$t|| } } - else { append_to_file($file, $canon)} + else { append_to_file($file, $canon) } } system("/usr/sbin/postmap -r -w /etc/postfix/canonical"); system("/usr/sbin/postmap /etc/postfix/virtual"); diff --git a/pxe_wizard/Pxe.pm b/pxe_wizard/Pxe.pm index 87d127bc..42f761d8 100644 --- a/pxe_wizard/Pxe.pm +++ b/pxe_wizard/Pxe.pm @@ -69,7 +69,7 @@ my $o = { needed_rpm => [ 'pxe', 'tftp-server', 'xinetd' ], init => sub { if (member($DOMAINNAME, qw(localdomain (none)))) { - return (0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not egal to localdomain or none. Launch drakconnect to adjust it.")) + return 0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not egal to localdomain or none. Launch drakconnect to adjust it.") } 1 }, @@ -139,7 +139,7 @@ $o->{pages} = { next => 'summaryadd', }, removeimg => { - name => N("Remove a boot image"). "\n\n" . N("Choose PXE boot image you want to remove from PXE server."), + name => N("Remove a boot image") . "\n\n" . N("Choose PXE boot image you want to remove from PXE server."), data => [ { label => N("Boot image to remove:"), val => \$o->{var}{IMGTOREMOVE}, fixed_list => \@list_menu }, ], @@ -189,8 +189,8 @@ $o->{pages} = { data => [ { label => N("Tftp directory:"), fixed_val => \$TFTPDIR }, { label => N("Boot image path:"), fixed_val => \$IMGPATH }, - { label => N("PXE \'default\' file:"), fixed_val => \$PXEDEFAULT }, - { label => N("PXE \'help\' file:"), fixed_val => \$PXEHELP }, + { label => N("PXE 'default' file:"), fixed_val => \$PXEDEFAULT }, + { label => N("PXE 'help' file:"), fixed_val => \$PXEHELP }, ], post => \&do_it_pxe, next => 'endserver', @@ -299,7 +299,7 @@ sub crea_wdir { sub add_in_default { my ($NAME) = @_; if (!any { /${NAME}_BEGIN/ } cat_($PXEDEFAULT)) { - append_to_file($PXEDEFAULT ,<