<?php

chdir('..');

require_once 'config.php';

/*
Header('Content-Type: text/plain; charset=utf-8');
die( json_encode($_SERVER, JSON_PRETTY_PRINT) );

// */

// Autoload classes from ./inc which adhere to naming scheme <lowercasename>.inc.php
function slxAutoloader($class)
{
	$file = 'inc/' . preg_replace('/[^a-z0-9]/', '', mb_strtolower($class)) . '.inc.php';
	if (!file_exists($file))
		return;
	require_once $file;
}
spl_autoload_register('slxAutoloader');


$response = array();

if (empty($_SERVER['persistent-id'])) {
	// No persistent id given, should not happen!
	$response['status'] = 'error';
	$response['error'] = 'Shibboleth meta data missing!';
	@file_put_contents('/tmp/shib-' . time() . '-' . $_SERVER['REMOTE_ADDR'] . '.txt', print_r($_SERVER, true));
} else {
	// Query database for user
	$shibId = md5($_SERVER['persistent-id']);
	$user = Database::queryFirst("SELECT user.userid, user.organizationid, user.firstname, user.lastname, user.email "
		. " FROM user "
		. " INNER JOIN organization USING (organizationid) "
		. " WHERE user.shibid = :shibid LIMIT 1", array('shibid' => $shibId));
	if ($user === false) {
		// Not found, so we don't know which satellite to use
		// TODO: Support STUDENT mode
		$response['status'] = 'unregistered';
		$response['id'] = $shibId;
		$response['url'] = 'https://bwlp-masterserver.ruf.uni-freiburg.de/webif/';
	} else {
		// Found, see if we got personal information, either temporarily through metadata, or from database
		$firstName = $user['firstname'];
		$lastName = $user['lastname'];
		$mail = $user['email'];
		if (empty($firstName) && isset($_SERVER['givenName']))
			$firstName = trim($_SERVER['givenName']);
		if (empty($lastName) && isset($_SERVER['sn']))
			$lastName = trim($_SERVER['sn']);
		if (empty($mail) && isset($_SERVER['mail']))
			$mail = trim($_SERVER['mail']);
		//
		$login = (empty($user['userid']) ? $shibId : $user['userid'] );
		if (empty($firstName) || empty($lastName) || empty($login)) {
			// This means the user did not provide personal information on signup, nor does the IdP send them
			$response['status'] = 'anonymous';
		} else {
			// Seems ok!
			// Figure out role
			if (strpos(";{$_SERVER['entitlement']};", ';http://bwidm.de/entitlement/bwLehrpool;') !== false) {
				$role = 'TUTOR';
			} else if (strpos(";{$_SERVER['affiliation']};", ';employee@') !== false
					|| strpos(";{$_SERVER['affiliation']};", ';staff@') !== false) {
				$role = 'TUTOR';
			} else {
				@file_put_contents('/tmp/shib-' . time() . '-' . $_SERVER['REMOTE_ADDR'] . '.txt', print_r($_SERVER, true));
				$role = 'STUDENT';
			}
			// Determine satellite(s)
			$res = Database::simpleQuery("SELECT satellitename, addresses, certsha256 FROM satellite"
				. " WHERE organizationid = :organizationid AND userid IS NULL", array('organizationid' => $user['organizationid']));
			$sat1 = array(); // Legacy
			$sat2 = array();
			while ($row = $res->fetch(PDO::FETCH_ASSOC)) {
				$addrs = json_decode($row['addresses'], true);
				if (!is_array($addrs) || empty($addrs))
					continue;
				$sat1[$row['satellitename']] = $addrs[0];
				$sat2[$row['satellitename']] = array(
					'addresses' => $addrs,
					'certHash' => $row['certsha256']
				);
			}
			//
			$response['status'] = 'ok';
			$response['firstName'] = $firstName;
			$response['lastName'] = $lastName;
			$response['mail'] = $mail;
			$response['userId'] = $user['userid'];
			$response['organizationId'] = $user['organizationid'];
			// This one we send to the running master server handler
			$rpc = $response;
			$rpc['userId'] = $login;
			$rpc['role'] = $role;
			// This one we only send to the user
			$response['satellites'] = $sat1;
			$response['satellites2'] = $sat2;
			$reply = RPC::submit($rpc);
			if (preg_match('/^TOKEN:(\w+) SESSIONID:(\w+)$/', $reply, $out)) {
				$response['token'] = $out[1];
				$response['sessionId'] = $out[2];
			} else {
				$response['error'] = $reply;
				$response['status'] = 'error';
			}
		}
	}
}

Header('Content-Type: text/plain; charset=utf-8');
echo json_encode($response, JSON_PRETTY_PRINT);