#
#   Gallery
#
#
#   gallery.pl       --   Builds photo gallery
#                         More information: http://www.downes.ca/edurss02.htm
#
#   by Stephen Downes
#   Version  0.2   -  January 2, 2006
#
#
#   Copyright 2006 Stephen Downes, National Research Council Canada
#   Prerelease - please do not distribute - I'll GPL it when it's ready
#

#-------------------------------------------------------------------------------
#
#   Build Gallery
#
#---------------------------------------------------------------------------------

sub build_gallery {

	# Builds a photo gallery
	# input expected: gallery id (which in turn will be associated (we hope) with a set of photo files
	#                 template name, which will be used to display individual photos
	# Note: this script expects use GD; and use Image::GD::Thumbnail; to have been loaded, to make thumbnails

	my ($dbh,$gallery,$template,$reindex) = @_;
	my @photo_list; my @photo_ids; my @bigtmblist; my @tinythblist;

	$page->{title} = "Build Gallery";
	print &header($dbh,$vars,$options,$person);

	# Get the Template
	my $stmt = qq|SELECT template_description from template WHERE template_title = ? LIMIT 1|;
	my $sth = $dbh->prepare($stmt);
	$sth->execute($template);
	my $ref = $sth -> fetchrow_hashref();
	my $template_text = $ref->{template_description};

	# Get Gallery directory
	my $stmt = qq|SELECT * from post WHERE post_id = ? LIMIT 1|;
	my $sth = $dbh->prepare($stmt);
	$sth->execute($gallery);
	my $ref = $sth -> fetchrow_hashref();
	my $gallery_dir = $ref->{post_dir};
	my $page_title = $ref->{post_title};

	# Get the list of photos
	my $stmtb = qq|SELECT * from file WHERE file_post = ? ORDER BY file_crdate|;
	my $sthb = $dbh->prepare($stmtb);
	$sthb->execute($gallery);
	my $photo_counter = 0; my $page_descs = {};
	while (my $refb = $sthb -> fetchrow_hashref()) {
		next unless ($refb->{file_file} =~ /(jpg|jpeg)/i);	# JPG Images only
		push @photo_list,$refb->{file_file};
		push @photo_ids,$refb->{file_id};
		my $dscn=$photo_counter+1;
		$page_descs->{$dscn} = qq|<p>$refb->{file_description}|;
		$page_descs->{$dscn} .= " ".&nice_date($refb->{file_crdate},"month").".</p>";
		$photo_counter++;
	}

	my $index_text = "";my $gt_ind;
	my $page_counter = 0;
	foreach my $photo (@photo_list) {
		my $file_id = @photo_ids[$page_counter];
		$page_counter++;

		my $photofile = $Site->{st_base} . $photo;
		my $photourl = $Site->{st_url} . $photo;

		# Load your source image
	        unless (open IN, "$photofile") { die "Could not open $photofile: $!"; next; }
	        my $srcImage = GD::Image->newFromJpeg(*IN);
	        close IN;

		next unless ($srcImage);

		my ($tiny_thumb,$gt) = &make_thumbnail($srcImage,100,$photo);
		unless ($gt_ind) { $gt_ind = $gt; }
		my ($med_thumb) = &make_thumbnail($srcImage,600,$photo);

		my $ph_text = $template_text;
		my $pg_file = $Site->{st_base}."photos/".$gallery_dir."/".$page_counter.".htm";
		my $pg_url = $Site->{st_url}."photos/".$gallery_dir."/".$page_counter.".htm";
		my $prev_url; if ($page_counter eq "1") { $prev_url = $Site->{st_url}."photos/".$gallery_dir."/index.htm"; }
		else { my $prev = $page_counter-1; $prev_url = $Site->{st_url}."photos/".$gallery_dir."/".$prev.".htm"; }
		my $next_url; if ($page_counter eq $photo_counter) { $next_url = $Site->{st_url}."photos/".$gallery_dir."/index.htm"; }
		else { my $next = $page_counter+1; $next_url = $Site->{st_url}."photos/".$gallery_dir."/".$next.".htm"; }

		$ph_text =~ s/<MED_TMB>/$Site->{st_url}$med_thumb/;
		$ph_text =~ s|<PREV>|<div id="prev"><a class="prev" href="$prev_url">Previous</a></div>|g;
		$ph_text =~ s|<NEXT>|<div id="next"><a class="prev" href="$next_url">Next</a></div>|g;
		$ph_text =~ s/<PHOTO>/$photourl/g;
		$ph_text =~ s/<PAGE_TITLE>/$page_title - $page_counter/g;
		$ph_text =~ s/<FILEID>/$file_id/g;

		$ph_text =~ s/<PAGE_DESC>/$page_descs->{$page_counter}/g;
		my $gnav = qq|<div id="nav">
			[<a href="$Site->{st_url}$Site->{st_photo}/$gallery_dir" class="nav">Gallery Home</a>]
			[<a href="$Site->{st_url}$Site->{st_photo}" class="nav">Photos Home</a>]
			[<a href="$Site->{st_url}" class="nav">Site Home</a>]</div>|;
		$ph_text =~ s|<NAV>|$gnav|g;

		open OUT, ">$pg_file" or die "Could not save $pg_file $!";
		print OUT $ph_text or die "Could not print $pg_file $!";
		close OUT;


		$index_text .= qq|<div class="thumbnail">
			<a href="$pg_url"><img src="$Site->{st_url}$tiny_thumb" border=0/></a></div>|;

	}

	&db_update($dbh,"post",{post_content=>$index_text,post_link=>$gt_ind}, $gallery);

	# Build Indices
	# Get the Index Template
	my $tstmt = qq|SELECT template_description from template WHERE template_title = 'photo_index' LIMIT 1|;
	my $tsth = $dbh->prepare($tstmt);
	$tsth->execute();
	my $tref = $tsth -> fetchrow_hashref();
	my $template_text = $tref->{template_description};

	# Get the List of Galleries
	my $stmtg = qq|SELECT * from post WHERE post_type = 'gallery' ORDER BY post_crdate|;
	my $sthg = $dbh->prepare($stmtg);
	$sthg->execute();
	my @gall_list = (); my @gall_contents = ();
	my $gprev = {}; my $gnext = {}; my $indices = {}; my $tprev; my $tnext;
	while (my $refg = $sthg -> fetchrow_hashref()) { if($refg->{post_dir}) { push @gall_list,$refg; } }

	my $gctr = -1; my $gcount=@gall_list+0;
	my $main_index = "";
	foreach my $gall_item (@gall_list) {
		$gctr++; if ($gctr > 10000) { exit; }
		last unless ($gall_list[$gctr]->{post_id});
		next unless ($gall_list[$gctr]->{post_dir});

		my $p;if ($gctr > 0) { $p = $gall_list[$gctr-1]->{post_dir}; }
		my $n; if ($gctr < $gcount) { $n = $gall_list[$gctr+1]->{post_dir}; } else { last; }
		$gprev = $Site->{st_url}.$Site->{st_photo}."/".$p;
		$gnext = $Site->{st_url}.$Site->{st_photo}."/".$n;
		my $gout = $template_text;
		$gout =~ s/<INDEX>/$gall_list[$gctr]->{post_content}/;
		$gall_list[$gctr]->{post_description} .= " ".&nice_date($gall_list[$gctr]->{post_crdate},"month").".";
		$gout =~ s/<PAGE_DESC>/$gall_list[$gctr]->{post_description}/;
		$gout =~ s/<PAGE_TITLE>/$gall_list[$gctr]->{post_title}/g;
		$gout =~ s|<PREV>|<div id="prev"><a class="prev" href="$gprev">Previous</a></div>|g;
		$gout =~ s|<NEXT>|<div id="next"><a class="prev" href="$gnext">Next</a></div>|g;
		my $gonav = qq|<div id="nav">
			[<a href="$Site->{st_url}$Site->{st_photo}" class="nav">Photos Home</a>]
			[<a href="$Site->{st_url}" class="nav">Site Home</a>]</div>|;
		$gout =~ s/<NAV>/$gonav/;
		my $gsave = "$Site->{st_base}$Site->{st_photo}/$gall_list[$gctr]->{post_dir}/index.htm";
		open OUT, ">$gsave" or die "Could not save $gsave $!";
		print OUT $gout or die "Could not print $gsave $!";
		close OUT;

		# Add to main index
		$main_index .= qq|<div class="thumbnail">
			<a href="$Site->{st_url}$Site->{st_photo}/$gall_list[$gctr]->{post_dir}"><img
			src="$gall_list[$gctr]->{post_link}" border=0/></br/>
			$gall_list[$gctr]->{post_title}</a><br/>|.&nice_date($gall_list[$gctr]->{post_crdate},"month").qq|</div>\n\n|;
	}

	my $iout = $template_text;
	$iout =~ s/<INDEX>/$main_index/;
	$iout =~ s/<PAGE_DESC>/Photographs by $person->{person_name}/;
	$iout =~ s/<PAGE_TITLE>/Photos/g;
	$iout =~ s/<PREV>//g;
	$iout =~ s/<NEXT>//g;
	my $ionav = qq|<div id="nav">[<a href="$Site->{st_url}" class="nav">Site Home</a>]</div>|;
	$iout =~ s/<NAV>/$ionav/;
	my $isave = "$Site->{st_base}$Site->{st_photo}/index.htm";
	open OUT, ">$isave" or die "Could not save $isave $!";
	print OUT $iout or die "Could not print $isave $!";
	close OUT;

	print qq|<h1>Gallery Completed</h1><p><a href="$Site->{st_url}$Site->{st_photo}/$gallery_dir">View the Gallery</a></p>
		<p><a href="?post=$gallery&format=edit">Back to Edit</a></p>|;
	print &footer($dbh,$vars,$options,$person);
	exit;

}

1;