summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--pxe_wizard/Pxe.pm30
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;
}