<?php

/*

 * Enano - an open-source CMS capable of wiki functions, Drupal-like sidebar blocks, and everything in between

 * Copyright (C) 2006-2009 Dan Fuhry

 *

 * This program is Free Software; you can redistribute and/or modify it under the terms of the GNU General Public License

 * as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

 *

 * This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied

 * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for details.

 */

function page_Admin_ThemeManager($force_no_json = false)

{

	global $db, $session, $paths, $template, $plugins; // Common objects

	global $lang;

	global $cache;

	if ( $session->auth_level < USER_LEVEL_ADMIN || $session->user_level < USER_LEVEL_ADMIN )

	{

		$login_link = makeUrlNS('Special', 'Login/' . $paths->nslist['Special'] . 'Administration', 'level=' . USER_LEVEL_ADMIN, true);

		echo '<h3>' . $lang->get('adm_err_not_auth_title') . '</h3>';

		echo '<p>' . $lang->get('adm_err_not_auth_body', array( 'login_link' => $login_link )) . '</p>';

		return;

	}

	$system_themes =& $template->system_themes;

	// Obtain the list of themes (both available and already installed) and the styles available for each

	$dh = @opendir(ENANO_ROOT . '/themes');

	if ( !$dh )

		die('Couldn\'t open themes directory');

	$themes = array();

	while ( $dr = @readdir($dh) )

	{

		if ( $dr == '.' || $dr == '..' )

			continue;

		if ( !is_dir(ENANO_ROOT . "/themes/$dr") )

			continue;

		if ( !file_exists(ENANO_ROOT . "/themes/$dr/theme.cfg") || !is_dir(ENANO_ROOT . "/themes/$dr/css") )

			continue;

		$cdh = @opendir(ENANO_ROOT . "/themes/$dr/css");

		if ( !$cdh )

			continue;

		require(ENANO_ROOT . "/themes/$dr/theme.cfg");

		global $theme;

		$themes[$dr] = array(

				'css' => array(),

				'theme_name' => $theme['theme_name']

			);

		while ( $cdr = @readdir($cdh) )

		{

			if ( $cdr == '.' || $cdr == '..' )

				continue;

			if ( preg_match('/\.css$/i', $cdr) )

				$themes[$dr]['css'][] = substr($cdr, 0, -4);

		}

	}

	// Decide which themes are not installed

	$installable = array_flip(array_keys($themes));

	// FIXME: sanitize directory names or check with preg_match()

	$where_clause = 'theme_id = \'' . implode('\' OR theme_id = \'', array_flip($installable)) . '\'';

	$q = $db->sql_query('SELECT theme_id, theme_name, enabled FROM ' . table_prefix . "themes WHERE $where_clause;");

	if ( !$q )

		$db->_die();

	while ( $row = $db->fetchrow() )

	{

		$tid =& $row['theme_id'];

		unset($installable[$tid]);

		$themes[$tid]['theme_name'] = $row['theme_name'];

		$themes[$tid]['enabled'] = ( $row['enabled'] == 1 );

	}

	foreach ( $system_themes as $st )

	{

		unset($installable[$st]);

	}

	$installable = array_flip($installable);

	// AJAX code

	if ( $paths->getParam(0) === 'action.json' && !$force_no_json )

	{

		return ajaxServlet_Admin_ThemeManager($themes);

	}

	// List installed themes

	?>

	<div style="float: right;">

		<a href="#" id="systheme_toggler" onclick="ajaxToggleSystemThemes(); return false;"><?php echo $lang->get('acptm_btn_system_themes_show'); ?></a>

	</div>

	<?php

	echo '<h3>' . $lang->get('acptm_heading_edit_themes') . '</h3>';

	echo '<div id="theme_list_edit">';

	foreach ( $themes as $theme_id => $theme_data )

	{

		if ( in_array($theme_id, $installable) )

			continue;

		if ( file_exists(ENANO_ROOT . "/themes/$theme_id/preview.png") )

		{

			$preview_path = scriptPath . "/themes/$theme_id/preview.png";

		}

		else

		{

			$preview_path = scriptPath . "/images/themepreview.png";

		}

		$d = ( @$theme_data['enabled'] ) ? '' : ' themebutton_theme_disabled';

		$st = ( in_array($theme_id, $system_themes) ) ? ' themebutton_theme_system' : '';

		echo '<div class="themebutton' . $st . '' . $d . '" id="themebtn_edit_' . $theme_id . '" style="background-image: url(' . $preview_path . ');">';

		if ( in_array($theme_id, $system_themes) )

		{

			echo   '<a class="tb-inner" href="#" onclick="return false;">

								' . $lang->get('acptm_btn_theme_system') . '

								<span class="themename">' . htmlspecialchars($theme_data['theme_name']) . '</span>

							</a>';

		}

		else

		{

			echo   '<a class="tb-inner" href="#" onclick="ajaxEditTheme(\'' . $theme_id . '\'); return false;">

								' . $lang->get('acptm_btn_theme_edit') . '

								<span class="themename">' . htmlspecialchars($theme_data['theme_name']) . '</span>

							</a>';

		}

		echo '</div>';

	}

	echo '</div>';

	echo '<span class="menuclear"></span>';

	if ( count($installable) > 0 )

	{

		echo '<h3>' . $lang->get('acptm_heading_install_themes') . '</h3>';

		echo '<div id="theme_list_install">';

		foreach ( $installable as $i => $theme_id )

		{

			if ( file_exists(ENANO_ROOT . "/themes/$theme_id/preview.png") )

			{

				$preview_path = scriptPath . "/themes/$theme_id/preview.png";

			}

			else

			{

				$preview_path = scriptPath . "/images/themepreview.png";

			}

			echo '<div class="themebutton" id="themebtn_install_' . $theme_id . '" enano:themename="' . htmlspecialchars($themes[$theme_id]['theme_name']) . '" style="background-image: url(' . $preview_path . ');">';

			echo   '<a class="tb-inner" href="#" onclick="ajaxInstallTheme(\'' . $theme_id . '\'); return false;">

								' . $lang->get('acptm_btn_theme_install') . '

								<span class="themename">' . htmlspecialchars($themes[$theme_id]['theme_name']) . '</span>

							</a>';

			echo '</div>';

		}

		echo '</div>';

		echo '<span class="menuclear"></span>';

	}

}

