friendica/mod/fbrowser.php

<?php
/**
 * @package		Friendica\modules
 * @subpackage	FileBrowser
 * @author		Fabio Comuni <fabrixxm@kirgroup.com>
 */

require_once('include/Photo.php');

/**
 * @param App $a
 */
function fbrowser_content($a){
	
	if (!local_user())
		killme();

	if ($a->argc==1)
		killme();
	
	$template_file = "filebrowser.tpl";
	$mode = "";
	if (x($_GET,'mode')) {
		$template_file = "filebrowser_plain.tpl";
		$mode  = "?mode=".$_GET['mode'];
	}
	
	//echo "<pre>"; var_dump($a->argv); killme();	
	
	switch($a->argv[1]){
		case "image":
			$path = array( array($a->get_baseurl()."/fbrowser/image/".$mode, t("Photos")));
			$albums = false;
			$sql_extra = "";
			$sql_extra2 = " ORDER BY created DESC LIMIT 0, 10";
			
			if ($a->argc==2){
				$albums = q("SELECT distinct(`album`) AS `album` FROM `photo` WHERE `uid` = %d ",
					intval(local_user())
				);
				// anon functions only from 5.3.0... meglio tardi che mai..
				$folder1 = function($el) use ($mode) {return array(bin2hex($el['album']).$mode,$el['album']);};
				$albums = array_map( $folder1 , $albums);
				
			}
			
			$album = "";
			if ($a->argc==3){
				$album = hex2bin($a->argv[2]);
				$sql_extra = sprintf("AND `album` = '%s' ",dbesc($album));
				$sql_extra2 = "";
				$path[]=array($a->get_baseurl()."/fbrowser/image/".$a->argv[2]."/".$mode, $album);
			}
				
			$r = q("SELECT `resource-id`, `id`, `filename`, type, min(`scale`) AS `hiq`,max(`scale`) AS `loq`, `desc`  
					FROM `photo` WHERE `uid` = %d AND (height <= 320 AND width <= 320) $sql_extra
					GROUP BY `resource-id` $sql_extra2",
				intval(local_user())					
			);
			
			function files1($rr){ 
				global $a;
				$types = Photo::supportedTypes();
				$ext = $types[$rr['type']];

				if($a->theme['template_engine'] === 'internal') {
					$filename_e = template_escape($rr['filename']);
				}
				else {
					$filename_e = $rr['filename'];
				}

				return array( 
					$a->get_baseurl() . '/photo/' . $rr['resource-id'] . '-' . $rr['hiq'] . '.' .$ext, 
					$filename_e, 
					$a->get_baseurl() . '/photo/' . $rr['resource-id'] . '-' . $rr['loq'] . '.'. $ext
				);
			}
			$files = array_map("files1", $r);
			
			$tpl = get_markup_template($template_file);
			
			$o =  replace_macros($tpl, array(
				'$type' => 'image',
				'$baseurl' => $a->get_baseurl(),
				'$path' => $path,
				'$folders' => $albums,
				'$files' =>$files,
				'$cancel' => t('Cancel'),
				'$nickname' => $a->user['nickname'],
			));
				
				
			break;
		case "file":
			if ($a->argc==2){
				$files = q("SELECT id, filename, filetype FROM `attach` WHERE `uid` = %d ",
					intval(local_user())
				);
				
				function files2($rr){ global $a; 
					list($m1,$m2) = explode("/",$rr['filetype']);
					$filetype = ( (file_exists("images/icons/$m1.png"))?$m1:"zip");

					if($a->theme['template_engine'] === 'internal') {
						$filename_e = template_escape($rr['filename']);
					}
					else {
						$filename_e = $rr['filename'];
					}

					return array( $a->get_baseurl() . '/attach/' . $rr['id'], $filename_e, $a->get_baseurl() . '/images/icons/16/' . $filetype . '.png'); 
				}
				$files = array_map("files2", $files);
				//echo "<pre>"; var_dump($files); killme();
			
							
				$tpl = get_markup_template($template_file);
				$o = replace_macros($tpl, array(
					'$type' => 'file',
					'$baseurl' => $a->get_baseurl(),
					'$path' => array( array($a->get_baseurl()."/fbrowser/file/", t("Files")) ),
					'$folders' => false,
					'$files' =>$files,
					'$cancel' => t('Cancel'),
					'$nickname' => $a->user['nickname'],
				));
				
			}
		
			break;
	}
	
	if (x($_GET,'mode')) {
		return $o;
	} else {
		echo $o;
		killme();
	}
	
	
}