<?php
/**
 * Elgg groups plugin edit action.
 *
 * @package ElggGroups
 */

// Load configuration
global $CONFIG;

elgg_make_sticky_form('groups');

$group_guid = (int)get_input('group_guid');
$new_group_flag = ($group_guid == 0);

if ($new_group_flag && elgg_get_plugin_setting('limited_groups', 'groups') == 'yes'
	&& !elgg_is_admin_logged_in()) {
	
	register_error(elgg_echo("groups:cantcreate"));
	forward(REFERER);
}

$sticky_alias = ('no' == elgg_get_plugin_setting('changeable_group_alias', 'group_alias'));

/**
 * wrapper for recursive array walk decoding
 */
function profile_array_decoder(&$v) {
	$v = html_entity_decode($v, ENT_COMPAT, 'UTF-8');
}

// Get group fields
$input = array();
foreach ($CONFIG->group as $shortname => $valuetype) {
	// another work around for Elgg's encoding problems: #561, #1963
	$input[$shortname] = get_input($shortname);
	if (is_array($input[$shortname])) {
		array_walk_recursive($input[$shortname], 'profile_array_decoder');
	} else {
		$input[$shortname] = html_entity_decode($input[$shortname], ENT_COMPAT, 'UTF-8');
	}

	if ($valuetype == 'tags') {
		$input[$shortname] = string_to_tag_array($input[$shortname]);
	}
	
	if ($shortname == 'alias' && ($new_group_flag || !$sticky_alias)) {
		elgg_load_library('elgg:group_alias');
		try {
			group_alias_validate($input['alias']);
			$existing_group = get_group_from_group_alias($input['alias']);
			if ($existing_group && $existing_group->guid != get_input('group_guid')) {
				throw new Exception(elgg_echo('groups:alias:already_taken'));
			}
		} catch(Exception $e) {
			register_error($e->getMessage());
			forward(REFERER);
		}
	}

}

$input['name'] = get_input('name');
$input['name'] = html_entity_decode($input['name'], ENT_COMPAT, 'UTF-8');

$user = elgg_get_logged_in_user_entity();

$group = new ElggGroup($group_guid); // load if present, if not create a new group
if (($group_guid) && (!$group->canEdit())) {
	register_error(elgg_echo("groups:cantedit"));

	forward(REFERER);
}

// Keep existing alias unless explicit update
if ($input['alias'] == $group->alias || (!$new_group_flag && $sticky_alias)) {
	unset($input['alias']);
}

// Assume we can edit or this is a new group
if (sizeof($input) > 0) {
	foreach($input as $shortname => $value) {
		$group->$shortname = $value;
	}
}

// Validate create
if (!$group->name) {
	register_error(elgg_echo("groups:notitle"));

	forward(REFERER);
}


// Set group tool options
if (isset($CONFIG->group_tool_options)) {
	foreach ($CONFIG->group_tool_options as $group_option) {
		$group_option_toggle_name = $group_option->name . "_enable";
		if ($group_option->default_on) {
			$group_option_default_value = 'yes';
		} else {
			$group_option_default_value = 'no';
		}
		$group->$group_option_toggle_name = get_input($group_option_toggle_name, $group_option_default_value);
	}
}

// Group membership - should these be treated with same constants as access permissions?
switch (get_input('membership')) {
	case ACCESS_PUBLIC:
		$group->membership = ACCESS_PUBLIC;
		break;
	default:
		$group->membership = ACCESS_PRIVATE;
}

if ($new_group_flag) {
	$group->access_id = ACCESS_PUBLIC;
}

$owner_guid    = (int) get_input('owner_guid');
$loggedin_guid = elgg_get_logged_in_user_guid();
$is_admin      = elgg_is_admin_logged_in();

if (!$new_group_flag && $owner_guid && $owner_guid != $group->owner_guid) {
	if($group->isMember($owner_guid) && ($group->owner_guid == $loggedin_guid || $is_admin)) {
		$old_owner_guid = $group->owner_guid;
		$group->owner_guid = $owner_guid;
		
		// @todo Remove this when #4683 fixed
		$owner_changed_flag = true;
		$old_icontime = $group->icontime; 
	}
}

$group->save();

// group saved so clear sticky form
elgg_clear_sticky_form('groups');