function ajaxServlet_Admin_ThemeManager(&$themes)

{

	global $db, $session, $paths, $template, $plugins; // Common objects

	global $lang;

	global $cache;

	if ( $session->auth_level < USER_LEVEL_ADMIN || $session->user_level < USER_LEVEL_ADMIN )

	{

		$login_link = makeUrlNS('Special', 'Login/' . $paths->nslist['Special'] . 'Administration', 'level=' . USER_LEVEL_ADMIN, true);

		echo '<h3>' . $lang->get('adm_err_not_auth_title') . '</h3>';

		echo '<p>' . $lang->get('adm_err_not_auth_body', array( 'login_link' => $login_link )) . '</p>';

		return;

	}

	if ( !isset($_POST['r']) )

		return false;

	try

	{

		$request = enano_json_decode($_POST['r']);

	}

	catch ( Exception $e )

	{

		die('Exception in JSON parser, probably invalid input.');

	}

	if ( !isset($request['mode']) )

	{

		die('No mode specified in JSON request.');

	}

	switch ( $request['mode'] )

	{

		case 'fetch_theme':

			$theme_id = $db->escape($request['theme_id']);

			if ( empty($theme_id) )

				die('Invalid theme_id');

			$q = $db->sql_query("SELECT theme_id, theme_name, default_style, enabled, group_policy, group_list FROM " . table_prefix . "themes WHERE theme_id = '$theme_id';");

			if ( !$q )

				$db->die_json();

			if ( $db->numrows() < 1 )

				die('BUG: no theme with that theme_id installed.');

			$row = $db->fetchrow();

			$row['enabled'] = ( $row['enabled'] == 1 );

			$row['css'] = @$themes[$theme_id]['css'];

			$row['default_style'] = preg_replace('/\.css$/', '', $row['default_style']);

			$row['is_default'] = ( getConfig('theme_default') === $theme_id );

			$row['group_list'] = ( empty($row['group_list']) ) ? array() : enano_json_decode($row['group_list']);

			// Build a list of group names

			$row['group_names'] = array();

			$q = $db->sql_query('SELECT group_id, group_name FROM ' . table_prefix . 'groups;');

			if ( !$q )

				$db->die_json();

			while ( $gr = $db->fetchrow() )

			{

				$row['group_names'][ intval($gr['group_id']) ] = $gr['group_name'];

			}

			$db->free_result();

			// Build a list of usernames

			$row['usernames'] = array();

			foreach ( $row['group_list'] as $el )

			{

				if ( !preg_match('/^u:([0-9]+)$/', $el, $match) )

					continue;

				$uid =& $match[1];

				$q = $db->sql_query('SELECT username FROM ' . table_prefix . "users WHERE user_id = $uid;");

				if ( !$q )

					$db->die_json();

				if ( $db->numrows() < 1 )

				{

					$db->free_result();

					continue;

				}

				list($username) = $db->fetchrow_num();

				$row['usernames'][$uid] = $username;

				$db->free_result();

			}

			echo enano_json_encode($row);

			break;

		case 'uid_lookup':

			$username = @$request['username'];

			if ( empty($username) )

			{

				die(enano_json_encode(array(

						'mode' => 'error',

						'error' => $lang->get('acptm_err_invalid_username')

					)));

			}

			$username = $db->escape(strtolower($username));

			$q = $db->sql_query('SELECT user_id, username FROM ' . table_prefix . "users WHERE " . ENANO_SQLFUNC_LOWERCASE . "(username) = '$username';");

			if ( !$q )

				$db->die_json();

			if ( $db->numrows() < 1 )

			{

				die(enano_json_encode(array(

						'mode' => 'error',

						'error' => $lang->get('acptm_err_username_not_found')

					)));

			}

			list($uid, $username_real) = $db->fetchrow_num();

			$db->free_result();

			echo enano_json_encode(array(

					'uid' => $uid,

					'username' => $username_real

				));

			break;

		case 'save_theme':

			if ( !isset($request['theme_data']) )

			{

				die(enano_json_encode(array(

						'mode' => 'error',

						'error' => 'No theme data in request'

					)));

			}

			$theme_data =& $request['theme_data'];

			// Perform integrity check on theme data

			$chk_theme_exists = isset($themes[@$theme_data['theme_id']]);

			$theme_data['theme_name'] = trim(@$theme_data['theme_name']);

			$chk_name_good = !empty($theme_data['theme_name']);

			$chk_policy_good = in_array(@$theme_data['group_policy'], array('allow_all', 'whitelist', 'blacklist'));

			$chk_grouplist_good = true;

			foreach ( $theme_data['group_list'] as $acl_entry )

			{

				if ( !preg_match('/^(u|g):[0-9]+$/', $acl_entry) )

				{

					$chk_grouplist_good = false;

					break;

				}

			}

			$chk_style_good = @in_array(@$theme_data['default_style'], @$themes[@$theme_data['theme_id']]['css']);

			if ( !$chk_theme_exists || !$chk_name_good || !$chk_policy_good || !$chk_grouplist_good || !$chk_style_good )

			{

				die(enano_json_encode(array(

						'mode' => 'error',

						'error' => $lang->get('acptm_err_save_validation_failed')

					)));

			}

			$enable = ( $theme_data['enabled'] ) ? '1' : '0';

			$theme_default = getConfig('theme_default');

			$warn_default = ( $theme_default === $theme_data['theme_id'] || $theme_data['make_default'] ) ?

												' ' . $lang->get('acptm_warn_access_with_default') . ' ' :

												' ';

			if ( $enable == 0 && ( $theme_default === $theme_data['theme_id'] || $theme_data['make_default'] ) )

			{

				$enable = '1';

				$warn_default .= '<b>' . $lang->get('acptm_warn_cant_disable_default') . '</b>';

			}

			// We're good. Update the theme...

			$q = $db->sql_query('UPDATE ' . table_prefix . 'themes SET

 															theme_name = \'' . $db->escape($theme_data['theme_name']) . '\',

 															default_style = \'' . $db->escape($theme_data['default_style']) . '\',

 															group_list = \'' . $db->escape(enano_json_encode($theme_data['group_list'])) . '\',

 															group_policy = \'' . $db->escape($theme_data['group_policy']) . '\',

 															enabled = ' . $enable . '

 														WHERE theme_id = \'' . $db->escape($theme_data['theme_id']) . '\';');

			if ( !$q )

				$db->die_json();

			{

				setConfig('theme_default', $theme_data['theme_id']);

			}

			$cache->purge('themes');

			echo '<div class="info-box"><b>' . $lang->get('acptm_msg_save_success') . '</b>' . $warn_default . '</div>';

			page_Admin_ThemeManager(true);

			break;

		case 'install':

			$theme_id =& $request['theme_id'];

			if ( !isset($themes[$theme_id]) )

			{

				die(enano_json_encode(array(

						'mode' => 'error',

						'error' => 'Theme was deleted from themes/ directory or couldn\'t read theme metadata from filesystem'

					)));

			}

			if ( !isset($themes[$theme_id]['css'][0]) )

			{

				die(enano_json_encode(array(

						'mode' => 'error',

						'error' => 'Theme doesn\'t have any files in css/, thus it can\'t be installed. (translators: l10n?)'

					)));

			}

			// build dataset

			$theme_name = $db->escape($themes[$theme_id]['theme_name']);

			$default_style = $db->escape($themes[$theme_id]['css'][0]);

			$theme_id = $db->escape($theme_id);

			// insert it

			$q = $db->sql_query('INSERT INTO ' . table_prefix . "themes(theme_id, theme_name, default_style, enabled, group_list, group_policy)\n"

												. "  VALUES( '$theme_id', '$theme_name', '$default_style', 1, '[]', 'allow_all' );");

			if ( !$q )

				$db->die_json();

			$cache->purge('themes');

			// The response isn't processed unless it's in JSON.

			echo 'Roger that, over and out.';

			break;

		case 'uninstall':

			$theme_id =& $request['theme_id'];

			$theme_default = getConfig('theme_default');

			// Validation

			if ( !isset($themes[$theme_id]) )

			{

				die(enano_json_encode(array(

						'mode' => 'error',

						'error' => 'Theme was deleted from themes/ directory or couldn\'t read theme metadata from filesystem'

					)));

			}

			if ( $theme_id == $theme_default )

			{

				die(enano_json_encode(array(

						'mode' => 'error',

						'error' => $lang->get('acptm_err_uninstalling_default')

					)));

			}

			if ( $theme_id == 'oxygen' )

			{

				die(enano_json_encode(array(

						'mode' => 'error',

						'error' => $lang->get('acptm_err_uninstalling_oxygen')

					)));

			}

			$theme_id = $db->escape($theme_id);

			$q = $db->sql_query('DELETE FROM ' . table_prefix . "themes WHERE theme_id = '$theme_id';");

			if ( !$q )

				$db->die_json();

			$cache->purge('themes');

			// Change all the users that were on that theme to the default

			$default_style = $template->named_theme_list[$theme_default]['default_style'];

			$default_style = preg_replace('/\.css$/', '', $default_style);

			$theme_default = $db->escape($theme_default);

			$default_style = $db->escape($default_style);

			$q = $db->sql_query('UPDATE ' . table_prefix . "users SET theme = '$theme_default', style = '$default_style' WHERE theme = '$theme_id';");

			if ( !$q )

				$db->die_json();

			echo '<div class="info-box">' . $lang->get('acptm_msg_uninstall_success') . '</div>';

			page_Admin_ThemeManager(true);

			break;

	}

}