"; var_dump($lang_choices); die("

$users"; killme();

	$adminlist = explode(",", str_replace(" ", "", $a->config['admin_email']));
	$_setup_users = function ($e) use ($adminlist) {
		$accounts = array(
			t('Normal Account'),
			t('Automatic Follower Account'),
			t('Public Forum Account'),
			t('Automatic Friend Account')
		);
		$e['page-flags'] = $accounts[$e['page-flags']];
		$e['register_date'] = relative_date($e['register_date']);
		$e['login_date'] = relative_date($e['login_date']);
		$e['lastitem_date'] = relative_date($e['lastitem_date']);
		//$e['is_admin'] = ($e['email'] === $a->config['admin_email']);
		$e['is_admin'] = in_array($e['email'], $adminlist);
		$e['is_deletable'] = (intval($e['uid']) != local_user());
		$e['deleted'] = ($e['account_removed'] ? relative_date($e['account_expires_on']) : False);
		return $e;
	};
	$users = array_map($_setup_users, $users);


	// Get rid of dashes in key names, Smarty3 can't handle them
	// and extracting deleted users

	$tmp_users = array();
	$deleted = array();

	while (count($users)) {
		$new_user = array();
		foreach (array_pop($users) as $k => $v) {
			$k = str_replace('-', '_', $k);
			$new_user[$k] = $v;
		}
		if ($new_user['deleted']) {
			array_push($deleted, $new_user);
		} else {
			array_push($tmp_users, $new_user);
		}
	}
	//Reversing the two array, and moving $tmp_users to $users
	array_reverse($deleted);
	while (count($tmp_users)) {
		array_push($users, array_pop($tmp_users));
	}

	$th_users = array_map(null, array(t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'), t('Account')), $valid_orders
	);

	$t = get_markup_template('admin/users.tpl');
	$o = replace_macros($t, array(
		// strings //
		'$title' => t('Administration'),
		'$page' => t('Users'),
		'$submit' => t('Add User'),
		'$select_all' => t('select all'),
		'$h_pending' => t('User registrations waiting for confirm'),
		'$h_deleted' => t('User waiting for permanent deletion'),
		'$th_pending' => array(t('Request date'), t('Name'), t('Email')),
		'$no_pending' => t('No registrations.'),
		'$pendingnotetext' => t('Note from the user'),
		'$approve' => t('Approve'),
		'$deny' => t('Deny'),
		'$delete' => t('Delete'),
		'$block' => t('Block'),
		'$unblock' => t('Unblock'),
		'$siteadmin' => t('Site admin'),
		'$accountexpired' => t('Account expired'),

		'$h_users' => t('Users'),
		'$h_newuser' => t('New User'),
		'$th_deleted' => array(t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'), t('Deleted since')),
		'$th_users' => $th_users,
		'$order_users' => $order,
		'$order_direction_users' => $order_direction,

		'$confirm_delete_multi' => t('Selected users will be deleted!\n\nEverything these users had posted on this site will be permanently deleted!\n\nAre you sure?'),
		'$confirm_delete' => t('The user {0} will be deleted!\n\nEverything this user has posted on this site will be permanently deleted!\n\nAre you sure?'),

		'$form_security_token' => get_form_security_token("admin_users"),

		// values //
		'$baseurl' => System::baseUrl(true),

		'$pending' => $pending,
		'deleted' => $deleted,
		'$users' => $users,
		'$newusername' => array('new_user_name', t("Name"), '', t("Name of the new user.")),
		'$newusernickname' => array('new_user_nickname', t("Nickname"), '', t("Nickname of the new user.")),
		'$newuseremail' => array('new_user_email', t("Email"), '', t("Email address of the new user."), '', '', 'email'),
	));
	$o .= paginate($a);
	return $o;
}

/**
 * @brief Plugins admin page
 *
 * This function generates the admin panel page for managing plugins on the
 * friendica node. If a plugin name is given a single page showing the details
 * for this addon is generated. If no name is given, a list of available
 * plugins is shown.
 *
 * The template used for displaying the list of plugins and the details of the
 * plugin are the same as used for the templates.
 *
 * The returned string returned hulds the HTML code of the page.
 *
 * @param App $a
 * @return string
 */
function admin_page_plugins(App $a)
{
	/*
	 * Single plugin
	 */
	if ($a->argc == 3) {
		$plugin = $a->argv[2];
		if (!is_file("addon/$plugin/$plugin.php")) {
			notice(t("Item not found."));
			return '';
		}

		if (x($_GET, "a") && $_GET['a'] == "t") {
			check_form_security_token_redirectOnErr('/admin/plugins', 'admin_themes', 't');

			// Toggle plugin status
			$idx = array_search($plugin, $a->plugins);
			if ($idx !== false) {
				unset($a->plugins[$idx]);
				uninstall_plugin($plugin);
				info(sprintf(t("Plugin %s disabled."), $plugin));
			} else {
				$a->plugins[] = $plugin;
				install_plugin($plugin);
				info(sprintf(t("Plugin %s enabled."), $plugin));
			}
			Config::set("system", "addon", implode(", ", $a->plugins));
			goaway('admin/plugins');
			return ''; // NOTREACHED
		}

		// display plugin details
		require_once('library/markdown.php');

		if (in_array($plugin, $a->plugins)) {
			$status = "on";
			$action = t("Disable");
		} else {
			$status = "off";
			$action = t("Enable");
		}

		$readme = Null;
		if (is_file("addon/$plugin/README.md")) {
			$readme = file_get_contents("addon/$plugin/README.md");
			$readme = Markdown($readme, false);
		} elseif (is_file("addon/$plugin/README")) {
			$readme = "
" . file_get_contents("addon/$plugin/README") . "
";
		}

		$admin_form = "";
		if (is_array($a->plugins_admin) && in_array($plugin, $a->plugins_admin)) {
			@require_once("addon/$plugin/$plugin.php");
			$func = $plugin . '_plugin_admin';
			$func($a, $admin_form);
		}

		$t = get_markup_template('admin/plugins_details.tpl');

		return replace_macros($t, array(
			'$title' => t('Administration'),
			'$page' => t('Plugins'),
			'$toggle' => t('Toggle'),
			'$settings' => t('Settings'),
			'$baseurl' => System::baseUrl(true),

			'$plugin' => $plugin,
			'$status' => $status,
			'$action' => $action,
			'$info' => get_plugin_info($plugin),
			'$str_author' => t('Author: '),
			'$str_maintainer' => t('Maintainer: '),

			'$admin_form' => $admin_form,
			'$function' => 'plugins',
			'$screenshot' => '',
			'$readme' => $readme,

			'$form_security_token' => get_form_security_token("admin_themes"),
		));
	}

	/*
	 * List plugins
	 */
	if (x($_GET, "a") && $_GET['a'] == "r") {
		check_form_security_token_redirectOnErr(System::baseUrl() . '/admin/plugins', 'admin_themes', 't');
		reload_plugins();
		info("Plugins reloaded");
		goaway(System::baseUrl() . '/admin/plugins');
	}

	$plugins = array();
	$files = glob("addon/*/");
	if ($files) {
		foreach ($files as $file) {
			if (is_dir($file)) {
				list($tmp, $id) = array_map("trim", explode("/", $file));
				$info = get_plugin_info($id);
				$show_plugin = true;

				// If the addon is unsupported, then only show it, when it is enabled
				if ((strtolower($info["status"]) == "unsupported") && !in_array($id, $a->plugins)) {
					$show_plugin = false;
				}

				// Override the above szenario, when the admin really wants to see outdated stuff
				if (Config::get("system", "show_unsupported_addons")) {
					$show_plugin = true;
				}

				if ($show_plugin) {
					$plugins[] = array($id, (in_array($id, $a->plugins) ? "on" : "off"), $info);
				}
			}
		}
	}

	$t = get_markup_template('admin/plugins.tpl');
	return replace_macros($t, array(
		'$title' => t('Administration'),
		'$page' => t('Plugins'),
		'$submit' => t('Save Settings'),
		'$reload' => t('Reload active plugins'),
		'$baseurl' => System::baseUrl(true),
		'$function' => 'plugins',
		'$plugins' => $plugins,
		'$pcount' => count($plugins),
		'$noplugshint' => sprintf(t('There are currently no plugins available on your node. You can find the official plugin repository at %1$s and might find other interesting plugins in the open plugin registry at %2$s'), 'https://github.com/friendica/friendica-addons', 'http://addons.friendi.ca'),
		'$form_security_token' => get_form_security_token("admin_themes"),
	));
}

/**
 * @param array $themes
 * @param string $th
 * @param int $result
 */
function toggle_theme(&$themes, $th, &$result)
{
	for ($x = 0; $x < count($themes); $x ++) {
		if ($themes[$x]['name'] === $th) {
			if ($themes[$x]['allowed']) {
				$themes[$x]['allowed'] = 0;
				$result = 0;
			} else {
				$themes[$x]['allowed'] = 1;
				$result = 1;
			}
		}
	}
}

/**
 * @param array $themes
 * @param string $th
 * @return int
 */
function theme_status($themes, $th)
{
	for ($x = 0; $x < count($themes); $x ++) {
		if ($themes[$x]['name'] === $th) {
			if ($themes[$x]['allowed']) {
				return 1;
			} else {
				return 0;
			}
		}
	}
	return 0;
}

/**
 * @param array $themes
 * @return string
 */
function rebuild_theme_table($themes)
{
	$o = '';
	if (count($themes)) {
		foreach ($themes as $th) {
			if ($th['allowed']) {
				if (strlen($o)) {
					$o .= ',';
				}
				$o .= $th['name'];
			}
		}
	}
	return $o;
}

/**
 * @brief Themes admin page
 *
 * This function generates the admin panel page to control the themes available
 * on the friendica node. If the name of a theme is given as parameter a page
 * with the details for the theme is shown. Otherwise a list of available
 * themes is generated.
 *
 * The template used for displaying the list of themes and the details of the
 * themes are the same as used for the plugins.
 *
 * The returned string contains the HTML code of the admin panel page.
 *
 * @param App $a
 * @return string
 */
function admin_page_themes(App $a)
{
	$allowed_themes_str = Config::get('system', 'allowed_themes');
	$allowed_themes_raw = explode(',', $allowed_themes_str);
	$allowed_themes = array();
	if (count($allowed_themes_raw)) {
		foreach ($allowed_themes_raw as $x) {
			if (strlen(trim($x))) {
				$allowed_themes[] = trim($x);
			}
		}
	}

	$themes = array();
	$files = glob('view/theme/*');
	if ($files) {
		foreach ($files as $file) {
			$f = basename($file);

			// Is there a style file?
			$theme_files = glob('view/theme/' . $f . '/style.*');

			// If not then quit
			if (count($theme_files) == 0) {
				continue;
			}

			$is_experimental = intval(file_exists($file . '/experimental'));
			$is_supported = 1 - (intval(file_exists($file . '/unsupported')));
			$is_allowed = intval(in_array($f, $allowed_themes));

			if ($is_allowed || $is_supported || Config::get("system", "show_unsupported_themes")) {
				$themes[] = array('name' => $f, 'experimental' => $is_experimental, 'supported' => $is_supported, 'allowed' => $is_allowed);
			}
		}
	}

	if (!count($themes)) {
		notice(t('No themes found.'));
		return '';
	}

	/*
	 * Single theme
	 */

	if ($a->argc == 3) {
		$theme = $a->argv[2];
		if (!is_dir("view/theme/$theme")) {
			notice(t("Item not found."));
			return '';
		}

		if (x($_GET, "a") && $_GET['a'] == "t") {
			check_form_security_token_redirectOnErr('/admin/themes', 'admin_themes', 't');

			// Toggle theme status

			toggle_theme($themes, $theme, $result);
			$s = rebuild_theme_table($themes);
			if ($result) {
				install_theme($theme);
				info(sprintf('Theme %s enabled.', $theme));
			} else {
				uninstall_theme($theme);
				info(sprintf('Theme %s disabled.', $theme));
			}

			Config::set('system', 'allowed_themes', $s);
			goaway('admin/themes');
			return ''; // NOTREACHED
		}

		// display theme details
		require_once 'library/markdown.php';

		if (theme_status($themes, $theme)) {
			$status = "on";
			$action = t("Disable");
		} else {
			$status = "off";
			$action = t("Enable");
		}

		$readme = Null;
		if (is_file("view/theme/$theme/README.md")) {
			$readme = file_get_contents("view/theme/$theme/README.md");
			$readme = Markdown($readme, false);
		} elseif (is_file("view/theme/$theme/README")) {
			$readme = "
" . file_get_contents("view/theme/$theme/README") . "
";
		}

		$admin_form = "";
		if (is_file("view/theme/$theme/config.php")) {

			function __get_theme_admin_form(App $a, $theme)
			{
				$orig_theme = $a->theme;
				$orig_page = $a->page;
				$orig_session_theme = $_SESSION['theme'];
				require_once("view/theme/$theme/theme.php");
				require_once("view/theme/$theme/config.php");
				$_SESSION['theme'] = $theme;


				$init = $theme . "_init";
				if (function_exists($init)) {
					$init($a);
				}
				if (function_exists("theme_admin")) {
					$admin_form = theme_admin($a);
				}

				$_SESSION['theme'] = $orig_session_theme;
				$a->theme = $orig_theme;
				$a->page = $orig_page;
				return $admin_form;
			}
			$admin_form = __get_theme_admin_form($a, $theme);
		}

		$screenshot = array(get_theme_screenshot($theme), t('Screenshot'));
		if (!stristr($screenshot[0], $theme)) {
			$screenshot = null;
		}

		$t = get_markup_template('admin/plugins_details.tpl');
		return replace_macros($t, array(
			'$title' => t('Administration'),
			'$page' => t('Themes'),
			'$toggle' => t('Toggle'),
			'$settings' => t('Settings'),
			'$baseurl' => System::baseUrl(true),
			'$plugin' => $theme,
			'$status' => $status,
			'$action' => $action,
			'$info' => get_theme_info($theme),
			'$function' => 'themes',
			'$admin_form' => $admin_form,
			'$str_author' => t('Author: '),
			'$str_maintainer' => t('Maintainer: '),
			'$screenshot' => $screenshot,
			'$readme' => $readme,

			'$form_security_token' => get_form_security_token("admin_themes"),
		));
	}


	// reload active themes
	if (x($_GET, "a") && $_GET['a'] == "r") {
		check_form_security_token_redirectOnErr(System::baseUrl() . '/admin/themes', 'admin_themes', 't');
		if ($themes) {
			foreach ($themes as $th) {
				if ($th['allowed']) {
					uninstall_theme($th['name']);
					install_theme($th['name']);
				}
			}
		}
		info("Themes reloaded");
		goaway(System::baseUrl() . '/admin/themes');
	}

	/*
	 * List themes
	 */

	$xthemes = array();
	if ($themes) {
		foreach ($themes as $th) {
			$xthemes[] = array($th['name'], (($th['allowed']) ? "on" : "off"), get_theme_info($th['name']));
		}
	}

	$t = get_markup_template('admin/plugins.tpl');
	return replace_macros($t, array(
		'$title'               => t('Administration'),
		'$page'                => t('Themes'),
		'$submit'              => t('Save Settings'),
		'$reload'              => t('Reload active themes'),
		'$baseurl'             => System::baseUrl(true),
		'$function'            => 'themes',
		'$plugins'             => $xthemes,
		'$pcount'              => count($themes),
		'$noplugshint'         => sprintf(t('No themes found on the system. They should be paced in %1$s'),'/view/themes'),
		'$experimental'        => t('[Experimental]'),
		'$unsupported'         => t('[Unsupported]'),
		'$form_security_token' => get_form_security_token("admin_themes"),
	));
}

/**
 * @brief Prosesses data send by Logs admin page
 *
 * @param App $a
 */
function admin_page_logs_post(App $a)
{
	if (x($_POST, "page_logs")) {
		check_form_security_token_redirectOnErr('/admin/logs', 'admin_logs');

		$logfile   = ((x($_POST,'logfile'))   ? notags(trim($_POST['logfile']))  : '');
		$debugging = ((x($_POST,'debugging')) ? true                             : false);
		$loglevel  = ((x($_POST,'loglevel'))  ? intval(trim($_POST['loglevel'])) : 0);

		Config::set('system', 'logfile', $logfile);
		Config::set('system', 'debugging', $debugging);
		Config::set('system', 'loglevel', $loglevel);
	}

	info(t("Log settings updated."));
	goaway('admin/logs');
	return; // NOTREACHED
}

/**
 * @brief Generates admin panel subpage for configuration of the logs
 *
 * This function take the view/templates/admin_logs.tpl file and generates a
 * page where admin can configure the logging of friendica.
 *
 * Displaying the log is separated from the log config as the logfile can get
 * big depending on the settings and changing settings regarding the logs can
 * thus waste bandwidth.
 *
 * The string returned contains the content of the template file with replaced
 * macros.
 *
 * @param App $a
 * @return string
 */
function admin_page_logs(App $a)
{
	$log_choices = array(
		LOGGER_NORMAL	=> 'Normal',
		LOGGER_TRACE	=> 'Trace',
		LOGGER_DEBUG	=> 'Debug',
		LOGGER_DATA	=> 'Data',
		LOGGER_ALL	=> 'All'
	);

	if (ini_get('log_errors')) {
		$phplogenabled = t('PHP log currently enabled.');
	} else {
		$phplogenabled = t('PHP log currently disabled.');
	}

	$t = get_markup_template('admin/logs.tpl');

	return replace_macros($t, array(
		'$title' => t('Administration'),
		'$page' => t('Logs'),
		'$submit' => t('Save Settings'),
		'$clear' => t('Clear'),
		'$baseurl' => System::baseUrl(true),
		'$logname' => Config::get('system', 'logfile'),
		// name, label, value, help string, extra data...
		'$debugging' => array('debugging', t("Enable Debugging"), Config::get('system', 'debugging'), ""),
		'$logfile' => array('logfile', t("Log file"), Config::get('system', 'logfile'), t("Must be writable by web server. Relative to your Friendica top-level directory.")),
		'$loglevel' => array('loglevel', t("Log level"), Config::get('system', 'loglevel'), "", $log_choices),
		'$form_security_token' => get_form_security_token("admin_logs"),
		'$phpheader' => t("PHP logging"),
		'$phphint' => t("To enable logging of PHP errors and warnings you can add the following to the .htconfig.php file of your installation. The filename set in the 'error_log' line is relative to the friendica top-level directory and must be writeable by the web server. The option '1' for 'log_errors' and 'display_errors' is to enable these options, set to '0' to disable them."),
		'$phplogcode' => "error_reporting(E_ERROR | E_WARNING | E_PARSE);\nini_set('error_log','php.out');\nini_set('log_errors','1');\nini_set('display_errors', '1');",
		'$phplogenabled' => $phplogenabled,
	));
}

/**
 * @brief Generates admin panel subpage to view the Friendica log
 *
 * This function loads the template view/templates/admin_viewlogs.tpl to
 * display the systemlog content. The filename for the systemlog of friendica
 * is relative to the base directory and taken from the config entry 'logfile'
 * in the 'system' category.
 *
 * Displaying the log is separated from the log config as the logfile can get
 * big depending on the settings and changing settings regarding the logs can
 * thus waste bandwidth.
 *
 * The string returned contains the content of the template file with replaced
 * macros.
 *
 * @param App $a
 * @return string
 */
function admin_page_viewlogs(App $a)
{
	$t = get_markup_template('admin/viewlogs.tpl');
	$f = Config::get('system', 'logfile');
	$data = '';

	if (!file_exists($f)) {
		$data = t("Error trying to open $f log file.\r\n
Check to see if file $f exist and is readable.");
	} else {
		$fp = fopen($f, 'r');
		if (!$fp) {
			$data = t("Couldn't open $f log file.\r\n
Check to see if file $f is readable.");
		} else {
			$fstat = fstat($fp);
			$size = $fstat['size'];
			if ($size != 0) {
				if ($size > 5000000 || $size < 0) {
					$size = 5000000;
				}
				$seek = fseek($fp, 0 - $size, SEEK_END);
				if ($seek === 0) {
					$data = escape_tags(fread($fp, $size));
					while (!feof($fp)) {
						$data .= escape_tags(fread($fp, 4096));
					}
				}
			}
			fclose($fp);
		}
	}
	return replace_macros($t, array(
		'$title' => t('Administration'),
		'$page' => t('View Logs'),
		'$data' => $data,
		'$logname' => Config::get('system', 'logfile')
	));
}

/**
 * @brief Prosesses data send by the features admin page
 *
 * @param App $a
 */
function admin_page_features_post(App $a)
{
	check_form_security_token_redirectOnErr('/admin/features', 'admin_manage_features');

	logger('postvars: ' . print_r($_POST, true), LOGGER_DATA);

	$arr = array();
	$features = Features::get(false);

	foreach ($features as $fname => $fdata) {
		foreach (array_slice($fdata, 1) as $f) {
			$feature = $f[0];
			$feature_state = 'feature_' . $feature;
			$featurelock = 'featurelock_' . $feature;

			if (x($_POST, $feature_state)) {
				$val = intval($_POST[$feature_state]);
			} else {
				$val = 0;
			}
			Config::set('feature', $feature, $val);

			if (x($_POST, $featurelock)) {
				Config::set('feature_lock', $feature, $val);
			} else {
				Config::delete('feature_lock', $feature);
			}
		}
	}

	goaway('admin/features');
	return; // NOTREACHED
}

/**
 * @brief Subpage for global additional feature management
 *
 * This functin generates the subpage 'Manage Additional Features'
 * for the admin panel. At this page the admin can set preferences
 * for the user settings of the 'additional features'. If needed this
 * preferences can be locked through the admin.
 *
 * The returned string contains the HTML code of the subpage 'Manage
 * Additional Features'
 *
 * @param App $a
 * @return string
 */
function admin_page_features(App $a)
{
	if ((argc() > 1) && (argv(1) === 'features')) {
		$arr = array();
		$features = Features::get(false);

		foreach ($features as $fname => $fdata) {
			$arr[$fname] = array();
			$arr[$fname][0] = $fdata[0];
			foreach (array_slice($fdata, 1) as $f) {
				$set = Config::get('feature', $f[0], $f[3]);
				$arr[$fname][1][] = array(
					array('feature_' . $f[0], $f[1], $set, $f[2], array(t('Off'), t('On'))),
					array('featurelock_' . $f[0], sprintf(t('Lock feature %s'), $f[1]), (($f[4] !== false) ? "1" : ''), '', array(t('Off'), t('On')))
				);
			}
		}

		$tpl = get_markup_template('admin/settings_features.tpl');
		$o .= replace_macros($tpl, array(
			'$form_security_token' => get_form_security_token("admin_manage_features"),
			'$title' => t('Manage Additional Features'),
			'$features' => $arr,
			'$submit' => t('Save Settings'),
		));

		return $o;
	}
}