<?php if (!defined('PmWiki')) exit();
/**
	Not so simple thumbnail gallery generator for PmWiki
	Written by (c) Petko Yotov 2006-2007

	This script is POSTCARDWARE, if you like it,
	please send me a postcard. Details at
	http://galleries.accent-bg.com/ThumbList

	This text is written for PmWiki; you can redistribute it 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. See pmwiki.php for full details
	and lack of warranty.

	Copyright 2006-2007 Petko Yotov http://5ko.free.fr
	Copyright 2004-2006 Patrick R. Michaud http://www.pmwiki.org
	Copyright 2006 Hagan Fox (haganfoxATusersDOTsourceforge.net)
*/
# Version date
$RecipeInfo['ThumbList']['Version'] = '2007-01-10';

SDV($ThumbPx, 128);
SDV($ThumbTableCols, 0);
SDV($ThumbTitleFormat, "%f: %wx%h, %kk (%t)");
SDV($ThumbBgColor, "#ffffff");//for transparent pictures
SDV($AlwaysRedoThumbs, 0);// for debugging: 1 always, -1:never; 0:when needed
SDV($ThumbQuality, 80);
SDV($ThumbLimit, 0);
SDV($ThumbMaxArea, 0);
SDV($ThumbLinkAdd, '');
SDV($ThumbAdd, '');
SDV($AlwaysLinkOriginal, 0); // if the original is small and allready displayed
SDV($ImageTemplateFmt, '(:include {$FullName}-ImageTemplate {$Group}.ImageTemplate {$SiteGroup}.ImageTemplate:)') ;
SDV($ThumbListUseTmpl, 0);
SDVA($HandleActions, array('imgtpl'=>'HandleImageTemplate',
	'purgethumbs'=>"HandlePurgeThumbnails",'createthumb'=>"HandleCreateThumb"));
SDVA($HandleAuth, array('purgethumbs' => 'edit'));
SDV($ThumbThread, 0);
SDV($ThumbShowErrors, 1);
SDV($ThumbCaptionFormat, '');
SDV($ThumbEnableExif, 0);

Markup('thumblist', '>{$var}',
  '/\\(:thumb(list)?\\s*(.*?):\\)/ei',
  "FmtThumbList(\$pagename,PSS('$2'),'$1')");
Markup('thumbgallery', '<thumblist',
  '/\\(:thumb(gallery)\\s*(.*?):\\)(.*?)\\(:thumbgalleryend:\\)/esi',
  "FmtThumbList(\$pagename,PSS('$2'),'$1', PSS('$3'))");

