new tool to configure PXE default file

1 files changed, 638 insertions, 0 deletions

diff --git a/drakpxelinux.pl b/drakpxelinux.pl
new file mode 100644
index 0000000..8bdd24d
--- /dev/null
+++ b/drakpxelinux.pl
@@ -0,0 +1,638 @@
+#!/usr/bin/perl
+#
+# Copyright (C) 2004 by Mandrakesoft aginies _ateuh_ mandrakesoft.com
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+# 02111-1307, USA.
+
+# Quick configuration of PXE menu parameters
+# release 0.5
+# use with care developement release....
+# thx R1 for test and some debug
+
+use lib qw(/usr/lib/libDrakX);
+use standalone;
+use strict;
+use common;
+use MDK::Common;
+use ugtk2 qw(:ask :helpers :wrappers :create :dialogs);
+
+
+use constant FALSE => 0;
+use constant TRUE => 1;
+
+# ie of entry menu in PXE:
+#label linux
+#        KERNEL images/vmlinuz
+#        APPEND initrd=images/all.rdz automatic=method:http,interface:eth0,network:dhcp,server:10.0.1.33,directory:/install/ ramdisk_size=64000 root=/dev/ram3 rw vga=788 display=:0
+
+my $conf = "/var/lib/tftpboot/X86PC/linux/pxelinux.cfg/default";
+#my $conf = "/tmp/tr";
+
+my $help = "
+PXE Label: the name displayed in PXE menu (a word/number)
+Server:    IP address of server, which contains installation directory
+Kernel:    memdisk or vmlinuz
+Initrd:    network boot image (network.img ) or all.rdz
+Interface: network interface used for the installation process
+Network:   DHCP or an IP address
+Directory: full path to MDK install server directory
+Method:    installation method: choose NFS or HTTP
+Ramsize:   ramsize parameter on boot disk
+Display:   export display on another computer (ie: 10.0.1.33:0)
+VGA:       if you encounter any problem with VGA, please adjust
+";
+
+my $date = chomp_(`date +%d-%m-20%y`);
+
+if (!-f $conf) {
+  err_dialog("Error !", "missing $conf\n\nPlease install pxe package.") and die;
+} else {
+  cp_af($conf, "$conf-$date");
+}
+
+my @listpxe;
+my @list_method = qw(nfs http);
+my @list_ram = qw(48000 32000 64000 1280000);
+my @list_vga = qw(788 normal 785 791 792 text);
+my @list_eth = qw(eth0 eth1 eth2);
+
+use constant COLUMN_LABEL => 0;
+use constant COLUMN_INFO => 1;
+use constant COLUMN_KERNEL => 2;
+use constant COLUMN_INITRD => 3;
+use constant COLUMN_AUTOMATIC => 4;
+use constant COLUMN_INTERFACE => 5;
+use constant COLUMN_NETWORK => 6;
+use constant COLUMN_SERVER => 7;
+use constant COLUMN_DIRECTORY => 8;
+use constant COLUMN_RAMDISK => 9;
+use constant COLUMN_VGA => 10;
+use constant COLUMN_DISPLAY => 11;
+use constant COLUMN_OPTION => 12;
+use constant NUM_COLUMNS => 13;
+
+
+sub get_items() {
+  my $info; my $label; my $kernel; my $initrd;
+  foreach (cat_($conf)) {
+    if (any { /^label/ } cat_($conf)) {
+      if (/^label/) { ($label) = /^label\s(.*)/ }
+      if (/KERNEL/) { ($kernel) = /KERNEL\s(.*)/ }
+      my ($initrd, $automatic, $interface, $network, $server, $directory, $ramdisk, $vga, $display) = m!\s*APPEND\sinitrd=(.*?rdz)\s\bautomatic=method\b:(nfs|http),interface:(eth0|eth1|eth2),network:(dhcp|10.0.1.33),server:(.*?),directory:(.*?)\s\bramdisk_size\b=(.*?)\sroot=/dev/ram3\srw\svga=(.*?)\sdisplay=(.*?)\s!;
+      # in case of parameter not on this order (previous pxe default file)
+      $initrd or my ($init) = m!\s*APPEND\s\binitrd\b=(.*?)\s!;
+      $ramdisk or my ($ramdis) = m!\bramdisk_size\b=(\d+)\s!;
+      $automatic or my ($automati) = m!\bautomatic\b=method:(nfs|http)!;
+      $vga or my ($vg) = m!\bvga\b=(.*?)\s!;
+      $display or my ($displa) = m!\bdisplay\b=(.*?)\s!;
+      $interface or my ($interfac) = m!\binterface\b:(eth0|eth1|eth2)!;
+      $network or my ($networ) = m!\bnetwork\b:(dhcp|10.0.1.33)!;
+      $server or my ($serve) = m!\bserver\b:(.*?),!;
+      $directory or my ($director) = m!\bdirectory\b:(.*?)\s!;
+      my $information = "$label $automati";
+      my $initall; my $ramdiskall; my $autoall; my $vgaall; my $displayall; my $interfaceall; my $networkall; my $serverall; my $directoryall;
+      if ($initrd) { $initall = $initrd } else { $initall = $init }
+      if ($ramdisk) { $ramdiskall = $ramdisk } else { $ramdiskall = $ramdis }
+      if ($automatic) { $autoall = $automatic } else { $autoall = $automati }
+      if ($vga) { $vgaall = $vga } else { $vgaall = $vg }
+      if ($display) { $displayall = $display } else { $displayall = $displa }
+      if ($interface) { $interfaceall = $interface } else { $interfaceall = $interfac }
+      if ($network) { $networkall = $network } else { $networkall = $networ }
+      if ($server) { $serverall = $server } else { $serverall = $serve }
+      if ($directory) { $directoryall = $directory } else { $directoryall = $director }
+      my ($allopt) = m!\s*APPEND\s(.*)!;
+      my ($autocomp) = m!\bautomatic\b=(.*?)\s!;
+      my ($devram) = m!root=/dev/ram3\srw!;
+      my $optionsall = join(' ', grep { ! /$devram/ and ! /initrd=$initall/ and ! /display=$displayall/ and ! /ramdisk_size=$ramdiskall/ and ! /automatic=$autocomp/ and ! /vga=$vgaall/ } split(' ', $allopt));
+
+      if ($label and $kernel and $initall) {
+	push @listpxe, {
+			label => $label,
+			info => $information,
+			kernel => $kernel,
+			initrd => $initall,
+			automatic => $autoall,
+			interface => $interfaceall,
+			network => $networkall,
+			server => $serverall,
+			directory => $directoryall,
+			ramdisk => $ramdiskall,
+			vga => $vgaall,
+			display => $displayall,
+			option => $optionsall,
+		       },;
+      }
+    }
+  }
+}
+
+sub list_label_pxe() {
+  my @labels;
+  foreach (cat_($conf)) {
+    my ($label) = /label\s(.*)/;
+    $label and push @labels, $label;
+  }
+  @labels;
+}
+
+sub set_new_default {
+  my ($default) = @_;
+  substInFile {
+    s/^DEFAULT.*/DEFAULT $default/;
+  } $conf;
+}
+
+sub get_default_pxe {
+  my ($defaultpxe) = cat_($conf) =~ /DEFAULT\s+(\S+)/;
+  return $defaultpxe;
+}
+
+sub get_default_prompt() {
+  my ($prompt) = cat_($conf) =~ /^PROMPT\s(\d+)/;
+  return $prompt;
+}
+
+sub get_default_timeout() {
+  my ($time) = cat_($conf) =~ /^TIMEOUT\s(\d+)/;
+  return $time;
+}
+
+sub write_conf_pxe {
+  my $default = get_default_pxe;
+  my $prompt = get_default_prompt;
+  my $time = get_default_timeout;
+  output($conf, <<EOF);
+# DO NOT EDIT auto_generated by drakpxe2.pl
+PROMPT $prompt
+DEFAULT $default
+DISPLAY messages
+TIMEOUT 50
+
+label local
+    LOCALBOOT 0
+EOF
+
+  foreach my $a (@listpxe) {
+    if ($a->{interface}) {
+      append_to_file($conf, "
+label $a->{label}
+      KERNEL $a->{kernel}
+      APPEND initrd=$a->{initrd} automatic=method:$a->{automatic},interface:$a->{interface},network:$a->{network},server:$a->{server},directory:$a->{directory} ramdisk_size=$a->{ramdisk} root=/dev/ram3 rw vga=$a->{vga} display=$a->{display}
+");
+    } else {
+      append_to_file($conf, "
+label $a->{label}
+      KERNEL $a->{kernel}
+      APPEND initrd=$a->{initrd}
+");
+    }
+  }
+}
+
+sub create_model {
+  get_items();
+  my $model = Gtk2::ListStore->new(("Glib::String") x13);
+  foreach my $a (@listpxe) {
+    my $iter = $model->append;
+    $model->set($iter,
+		 COLUMN_LABEL, $a->{label},
+		 COLUMN_INFO, $a->{info},
+		 COLUMN_KERNEL, $a->{kernel},
+		 COLUMN_INITRD, $a->{initrd},
+		 COLUMN_AUTOMATIC, $a->{automatic},
+		 COLUMN_INTERFACE, $a->{interface},
+		 COLUMN_NETWORK, $a->{network},
+		 COLUMN_SERVER, $a->{server},
+		 COLUMN_DIRECTORY, $a->{directory},
+		 COLUMN_RAMDISK, $a->{ramdisk},
+		 COLUMN_VGA, $a->{vga},
+		 COLUMN_DISPLAY, $a->{display},
+		 COLUMN_OPTION, $a->{option},
+		),
+	      }
+  return $model;
+}
+
+sub add_item {
+  my ($button, $model) = @_;
+  my @a;
+  push @a, {
+     label => "cooker",
+     info => "install cooker",
+     kernel => "/images/cooker",
+     initrd => "cooker.rdz",
+     automatic => "http",
+     interface => "eth0",
+     network => "dhcp",
+     server => "10.0.1.33",
+     directory => "/install/cooker",
+     ramdisk => "64000",
+     vga => "788",
+     display => ":0",
+     option => "acpi=ht",
+  };
+
+  my $iter = $model->append;
+  $model->set($iter,
+	      COLUMN_LABEL, $a[-1]{label},
+	      COLUMN_INFO, $a[-1]{info},
+	      COLUMN_KERNEL, $a[-1]{kernel},
+	      COLUMN_INITRD, $a[-1]{initrd},
+	      COLUMN_AUTOMATIC, $a[-1]{automatic},
+	      COLUMN_INTERFACE, $a[-1]{interface},
+	      COLUMN_NETWORK, $a[-1]{network},
+	      COLUMN_SERVER, $a[-1]{server},
+	      COLUMN_DIRECTORY, $a[-1]{directory},
+	      COLUMN_RAMDISK, $a[-1]{ramdisk},
+	      COLUMN_VGA, $a[-1]{vga},
+	      COLUMN_DISPLAY, $a[-1]{display},
+	      COLUMN_OPTION, $a[-1]{option},
+	     );
+#  write_conf_pxe;
+}
+
+sub remove_item {
+  my ($widget, $treeview) = @_;
+  my $model = $treeview->get_model;
+  my $selection = $treeview->get_selection;
+  my $iter = $selection->get_selected;
+  if ($iter) {
+      my $path = $model->get_path($iter);
+      my $i = ($path->get_indices)[0];
+      ask_okcancel("Remove $listpxe[$i]{label} PXE entry ?") or return;
+      $model->remove($iter);
+      splice @listpxe, $i, 1;
+  }
+  write_conf_pxe;
+}
+
+sub edit_box_item {
+  my ($widget, $treeview) = @_;
+  my $model = $treeview->get_model;
+  my $selection = $treeview->get_selection;
+
+  my $iter = $selection->get_selected;
+  if ($iter) {
+    my $path = $model->get_path($iter);
+    my $i = ($path->get_indices)[0];
+
+    my $dialog = new Gtk2::Dialog();
+    $dialog->set_modal(0);
+
+    my $label = Gtk2::Entry->new;
+    $label->set_text($listpxe[$i]{label});
+
+    my $info = Gtk2::Entry->new;
+    $info->set_text($listpxe[$i]{info});
+
+    my $kernel = Gtk2::Entry->new;
+    $kernel->set_text($listpxe[$i]{kernel});
+    # file selection for kernel
+    my $file_dialogk = new Gtk2::FileSelection("File Selection");
+    $file_dialogk->set_modal(TRUE);
+    $file_dialogk->signal_connect("destroy", sub { Gtk2->exit });
+    $file_dialogk->ok_button->signal_connect(clicked => sub {
+					       my $file = $file_dialogk->get_filename;
+					       $kernel->set_text($file);
+					       $file_dialogk->hide;
+					     }, $file_dialogk);
+    $file_dialogk->cancel_button->signal_connect(clicked => sub { $file_dialogk->hide });
+    # button kernel
+    my $buttonkernel = Gtk2::Button->new("Select kernel");
+    $buttonkernel->signal_connect(clicked => sub { $file_dialogk->show });
+
+    my $initrd = Gtk2::Entry->new;
+    $initrd->set_text($listpxe[$i]{initrd});
+    # file selection for initrd
+    my $file_dialog = new Gtk2::FileSelection("File Selection");
+    $file_dialog->set_modal(TRUE);
+    $file_dialog->signal_connect("destroy", sub { Gtk2->exit });
+    $file_dialog->ok_button->signal_connect(clicked => sub {
+					      my $filei = $file_dialog->get_filename;
+					      $initrd->set_text($filei);
+					      $file_dialog->hide;
+					    }, $file_dialog);
+    my $buttoninitrd = Gtk2::Button->new("Select initrd");
+    $buttoninitrd->signal_connect(clicked => sub { $file_dialog->show });
+
+    # combo box to pop down automatic installation
+    my $automatic = Gtk2::Combo->new;
+    $automatic->set_popdown_strings(@list_method);
+    $automatic->entry->set_text($listpxe[$i]{automatic});
+
+    # combo box to pop down list of network interface
+    my $interface = new Gtk2::Combo();
+    $interface->set_popdown_strings(@list_eth);
+    $interface->entry->set_text($listpxe[$i]{interface});
+
+    my $network = Gtk2::Entry->new;
+    $network->set_text($listpxe[$i]{network});
+
+    my $server = Gtk2::Entry->new;
+    $server->set_text($listpxe[$i]{server});
+
+    my $directory = Gtk2::Entry->new;
+    $directory->set_text($listpxe[$i]{directory});
+
+    my $ramdisk = new Gtk2::Combo();
+    $ramdisk->set_popdown_strings(@list_ram);
+    $ramdisk->entry->set_text($listpxe[$i]{ramdisk});
+
+    my $vga = new Gtk2::Combo();
+    $vga->set_popdown_strings(@list_vga);
+    $vga->entry->set_text($listpxe[$i]{vga});
+
+    my $display = Gtk2::Entry->new;
+    $display->set_text($listpxe[$i]{display});
+
+    my $option = Gtk2::Entry->new;
+    $option->set_text($listpxe[$i]{option});
+
+    gtkpack_($dialog->vbox,
+             0, gtkadd(Gtk2::Frame->new(("Description")),
+                       gtkpack(gtkset_border_width(Gtk2::VBox->new, 2),
+			       gtkadd(Gtk2::HBox->new,
+				      Gtk2::Label->new("Label"),
+				      $label,
+				     ),
+			       gtkadd(Gtk2::HBox->new,
+				      Gtk2::Label->new("Info"),
+				      $info,
+				     ),
+			      ),
+                      ),
+             0, gtkadd(Gtk2::Frame->new(("Boot image")),
+                       gtkadd(gtkset_border_width(Gtk2::VBox->new, 2),
+			      gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Kernel"),
+				     $kernel,
+				     $buttonkernel,
+				    ),
+                              gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Initrd"),
+				     $initrd,
+				     $buttoninitrd,
+				    ),
+			     ),
+		      ),
+	     0, gtkadd(Gtk2::Frame->new(("Automatic Options")),
+                       gtkadd(gtkset_border_width(Gtk2::VBox->new, 2),
+                              gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Automatic"),
+				     $automatic,
+                                    ),
+                              gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Interface"),
+				     $interface,
+                                    ),
+                              gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Network"),
+				     $network,
+                             ),
+                              gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Server"),
+				     $server,
+				    ),
+			      gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Directory"),
+				     $directory),
+			     ),
+		      ),
+	     0, gtkadd(Gtk2::Frame->new(("Display")),
+                       gtkadd(gtkset_border_width(Gtk2::VBox->new, 2),
+			      gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Vga"),
+				     $vga,
+				    ),
+			      gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Display"),
+				     $display,
+				    ),
+			     ),
+		      ),
+	     0, gtkadd(Gtk2::Frame->new(("Other options")),
+                       gtkadd(gtkset_border_width(Gtk2::VBox->new, 2),
+			      gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Ramdisk"),
+				     $ramdisk,
+				    ),
+			      gtkadd(Gtk2::HBox->new,
+				     Gtk2::Label->new("Option"),
+				     $option,
+				    ),
+			     ),
+		      ),
+	     0, create_okcancel({
+				 cancel_clicked => sub { $dialog->destroy },
+				 ok_clicked => sub {
+				   #ask_okcancel("are you sure you want to update all those values ?");
+				   $listpxe[$i]{label} = $label->get_text;
+				   $listpxe[$i]{info} = $info->get_text;
+				   $listpxe[$i]{kernel} = $kernel->get_text;
+				   $listpxe[$i]{initrd} = $initrd->get_text;
+				   $listpxe[$i]{automatic} = $automatic->entry->get_text;
+				   $listpxe[$i]{interface} = $interface->entry->get_text;
+				   $listpxe[$i]{network} = $network->get_text;
+				   $listpxe[$i]{server} = $server->get_text;
+				   $listpxe[$i]{directory} = $directory->get_text;
+				   $listpxe[$i]{ramdisk} = $ramdisk->entry->get_text;
+				   $listpxe[$i]{vga} = $vga->entry->get_text;
+				   $listpxe[$i]{display} = $display->get_text;
+				   $listpxe[$i]{option} = $option->get_text;
+
+				   # update value in cells
+				   $model->set($iter,
+					       COLUMN_LABEL, $listpxe[$i]{label},
+					       COLUMN_INFO, $listpxe[$i]{info},
+					       COLUMN_KERNEL, $listpxe[$i]{kernel},
+					       COLUMN_INITRD, $listpxe[$i]{initrd},
+					       COLUMN_AUTOMATIC, $listpxe[$i]{automatic},
+					       COLUMN_INTERFACE, $listpxe[$i]{interface},
+					       COLUMN_NETWORK, $listpxe[$i]{network},
+					       COLUMN_SERVER, $listpxe[$i]{server},
+					       COLUMN_DIRECTORY, $listpxe[$i]{directory},
+					       COLUMN_RAMDISK, $listpxe[$i]{ramdisk},
+					       COLUMN_VGA, $listpxe[$i]{vga},
+					       COLUMN_DISPLAY, $listpxe[$i]{display},
+					       COLUMN_OPTION, $listpxe[$i]{option},
+					      );
+				   $dialog->destroy;
+				   write_conf_pxe;
+				 },
+				},
+			       ),
+	    );
+    $dialog->show_all;
+  }
+}
+
+sub cell_edited {
+  my ($cell, $path_string, $new_text, $model) = @_;
+  my $path = Gtk2::TreePath->new_from_string($path_string);
+  my $column = $cell->get_data("column");
+  my $iter = $model->get_iter($path);
+
+  if ($column == COLUMN_LABEL) {
+    my $i = ($path->get_indices)[0];
+    $listpxe[$i]{label} = $new_text;
+    $model->set($iter, $column, $listpxe[$i]{label});
+  } elsif ($column == COLUMN_INFO) {
+    my $i = ($path->get_indices)[0];
+    $listpxe[$i]{info} = $new_text;
+    $model->set($iter, $column, $listpxe[$i]{info});
+  } elsif ($column == COLUMN_KERNEL) {
+    my $i = ($path->get_indices)[0];
+    if (-f $new_text) {
+      $listpxe[$i]{kernel} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{kernel});
+    }
+  } elsif ($column == COLUMN_INITRD) {
+    my $i = ($path->get_indices)[0];
+    if (-f $new_text) {
+      $listpxe[$i]{initrd} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{initrd});
+    }
+  } elsif ($column == COLUMN_AUTOMATIC) {
+    my $i = ($path->get_indices)[0];
+    if (!member($new_text, @list_method) or ($listpxe[$i]{kernel} =~ /memdisk/)) {
+      return;
+    } else {
+      $listpxe[$i]{automatic} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{automatic});
+    }
+  } elsif ($column == COLUMN_INTERFACE) {
+    my $i = ($path->get_indices)[0];
+    if (member($new_text, @list_eth) or ($listpxe[$i]{kernel} != /memdisk/)) {
+      $listpxe[$i]{interface} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{interface});
+    }
+  } elsif ($column == COLUMN_NETWORK) {
+    my $i = ($path->get_indices)[0];
+    if ($listpxe[$i]{kernel} != /memdisk/) {
+      $listpxe[$i]{network} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{network});
+    }
+  } elsif ($column == COLUMN_SERVER) {
+    my $i = ($path->get_indices)[0];
+    if ($listpxe[$i]{kernel} != /memdisk/) {
+      $listpxe[$i]{server} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{server});
+    }
+  } elsif ($column == COLUMN_DIRECTORY) {
+    my $i = ($path->get_indices)[0];
+    if (-d $new_text || ($listpxe[$i]{kernel} != /memdisk/)) {
+      $listpxe[$i]{directory} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{directory});
+    }
+  } elsif ($column == COLUMN_RAMDISK) {
+    my $i = ($path->get_indices)[0];
+    if (member($new_text, @list_ram) || ($listpxe[$i]{kernel} != /memdisk/)) {
+      $listpxe[$i]{ramdisk} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{ramdisk});
+    }
+  } elsif ($column == COLUMN_VGA) {
+    my $i = ($path->get_indices)[0];
+    if (member($new_text, @list_vga) || ($listpxe[$i]{kernel} != /memdisk/)) {
+      $listpxe[$i]{vga} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{vga});
+    }
+  } elsif ($column == COLUMN_DISPLAY) {
+    my $i = ($path->get_indices)[0];
+    if ($listpxe[$i]{kernel} != /memdisk/) {
+      $listpxe[$i]{display} = $new_text;
+      $model->set($iter, $column, $listpxe[$i]{display});
+    }
+  } elsif ($column == COLUMN_OPTION) {
+    my $i = ($path->get_indices)[0];
+    $listpxe[$i]{option} = $new_text;
+    $model->set($iter, $column, $listpxe[$i]{option});
+  }
+  write_conf_pxe;
+}
+
+sub show_help { info_dialog("Help", $help) }
+
+sub add_columns {
+  my $treeview = shift;
+  my $model = $treeview->get_model;
+  # horrible hack to avoid: GLib-GObject-CRITICAL **: file gobject.c: line 1019 (g_object_set_property): assertion `G_IS_VALUE (value)' failed at drakpxe2.pl line 640.
+  my $t = "0";
+  my @j = qw/Label Info Kernel Initrd Method Interface Network Server Directory Ramdisk vga Display Extra Options/;
+  each_index {
+    my $renderer = Gtk2::CellRendererText->new;
+    $renderer->set(editable => 1);
+    $renderer->signal_connect(edited => \&cell_edited, $model);
+    $renderer->set_data(column => $::i);
+    $treeview->insert_column_with_attributes(-1, $j[$t], $renderer, 'text' => $::i);
+    $t++;
+  } (qw/x x x x x x x x x x x x x/);
+#(("Label"), ("Info"), ("Kernel"), ("Initrd"), ("Method"), ("Interface"), ("Network"), ("Server"), ("Directory"), ("Ramdisk"), ("vga"), ("Display"), ("Extra"), ("Options"));
+}
+
+#
+# Main
+
+# create model
+my $model = create_model();
+
+my $window = ugtk2->new('Drakpxe2');
+$window->{rwindow}->set_size_request(800, 400) unless $::isEmbedded;
+my $W = $window->{window};
+$W->signal_connect(delete_event => sub { ugtk2->exit });
+
+my $treeview = Gtk2::TreeView->new_with_model($model);
+$treeview->set_rules_hint(TRUE);
+$treeview->get_selection->set_mode('single');
+add_columns($treeview);
+
+my $labels = new Gtk2::Combo();
+my @labels = list_label_pxe;
+my $defaultlabel = get_default_pxe;
+$labels->entry->set_text("$defaultlabel");
+$labels->entry->signal_connect("changed", sub { list_label_pxe; my $new_default = $labels->entry->get_text;
+						set_new_default($new_default);
+					      }
+			      );
+
+$labels->set_popdown_strings(@labels);
+$labels->entry->set_text("$defaultlabel");
+
+$W->add(gtkpack_(Gtk2::VBox->new(0,0),
+		 0, Gtk2::Banner->new('wiz_default_up', ("DrakPXE default configuration file")),
+		 1, create_scrolled_window($treeview),
+		 0, gtkadd(gtkset_border_width(Gtk2::VBox->new, 0,0),
+			   gtkadd(Gtk2::HBox->new(0,0),
+				  $labels,
+				  gtkpack(gtkset_layout(new Gtk2::HButtonBox, 'spread'),
+					  0, (map {
+					    my ($label, $sub, $widg) = @$_;
+					    gtksignal_connect(Gtk2::Button->new($label), clicked => sub {
+								$sub->($model, $widg); })
+					  } ([ ("Help"), \&show_help ],
+					     [ ("Add a PXE entry"), \&add_item, $model ],
+					     [ ("Remove PXE entry"), \&remove_item, $treeview ],
+					     [ ("Edit a PXE entry"), \&edit_box_item, $treeview ],
+					    )
+					     ),
+					 ),
+
+				 ),
+			  ),
+		),
+       );
+
+$W->show_all;
+Gtk2->main;