<?php

use Friendica\App;

require_once('include/security.php');
require_once('include/Photo.php');

function photo_init(App $a) {
	global $_SERVER;

	$prvcachecontrol = false;
	$file = "";

	switch ($a->argc) {
		case 4:
			$person = $a->argv[3];
			$customres = intval($a->argv[2]);
			$type = $a->argv[1];
			break;
		case 3:
			$person = $a->argv[2];
			$type = $a->argv[1];
			break;
		case 2:
			$photo = $a->argv[1];
			$file = $photo;
			break;
		case 1:
		default:
			killme();
			// NOTREACHED
	}

	if (isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])) {
		header('HTTP/1.1 304 Not Modified');
		header("Last-Modified: " . gmdate("D, d M Y H:i:s", time()) . " GMT");
		header('Etag: '.$_SERVER['HTTP_IF_NONE_MATCH']);
	 	header("Expires: " . gmdate("D, d M Y H:i:s", time() + (31536000)) . " GMT");
		header("Cache-Control: max-age=31536000");
		if (function_exists('header_remove')) {
			header_remove('Last-Modified');
			header_remove('Expires');
			header_remove('Cache-Control');
		}
		exit;
	}

	$default = 'images/person-175.jpg';

	if (isset($type)) {

		/**
		 * Profile photos
		 */

		switch ($type) {

			case 'profile':
			case 'custom':
				$resolution = 4;
				break;
			case 'micro':
				$resolution = 6;
				$default = 'images/person-48.jpg';
				break;
			case 'avatar':
			default:
				$resolution = 5;
				$default = 'images/person-80.jpg';
				break;
		}

		$uid = str_replace(array('.jpg', '.png', '.gif'), array('', '', ''), $person);

		foreach (Photo::supportedTypes() AS $m => $e) {
			$uid = str_replace('.'.$e, '', $uid);
		}

		$r = q("SELECT * FROM `photo` WHERE `scale` = %d AND `uid` = %d AND `profile` = 1 LIMIT 1",
			intval($resolution),
			intval($uid)
		);
		if (dbm::is_result($r)) {
			$data = $r[0]['data'];
			$mimetype = $r[0]['type'];
		}
		if (empty($data)) {
			$data = file_get_contents($default);
			$mimetype = 'image/jpeg';
		}
	} else {

		/**
		 * Other photos
		 */

		$resolution = 0;
		$photo = str_replace(array('.jpg', '.png', '.gif'), array('', '', ''), $photo);

		foreach (Photo::supportedTypes() AS $m => $e) {
			$photo = str_replace('.'.$e, '', $photo);
		}

		if (substr($photo, -2, 1) == '-') {
			$resolution = intval(substr($photo, -1, 1));
			$photo = substr($photo, 0, -2);
		}

		// check if the photo exists and get the owner of the photo
		$r = q("SELECT `uid` FROM `photo` WHERE `resource-id` = '%s' LIMIT 1",
			dbesc($photo),
			intval($resolution)
		);
		if (dbm::is_result($r)) {

			$sql_extra = permissions_sql($r[0]['uid']);

			// Now we'll see if we can access the photo

			$r = q("SELECT * FROM `photo` WHERE `resource-id` = '%s' AND `scale` <= %d $sql_extra ORDER BY scale DESC LIMIT 1",
				dbesc($photo),
				intval($resolution)
			);

			$public = (dbm::is_result($r)) && ($r[0]['allow_cid'] == '') && ($r[0]['allow_gid'] == '') && ($r[0]['deny_cid']  == '') && ($r[0]['deny_gid']  == '');

			if (dbm::is_result($r)) {
				$resolution = $r[0]['scale'];
				$data = $r[0]['data'];
				$mimetype = $r[0]['type'];
			} else {
				// The picure exists. We already checked with the first query.
				// obviously, this is not an authorized viev!
				$data = file_get_contents('images/nosign.jpg');
				$mimetype = 'image/jpeg';
				$prvcachecontrol = true;
				$public = false;
			}
		}
	}

	if (empty($data)) {
		if (isset($resolution)) {
			switch ($resolution) {

				case 4:
					$data = file_get_contents('images/person-175.jpg');
					$mimetype = 'image/jpeg';
					break;
				case 5:
					$data = file_get_contents('images/person-80.jpg');
					$mimetype = 'image/jpeg';
					break;
				case 6:
					$data = file_get_contents('images/person-48.jpg');
					$mimetype = 'image/jpeg';
					break;
				default:
					killme();
					// NOTREACHED
					break;
			}
		}
	}

	// Resize only if its not a GIF and it is supported by the library
	if (($mimetype != "image/gif") && in_array($mimetype, Photo::supportedTypes())) {
		$ph = new Photo($data, $mimetype);
		if ($ph->is_valid()) {
			if (isset($customres) && $customres > 0 && $customres < 500) {
				$ph->scaleImageSquare($customres);
			}
			$data = $ph->imageString();
			$mimetype = $ph->getType();
		}
	}

	if (function_exists('header_remove')) {
		header_remove('Pragma');
		header_remove('pragma');
	}

	header("Content-type: ".$mimetype);

	if ($prvcachecontrol) {

		// it is a private photo that they have no permission to view.
		// tell the browser not to cache it, in case they authenticate
		// and subsequently have permission to see it

		header("Cache-Control: no-store, no-cache, must-revalidate");

	} else {
		header("Last-Modified: " . gmdate("D, d M Y H:i:s", time()) . " GMT");
		header('Etag: "'.md5($data).'"');
	 	header("Expires: " . gmdate("D, d M Y H:i:s", time() + (31536000)) . " GMT");
		header("Cache-Control: max-age=31536000");
	}
	echo $data;

	// If the photo is public and there is an existing photo directory store the photo there
	if ($public and ($file != "")) {
		// If the photo path isn't there, try to create it
		$basepath = $a->get_basepath();
		if (!is_dir($basepath."/photo")) {
			if (is_writable($basepath)) {
				mkdir($basepath."/photo");
			}
		}

		if (is_dir($basepath."/photo")) {
			file_put_contents($basepath."/photo/".$file, $data);
		}
	}

	killme();
	// NOTREACHED
}