<?php
namespace Zotlabs\Module;

use Zotlabs\Lib\Libsync;

/*
 * @file Profile_photo.php
 * @brief Module-file with functions for handling of profile-photos
 *
 */


require_once('include/photo/photo_driver.php');
require_once('include/photos.php');
require_once('include/channel.php');

/* @brief Function for sync'ing  permissions of profile-photos and their profile
*
*  @param $profileid The id number of the profile to sync
*  @return void
*/


class Profile_photo extends \Zotlabs\Web\Controller {

	
	/* @brief Initalize the profile-photo edit view
	 *
	 * @return void
	 *
	 */
	
	function init() {
	
		if(! local_channel()) {
			return;
		}
	
		$channel = \App::get_channel();
		profile_load($channel['channel_address']);
	
	}
	
	/* @brief Evaluate posted values
	 *
	 * @param $a Current application
	 * @return void
	 *
	 */
	
	function post() {
	
		if(! local_channel()) {
			return;
		}
		
		$channel = \App::get_channel();
		
		check_form_security_token_redirectOnErr('/profile_photo', 'profile_photo');
		
		// Remove cover photo
		if(isset($_POST['remove'])) {
			
			$r = q("SELECT resource_id FROM photo WHERE photo_usage = %d AND uid = %d LIMIT 1",
				intval(PHOTO_PROFILE),
				intval(local_channel())
			);
			
			if($r) {
			    q("update photo set photo_usage = %d where photo_usage = %d and uid = %d",
			    	intval(PHOTO_NORMAL),
				    intval(PHOTO_PROFILE),
				    intval(local_channel())
			    );
			
				$sync = attach_export_data($channel,$r[0]['resource_id']);
				if($sync)
				   Libsync:: build_sync_packet($channel['channel_id'],array('file' => array($sync)));
			}
			
			$_SESSION['reload_avatar'] = true;
			
			goaway(z_root() . '/profiles');
		}
	        
		if((array_key_exists('cropfinal',$_POST)) && (intval($_POST['cropfinal']) == 1)) {
	
			// logger('crop: ' . print_r($_POST,true));

			// phase 2 - we have finished cropping
	
			if(argc() != 2) {
				notice( t('Image uploaded but image cropping failed.') . EOL );
				return;
			}
	
			$image_id = argv(1);
	
			if(substr($image_id,-2,1) == '-') {
				$scale = substr($image_id,-1,1);
				$image_id = substr($image_id,0,-2);
			}


			// unless proven otherwise
			$is_default_profile = 1;
	
			if($_REQUEST['profile']) {
				$r = q("select id, profile_guid, is_default, gender from profile where id = %d and uid = %d limit 1",
					intval($_REQUEST['profile']),
					intval(local_channel())
				);
				if($r) {
					$profile = $r[0];
					if(! intval($profile['is_default']))
						$is_default_profile = 0;
				}
			} 

	
			$srcX = intval($_POST['xstart']);
			$srcY = intval($_POST['ystart']);
			$srcW = intval($_POST['xfinal']) - $srcX;
			$srcH = intval($_POST['yfinal']) - $srcY;

			$r = q("SELECT * FROM photo WHERE resource_id = '%s' AND uid = %d AND imgscale = %d LIMIT 1",
				dbesc($image_id),
				dbesc(local_channel()),
				intval($scale));
			if($r) {
	
				$base_image = $r[0];
				$base_image['content'] = (($r[0]['os_storage']) ? @file_get_contents(dbunescbin($base_image['content'])) : dbunescbin($base_image['content']));
			
				$im = photo_factory($base_image['content'], $base_image['mimetype']);
				if($im->is_valid()) {
	
					$im->cropImage(300,$srcX,$srcY,$srcW,$srcH);
	
					$aid = get_account_id();
	
					$p = [ 
						'aid'          => $aid, 
						'uid'          => local_channel(), 
						'resource_id'  => $base_image['resource_id'],
						'filename'     => $base_image['filename'], 
						'album'        => t('Profile Photos'),
						'os_path'      => $base_image['os_path'],
						'display_path' => $base_image['display_path'],
						'photo_usage'  => PHOTO_PROFILE,
						'edited'	   => dbescdate($base_image['edited'])
					];
	
					$p['photo_usage'] = (($is_default_profile) ? PHOTO_PROFILE : PHOTO_NORMAL);
	
					$r1 = $im->storeThumbnail($p, PHOTO_RES_PROFILE_300);
	
					$im->scaleImage(80);
					$r2 = $im->storeThumbnail($p, PHOTO_RES_PROFILE_80);
				
					$im->scaleImage(48);
					$r3 = $im->storeThumbnail($p, PHOTO_RES_PROFILE_48);

					if($r1 === false || $r2 === false || $r3 === false) {
						// if one failed, delete them all so we can start over.
						notice( t('Image resize failed.') . EOL );
						$x = q("delete from photo where resource_id = '%s' and uid = %d and imgscale in ( %d, %d, %d )",
							dbesc($base_image['resource_id']),
							local_channel(),
							intval(PHOTO_RES_PROFILE_300),
							intval(PHOTO_RES_PROFILE_80),
							intval(PHOTO_RES_PROFILE_48)
						);

						$x = q("SELECT content FROM photo WHERE resource_id = '%s' AND uid = %d AND os_storage = 1 AND imgscale IN ( %d, %d, %d )",
							dbesc($base_image['resource_id']),
							local_channel(),
							intval(PHOTO_RES_PROFILE_300),
							intval(PHOTO_RES_PROFILE_80),
							intval(PHOTO_RES_PROFILE_48)
						);
						if($x) {
							foreach($x as $xx) {
								@unlink(dbunescbin($xx['content']));
							}
						}
						
						return;
					}
	
					// If setting for the default profile, unset the profile photo flag from any other photos I own
	
					if($is_default_profile) {

						$r = q("update profile set photo = '%s', thumb = '%s' where is_default = 1 and uid = %d",
							dbesc(z_root() . '/photo/profile/l/' . local_channel()),
							dbesc(z_root() . '/photo/profile/m/' . local_channel()),
							intval(local_channel())
						);


						$r = q("UPDATE photo SET photo_usage = %d WHERE photo_usage = %d
							AND resource_id != '%s' AND uid = %d",
							intval(PHOTO_NORMAL),
							intval(PHOTO_PROFILE),
							dbesc($base_image['resource_id']),
							intval(local_channel())
						);
	

						send_profile_photo_activity($channel,$base_image,$profile);
	
					}
					else {
						$r = q("update profile set photo = '%s', thumb = '%s' where id = %d and uid = %d",
							dbesc(z_root() . '/photo/' . $base_image['resource_id'] . '-4'),
							dbesc(z_root() . '/photo/' . $base_image['resource_id'] . '-5'),
							intval($_REQUEST['profile']),
							intval(local_channel())
						);
					}
	
					// set $send to false in profiles_build_sync() to return the data
					// so that we only send one sync packet. 

					$sync_profiles = profiles_build_sync(local_channel(),false);
	
					// We'll set the updated profile-photo timestamp even if it isn't the default profile,
					// so that browsers will do a cache update unconditionally
					// Also set links back to site-specific profile photo url in case it was
					// changed to a generic URL by a clone operation. Otherwise the new photo may 
					// not get pushed to other sites correctly.
	
					$r = q("UPDATE xchan set xchan_photo_mimetype = '%s', xchan_photo_date = '%s', xchan_photo_l = '%s', xchan_photo_m = '%s', xchan_photo_s = '%s'  
						where xchan_hash = '%s'",
						dbesc($im->getType()),
						dbescdate($base_image['edited']),
						dbesc(z_root() . '/photo/profile/l/' . $channel['channel_id']),
						dbesc(z_root() . '/photo/profile/m/' . $channel['channel_id']),
						dbesc(z_root() . '/photo/profile/s/' . $channel['channel_id']),
						dbesc($channel['xchan_hash'])
					);

					photo_profile_setperms(local_channel(),$base_image['resource_id'],$_REQUEST['profile']);

					$sync = attach_export_data($channel,$base_image['resource_id']);
					if($sync)
						Libsync::build_sync_packet($channel['channel_id'],array('file' => array($sync), 'profile' => $sync_profiles));


					// Similarly, tell the nav bar to bypass the cache and update the avatar image.
					$_SESSION['reload_avatar'] = true;
	
					info( t('Shift-reload the page or clear browser cache if the new photo does not display immediately.') . EOL);
	
					// Update directory in background
					\Zotlabs\Daemon\Master::Summon(array('Directory',$channel['channel_id']));
	
				}
				else
					notice( t('Unable to process image') . EOL);
			}
	
			goaway(z_root() . '/profiles');
			return; // NOTREACHED
		}
	
		// A new photo was uploaded. Store it and save some important details
		// in App::$data for use in the cropping function
 	
	
		$hash = photo_new_resource();
		$importing = false;
		$smallest = 0;
	

		if($_REQUEST['importfile']) {
			$hash = $_REQUEST['importfile'];
			$importing = true;
		}
		else {
			require_once('include/attach.php');
	
			$res = attach_store(\App::get_channel(), get_observer_hash(), '', array('album' => t('Profile Photos'), 'hash' => $hash, 'nosync' => true));
	
			logger('attach_store: ' . print_r($res,true));
		}
	
		if(($res && intval($res['data']['is_photo'])) || $importing) {
			$i = q("select * from photo where resource_id = '%s' and uid = %d order by imgscale",
				dbesc($hash),
				intval(local_channel())
			);
	
			if(! $i) {
				notice( t('Image upload failed.') . EOL );
				return;
			}
			$os_storage = false;
	
			foreach($i as $ii) {
				if(intval($ii['imgscale']) < PHOTO_RES_640) {
					$smallest = intval($ii['imgscale']);
					$os_storage = intval($ii['os_storage']);
					$imagedata = $ii['content'];
					$filetype = $ii['mimetype'];
				}
			}
		}
	
		$imagedata = (($os_storage) ? @file_get_contents(dbunescbin($imagedata)) : dbunescbin($imagedata));
		$ph = photo_factory($imagedata, $filetype);
	
		if(! $ph->is_valid()) {
			notice( t('Unable to process image.') . EOL );
			return;
		}
	
		return $this->profile_photo_crop_ui_head($a, $ph, $hash, $smallest);

		// This will "fall through" to the get() method, and since
		// App::$data['imagecrop'] is set, it will proceed to cropping 
		// rather than present the upload form		
	}
	
	
	/* @brief Generate content of profile-photo view
	 *
	 * @param $a Current application
	 * @return void
	 *
	 */
	
	
	function get() {
	
		if(! local_channel()) {
			notice( t('Permission denied.') . EOL );
			return;
		}
	
		$channel = \App::get_channel();
		$pf = 0;
		$newuser = false;
	
		if(argc() == 2 && argv(1) === 'new')
			$newuser = true;
	
		if(argv(1) === 'use') {
			if (argc() < 3) {
				notice( t('Permission denied.') . EOL );
				return;
			};
				        
			$resource_id = argv(2);
	

			$pf = (($_REQUEST['pf']) ? intval($_REQUEST['pf']) : 0);

			$c = q("select id, is_default from profile where uid = %d",
				intval(local_channel())
			);

			$multi_profiles = true;

			if(($c) && (count($c) === 1) && (intval($c[0]['is_default']))) {
				$_REQUEST['profile'] = $c[0]['id'];
				$multi_profiles = false;
			}
			else {
				$_REQUEST['profile'] = $pf;
			}

			$r = q("SELECT id, album, imgscale FROM photo WHERE uid = %d AND resource_id = '%s' ORDER BY imgscale ASC",
				intval(local_channel()),
				dbesc($resource_id)
			);
			if(! $r) {
				notice( t('Photo not available.') . EOL );
				return;
			}
			$havescale = false;
			foreach($r as $rr) {
				if($rr['imgscale'] == PHOTO_RES_PROFILE_80)
					$havescale = true;
			}
	
			// set an already loaded and cropped photo as profile photo
	
			if($havescale) {
				// unset any existing profile photos
				$x = q("UPDATE photo SET photo_usage = %d WHERE photo_usage = %d AND uid = %d",
					intval(PHOTO_NORMAL),
					intval(PHOTO_PROFILE),
					intval(local_channel())
				);

				$edited = datetime_convert();
				
				$x = q("UPDATE photo SET photo_usage = %d, edited = '%s' WHERE uid = %d AND resource_id = '%s' AND imgscale > 0",
					intval(PHOTO_PROFILE),
					dbescdate($edited),
					intval(local_channel()),
					dbesc($resource_id)
				);
	
				$x = q("UPDATE xchan SET xchan_photo_date = '%s' WHERE xchan_hash = '%s'",
					dbescdate($edited),
					dbesc($channel['xchan_hash'])
				);
	
				photo_profile_setperms(local_channel(),$resource_id,$_REQUEST['profile']);

				$sync = attach_export_data($channel,$resource_id);
				if($sync)
					Libsync::build_sync_packet($channel['channel_id'],array('file' => array($sync)));

				$_SESSION['reload_avatar'] = true;

				\Zotlabs\Daemon\Master::Summon(array('Directory',local_channel()));
				
				goaway(z_root() . '/profiles');
			}
	
			$r = q("SELECT content, mimetype, resource_id, os_storage FROM photo WHERE id = %d and uid = %d limit 1",
				intval($r[0]['id']),
				intval(local_channel())
	
			);
			if(! $r) {
				notice( t('Photo not available.') . EOL );
				return;
			}
	
			if(intval($r[0]['os_storage']))
				$data = @file_get_contents(dbunescbin($r[0]['content']));
			else
				$data = dbunescbin($r[0]['content']); 
	
			$ph = photo_factory($data, $r[0]['mimetype']);
			$smallest = 0;
			if($ph->is_valid()) {
				// go ahead as if we have just uploaded a new photo to crop
				$i = q("select resource_id, imgscale from photo where resource_id = '%s' and uid = %d order by imgscale",
					dbesc($r[0]['resource_id']),
					intval(local_channel())
				);
	
				if($i) {
					$hash = $i[0]['resource_id'];
					foreach($i as $ii) {
						if(intval($ii['imgscale']) < PHOTO_RES_640) {
							$smallest = intval($ii['imgscale']);
						}
					}
	            }
	        }
	 
			if($multi_profiles) {
				\App::$data['importfile'] = $resource_id;
			}
			else {
				$this->profile_photo_crop_ui_head($a, $ph, $hash, $smallest);
			}

			// falls through with App::$data['imagecrop'] set so we go straight to the cropping section

		}
	

		// present an upload form

		$profiles = q("select id, profile_name as name, is_default from profile where uid = %d order by id asc",
			intval(local_channel())
		);

		if($profiles) {
			for($x = 0; $x < count($profiles); $x ++) {
				$profiles[$x]['selected'] = false;
				if($pf && $profiles[$x]['id'] == $pf)
					$profiles[$x]['selected'] = true;
				if((! $pf) && $profiles[$x]['is_default'])
					$profiles[$x]['selected'] = true;
			}
		}

		$importing = ((array_key_exists('importfile',\App::$data)) ? true : false);
	
		if(! x(\App::$data,'imagecrop')) {
	
			$tpl = get_markup_template('profile_photo.tpl');
	
			$o .= replace_macros($tpl,array(
				'$user' => \App::$channel['channel_address'],
				'$info' => ((count($profiles) > 1) ? t('Your default profile photo is visible to anybody on the internet. Profile photos for alternate profiles will inherit the permissions of the profile') : t('Your profile photo is visible to anybody on the internet and may be distributed to other websites.')), 
				'$importfile' => (($importing) ? \App::$data['importfile'] : ''),
				'$lbl_upfile' => t('Upload File:'),
				'$lbl_profiles' => t('Select a profile:'),
				'$title' => (($importing) ? t('Use Photo for Profile') : t('Change Profile Photo')),
				'$submit' => (($importing) ? t('Use') : t('Upload')),
				'$remove' => t('Remove'),
				'$profiles' => $profiles,
				'$single' => ((count($profiles) == 1) ? true : false),
				'$profile0' => $profiles[0],
				'$embedPhotos' => t('Use a photo from your albums'),
				'$embedPhotosModalTitle' => t('Use a photo from your albums'),
				'$embedPhotosModalCancel' => t('Cancel'),
				'$embedPhotosModalOK' => t('OK'),
				'$modalchooseimages' => t('Choose images to embed'),
				'$modalchoosealbum' => t('Choose an album'),
				'$modaldiffalbum' => t('Choose a different album'),
				'$modalerrorlist' => t('Error getting album list'),
				'$modalerrorlink' => t('Error getting photo link'),
				'$modalerroralbum' => t('Error getting album'),
				'$form_security_token' => get_form_security_token("profile_photo"),
				'$select' => t('Select existing photo'),
			));
			
			call_hooks('profile_photo_content_end', $o);
			
			return $o;
		}
		else {

			// present a cropping form

			$filename = \App::$data['imagecrop'] . '-' . \App::$data['imagecrop_resolution'];
			$resolution = \App::$data['imagecrop_resolution'];
			$tpl = get_markup_template("cropbody.tpl");
			$o .= replace_macros($tpl,array(
				'$filename' => $filename,
				'$profile' => intval($_REQUEST['profile']),
				'$resource' => \App::$data['imagecrop'] . '-' . \App::$data['imagecrop_resolution'],
				'$image_url' => z_root() . '/photo/' . $filename,
				'$title' => t('Crop Image'),
				'$desc' => t('Please adjust the image cropping for optimum viewing.'),
				'$form_security_token' => get_form_security_token("profile_photo"),
				'$done' => t('Done Editing')
			));
			return $o;
		}
	
		return; // NOTREACHED
	}
	
	/* @brief Generate the UI for photo-cropping
	 *
	 * @param $a Current application
	 * @param $ph Photo-Factory
	 * @return void
	 *
	 */
	
	
	function profile_photo_crop_ui_head(&$a, $ph, $hash, $smallest){
	
		$max_length = get_config('system','max_image_length');
		if(! $max_length)
			$max_length = MAX_IMAGE_LENGTH;
		if($max_length > 0)
			$ph->scaleImage($max_length);
	
		\App::$data['width']  = $ph->getWidth();
		\App::$data['height'] = $ph->getHeight();
	
		if(\App::$data['width'] < 500 || \App::$data['height'] < 500) {
			$ph->scaleImageUp(400);
			\App::$data['width']  = $ph->getWidth();
			\App::$data['height'] = $ph->getHeight();
		}
	
	
		\App::$data['imagecrop'] = $hash;
		\App::$data['imagecrop_resolution'] = $smallest;
		\App::$page['htmlhead'] .= replace_macros(get_markup_template("crophead.tpl"), array());
		return;
	}
	
	
}