From f01ee4e2fa51b5879ddc0d958eb3052e5b806b86 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 28 Jan 2009 18:36:40 +0000
Subject: * pick first system as default for bootmenu * leave -p when copying
 preboot.sh

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2545 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 boot-env/OpenSLX/BootEnvironment/Preboot.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'boot-env')

diff --git a/boot-env/OpenSLX/BootEnvironment/Preboot.pm b/boot-env/OpenSLX/BootEnvironment/Preboot.pm
index b5a7ddb8..430b876e 100644
--- a/boot-env/OpenSLX/BootEnvironment/Preboot.pm
+++ b/boot-env/OpenSLX/BootEnvironment/Preboot.pm
@@ -58,12 +58,14 @@ sub writeBootloaderMenuFor
         $info->{label} = $label;
     }
     my $bootmenuEntries = '';
+    my $entryState = 'on';
     foreach my $info (sort { $a->{label} cmp $b->{label} } @$systemInfos) {
         my $vendorOSName = $info->{'vendor-os'}->{name};
         my $kernelName   = basename($info->{'kernel-file'});
         my $append       = $info->{attrs}->{kernel_params} || '';
         $append .= " $clientAppend";
-        $bootmenuEntries .= qq{ "$info->{label}" "" 1};
+        $bootmenuEntries .= qq{ "$info->{label}" "" $entryState};
+        $entryState = 'off';
 
         # create a file containing the boot-configuration for this system
         my $systemDescr = unshiftHereDoc(<<"        End-of-Here");
@@ -90,7 +92,7 @@ sub writeBootloaderMenuFor
         # copy the preboot script into the folder to be tared
         my $prebootBasePath 
             = "$openslxConfig{'base-path'}/share/boot-env/preboot";
-        slxsystem(qq{cp -p $prebootBasePath/preboot.sh $bootloaderConfigPath/});
+        slxsystem(qq{cp $prebootBasePath/preboot.sh $bootloaderConfigPath/});
         slxsystem(qq{chmod a+x $bootloaderConfigPath/preboot.sh});
 
         # create a tar which can/will be downloaded by prebooting clients
-- 
cgit v1.2.3-55-g7522