<?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();
			
			if ( $theme_data['make_default'] )
			{
				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;
	}
}