diff options
| -rw-r--r-- | pxe_wizard/Pxe.pm | 30 |
1 files changed, 23 insertions, 7 deletions
diff --git a/pxe_wizard/Pxe.pm b/pxe_wizard/Pxe.pm index e0a71ea5..1a3d2a38 100644 --- a/pxe_wizard/Pxe.pm +++ b/pxe_wizard/Pxe.pm @@ -55,6 +55,7 @@ my $o = { PXENAME => '92', DESCR => 'install 9.2', IMGTOREMOVE => '', + IMGTOMODIFY => '', }, needed_rpm => [ 'pxe', 'tftp-server', 'xinetd' ], }; @@ -63,9 +64,11 @@ my %level = ( 1 => N("PXE - Set PXE server"), 2 => N("add - Add image in PXE"), 3 => N("remove - remove image in PXE"), -# 4 => N("Modify - Modify image in PXE"), + 4 => N("Modify - Modify image in PXE"), ); +#($o->{var}{METHOD}, $o->{var}{IP}, $o->{var}{DIR}, $o->{var}{RAM}, $o->{var}{VGA}, $o->{var}{ACPI}, $o->{var}{APIC}); + # to get list menu entry my @list_menu; foreach (cat_($PXEDEFAULT)) { @@ -114,18 +117,27 @@ $o->{pages} = { modifyimg => { name => N("Add Option to boot image") . "\n\n" . N("on which image ?"), data => [ - { label => "Wich one ?", val => \$o->{var}{PXENAME} }, + { label => N("Which one:"), val => \$o->{var}{IMGTOMODIFY}, fixed_list => \@list_menu }, ], - next => 'summarymodify', + next => 'gomodify', }, + gomodify => { + name => N("Options to add to PXE boot disk"), + data => [ + { label => N("Installation method"), val => \$o->{var}{METHOD} }, + { label => N("Server IP"), val => \$o->{var}{IP} }, + { label => N("Install directory"), val => \$o->{var}{DIR} }, + { label => N("Ramsize"), val => \$o->{var}{RAM} }, + { label => N("VGA option"), val => \$o->{var}{VGA} }, + { label => N("Acpi option"), val => \$o->{var}{ACPI} }, + { label => N("Apic option"), val => \$o->{var}{APIC} }, + ], + next => 'summarymodify', + }, pxeserver => { name => N("Set PXE server") . "\n\n" . N("We will use a special dhcpd.conf"), next => 'summaryserver', }, - error_dir => { - name => N('Error Should be a directory'), - next => '', - }, error_img => { name => N('Please provide a Bootable image...'), next => 'addimg', @@ -353,7 +365,11 @@ sub do_it_remove { remove_img($o->{var}{IMGTOREMOVE}); } +sub read_option { +} + sub do_it_modify { + my ($METHOD , $IP, $DIR, $RAM, $VGA, $ACPI, $APIC) = ($o->{var}{METHOD}, $o->{var}{IP}, $o->{var}{DIR}, $o->{var}{RAM}, $o->{var}{VGA}, $o->{var}{ACPI}, $o->{var}{APIC}); return if $::testing; } |