From c44835d6a46e2febe548a522881f70254ad20db8 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 3 Jun 2009 21:56:14 +0000
Subject: Refactored implementation of preboot evironment to support the
 creation of several preboot media from a single preboot client: * added new
 client attribute preboot_media which holds the list of media   that shall be
 created for that preboot client (currently, only 'cd' is   known) * the
 boot_type value 'preboot_cd' has been renamed to 'preboot' * db-schema has
 been bumped to 0.36 to adjust the db-contents to the new   expectations *
 adjusted config-demuxer accordingly

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@2929 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 boot-env/OpenSLX/BootEnvironment/Preboot/CD.pm | 108 +++++++++++++++++++++++++
 1 file changed, 108 insertions(+)
 create mode 100644 boot-env/OpenSLX/BootEnvironment/Preboot/CD.pm

(limited to 'boot-env/OpenSLX/BootEnvironment/Preboot/CD.pm')

diff --git a/boot-env/OpenSLX/BootEnvironment/Preboot/CD.pm b/boot-env/OpenSLX/BootEnvironment/Preboot/CD.pm
new file mode 100644
index 00000000..7fc61875
--- /dev/null
+++ b/boot-env/OpenSLX/BootEnvironment/Preboot/CD.pm
@@ -0,0 +1,108 @@
+# Copyright (c) 2008-2009 - OpenSLX GmbH
+#
+# This program is free software distributed under the GPL version 2.
+# See http://openslx.org/COPYING
+#
+# If you have any feedback please consult http://openslx.org/feedback and
+# send your suggestions, praise, or complaints to feedback@openslx.org
+#
+# General information about OpenSLX can be found at http://openslx.org/
+# -----------------------------------------------------------------------------
+# BootEnvironment::Preboot::CD.pm
+#    - provides CD-specific implementation of the Preboot-BootEnvironment API.
+# -----------------------------------------------------------------------------
+package OpenSLX::BootEnvironment::Preboot::CD;
+
+use strict;
+use warnings;
+
+use base qw(OpenSLX::BootEnvironment::Preboot::Base);
+
+use File::Basename;
+use File::Path;
+
+use OpenSLX::Basics;
+use OpenSLX::Utils;
+
+sub createImage
+{
+    my $self   = shift;
+    my $client = shift;
+    my $info   = shift;
+    
+    vlog(
+        0, 
+        _tr(
+            "\ncreating CD-image for client %s (based on %s) ...", 
+            $client->{name}, $info->{name}
+        )
+    );
+
+    my $imageDir = "$openslxConfig{'public-path'}/images/$client->{name}/cd";
+    mkpath($imageDir)   unless $self->{'dry-run'};
+
+    # copy static data
+    my $dataDir = "$openslxConfig{'base-path'}/share/boot-env/preboot/cd";
+    slxsystem(qq{rsync -rlpt $dataDir/iso "$imageDir/"})
+        unless $self->{'dry-run'};
+
+    # copy kernel (take the one from the given system info)
+    my $kernelFile = $info->{'kernel-file'};
+    my $kernelName = basename($kernelFile);
+    slxsystem(qq{cp -p "$kernelFile" "$imageDir/iso/isolinux/vmlinuz"})
+        unless $self->{'dry-run'};
+
+    # create initramfs
+    my $initramfsName = qq{"$imageDir/iso/isolinux/initramfs"};
+    $self->makePrebootInitRamFS($info, $initramfsName, $client);
+
+    # write trivial isolinux config
+    my $isolinuxConfig = unshiftHereDoc(<<"    End-of-Here");
+        PROMPT 0
+        TIMEOUT 100
+        DEFAULT menu.c32
+        MENU TITLE Welcome to OpenSLX PreBoot ISO/CD (Mini Linux/Kexec)
+        LABEL SLXSTDBOOT
+          MENU LABEL OpenSLX PreBoot - Stateless Netboot Linux ...
+          MENU DEFAULT
+          KERNEL vmlinuz
+          APPEND initrd=initramfs vga=0x317
+          TEXT HELP
+                 Use this (default) entry if you have configured your client.
+                 You have chance to edit the kernel commandline by hitting the
+                 TAB key (e.g. for adding debug=3 to it for bug hunting) ...
+          ENDTEXT
+        LABEL LOCALBOOT
+          MENU LABEL Boot locally (skip OpenSLX PreBoot) ...
+          LOCALBOOT -1
+          TEXT HELP
+                 Gets you out of here by booting from next device in BIOS boot
+                 order.
+          ENDTEXT
+    End-of-Here
+    spitFile("$imageDir/iso/isolinux/isolinux.cfg", $isolinuxConfig);
+
+    my $mkisoCmd = unshiftHereDoc(<<"    End-of-Here");
+        mkisofs 
+            -o "$imageDir/../$client->{name}.iso"
+            -b isolinux/isolinux.bin -no-emul-boot -boot-load-size 4 
+            -r -J -l -boot-info-table -joliet-long
+            -publisher "OpenSLX Project - http://www.openslx.org" 
+            -p "OpenSLX Project - openslx-devel\@openslx.org" 
+            -V "OpenSLX BootISO"
+            -volset "OpenSLX Project - PreBoot ISO/CD for non PXE/TFTP start of a Linux Stateless Client"
+            -c isolinux/boot.cat "$imageDir/iso"
+    End-of-Here
+    $mkisoCmd =~ s{\n\s*}{ }gms;
+    my $logFile = "$imageDir/../$client->{name}.iso.log";
+    if (slxsystem(qq{$mkisoCmd 2>"$logFile"})) {
+        my $log = slurpFile($logFile);
+        die _tr("unable to create ISO-image - log follows:\n%s", $log);
+    }
+
+    rmtree($imageDir);
+
+    return 1;
+}
+
+1;
-- 
cgit v1.2.3-55-g7522