option in boot disk

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;
 }