// Invisible group support
// @todo this requires save to be called to create the acl for the group. This
// is an odd requirement and should be removed. Either the acl creation happens
// in the action or the visibility moves to a plugin hook
if (elgg_get_plugin_setting('hidden_groups', 'groups') == 'yes') {
	$visibility = (int)get_input('vis', '', false);
	if ($visibility != ACCESS_PUBLIC && $visibility != ACCESS_LOGGED_IN) {
		$visibility = $group->group_acl;
	}

	if ($group->access_id != $visibility) {
		$group->access_id = $visibility;
	}
}

$group->save();

// group creator needs to be member of new group and river entry created
if ($new_group_flag) {
	elgg_set_page_owner_guid($group->guid);
	$group->join($user);
	add_to_river('river/group/create', 'create', $user->guid, $group->guid, $group->access_id);
}

// Now see if we have a file icon
if ((isset($_FILES['icon'])) && (substr_count($_FILES['icon']['type'],'image/'))) {

	$icon_sizes = elgg_get_config('icon_sizes');

	$prefix = "groups/" . $group->guid;

	$filehandler = new ElggFile();
	$filehandler->owner_guid = $group->owner_guid;
	$filehandler->setFilename($prefix . ".jpg");
	$filehandler->open("write");
	$filehandler->write(get_uploaded_file('icon'));
	$filehandler->close();

	$thumbtiny = get_resized_image_from_existing_file($filehandler->getFilenameOnFilestore(), $icon_sizes['tiny']['w'], $icon_sizes['tiny']['h'], $icon_sizes['tiny']['square']);
	$thumbsmall = get_resized_image_from_existing_file($filehandler->getFilenameOnFilestore(), $icon_sizes['small']['w'], $icon_sizes['small']['h'], $icon_sizes['small']['square']);
	$thumbmedium = get_resized_image_from_existing_file($filehandler->getFilenameOnFilestore(), $icon_sizes['medium']['w'], $icon_sizes['medium']['h'], $icon_sizes['medium']['square']);
	$thumblarge = get_resized_image_from_existing_file($filehandler->getFilenameOnFilestore(), $icon_sizes['large']['w'], $icon_sizes['large']['h'], $icon_sizes['large']['square']);
	if ($thumbtiny) {

		$thumb = new ElggFile();
		$thumb->owner_guid = $group->owner_guid;
		$thumb->setMimeType('image/jpeg');

		$thumb->setFilename($prefix."tiny.jpg");
		$thumb->open("write");
		$thumb->write($thumbtiny);
		$thumb->close();

		$thumb->setFilename($prefix."small.jpg");
		$thumb->open("write");
		$thumb->write($thumbsmall);
		$thumb->close();

		$thumb->setFilename($prefix."medium.jpg");
		$thumb->open("write");
		$thumb->write($thumbmedium);
		$thumb->close();

		$thumb->setFilename($prefix."large.jpg");
		$thumb->open("write");
		$thumb->write($thumblarge);
		$thumb->close();

		$group->icontime = time();
	}

	if ($owner_changed_flag && $old_icontime) { // @todo Remove this when #4683 fixed
		
		$filehandler = new ElggFile();
		$filehandler->setFilename('groups');

		$filehandler->owner_guid = $old_owner_guid;
		$old_path = $filehandler->getFilenameOnFilestore();

		$sizes = array('', 'tiny', 'small', 'medium', 'large');

		foreach($sizes as $size) {
			unlink("$old_path/{$group_guid}{$size}.jpg");
		}
	}

} elseif ($owner_changed_flag && $old_icontime) { // @todo Remove this when #4683 fixed

	$filehandler = new ElggFile();
	$filehandler->setFilename('groups');

	$filehandler->owner_guid = $old_owner_guid;
	$old_path = $filehandler->getFilenameOnFilestore();

	$filehandler->owner_guid = $group->owner_guid;
	$new_path = $filehandler->getFilenameOnFilestore();

	$sizes = array('', 'tiny', 'small', 'medium', 'large');

	foreach ($sizes as $size) {
		rename("$old_path/{$group_guid}{$size}.jpg", "$new_path/{$group_guid}{$size}.jpg");
	}
}

system_message(elgg_echo("groups:saved"));

forward($group->getUrl());