summaryrefslogtreecommitdiffstats
path: root/pxe_wizard/Pxe.pm
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2004-01-21 16:22:08 +0000
committerAntoine Ginies <aginies@mandriva.com>2004-01-21 16:22:08 +0000
commit333f23dcb783fe5b121eb9bd82634d4939b34864 (patch)
tree895da03f1b4201a6e21d65ea2e9c301d62145a18 /pxe_wizard/Pxe.pm
parent195d056cf68a4278e88d2181a0963f683077512c (diff)
downloaddrakwizard-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/Pxe.pm')
-rw-r--r--pxe_wizard/Pxe.pm14
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;