From c2a6dfb649107ce3ad64162e2bb2c3c7275650fb Mon Sep 17 00:00:00 2001
From: Simon Rettberg
Date: Tue, 12 Feb 2019 14:55:12 +0100
Subject: [serversetup*] PXELinux and iPXE side-by-side

---
 modules-available/serversetup-bwlp/api.inc.php | 254 -------------------------
 1 file changed, 254 deletions(-)
 delete mode 100644 modules-available/serversetup-bwlp/api.inc.php

(limited to 'modules-available/serversetup-bwlp/api.inc.php')

diff --git a/modules-available/serversetup-bwlp/api.inc.php b/modules-available/serversetup-bwlp/api.inc.php
deleted file mode 100644
index 1df0e6e7..00000000
--- a/modules-available/serversetup-bwlp/api.inc.php
+++ /dev/null
@@ -1,254 +0,0 @@
-<?php
-
-// Menu mode
-
-$serverIp = Property::getServerIp();
-
-// Check if required arguments are given; if not, spit out according script and chain to self
-$uuid = Request::any('uuid', false, 'string');
-// Get platform - EFI or PCBIOS
-$platform = Request::any('platform', false, 'string');
-$manuf = Request::any('manuf', false, 'string');
-$product = Request::any('product', false, 'string');
-$slxExtensions = Request::any('slx-extensions', false, 'int');
-
-if ($platform === false || ($uuid === false && $product === false) || $slxExtensions === false) {
-	// Redirect to self with added parameters
-	$url = parse_url($_SERVER['REQUEST_URI']);
-	if (isset($_SERVER['SCRIPT_URI']) && preg_match('#^(\w+://[^/]+)#', $_SERVER['SCRIPT_URI'], $out)) {
-		$urlbase = $out[1];
-	} elseif (isset($_SERVER['REQUEST_SCHEME']) && isset($_SERVER['SERVER_NAME'])) {
-		$urlbase = $_SERVER['REQUEST_SCHEME'] . '://' . $_SERVER['SERVER_NAME'];
-	} elseif (isset($_SERVER['REQUEST_SCHEME']) && isset($_SERVER['SERVER_ADDR'])) {
-		$urlbase = $_SERVER['REQUEST_SCHEME'] . '://' . $_SERVER['SERVER_ADDR'];
-	} else {
-		$urlbase = 'http://' . $serverIp;
-	}
-	$urlbase .= $url['path'];
-	if (empty($url['query'])) {
-		$arr = [];
-	} else {
-		parse_str($url['query'], $arr);
-		foreach ($arr as &$v) {
-			$v = urlencode($v);
-		}
-		unset($v);
-	}
-	$arr['uuid'] = '${uuid}';
-	$arr['mac'] = '${mac}';
-	$arr['manuf'] = '${manufacturer:uristring}';
-	$arr['product'] = '${product:uristring}';
-	$arr['platform'] = '${platform:uristring}';
-	$query = '?';
-	foreach ($arr as $k => $v) {
-		$query .= $k . '=' . $v . '&';
-	}
-	//$query = substr($query, 0, -1);
-	echo <<<HERE
-#!ipxe
-set slxtest:string something ||
-iseq \${slxtest:md5} \${} && set slxext 0 || set slxext 1 ||
-clear slxtest ||
-set self {$urlbase}{$query}slx-extensions=\${slxext}
-:retry
-echo Chaining to \${self}
-chain -ar \${self} ||
-echo Chaining to self failed with \${errno}, retrying in a bit...
-sleep 5
-goto retry
-HERE;
-	exit;
-}
-// ipxe has it lowercase, but we use uppercase
-$platform = strtoupper($platform);
-
-$BOOT_METHODS = Localboot::BOOT_METHODS;
-
-$ip = $_SERVER['REMOTE_ADDR'];
-if (substr($ip, 0, 7) === '::ffff:') {
-	$ip = substr($ip, 7);
-}
-$menu = IPxeMenu::forClient($ip, $uuid);
-
-
-// Get preferred localboot method, depending on system model
-$localboot = false;
-$model = false;
-if ($uuid !== false && Module::get('statistics') !== false) {
-	// If we have the machine table, we rather try to look up the system model from there, using the UUID
-	$row = Database::queryFirst('SELECT systemmodel FROM machine WHERE machineuuid = :uuid', ['uuid' => $uuid]);
-	if ($row !== false && !empty($row['systemmodel'])) {
-		$model = $row['systemmodel'];
-	}
-}
-if ($model === false) {
-	// Otherwise use what iPXE sent us
-	function modfilt($str)
-	{
-		if (empty($str) || preg_match('/product\s+name|be\s+filled|unknown|default\s+string/i', $str))
-			return false;
-		return trim(preg_replace('/\s+/', ' ', $str));
-	}
-	$manuf = modfilt($manuf);
-	$product = modfilt($product);
-	if (!empty($product)) {
-		$model = $product;
-		if (!empty($manuf)) {
-			$model .= " ($manuf)";
-		}
-	}
-}
-// Query
-if ($model !== false) {
-	$row = Database::queryFirst("SELECT bootmethod FROM serversetup_localboot WHERE systemmodel = :model LIMIT 1",
-		['model' => $model]);
-	if ($row !== false) {
-		$localboot = $row['bootmethod'];
-	}
-}
-if ($localboot === false || !isset($BOOT_METHODS[$localboot])) {
-	$localboot = Property::get(Localboot::PROPERTY_KEY, 'AUTO');
-	if (!isset($BOOT_METHODS[$localboot])) {
-		$localboot = 'AUTO';
-	}
-}
-if (isset($BOOT_METHODS[$localboot])) {
-	// Move preferred method first
-	$BOOT_METHODS[] = $BOOT_METHODS[$localboot];
-	unset($BOOT_METHODS[$localboot]);
-	$BOOT_METHODS = array_reverse($BOOT_METHODS);
-}
-
-if ($slxExtensions) {
-	$slxConsoleUpdate = '--update';
-} else {
-	$slxConsoleUpdate = '';
-}
-
-$output = <<<HERE
-#!ipxe
-
-goto init || goto fail ||
-
-# functions
-
-# password check with gotos
-# set slx_hash to the expected hash
-#     slx_salt to the salt to use
-#     slx_pw_ok to the label to jump on success
-#     slx_pw_fail to label for wrong pw
-:slx_pass_check
-login ||
-set slxtmp_pw \${password:md5}-\${slx_salt} || goto fail
-set slxtmp_pw \${slxtmp_pw:md5} || goto fail
-clear password ||
-iseq \${slxtmp_pw} \${slx_hash} || prompt Wrong password. Press a key. ||
-iseq \${slxtmp_pw} \${slx_hash} || goto \${slx_pw_fail} ||
-iseq \${slxtmp_pw} \${slx_hash} && goto \${slx_pw_ok} ||
-goto fail
-
-# local boot with either exit 1 or sanboot
-:slx_localboot
-console ||
-
-HERE;
-
-foreach ($BOOT_METHODS as $line) {
-	$output .= "$line || goto fail\n";
-}
-
-$output .= <<<HERE
-goto fail
-
-# start
-:init
-
-set ipappend1 ip=\${ip}:{$serverIp}:\${gateway}:\${netmask}
-set ipappend2 BOOTIF=01-\${mac:hexhyp}
-set serverip $serverIp ||
-
-# Clean up in case we've been chained to
-imgfree ||
-
-imgfetch --name bg-load /tftp/openslx.png ||
-
-imgfetch --name bg-menu /tftp/pxe-menu.png ||
-
-:start
-
-console --left 55 --top 88 --right 63 --bottom 64 --keep --picture bg-menu ||
-
-colour --rgb 0xffffff 7
-colour --rgb 0xcccccc 5
-cpair --foreground 0 --background 4 1
-cpair --foreground 7 --background 5 2
-cpair --foreground 7 --background 9 0
-
-:slx_menu
-
-console --left 55 --top 88 --right 63 --bottom 64 $slxConsoleUpdate --keep --picture bg-menu ||
-
-HERE;
-
-$output .= $menu->getMenuDefinition('target', $platform, $slxExtensions);
-
-$output .= <<<HERE
-
-console --left 60 --top 130 --right 67 --bottom 86 $slxConsoleUpdate ||
-goto \${target} ||
-echo Could not find menu entry in script.
-prompt Press any key to continue.
-goto start
-
-HERE;
-
-$output .= $menu->getItemsCode($platform);
-
-/*
-
-:i5
-chain -a /tftp/memtest.0 passes=1 onepass || goto membad
-prompt Memory OK. Press a key.
-goto init
-
-:i8
-set x:int32 0
-:again
-console --left 60 --top 130 --right 67 --bottom 96 --picture bg-load --keep ||
-console --left 55 --top 88 --right 63 --bottom 64 --picture bg-menu --keep ||
-inc x
-iseq \${x} 20 || goto again
-prompt DONE. Press dein Knie.
-goto slx_menu
-
-:membad
-iseq \${errno} 0x1 || goto memaborted
-params
-param scrot \${vram}
-imgfetch -a http://132.230.8.113/screen.php##params ||
-prompt Memory is bad. Press a key.
-goto init
-
-:memaborted
-params
-param scrot \${vram}
-imgfetch -a http://132.230.8.113/screen.php##params ||
-prompt Memory test aborted. Press a key.
-goto init
-
-*/
-
-$output .= <<<HERE
-:fail
-prompt Boot failed. Press any key to start.
-goto init
-HERE;
-
-if ($platform === 'EFI') {
-	$cs = 'ASCII';
-} else {
-	$cs = 'IBM437';
-}
-Header('Content-Type: text/plain; charset=' . $cs);
-
-echo iconv('UTF-8', $cs . '//TRANSLIT//IGNORE', $output);
-- 
cgit v1.2.3-55-g7522