<?php

namespace Zotlabs\Module\Admin;

use Zotlabs\Lib\Config;

class Security {

	function post() {
		check_form_security_token_redirectOnErr('/admin/security', 'admin_security');

		$allowed_email        = ((x($_POST,'allowed_email'))	    ? notags(trim($_POST['allowed_email']))		: '');
		$not_allowed_email    = ((x($_POST,'not_allowed_email'))	? notags(trim($_POST['not_allowed_email']))		: '');

		Config::Set('system','allowed_email', $allowed_email);
		Config::Set('system','not_allowed_email', $not_allowed_email);

		$block_public         = ((x($_POST,'block_public'))		? True	: False);
		Config::Set('system','block_public',$block_public);

		$cloud_noroot         = ((x($_POST,'cloud_noroot'))		? 1	: 0);
		Config::Set('system','cloud_disable_siteroot',1 - $cloud_noroot);

		$cloud_disksize       = ((x($_POST,'cloud_disksize'))	? 1	: 0);
		Config::Set('system','cloud_report_disksize',$cloud_disksize);

		$ws = $this->trim_array_elems(explode("\n",$_POST['whitelisted_sites']));
		Config::Set('system','whitelisted_sites',$ws);

		$bs = $this->trim_array_elems(explode("\n",$_POST['blacklisted_sites']));
		Config::Set('system','blacklisted_sites',$bs);

		$wc = $this->trim_array_elems(explode("\n",$_POST['whitelisted_channels']));
		Config::Set('system','whitelisted_channels',$wc);

		$bc = $this->trim_array_elems(explode("\n",$_POST['blacklisted_channels']));
		Config::Set('system','blacklisted_channels',$bc);

		$embed_sslonly         = ((x($_POST,'embed_sslonly'))		? True	: False);
		Config::Set('system','embed_sslonly',$embed_sslonly);

		$we = $this->trim_array_elems(explode("\n",$_POST['embed_allow']));
		Config::Set('system','embed_allow',$we);

		$be = $this->trim_array_elems(explode("\n",$_POST['embed_deny']));
		Config::Set('system','embed_deny',$be);

		$thumbnail_security = ((x($_POST,'thumbnail_security')) ? intval($_POST['thumbnail_security']) : 0);
		Config::Set('system', 'thumbnail_security' , $thumbnail_security);

		$inline_pdf = ((x($_POST,'inline_pdf')) ? intval($_POST['inline_pdf']) : 0);
		Config::Set('system', 'inline_pdf' , $inline_pdf);

		$ts = ((x($_POST,'transport_security')) ? True : False);
		Config::Set('system','transport_security_header',$ts);

		$cs = ((x($_POST,'content_security')) ? True : False);
		Config::Set('system','content_security_policy',$cs);

		$trusted_directory_servers = $this->trim_array_elems(explode("\n", $_POST['trusted_directory_servers']));
		Config::Set('system', 'trusted_directory_servers', $trusted_directory_servers);

		goaway(z_root() . '/admin/security');
	}