function FmtThumbList($pagename, $args, $suffix='', $list='')
{
	if(! function_exists('imagecreate')) return ThumbReturn("PHP-GD image library not found. Exiting.", 2);
	global $UploadDir, $UploadPrefixFmt, $UploadUrlFmt, $TimeFmt, $EnableDirectDownload,
		$ThumbTableCols,$ThumbBgColor, $AlwaysRedoThumbs, $ThumbPx,
		$ThumbTitleFormat, $ThumbLimit, $AlwaysLinkOriginal, $ThumbMaxArea,
		$ThumbListUseTmpl, $ThumbLinkAdd, $ThumbAdd, $ThumbThread, $ThumbEnableExif;
	static $ThumbGalNum = 0;
	$ThumbGalNum++;

	$opt = ParseArgs($args);

	$currentpage = $pagename = MakePageName($pagename, $pagename);

	if($suffix){if (@$opt[''][0]) $pagename = MakePageName($pagename, $opt[''][0]);}
	else// "thumb" was used
	{
		if (! @$opt[''][0]) return ThumbReturn("No file specified.", 1);
		if(preg_match("!^(.*)\\/([^\\/]+)$!", $opt[''][0], $m) )
		{
			$pagename = MakePageName($pagename, $m[1]);
			$opt['name'] = $m[2];
		}
		else $opt['name'] = $opt[''][0];
		$opt['cols'] = 0;
	}
	$page = RetrieveAuthPage($pagename,"read", false);
	if (!$page) { return ThumbReturn("No read permissions at $pagename.", 1); }
	
	if(!$_POST['preview'] && !$AlwaysRedoThumbs && intval(@$opt['supercache']))
	{
		$output = ThumbGetCache($currentpage, $pagename, $ThumbGalNum);
		if($output) return  ThumbReturn($output);
	}
	if (@$opt['skip']) $skipmatch=ThumbFilePattern($opt['skip']);
	if (@$opt['name']) $pattern = ThumbFilePattern($opt['name']);

	$titlefmt =(@$opt['titlefmt'])? $opt['titlefmt'] : $ThumbTitleFormat;
	$captionfmt =(@$opt['captionfmt'])? $opt['captionfmt'] : $ThumbCaptionFormat;
	if (@$opt['px'] && intval($opt['px']) > 0 )
			$Px = intval($opt['px']);
	elseif(@intval(@$opt['width']))$Px = $Width = intval($opt['width']);
	else $Px = $ThumbPx;
	$atarget = (@$opt['target'])? ' target="'.htmlspecialchars($opt['target']).'"' : '';
	$usetpl = isset($opt['usetemplate'])?$opt['usetemplate'] : $ThumbListUseTmpl;

	$thumbcols = isset($opt['cols'])? intval($opt['cols']) : $ThumbTableCols;
	if(!$thumbcols)$captionfmt='';
	$caption = @$opt['caption'];

	if (@floatval(@$opt['maxarea'])) $maxarea = floatval($opt['maxarea']);
	else $maxarea = $ThumbMaxArea;
	$maxarea *= 1000000;
	$start = intval(@$opt['start']);
	if(!$start)$start = 1;
	$limit = isset($opt['limit'])? intval(@$opt['limit']) : $ThumbLimit;
	$enableexif = isset($opt['exif'])? intval(@$opt['exif']) : $ThumbEnableExif;

	$tableattributes = array("border", "cellpadding", "cellspacing", "rules", "style", "bgcolor", "align");
	$mytabattr = "";
	foreach($tableattributes as $k){if(isset($opt[$k])) $mytabattr.=" $k=\"".htmlspecialchars($opt[$k])."\"";}
	$mybgcolor = preg_match("/^#[0-9a-f]{6}$/i", @$opt['bgcolor'])? $opt['bgcolor'] : $ThumbBgColor;

	$uploaddir = FmtPageName("$UploadDir$UploadPrefixFmt", $pagename);
	$uploadurl = FmtPageName(IsEnabled($EnableDirectDownload, 1)
			? "$UploadUrlFmt$UploadPrefixFmt/"
			: "\$PageUrl?action=download&amp;upname=",
		$pagename);

	$filelist = array();
	if(!$suffix && file_exists("$uploaddir/{$opt['name']}"))$filelist[$opt['name']] = $opt['name'];
	elseif($suffix=='gallery')
	{
		preg_match_all("/^\s*(.+?\\.(?:jpe?g|png|gif|jpe))\\s*(?:\\|\\s*([^\\|]+?)\\s*(?:\\|\\s*(.*)\s*)?)?$/m", $list, $m, PREG_SET_ORDER);
		for($i=0; $i<count($m); $i++)if(file_exists("$uploaddir/{$m[$i][1]}")&&!preg_match("/^th\\d+---/", $m[$i][1]))
			$filelist[$m[$i][1]] = array(@$m[$i][2], @$m[$i][3]);
	}
	else
	{
		$dirp = @opendir($uploaddir);
		if (!$dirp) return ThumbReturn("Could not open '$uploaddir'.", 1);
		while (($file=readdir($dirp)) !== false)
		{
			if ($file{0} == '.') continue;
			if (!preg_match("/\\.(jpe?g|png|gif|jpe|wbmp|xbm)$/i", $file)) continue;
			if (preg_match("/^th\\d+---/", $file)) continue;
			if (@$skipmatch && preg_match(@$skipmatch, $file)) continue;
			if (@$pattern && !preg_match($pattern, $file)) continue;
			$filelist[$file] = $file;
		}
		closedir($dirp);
		if(!count($filelist) ) return ThumbReturn("No pictures found.", 1);
		natcasesort($filelist);
	}

	if($thumbcols)
	{
		$Px4 = $Px+4;
		$h = (@$Width)? '' : " height='$Px4'";
		$pad = (@$Width)? '2px' : '%dpx';
		$outputstart = "<table class='thumbtable'$mytabattr>";
		if($caption)$outputstart .= "<caption>$caption</caption>";
		$td1 = "<td class='thumbtd' align='center' valign='top'$h width='$Px4'><div class='img' style='padding:$pad $pad'>";
		$td2 = "</div><div class='caption'>";
		$td3 = "</div></td>\n";
	}
	else {$td1 = " "; $td2 = '';}

	$td=0;	$i=1;	$output = '';
	foreach($filelist as $file=>$arr)
	{
		if(!is_array($arr))$arr='';
		$filepath = "$uploaddir/$file";
		$info = @getimagesize($filepath);
		if(! $info) continue;
		if($maxarea > $info[0]*$info[1]) continue;

		if($start>1 && $i<$start) { $i++; continue; }
		if($limit>0 && $i>=$limit+$start) { break; }
		
		$stat = stat($filepath);

		$name = PUE("$uploadurl$file");

		if($thumbcols && $td%$thumbcols == 0)$output .= "<tr class='thumbtr'>\n";
		if(($thumbcols && $info[0]>$info[1]) || @$Width) // w > h
		{
			$imgh = round($Px * $info[1] / $info[0]);
			$imgw = $Px;
		}
		else { $imgh = $Px; $imgw = round($Px * $info[0] / $info[1]);}

		if($imgh>=$info[1] || $AlwaysRedoThumbs==-1)// the picture is not bigger than the thumb, display it
		{
			if($imgh>=$info[1])list($imgw, $imgh)= $info;
			$thumbname = $name;
		}
		else
		{
			$colorprefix = ($info[2] == 2)? '' : substr($mybgcolor, 1). "--";
			$thumbprefix = "th$imgh---$colorprefix";
			$thumbpath = "$uploaddir/$thumbprefix$file.jpg";
			$thumbname = PUE("$uploadurl$thumbprefix$file.jpg");

			if($AlwaysRedoThumbs || !file_exists($thumbpath) || filemtime($thumbpath)<$stat['mtime'] )
			{
				if($ThumbThread)
				{
					$thumbname = PUE(
						FmtPageName("\$PageUrl?action=createthumb&amp;upname=", $pagename)
						."$thumbprefix$file.jpg");
					$opt['supercache'] = 0;
				}
				else CreateThumb($filepath, $thumbpath, $imgh, $info, $mybgcolor);
			}
		}
		if($usetpl)$name = FmtPageName("\$PageUrl?action=imgtpl&amp;updir=$pagename&amp;upname=$file", $currentpage);
		if($AlwaysLinkOriginal || $thumbname != $name || $AlwaysRedoThumbs==-1)
		{
			$a2 = "</a>"; $a1 = "<a href='$name' class='thumblink'$atarget $thumblinkadd>";
		}
		else {$a1=$a2="";}

		$replArr = array(
			"%%" => "%",
			"%G" => $ThumbGalNum,
			"%f" => $file,
			"%w" => $info[0],
			"%h" => $info[1],
			"%b" => $stat['size'],
			"%k" => round($stat['size']/1024),
			"%t" => strftime($TimeFmt, $stat['mtime']),
			"%U" => $name,
			"%u" => $thumbname
		);
		$replArr+=ThumbExif($filepath, $enableexif);
		$title= htmlspecialchars(strtr( ($arr[1])?$arr[1]:  $titlefmt, $replArr));
		$replArr+=array('%n'=>"\n", '%N'=>"<br/>");
		$text = strtr( htmlspecialchars(($arr[0])?$arr[0]:$captionfmt), $replArr);
		$thumbadd = strtr($ThumbAdd, $replArr);
		$thumblinkadd = strtr($ThumbLinkAdd, $replArr);

		
		$mytd1 = sprintf($td1, round(($Px-$imgh)/2)+2, round(($Px-$imgw)/2)+2);
		$output .= "$mytd1$a1<img border='0' src='$thumbname' alt=\"$title\" title=\"$title\" class='thumbs' width='$imgw' height='$imgh' $thumbadd/>$a2$td2$text$td3";

		$i++;$td++;
		if($thumbcols && $td%$thumbcols==0) $output .= "</tr>\n";
	}
	if(!$output) return ThumbReturn("Only ".($i-1)." files found but you set start=$start.", 1);
	if($thumbcols && $td%$thumbcols) $output .=  "</tr>\n";
	if($thumbcols && $output) $output = "$outputstart$output\n</table>\n";

	if(!$_POST['preview'] && !$AlwaysRedoThumbs && intval(@$opt['supercache']))
		ThumbSetCache($currentpage, $pagename, $ThumbGalNum, $output);
	return ThumbReturn($output);
}
function ThumbReturn($x,$err=0)
{
	global $ThumbShowErrors;
	if($ThumbShowErrors==0 && $err==1) return;
	$a=$b=''; if($err){$a='<pre><b>ThumbList warning: </b>';$b='</pre>';}
	return '<:block>'. Keep("$a$x$b");
}
function CreateThumb($filepath, $thumbpath, $nh, $info, $bgc)
{
	global $ThumbQuality;
	$rr = hexdec(substr($bgc, 1, 2) );
	$gg = hexdec(substr($bgc, 3, 2) );
	$bb = hexdec(substr($bgc, 5, 2) );
	$gd2 = function_exists('imagecreatetruecolor');
	$imcopy = ($gd2)?'imagecopyresampled':'imagecopyresized';
	$imcreate=($gd2)?'imagecreatetruecolor':'imagecreate';

	$imtypes = array(1=>"gif",2=>"jpeg",3=>"png",15=>"wbmp",16=>"xbm");
	list($imgw, $imgh, $t) = $info;
	if(!isset($imtypes[$t])) return;
	$fcreate = "imagecreatefrom".$imtypes[$t];
	$img = $fcreate($filepath);
	if (!@$img){return;}

	$nw = round($imgw * $nh / $imgh);

	$nimg = $imcreate($nw,$nh);
	if($t != 2)imagefill($nimg, 0, 0, imagecolorallocate($nimg, $rr, $gg, $bb));
	$imcopy($nimg,$img,0,0,0,0,$nw,$nh,$imgw,$imgh);
	imagedestroy($img);
	imagejpeg($nimg,$thumbpath,$ThumbQuality);
	imagedestroy($nimg);
}
function HandlePurgeThumbnails($pagename)
{
	global $UploadDir, $UploadPrefixFmt;
	$page = RetrieveAuthPage($pagename,"edit");
	if (!$page) { Abort("?Not enough permissions to purge all thumbs for $UploadPrefixFmt"); return; }
	$uploaddir = FmtPageName("$UploadDir$UploadPrefixFmt", $pagename);
	if ($dirp = @opendir($uploaddir))
	{
		while (($file=readdir($dirp)) !== false)
		{
			if (!preg_match("/^(th\\d+---|\\.thumblist\\.)/", $file)) continue;
			unlink("$uploaddir/$file");
		}
		closedir($dirp);
	}
	Redirect($pagename,"{\$PageUrl}?action=upload");
}
function ThumbGetCache($currentpage, $uploadpage, $n)
{
	global $UploadDir, $UploadPrefixFmt, $PCache, $MessagesFmt;
	$ptime = $PCache[$currentpage]['time'];
	$cachefile = FmtPageName("$UploadDir$UploadPrefixFmt/.thumblist.$currentpage.$n.cache", $uploadpage);
	if(file_exists($cachefile) && filemtime($cachefile) >= $ptime)
	{
		if($handle = @fopen($cachefile, "r"))
		{
			$contents = @fread($handle, filesize($cachefile));
			fclose($handle);
		}
		$MessagesFmt[] = "Got cache for $currentpage, gallery $n<br />\n";
		return @$contents;
	}
	else return "";
}
function ThumbSetCache($currentpage, $uploadpage, $n, $html)
{
	global $UploadDir, $UploadPrefixFmt, $MessagesFmt;
	$MessagesFmt[] = "Caching gallery $n for $currentpage<br />\n";
	$cachefile = FmtPageName("$UploadDir$UploadPrefixFmt/.thumblist.$currentpage.$n.cache", $uploadpage);
	if ($handle = fopen($cachefile, 'w+'))
	{
		@fwrite($handle, $html);
		fclose($handle);
	}
}
function HandleCreateThumb($pagename)
{
	global $UploadDir, $UploadPrefixFmt;
	$page = RetrieveAuthPage($pagename,"read");//will ask for pw if needed
	$uploaddir = FmtPageName("$UploadDir$UploadPrefixFmt", $pagename);
	$t = $_REQUEST['upname']; $pt = "$uploaddir/$t";
	if(preg_match( "/^th(\\d+)---(?:([0-9a-f]{6})--)?(.+)\\.jpg$/i", $t, $m ) )
	{
		$f = "$uploaddir/{$m[3]}";
		if(!file_exists($f) ) { Abort("?Source file $f not found."); return; }
		$info = @getimagesize($f);

		if(! file_exists($pt) || filemtime($f)< filemtime($pt))
			CreateThumb($f, $pt, $m[1], $info, "#{$m[2]}");
		HandleDownload($pagename);
		exit();
	}
	Abort("?Unrecognized format.");
}
function ThumbFilePattern($x){return '/^'.str_replace(array("\\*","\\?","\\|"),array(".*",".","|"),preg_quote($x)).'$/i';}
function ThumbExif($filepath, $x=0)
{
	global $TimeFmt;
	$e = array();
	if($x)$exif = @exif_read_data($filepath, 'EXIF', 1);
	$e['%M'] = @$exif['IFD0']['Make'];
	$e['%m'] = @$exif['IFD0']['Model'];
	$e['%W'] = @$exif['COMPUTED']['Width']?$exif['COMPUTED']['Width']:@$exif['EXIF']['ExifImageWidth'];
	$e['%H'] = @$exif['COMPUTED']['Height']?$exif['COMPUTED']['Height']:@$exif['EXIF']['ExifImageHeight'];
	$t = preg_replace('/^(\\d{4}):(\\d\\d):(\\d\\d.*)$/', '$1-$2-$3', @$exif['EXIF']['DateTimeOriginal']);
	$e['%T'] = @$t? strftime($TimeFmt,strtotime($t)):'';
	$e['%E'] = @$exif['EXIF']['ExposureTime'];
	$e['%F'] = @$exif['EXIF']['FocalLength'];
	$e['%A'] = @$exif['COMPUTED']['ApertureFNumber'];
	$e['%I'] = @$exif['EXIF']['ISOSpeedRatings'];
	$e['%C'] = trim(@$exif['COMMENT']['0'].' '.@$exif['COMPUTED']['UserComment']);
	return $e;
}
## partly based on Hagan Fox's "HandleImageLink" from thumblink.php
function HandleImageTemplate($pagename)
{
	global $FmtV, $FmtPV, $ImageTemplateFmt, $PageStartFmt,	$PageEndFmt, $HandleImageTplFmt;
	SDV($HandleImageTplFmt,array(&$PageStartFmt, '$PageText', &$PageEndFmt));
	PCache($pagename, RetrieveAuthPage($pagename, 'read'));
	$uname=htmlspecialchars(@$_REQUEST['upname'], ENT_QUOTES);
	$pname=preg_replace("/^.*[\\.\\/]/", '', MakePageName($pagename, str_replace(".", "", $uname)));
	$udir =htmlspecialchars(@$_REQUEST['updir'], ENT_QUOTES);
	$FmtPV['$UpFile'] = "'$uname'";
	$FmtPV['$UpFilePage'] = "'$pname'";
	$FmtPV['$UpDir'] = "'$udir'";
	$FmtPV['$UpDirUpFile'] = "'$udir/$uname'";
	$FmtV['$PageText'] = MarkupToHTML($pagename,$ImageTemplateFmt);
	if(!trim($FmtV['$PageText']))
		$FmtV['$PageText'] = MarkupToHTML($pagename,"[[$pagename?action=browse|$[Back to gallery] ]]\\\\\nAttach:{\$UpDirUpFile}");
	PrintFmt($pagename, $HandleImageTplFmt);
}