make bootloader timeout configurable

1 files changed, 8 insertions, 2 deletions

diff --git a/draklive b/draklive
index 8682ddb..54180d1 100755
--- a/draklive
+++ b/draklive
@@ -571,6 +571,11 @@ sub get_default_append {
      );
 }
 
+sub get_bootloader_timeout {
+    my ($live) = @_;
+    defined $live->{media}{bootloader_timeout} ? $live->{media}{bootloader_timeout} : 4;
+}
+
 my @syslinux_boot_files = qw(/vmlinuz /syslinux/bootlogo /help.msg);
 
 sub build_syslinux_cfg {
@@ -581,10 +586,11 @@ sub build_syslinux_cfg {
     my ($initrd, $kernel, $bootlogo, $help) = map { $to_root ? basename($_) : $_ }
       map { $live->{prefix}{media}{boot} . $_ } get_initrd_path($media), @syslinux_boot_files;
     my $has_bootlogo = -e get_builddir($live) . $live->{prefix}{build}{boot} . '/syslinux/bootlogo';
+    my $timeout = get_bootloader_timeout($live) * 10;
     join("\n",
          "default $live->{media}{title}",
          "prompt 1",
-         "timeout 40",
+         "timeout $timeout",
          $has_bootlogo ? "gfxboot $bootlogo" : "display $help",
          (map {
              my ($name, $cmdline) = @$_;
@@ -603,7 +609,7 @@ sub build_grub_cfg {
     my ($part_nb) = $device =~ /(\d+)$/;
     my $grub_part = "(hd0" . (defined $part_nb ? "," . ($part_nb-1) : "") . ")";
     join("\n",
-         "timeout 4",
+         "timeout " . get_bootloader_timeout($live),
          "gfxmenu $grub_part" . $live->{prefix}{media}{boot} . "/gfxmenu",
          "default 0",
          (map {