	function get() {

		$whitesites = Config::Get('system','whitelisted_sites');
		$whitesites_str = ((is_array($whitesites)) ? implode("\n",$whitesites) : '');

		$blacksites = Config::Get('system','blacklisted_sites');
		$blacksites_str = ((is_array($blacksites)) ? implode("\n",$blacksites) : '');


		$whitechannels = Config::Get('system','whitelisted_channels');
		$whitechannels_str = ((is_array($whitechannels)) ? implode("\n",$whitechannels) : '');

		$blackchannels = Config::Get('system','blacklisted_channels');
		$blackchannels_str = ((is_array($blackchannels)) ? implode("\n",$blackchannels) : '');


		$whiteembeds = Config::Get('system','embed_allow');
		$whiteembeds_str = ((is_array($whiteembeds)) ? implode("\n",$whiteembeds) : '');

		$blackembeds = Config::Get('system','embed_deny');
		$blackembeds_str = ((is_array($blackembeds)) ? implode("\n",$blackembeds) : '');

		$trusted_directory_servers = Config::Get('system', 'trusted_directory_servers');
		$trusted_directory_servers_str = ((is_array($trusted_directory_servers)) ? implode("\n", $trusted_directory_servers) : '');
		$is_dir = (intval(Config::Get('system', 'directory_mode', DIRECTORY_MODE_NORMAL)) !== DIRECTORY_MODE_NORMAL);

		$embed_coop = intval(Config::Get('system','embed_coop'));

		if((! $whiteembeds) && (! $blackembeds)) {
			$embedhelp1 = t("By default, unfiltered HTML is allowed in embedded media. This is inherently insecure.");
		}

		$embedhelp2 = t("The recommended setting is to only allow unfiltered HTML from the following sites:");
		$embedhelp3 = t("https://youtube.com/<br />https://www.youtube.com/<br />https://youtu.be/<br />https://vimeo.com/<br />https://soundcloud.com/<br />");
		$embedhelp4 = t("All other embedded content will be filtered, <strong>unless</strong> embedded content from that site is explicitly blocked.");

		$t = get_markup_template('admin_security.tpl');
		return replace_macros($t, array(
			'$title' => t('Administration'),
			'$page' => t('Security'),
			'$form_security_token' => get_form_security_token('admin_security'),
	        '$block_public'     => array('block_public', t("Block public"), Config::Get('system','block_public'), t("Check to block public access to all otherwise public personal pages on this site unless you are currently authenticated.")),
			'$cloud_noroot'     => [ 'cloud_noroot', t('Provide a cloud root directory'), 1 - intval(Config::Get('system','cloud_disable_siteroot')), t('The cloud root directory lists all channel names which provide public files') ],
			'$cloud_disksize'     => [ 'cloud_disksize', t('Show total disk space available to cloud uploads'), intval(Config::Get('system','cloud_report_disksize')), '' ],
			'$transport_security' => array('transport_security', t('Set "Transport Security" HTTP header'),intval(Config::Get('system','transport_security_header')),''),
			'$content_security' => array('content_security', t('Set "Content Security Policy" HTTP header'),intval(Config::Get('system','content_security_policy')),''),
			'$allowed_email'	=> array('allowed_email', t("Allowed email domains"), Config::Get('system','allowed_email'), t("Comma separated list of domains which are allowed in email addresses for registrations to this site. Wildcards are accepted. Empty to allow any domains")),
			'$not_allowed_email'	=> array('not_allowed_email', t("Not allowed email domains"), Config::Get('system','not_allowed_email'), t("Comma separated list of domains which are not allowed in email addresses for registrations to this site. Wildcards are accepted. Empty to allow any domains, unless allowed domains have been defined.")),
			'$whitelisted_sites' => array('whitelisted_sites', t('Allow communications only from these sites'), $whitesites_str, t('One site per line. Leave empty to allow communication from anywhere by default')),
			'$blacklisted_sites' => array('blacklisted_sites', t('Block communications from these sites'), $blacksites_str, ''),
			'$whitelisted_channels' => array('whitelisted_channels', t('Allow communications only from these channels'), $whitechannels_str, t('One channel (hash) per line. Leave empty to allow from any channel by default')),
			'$blacklisted_channels' => array('blacklisted_channels', t('Block communications from these channels'), $blackchannels_str, ''),
			'$embed_sslonly' => array('embed_sslonly',t('Only allow embeds from secure (SSL) websites and links.'), intval(Config::Get('system','embed_sslonly')),''),
			'$embed_allow' => array('embed_allow', t('Allow unfiltered embedded HTML content only from these domains'), $whiteembeds_str, t('One site per line. By default embedded content is filtered.')),
			'$embed_deny' => array('embed_deny', t('Block embedded HTML from these domains'), $blackembeds_str, ''),
			'$thumbnail_security'   => [ 'thumbnail_security', t("Allow SVG thumbnails in file browser"), Config::Get('system','thumbnail_security',0), t("WARNING: SVG images may contain malicious code.") ],
			'$inline_pdf'   => [ 'inline_pdf', t("Allow embedded (inline) PDF files"), Config::Get('system','inline_pdf',0), '' ],

			'$trusted_directory_servers' => (($is_dir) ? ['trusted_directory_servers', t('Additional trusted directory server URLs'), $trusted_directory_servers_str, t('Accept directory flags (spam, nsfw) from those servers. One per line like https://example.tld')] : ''),

//	        '$embed_coop'     => array('embed_coop', t('Cooperative embed security'), $embed_coop, t('Enable to share embed security with other compatible sites/hubs')),

			'$submit' => t('Submit')
		));
	}


	function trim_array_elems($arr) {
		$narr = array();

		if($arr && is_array($arr)) {
			for($x = 0; $x < count($arr); $x ++) {
				$y = trim($arr[$x]);
				if($y)
					$narr[] = $y;
			}
		}
		return $narr;
	}


}