merge fixes from HEAD

3 files changed, 30 insertions, 28 deletions

diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index 1b3a62220..ba850e5cc 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -1944,8 +1944,8 @@ sub create_client_sysnetwork {
 	my ($hostname, $ip) = @_;
 	log::explanations("Adding /etc/sysconfig/network for $ip");
 	my $network_file = "/etc/sysconfig/network\$\$IP=$ip\$\$";
-	my %net_data = ("HOSTNAME=$hostname\n", "NETWORKING=yes\n", "FORWARD_IPV4=false\n");
-	output_p($network_file, %net_data);
+	my @net_data = ("HOSTNAME=$hostname\n", "NETWORKING=yes\n", "FORWARD_IPV4=false\n");
+	output_p($network_file, @net_data);
 }
 
 sub restart_server() {
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 26af55fd3..4a05a4ef1 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -223,7 +223,7 @@ sub get_tape_info() {
 	my @line_data;
 	my $info = "$ENV{HOME}/tmp/dmesg";
 	@tape_devices = ();
-	system("dmesg | grep 'st[0-9] at' > $info");
+	system("dmesg -s 100000 | grep 'st[0-9] at' > $info");
 
 	my @info = cat_($info);
 	foreach (@info) {
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 3101128fd..91cc3664b 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -126,18 +126,18 @@ my %boot_conf_frame = ('frame' => Gtk2::Frame->new(N("Configure bootsplash pictu
                                'quiet' => N("Make kernel message quiet by default"),
                            },
                        },
-                       'pos' => [ 'tx 1', 
-                                  'ty 1',
-                                  'tw 1', 
-                                  'th 1',
-                                  'px 1',
-                                  'py 1',
-                                  'pw 1',
-                                  'ph 1',
+                       'pos' => [ 'tx',
+                                  'ty',
+                                  'tw',
+                                  'th',
+                                  'px',
+                                  'py',
+                                  'pw',
+                                  'ph',
                                   'pc',
                                   'logo',
                                   'quiet',
-                                  'annul',
+                                  # 'annul',
                                   'prev',
                                   'save',
                                   'kill',
@@ -370,47 +370,49 @@ sub mk_frame {
     my $u = create_packtable({ col_spacings => 10, row_spacings => 5 },
                              map {
                                  my @widgets;
+                                 my $pos = $_;
 
                                  #- look for label
-                                 if ($ref->{widget}{label}{$1}) {
-                                     my $w = $ref->{widgets}{label}{$1} = Gtk2::Label->new($ref->{widget}{label}{$1});
+                                 if ($ref->{widget}{label}{$pos}) {
+                                     my $w = $ref->{widgets}{label}{$pos} = Gtk2::Label->new($ref->{widget}{label}{$pos});
                                      push @widgets, $w;
                                  }
 
                                  #- look for scale
-                                 if ($ref->{widget}{scale}{$1}) {
-                                     my $w = $ref->{widgets}{scale}{$1} = Gtk2::HScale->new($adj{$1} =  Gtk2::Adjustment->new(0, 0, $scale_size{$1}, 1, 10, 0));
-                                     $ref->{widgets}{scale}{$1}->set_digits(0);
+                                 if ($ref->{widget}{scale}{$pos}) {
+                                     my $w = $ref->{widgets}{scale}{$pos} = Gtk2::HScale->new($adj{$pos} =  Gtk2::Adjustment->new(0, 0, $scale_size{$pos}, 1, 10, 0));
+                                     $ref->{widgets}{scale}{$pos}->set_digits(0);
                                      push @widgets, $w;
                                  }
-                                 $adj{$1} and $adj{$1}->set_value($theme{boot_conf}{$1});
+                                 $adj{$pos} and $adj{$pos}->set_value($theme{boot_conf}{$pos});
 
                                  #- look for combo
                                  my @popdown;
-                                 if ($ref->{widget}{combo}{$1}) {
-                                     @popdown = @{$ref->{widget}{combo}{$1}};
-                                     my $w = $ref->{widgets}{combo}{$1} = $ref->{widget}{extras}{$1}{noneditable} ? Gtk2::OptionMenu->new : Gtk2::Combo->new;
-                                     $ref->{widgets}{combo}{$1}->set_popdown_strings(@popdown);
+                                 if ($ref->{widget}{combo}{$pos}) {
+                                     @popdown = @{$ref->{widget}{combo}{$pos}};
+                                     my $w = $ref->{widgets}{combo}{$pos} = $ref->{widget}{extras}{$pos}{noneditable} ? Gtk2::ComboBox->new_text : Gtk2::Combo->new;
+                                     $w->set_popdown_strings(@popdown);
+                                     $w->set_active(0) if $w->isa('Gtk2::ComboBox');
                                      push @widgets, $w;
                                  }
 
                                  #- look for checkbox
-                                 if ($ref->{widget}{check}{$1}) {
-                                     my $w =  $ref->{widgets}{check}{$1} = Gtk2::CheckButton->new($ref->{widget}{check}{$1});
-                                     $ref->{widgets}{check}{$1}->set_active(1);
+                                 if ($ref->{widget}{check}{$pos}) {
+                                     my $w =  $ref->{widgets}{check}{$pos} = Gtk2::CheckButton->new($ref->{widget}{check}{$pos});
+                                     $ref->{widgets}{check}{$pos}->set_active(1);
                                      push @widgets, $w;
                                  }
 
                                  #- look for button
-                                 if ($ref->{widget}{button}{$1}) {
-                                     my $w =  $ref->{widgets}{button}{$1} = Gtk2::Button->new($ref->{widget}{button}{$1});
+                                 if ($ref->{widget}{button}{$pos}) {
+                                     my $w =  $ref->{widgets}{button}{$pos} = Gtk2::Button->new($ref->{widget}{button}{$pos});
                                      @widgets ?
                                        push @widgets, $w
                                          : push @buttons, $w;
                                  }
 
                                  #- look for tooltips
-                                 $ref->{widget}{tooltip}{$1} and tool_tip($1, \%$ref);
+                                 $ref->{widget}{tooltip}{$pos} and tool_tip($pos, \%$ref);
                                  if_(@widgets, \@widgets);
                              } @{$ref->{pos}}
                             );