diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 20:24:49 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-22 20:24:49 +0000 |
| commit | c39ce7aa14f2424c874cc58b5ce5249a05fabe66 (patch) | |
| tree | 8893b894f4ac7fc7b2fe4dc116654b3830e88668 /pxe_wizard | |
| parent | 568cc7c168e09ca61e6a6652ad0ab597fa5b6421 (diff) | |
| download | drakwizard-c39ce7aa14f2424c874cc58b5ce5249a05fabe66.tar drakwizard-c39ce7aa14f2424c874cc58b5ce5249a05fabe66.tar.gz drakwizard-c39ce7aa14f2424c874cc58b5ce5249a05fabe66.tar.bz2 drakwizard-c39ce7aa14f2424c874cc58b5ce5249a05fabe66.tar.xz drakwizard-c39ce7aa14f2424c874cc58b5ce5249a05fabe66.zip | |
perl_checker fixes
Diffstat (limited to 'pxe_wizard')
| -rw-r--r-- | pxe_wizard/Pxe.pm | 12 |
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; |