diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2004-01-21 16:22:08 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2004-01-21 16:22:08 +0000 |
| commit | 333f23dcb783fe5b121eb9bd82634d4939b34864 (patch) | |
| tree | 895da03f1b4201a6e21d65ea2e9c301d62145a18 /pxe_wizard | |
| parent | 195d056cf68a4278e88d2181a0963f683077512c (diff) | |
| download | drakwizard-333f23dcb783fe5b121eb9bd82634d4939b34864.tar drakwizard-333f23dcb783fe5b121eb9bd82634d4939b34864.tar.gz drakwizard-333f23dcb783fe5b121eb9bd82634d4939b34864.tar.bz2 drakwizard-333f23dcb783fe5b121eb9bd82634d4939b34864.tar.xz drakwizard-333f23dcb783fe5b121eb9bd82634d4939b34864.zip | |
perl_checker recommendation
Diffstat (limited to 'pxe_wizard')
| -rw-r--r-- | pxe_wizard/Pxe.pm | 14 |
1 files changed, 7 insertions, 7 deletions
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 ,<<EOF); + append_to_file($PXEDEFAULT, <<EOF); # TAG: ${NAME}_BEGIN label $NAME KERNEL memdisk @@ -312,7 +312,7 @@ EOF # add entry in Help.txt of PXE sub add_in_help { my ($NAME, $DESCR) = @_; - append_to_file($PXEHELP ,<<EOF); + append_to_file($PXEHELP, <<EOF); $NAME : $DESCR EOF } @@ -335,7 +335,7 @@ sub remove_in_menu { sub list_menu { my @list_menu; foreach (cat_($PXEDEFAULT)) { - my ($ent) = /\# TAG: (\w+)_BEGIN/; + my ($ent) = /# TAG: (\w+)_BEGIN/; ! $ent or push @list_menu,$ent; #print "$ent\n"; } @list_menu; |