set vga default to 788, force default boot for a profil.

1 files changed, 14 insertions, 6 deletions

diff --git a/drakpxelinux.pl b/drakpxelinux.pl
index b56eaab..e0e3c0c 100644
--- a/drakpxelinux.pl
+++ b/drakpxelinux.pl
@@ -275,7 +275,7 @@ EOF
 
 # wizard to add an entry in PXE menu
 sub wizard_add_entry {
-  my ($_widget, $treeview, $pxelinux_conf) = @_;
+  my ($_widget, $treeview, $pxelinux_conf, $profiles) = @_;
   my $model = $treeview->get_model;
 
   local $::isEmbedded = 0;
@@ -335,11 +335,19 @@ sub wizard_add_entry {
 						 kernel => "images/$vmlinuzpxe",
 						 initrd => "images/$WPXENAME.rdz",
 						 ramdisk => "128000",
-						 vga => "automatic",
+						 vga => "788",
 						 others => "root=/dev/ram3 rw",
 						};
 				    push @{$pxelinux_conf->{entries}}, $entry;
 				    set_pxelinux_entry_at_iter($model, $model->append, $entry);
+				    # set default boot for profile is none
+				    if (!$pxelinux_conf->{default}) {
+				      $pxelinux_conf->{default} = $WPXENAME;
+				      $pxelinux_conf->{display} = 'messages';
+				      $pxelinux_conf->{timeout} = '50';
+				      $pxelinux_conf->{prompt} = '10';
+				      refresh_menu();
+				    }
 				    undef $w;
 				    return;
 				  },
@@ -912,8 +920,8 @@ my $profiles_conf = network::pxe::read_profiles();
 sub create_systems_list() {
   my $systems = Gtk2::SimpleList->new(
 				      N("MAC address") => 'text',
-				      N("Boot Profil 1") => 'text',
-				      N("Boot Profil 2") => 'text',
+				      N("Installation profile") => 'text',
+				      N("Boot profil") => 'text',
 				      N("Computer Name") => 'text',
 				     );
 
@@ -1263,7 +1271,7 @@ gtkpack($w->{window}, gtknew('VBox', spacing => 0, children => [
 						  1, gtknew('ScrolledWindow', child => $systems),
 						  0, gtknew('HBox',
 							    children_loose => [
-							       gtksignal_connect(gtknew('Button', text => N("Set Boot Profile 1")), clicked => sub {
+							       gtksignal_connect(gtknew('Button', text => N("Set installation profile")), clicked => sub {
 										   my $profile = $profiles_combo->get_active_text;
 										   my $to_install = exists $profiles_conf->{profiles}{install}{$profile};
 										   foreach ($systems->get_selected_indices) {
@@ -1273,7 +1281,7 @@ gtkpack($w->{window}, gtknew('VBox', spacing => 0, children => [
 										   }
 										   write_profile_conf();
 										 }),
-							       gtksignal_connect(gtknew('Button', text => N("Set Boot Profile 2")), clicked => sub {
+							       gtksignal_connect(gtknew('Button', text => N("Set boot profile")), clicked => sub {
 										   my $profile = $profiles_combo->get_active_text;
 										   foreach ($systems->get_selected_indices) {
 										     my $entry = $systems->{data}[$_];