From 36e47dcdfb7d19d4c8982a77b4dd3b87d8c4ca31 Mon Sep 17 00:00:00 2001
From: Simon Rettberg
Date: Wed, 16 Oct 2019 18:12:17 +0200
Subject: [serversetup-bwlp-ipxe/minilinux] Implement minilinux hook for ipxe

---
 .../minilinux/hooks/ipxe-bootentry.inc.php         | 125 +++++++++++++++++----
 1 file changed, 106 insertions(+), 19 deletions(-)

(limited to 'modules-available/minilinux/hooks/ipxe-bootentry.inc.php')

diff --git a/modules-available/minilinux/hooks/ipxe-bootentry.inc.php b/modules-available/minilinux/hooks/ipxe-bootentry.inc.php
index 4e2cbb5e..090a14da 100644
--- a/modules-available/minilinux/hooks/ipxe-bootentry.inc.php
+++ b/modules-available/minilinux/hooks/ipxe-bootentry.inc.php
@@ -1,11 +1,23 @@
 <?php
 
-class Wurst extends BootEntryHook
+class LinuxBootEntryHook extends BootEntryHook
 {
 
 	public function name()
 	{
-		return 'Wurst';
+		return Dictionary::translateFileModule('minilinux', 'module', 'module_name', true);
+	}
+
+	public function extraFields()
+	{
+		/* For translate module:
+		 * Dictionary::translate('ipxe-kcl-extra');
+		 * Dictionary::translate('ipxe-debug');
+		 */
+		return [
+			new HookExtraField('kcl-extra', 'string', ''),
+			new HookExtraField('debug', 'bool', false),
+		];
 	}
 
 	/**
@@ -13,30 +25,105 @@ class Wurst extends BootEntryHook
 	 */
 	protected function groupsInternal()
 	{
-		return [
-			new HookEntryGroup('Senf Gruppe', [
-				new HookEntry('senf-1', 'Senf v1'),
-				new HookEntry('senf-2', 'Senf v2'),
-			]),
-			new HookEntryGroup('Schnecke Gruppe', [
-				new HookEntry('s-1', 'Trulla'),
-				new HookEntry('s-2', 'Herbert'),
-			]),
-		];
+		/*
+		 * Dictionary::translate('default_boot_entry');
+		 * Dictionary::translate('not_installed_hint');
+		 */
+		$array = [];
+		$array[] = new HookEntryGroup($this->name(), [
+			new HookEntry('default',
+				Dictionary::translateFileModule('minilinux', 'module', 'default_boot_entry', true),
+				MiniLinux::updateCurrentBootSetting())
+		]);
+		$branches = Database::queryAll('SELECT sourceid, branchid, title FROM minilinux_branch ORDER BY title');
+		$versions = MiniLinux::queryAllVersionsByBranch();
+		// Group by branch for detailed listing
+		foreach ($branches as $branch) {
+			if (isset($versions[$branch['branchid']])) {
+				$group = [];
+				foreach ($versions[$branch['branchid']] as $version) {
+					$valid = $version['installed'] != 0;
+					$title = $version['versionid'] . ' ' . $version['title'];
+					if (!$valid) {
+						$title .= ' ' . Dictionary::translateFileModule('minilinux', 'module', 'not_installed_hint');
+					}
+					$group[] = new HookEntry($version['versionid'], $title, $valid);
+				}
+				$array[] = new HookEntryGroup($branch['title'] ? $branch['title'] : $branch['branchid'], $group);
+			}
+		}
+		return $array;
 	}
 
 	/**
 	 * @param $id
 	 * @return BootEntry the actual boot entry instance for given entry, false if invalid id
 	 */
-	public function getBootEntry($id)
+	public function getBootEntryInternal($data)
+	{
+		$id = $data['id'];
+		if ($id === 'default') { // Special case
+			$effectiveId = Property::get(MiniLinux::PROPERTY_DEFAULT_BOOT_EFFECTIVE);
+		} else {
+			$effectiveId = $id;
+		}
+		$res = Database::queryFirst('SELECT installed, data FROM minilinux_version WHERE versionid = :id', ['id' => $effectiveId]);
+		if ($res === false) {
+			return BootEntry::newCustomBootEntry(['script' => 'prompt Invalid minilinux boot entry id: ' . $id]);
+		}
+		if ($res['installed'] == 0) {
+			return BootEntry::newCustomBootEntry(['script' => 'prompt Selected version not currently installed on server: ' . $id]);
+		}
+		$exec = new ExecData();
+		// Defaults
+		$root = '/boot/' . $id . '/';
+		$exec->executable = 'kernel';
+		$exec->initRd = ['initramfs-stage31'];
+		$exec->imageFree = true;
+		$exec->commandLine = 'slxbase=boot/%ID% slxsrv=${serverip} quiet splash ${ipappend1} ${ipappend2}';
+		// Overrides
+		$remoteData = json_decode($res['data'], true);
+		// TODO: agnostic hard coded, support EFI and PCBIOS
+		if (isset($remoteData['agnostic']) && is_array($remoteData['agnostic'])) {
+			foreach (['executable', 'commandLine', 'initRd', 'imageFree'] as $key) {
+				if (isset($remoteData['agnostic'][$key])) {
+					$exec->{$key} = $remoteData['agnostic'][$key];
+				}
+			}
+		}
+		unset($rd);
+		// KCL hacks
+		if (isset($data['debug']) && $data['debug']) {
+			if (!isset($data['kcl-extra'])) {
+				$data['kcl-extra'] = '';
+			}
+			$data['kcl-extra'] = '-quiet -splash -loglevel loglevel=7 ' . $data['kcl-extra'];
+		}
+		if (isset($data['kcl-extra'])) {
+			$items = preg_split('/\s+/', $data['kcl-extra'], -1, PREG_SPLIT_NO_EMPTY);
+			// TODO: Make this a function, somewhere in serversetup-ipxe, this could be useful for other stuff
+			foreach ($items as $item) {
+				if ($item{0} === '-') {
+					$item = preg_quote(substr($item, 1), '/');
+					$exec->commandLine = preg_replace('/(^|\s)' . $item . '(=\S*)?($|\s)/', ' ', $exec->commandLine);
+				} else {
+					$exec->commandLine .= ' ' . $item;
+				}
+			}
+		}
+		$exec->commandLine = str_replace('%ID%', $id, $exec->commandLine);
+		$exec->executable = $root . $exec->executable;
+		foreach ($exec->initRd as &$rd) {
+			$rd = $root . $rd;
+		}
+		return BootEntry::newStandardBootEntry($exec, false, 'agnostic');
+	}
+
+	public function isValidId($id)
 	{
-		$bios = new ExecData();
-		$bios->executable = 'mspaint.exe';
-		$bios->initRd = 'www.google.de';
-		$bios->commandLine = '-q';
-		return BootEntry::newStandardBootEntry($bios, false, 'agnostic');
+		$res = Database::queryFirst('SELECT installed FROM minilinux_version WHERE versionid = :id', ['id' => $id]);
+		return $res !== false && $res['installed'];
 	}
 }
 
-return new Wurst();
\ No newline at end of file
+return new LinuxBootEntryHook();
\ No newline at end of file
-- 
cgit v1.2.3-55-g7522