summaryrefslogtreecommitdiffstats
path: root/pxe_wizard
diff options
context:
space:
mode:
Diffstat (limited to 'pxe_wizard')
-rw-r--r--pxe_wizard/Pxe.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/pxe_wizard/Pxe.pm b/pxe_wizard/Pxe.pm
index 38578639..08ee8fce 100644
--- a/pxe_wizard/Pxe.pm
+++ b/pxe_wizard/Pxe.pm
@@ -243,7 +243,7 @@ $o->{pages} = {
name => N("Congratulations"),
data => [ { label => N("The wizard successfully add a PXE boot image.") } ],
post => sub {
- @list_menu =();
+ @list_menu = ();
foreach (cat_($PXEDEFAULT)) {
my ($ent) = /# TAG: (\w+)_BEGIN/;
! $ent or push @list_menu,$ent;
@@ -255,7 +255,7 @@ $o->{pages} = {
name => N("Congratulations"),
data => [ { label => N("The wizard successfully remove a PXE boot image.") } ],
post => sub {
- @list_menu =();
+ @list_menu = ();
foreach (cat_($PXEDEFAULT)) {
my ($ent) = /# TAG: (\w+)_BEGIN/;
! $ent or push @list_menu,$ent;
@@ -352,7 +352,7 @@ sub add_img {
sub remove_in_menu {
my ($NAME) = @_;
my $conf = cat_($PXEDEFAULT) . "#EndOfFile";
- my ($begin, $NAME_bloc, $end) = $conf =~ /(.*?)(# TAG: ${NAME}_BEGIN.*?# TAG: ${NAME}_END)\n(.*)#EndOfFile/s or die "unable to find Menu entry section";
+ my ($begin, $_NAME_bloc, $end) = $conf =~ /(.*?)(# TAG: ${NAME}_BEGIN.*?# TAG: ${NAME}_END)\n(.*)#EndOfFile/s or die "unable to find Menu entry section";
output($PXEDEFAULT, $begin, $end);
}
@@ -446,7 +446,7 @@ sub read_option {
system("mount $IMGPATH/$IMG.img $mount -o loop 2>/dev/null");
my $line = cat_("$mount/syslinux.cfg");
$o->{var}{i} = "$IMGPATH/$IMG.img";
- ($o->{var}{METHOD}, $o->{var}{ETH}, $o->{var}{IP}, $o->{var}{DIR}, $o->{var}{RAM}, $o->{var}{VGA}, $o->{var}{ACPI}, $o->{var}{APIC}) = $line =~ /method:(nfs|http),interface:(eth0|eth1|eth2),network:dhcp,server:(.*?),directory:(.*?) ramdisk_size=(.*?) root=\/dev\/ram3 rw vga=(.*?)acpi=(ht|force|off)\s(apic|noapic)/;
+ ($o->{var}{METHOD}, $o->{var}{ETH}, $o->{var}{IP}, $o->{var}{DIR}, $o->{var}{RAM}, $o->{var}{VGA}, $o->{var}{ACPI}, $o->{var}{APIC}) = $line =~ m!/method:(nfs|http),interface:(eth0|eth1|eth2),network:dhcp,server:(.*?),directory:(.*?) ramdisk_size=(.*?) root=/dev/ram3 rw vga=(.*?)acpi=(ht|force|off)\s(apic|noapic)!;
system("umount $mount");
if (-e $mount) {
rm_rf($mount);
@@ -508,13 +508,13 @@ EOF
enable_tftps();
pxe_conf();
tftp_blksize('N');
- map { system("service $_ restart"); $_ } qw(xinetd pxe);
+ system("service $_ restart") foreach qw(xinetd pxe);
undef $w;
}
sub new {
- my ($class, $conf) = @_;
+ my ($class) = @_;
bless {
o => $o,
}, $class;