Title: Photos
Plugin: Starburst Photo Gallery

<h1>Unknown Error</h1>

Please report this error, along with what you were doing, to the site
administrator.

<perl>
	# Read the photo gallery config.
	$root->{photocfg} = &readConfig("photos.conf");

	# Get basic query string variables.
	my $action = $query->{action} || 'index';
	my $album  = $query->{album} || '';
	my $pic    = $query->{pic} || '';

	# Get our album privileges.
	my $privilege = &getPhotoPermissions();

	# Alias the action.
	if ($action eq 'index') {
		if (length $album > 0 && length $pic > 0) {
			$action = 'picture';
		}
		elsif (length $album > 0) {
			$action = 'album';
		}
	}

	# Create the photo directories if they don't exist.
	if (!-d "$root->{conf}->{site}->{public}/photos") {
		mkdir ("$root->{conf}->{site}->{public}/photos");
	}

	# Process the action.
	if ($action eq 'index') {
		# List the photo albums index.
		$root->{content} = "<h1>Photo Albums</h1>\n\n";

		my $meta = &readAllAlbums();

		if (scalar keys %{$meta} > 0) {
			$root->{content} .= "<table border=\"0\" cellspacing=\"0\" cellpadding=\"5\">\n";

			foreach my $id (sort { $b cmp $a } keys %{$meta}) {
				# Skip albums we can't see.
				if ($meta->{$id}->{privacy} eq 'members') {
					if (not $root->{auth}) {
						# Must be logged in to see member albums.
						next;
					}
				}
				elsif ($meta->{$id}->{privacy} eq 'private') {
					if ($root->{auth}) {
						# Only Owners can see private albums.
						if ($privilege !~ /^owners$/i) {
							next;
						}
					}
					else {
						next;
					}
				}

				# Count the pictures.
				my $picmeta = &readPhotos ($id);
				my $count = scalar keys %{$picmeta};

				$root->{content} .= "<tr>\n"
					. "<td style=\"text-align: center; vertical-align: middle\">\n";

				if (length $meta->{$id}->{icon}) {
					$root->{content} .= "<a href=\"\$link:photos;album=$id\">"
						. "<img src=\"$root->{conf}->{site}->{public}/photos/$id/"
						. "s-$meta->{$id}->{icon}\" alt=\"$meta->{$id}->{name}\" "
						. "style=\"border: 1px solid #000000\">"
						. "</a>\n";
				}
				else {
					$root->{content} .= "[no album cover]\n";
				}

				$root->{content} .= "</td>\n"
					. "<td style=\"text-align: left; vertical-align: top\">\n"
					. "<h2 style=\"margin: 0px; padding: 0px\">"
					. "<a href=\"\$link:photos;album=$id\">$meta->{$id}->{name}</a></h2>\n"
					. "$count photo" . ($count == 1 ? '' : 's') . ".\n";

				if ($privilege =~ /^owners$/i) {
					$root->{content} .= "<br>\n"
						. "<small>Privacy: " . ucfirst($meta->{$id}->{privacy})
						. "</small>\n";
				}

				# If 0 photos and we're the Owner, we can delete this.
				if ($count == 0) {
					if ($privilege =~ /^owners$/i) {
						$root->{content} .= "<br>\n"
							. "<small>This album is empty. "
							. "<a href=\"\$link:photos;action=delalbum;album=$id\">"
							. "Delete it?</a></small>\n";
					}
				}

				$root->{content} .= "</td>\n"
					. "</tr>\n";
			}

			$root->{content} .= "</table>\n";
		}
		else {
			$root->{content} .= "<em>No photo albums have been created.</em>\n";
		}

		if ($privilege =~ /^(owners|photographers)$/i) {
			$root->{content} .= "<div style=\"clear: both; margin-top: 25px\">\n";

			if ($privilege =~ /^owners$/i) {
				$root->{content} .= "<strong>Owners:</strong> "
					. "<small>[<a href=\"\$link:photos;action=newalbum\">Create New Album</a>]"
					. "</small><br>\n";
			}

			$root->{content} .= "<strong>Photographers:</strong> "
				. "<small>[<a href=\"\$link:photos;action=upload\">Upload Photos</a>]</small>\n"
				. "</div>\n";
		}
	}
	elsif ($action eq 'album') {
		# Load this album's info.
		my $meta = &readAlbum($query->{album});
		$root->{meta}->{title} = $meta->{name};

		# Get the pics in this album.
		my $pics = &readPhotos($query->{album});

		$root->{content} = "<h1>$meta->{name}</h1>\n\n"
			. "&#0164; <a href=\"\$link:photos\">Back to Index</a><p>\n\n";

		if (scalar keys %{$pics} > 0) {
			# Sort the pictures.
			my @prefSort = &getPicOrder($query->{album});
			my %allPicIDs = %{$pics};
			my @sorted = ();
			foreach my $id (@prefSort) {
				next unless exists $pics->{$id};
				push (@sorted,$id);
				delete $allPicIDs{$id};
			}
			push (@sorted, sort { $b cmp $a } keys %allPicIDs);

			my $x = 0;
			$root->{content} .= "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"5\">\n";

			foreach my $id (@sorted) {
				if ($x == 0) {
					$root->{content} .= "<tr>\n";
				}

				# Count the comments.
				my @coms = &getPageComments("photos-$query->{album}-$id");
				my $count = scalar(@coms);
				my $plural = $count == 1 ? 'comment' : 'comments';

				$root->{content} .= "<td width=\"25%\" style=\"text-align: center; vertical-align: top\">\n"
					. "<a href=\"\$link:photos;album=$album;pic=$id\">"
					. "<img src=\"$root->{conf}->{site}->{public}/photos/$album/s-$pics->{$id}->{photo}\" "
					. "alt=\"$pics->{$id}->{photo}\" style=\"border: 1px solid #000000\"></a><br>\n"
					. "$pics->{$id}->{caption}<br>\n"
					. "<small><a href=\"\$link:photos;album=$album;pic=$id\">$count $plural</a></small>\n"
					. "</td>\n";

				$x++;
				if ($x >= 4) {
					$root->{content} .= "</tr>\n";
					$x = 0;
				}
			}

			if ($x < 4) {
				while ($x < 4) {
					$root->{content} .= "<td width=\"25%\" style=\"text-align: center; vertical-align: top\">\n"
						. "&nbsp;\n"
						. "</td>\n";
					$x++;
				}
				$root->{content} .= "</tr>\n";
			}

			$root->{content} .= "</table>\n";
		}
		else {
			$root->{content} .= "<em>There are no photos in this album.</em>\n";
		}

		if ($privilege =~ /^(owners|photographers)$/i) {
			$root->{content} .= "<div style=\"clear: both; margin-top: 25px\">\n";

			if ($privilege =~ /^owners$/i) {
				$root->{content} .= "<strong>Owners:</strong> "
					. "<small>[<a href=\"\$link:photos;action=editalbum;album=$album\">Edit This Album</a>]"
					. "</small><br>\n";
			}

			$root->{content} .= "<strong>Photographers:</strong> "
				. "<small>[<a href=\"\$link:photos;action=upload\">Upload Photos</a>|"
				. "<a href=\"\$link:photos;action=sort;album=$album\">Rearrange Photos</a>]</small>\n"
				. "</div>\n";
		}
	}
	elsif ($action eq 'picture') {
		# Load this album's info.
		my $meta = &readAlbum($query->{album});

		# Get the pics in this album.
		my $pics = &readPhotos($query->{album});

		# Sort the pictures.
		my @prefSort = &getPicOrder($query->{album});
		my %allPicIDs = %{$pics};
		my @sorted = ();
		foreach my $id (@prefSort) {
			next unless exists $pics->{$id};
			push (@sorted,$id);
			delete $allPicIDs{$id};
		}
		push (@sorted, sort { $b cmp $a } keys %allPicIDs);
		my $nextPic = $sorted[0];
		my $i = 0;
		foreach my $id (@sorted) {
			if ($id eq $pic) {
				if (defined $sorted[$i + 1]) {
					$nextPic = $sorted[$i + 1];
				}
				else {
					$nextPic = $sorted[0];
				}
				last;
			}
			$i++;
		}

		my $title = $pics->{$pic}->{caption} || $meta->{name};
		$root->{meta}->{title} = $title;

		$root->{content} = "<h1>$meta->{name}</h1>\n\n"
			. "&#0164; <a href=\"\$link:photos;album=$album\">Back to Album</a><br>\n"
			. "&#0164; <a href=\"\$link:photos\">Back to Index</a><p>\n\n";

		if ($privilege =~ /^(owners|photographers)$/i) {
			$root->{content} .= "<div style=\"clear: both; margin-bottom: 25px\">\n";

			if ($privilege =~ /^owners$/i) {
				$root->{content} .= "<strong>Owners:</strong> "
					. "<small>[<a href=\"\$link:photos;action=setcover;album=$album;pic=$pic\">Set as Album Cover</a>]"
					. "</small><br>\n";
			}

			$root->{content} .= "<strong>Photographers:</strong> "
				. "<small>[<a href=\"\$link:photos;action=editpic;album=$album;pic=$pic\">Edit Caption</a>|"
				. "<a href=\"\$link:photos;action=delpic;album=$album;pic=$pic\" onClick=\"return window.confirm('"
				. "Are you SURE you want to delete this picture?')\">Delete</a>]</small>\n"
				. "</div>\n";
		}

		$root->{content} .= "<div style=\"text-align: center\">\n"
			. "<a href=\"\$link:photos;album=$album;pic=$nextPic\">"
			. "<img src=\"$root->{conf}->{site}->{public}/photos/$album/l-$pics->{$pic}->{photo}\" "
			. "alt=\"$pics->{$pic}->{photo}\"></a><br>\n"
			. "$pics->{$pic}->{caption}\n"
			. "</div>\n"
			. "<include page.comments;title=Picture Comments;id=photos-$album-$pic>";
	}
	elsif ($action eq 'newalbum') {
		# Only Owners can make a new album.
		if ($privilege !~ /^owners$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only the photo album owners can access this page.";
			return 1;
		}

		$root->{content} = "<h1>Create Album</h1>\n\n"
			. "<form name=\"create\" action=\"\$link\" method=\"post\">\n"
			. "<input type=\"hidden\" name=\"p\" value=\"photos\">\n"
			. "<input type=\"hidden\" name=\"action\" value=\"mkalbum\">\n"
			. "<strong>Album ID:</strong><br>\n"
			. "<small>This is a single-word, lowercase ID for your album (ex: pics, newyork, etc.)</small><br>\n"
			. "<input type=\"text\" size=\"20\" name=\"id\"><p>\n\n"
			. "<strong>Album Name:</strong><br>\n"
			. "<small>This is the name that's visible to the users (ex: My Trip to New York).</small><br>\n"
			. "<input type=\"text\" size=\"20\" name=\"name\"><p>\n\n"
			. "<strong>Permissions:</strong><br>\n"
			. "<select name=\"privacy\">\n"
			. "<option value=\"public\">Public: Everybody can see this album.</option>\n"
			. "<option value=\"members\">Members: Only registered members can see this album.</option>\n"
			. "<option value=\"private\">Private: Only you can see this album.</option>\n"
			. "</select><p>\n\n"
			. "<input type=\"submit\" value=\"Create Album\">\n"
			. "</form>\n";
	}
	elsif ($action eq 'mkalbum') {
		# Only Owners can make a new album.
		if ($privilege !~ /^owners$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only the photo album owners can access this page.";
			return 1;
		}

		# Validate the inputs.
		my $id   = $query->{id} || '';
		my $name = $query->{name} || '';
		my $perm = $query->{privacy} || 'public';

		$id =~ s/[^A-Za-z0-9]//g;
		$id = lc($id);

		if (not length $id) {
			$root->{content} = "<h1>Invalid ID</h1>\n\n"
				. "Your ID must contain only letters and numbers.";
			return 1;
		}
		if (not length $name) {
			$name = ucfirst($id);
		}

		# Create the album.
		&writeAlbum ($id,
			name    => $name,
			privacy => $perm,
			icon    => '',
		);

		$root->{content} = "<h1>Album Created</h1>\n\n"
			. "Your new photo album has been created. You can now "
			. "<a href=\"\$link:photos;album=$id\">view your album</a> "
			. "or <a href=\"\$link:photos;action=upload\">upload photos</a>.";
	}
	elsif ($action eq 'editalbum') {
		# Only Owners can make a new album.
		if ($privilege !~ /^owners$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only the photo album owners can access this page.";
			return 1;
		}

		# Load this album's info.
		my $meta = &readAlbum($query->{album});
		$meta->{name} =~ s/\"/&quot;/ig;

		$root->{content} = "<h1>Edit Album</h1>\n\n"
			. "<form name=\"create\" action=\"\$link\" method=\"post\">\n"
			. "<input type=\"hidden\" name=\"p\" value=\"photos\">\n"
			. "<input type=\"hidden\" name=\"action\" value=\"updatealbum\">\n"
			. "<input type=\"hidden\" name=\"album\" value=\"$album\">\n"
			. "<strong>Album ID:</strong><br>\n"
			. "$album<p>\n\n"
			. "<strong>Album Name:</strong><br>\n"
			. "<small>This is the name that's visible to the users (ex: My Trip to New York).</small><br>\n"
			. "<input type=\"text\" size=\"20\" name=\"name\" value=\"$meta->{name}\"><p>\n\n"
			. "<strong>Permissions:</strong><br>\n"
			. "<select name=\"privacy\">\n"
			. "<option value=\"$meta->{privacy}\">Current Setting ($meta->{privacy})</option>\n"
			. "<option value=\"public\">Public: Everybody can see this album.</option>\n"
			. "<option value=\"members\">Members: Only registered members can see this album.</option>\n"
			. "<option value=\"private\">Private: Only you can see this album.</option>\n"
			. "</select><p>\n\n"
			. "<input type=\"submit\" value=\"Update Album\">\n"
			. "</form>\n";
	}
	elsif ($action eq 'updatealbum') {
		# Only Owners can make a new album.
		if ($privilege !~ /^owners$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only the photo album owners can access this page.";
			return 1;
		}

		# Load this album's info.
		my $meta = &readAlbum($query->{album});

		# Validate the inputs.
		my $name = $query->{name} || '';
		my $perm = $query->{privacy} || 'public';

		if (not length $album) {
			$root->{content} = "<h1>Invalid ID</h1>\n\n"
				. "Your ID must contain only letters and numbers.";
			return 1;
		}
		if (not length $name) {
			$name = ucfirst($album);
		}

		# Create the album.
		&writeAlbum ($album,
			name    => $name,
			privacy => $perm,
			icon    => $meta->{icon},
		);

		$root->{content} = "<h1>Album Update</h1>\n\n"
			. "Your new photo album has been updated. You can now "
			. "<a href=\"\$link:photos;album=$album\">view your album</a> "
			. "or <a href=\"\$link:photos;action=upload\">upload photos</a>.";
	}
	elsif ($action eq 'delalbum') {
		# Only Owners can delete an album.
		if ($privilege !~ /^owners$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only the photo album owners can access this page.";
			return 1;
		}

		# Make sure this album is empty.
		my $picmeta = &readPhotos ($album);
		if (scalar keys %{$picmeta} > 0) {
			$root->{content} = "<h1>Can't Delete Album</h1>\n\n"
				. "This album still has pictures in it. Delete all of "
				. "the pictures before deleting the album.";
			return 1;
		}

		# Delete it.
		&deleteAlbum($album);

		$root->{content} = "<h1>Album Deleted</h1>\n\n"
			. "The album has been deleted successfully. "
			. "<a href=\"\$link:photos\">Return to the index</a>.";
	}
	elsif ($action eq 'setcover') {
		# Only Owners can set the album cover picture.
		if ($privilege !~ /^owners$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only the photo album owners can access this page.";
			return 1;
		}

		my $meta = &readAlbum($album);
		$meta->{icon} = $pic;
		&writeAlbum($album, %{$meta});

		$root->{content} = "<h1>Cover Set</h1>\n\n"
			. "The album cover has been updated. "
			. "<a href=\"\$link:photos\">Return to index</a> or "
			. "<a href=\"\$link:photos;album=$album\">return to album</a>.";
	}
	elsif ($action eq 'upload') {
		# Only Photographers can upload photos.
		if ($privilege !~ /^(owners|photographers)$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only photographers can access this page.";
			return 1;
		}

		# Make sure we have albums.
		my $meta = {};
		if (-f "$root->{conf}->{site}->{public}/photos/meta.txt") {
			$meta = do "$root->{conf}->{site}->{public}/photos/meta.txt";
		}
		if (scalar keys %{$meta} == 0) {
			$root->{content} = "<h1>No Photo Albums</h1>\n\n"
				. "No photo albums were found. Please create one first.";
			return 1;
		}

		$root->{content} = "<h1>Upload Photos</h1>\n\n"
			. "<form name=\"upload\" action=\"\$link\" method=\"post\" enctype=\"multipart/form-data\">\n"
			. "<input type=\"hidden\" name=\"p\" value=\"photos\">\n"
			. "<input type=\"hidden\" name=\"action\" value=\"mkphoto\">\n"

			. "<fieldset>\n"
			. "<legend>Upload Pictures</legend>\n";

		for (my $i = 1; $i <= 5; $i++) {
			$root->{content} .= "<strong>$i.</strong> Filename: "
				. "<input type=\"file\" size=\"30\" name=\"pic$i\"><br>\n"
				. "<strong>$i.</strong> Caption:&nbsp;&nbsp; <input type=\"text\" size=\"30\" name=\"cap$i\"><p>\n\n";
		}

		$root->{content} .= "<div id=\"additional\"></div><p>\n\n"
			. "[<a href=\"#more\" onClick=\"return morePhotos()\">upload more</a>]\n"
			. "</fieldset><br>\n"

			. "<fieldset>\n"
			. "<legend>Select Album</legend>\n"
			. "<select name=\"album\">\n";

		foreach my $id (keys %{$meta}) {
			$root->{content} .= "<option value=\"$id\">$meta->{$id}->{name}</option>\n";
		}

		$root->{content} .= "</select>\n"
			. "</fieldset><br>\n"
			. "<input type=\"submit\" value=\"Upload Photos\">\n"
			. "</form>\n";

		$root->{content} .= q~
<script type="text/javascript">
var nextPhoto = 6;
function morePhotos () {
	if (document.getElementById) {
		for (var i = nextPhoto; i < (nextPhoto + 5); i++) {
			document.getElementById("additional").innerHTML += "<strong>" + i + ".</strong> "
				+ "Filename: <input type=\"file\" size=\"30\" name=\"pic" + i + "\"><br>\n"
				+ "<strong>" + i + ".</strong> Caption:&nbsp;&nbsp; <input type=\"text\" size=\"30\" name=\"cap" + i + "\"><p>\n\n";
		}
		nextPhoto = nextPhoto + 5;
	}
	return false;
}
</script>~;
	}
	elsif ($action eq 'mkphoto') {
		# Only Photographers can upload photos.
		if ($privilege !~ /^(owners|photographers)$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only photographers can access this page.";
			return 1;
		}

		# Make sure we have albums.
		my $meta = {};
		if (-f "$root->{conf}->{site}->{public}/photos/meta.txt") {
			$meta = do "$root->{conf}->{site}->{public}/photos/meta.txt";
		}
		if (scalar keys %{$meta} == 0) {
			$root->{content} = "<h1>No Photo Albums</h1>\n\n"
				. "No photo albums were found. Please create one first.";
			return 1;
		}

		if (!-d "$root->{conf}->{site}->{public}/photos/$album") {
			$root->{content} = "<h1>Album Not Found</h1>\n\n"
				. "The photo album with the ID $album wasn't found.";
			return 1;
		}

		my @msgs = ();

		# Upload all the photos.
		for (my $i = 1; exists $query->{"pic" . $i}; $i++) {
			my $fname = $query->{"pic" . $i} || '';
			my $cap   = $query->{"cap" . $i} || '';

			next if length $fname == 0;
			my $file = (split(/(\/|\\)/, $fname))[-1];

			# Only accept image files.
			if ($fname =~ /\.(jpg|jpe|jpeg|gif|png)$/i) {
				# Good.
			}
			else {
				push (@msgs,"<strong>Error:</strong> File $fname not accepted: must be an image file!");
				next;
			}

			# Read in the image and save it to a file.
			my $fh = $cgi->upload ("pic" . $i);
			my $bin = '';
			while (<$fh>) {
				$bin .= $_;
			}

			# No data?
			if (length $bin == 0) {
				push (@msgs,"<strong>Error:</strong> File $file not accepted: zero-length file data!");
				next;
			}

			# Write it to a temp file.
			open (WRITE, ">$root->{conf}->{site}->{public}/photos/temp.$file");
			binmode WRITE;
			print WRITE $bin;
			close (WRITE);

			# Make up a unique file name.
			my $unique = $file;
			$unique =~ s/\.(jpg|jpe|jpeg|gif|png)$//i;
			my $ui = 0;
			while (-f "$root->{conf}->{site}->{public}/photos/$album/$unique\.jpg") {
				$ui++;
				$unique = $ui . $file;
				$unique =~ s/\.(jpg|jpe|jpeg|gif|png)$//i;
			}
			$unique .= '.jpg';

			# Load it into GD.
			use GD;
			my $orig = undef;
			if ($fname =~ /\.(jpg|jpe|jpeg)$/i) {
				$orig = GD::Image->newFromJpeg ("$root->{conf}->{site}->{public}/photos/temp.$file");
			}
			elsif ($fname =~ /\.gif$/i) {
				$orig = GD::Image->newFromGif ("$root->{conf}->{site}->{public}/photos/temp.$file");
			}
			else {
				$orig = GD::Image->newFromPng ("$root->{conf}->{site}->{public}/photos/temp.$file");
			}
			my $oWidth = $orig->width;
			my $oHeight = $orig->height;

			push (@msgs,"Received image $file ($oWidth x $oHeight)");

			# Need to scale it down for the full-size copy?
			if ($oWidth > $root->{photocfg}->{photos}->{fullwidth}) {
				# Find out the aspect ratio.
				my $ratio = $root->{photocfg}->{photos}->{fullwidth} / $oWidth;
				my $fHeight = int($oHeight * $ratio);
				my $fWidth  = $root->{photocfg}->{photos}->{fullwidth};

				# Create a new GD image.
				my $full = GD::Image->new ($fWidth,$fHeight, 1);

				# Copy the resized image over.
				$full->copyResized (
					$orig,
					0, 0,
					0, 0,
					$fWidth, $fHeight,
					$oWidth, $oHeight,
				);

				push (@msgs,"Resized full size image to $fWidth x $fHeight");

				# Write the new image.
				push (@msgs,"Wrote image l-$unique");
				open (FULL, ">$root->{conf}->{site}->{public}/photos/$album/l-$unique");
				binmode FULL;
				print FULL $full->jpeg ($root->{photocfg}->{photos}->{quality});
				close (FULL);
			}
			else {
				# Doesn't need to be resized. Resave it anyway.
				push (@msgs, "Wrote image l-$unique");
				open (FULL, ">$root->{conf}->{site}->{public}/photos/$album/l-$unique");
				binmode FULL;
				print FULL $orig->jpeg ($root->{photocfg}->{photos}->{quality});
				close (FULL);
			}

			# Need to scale it down for the thumbnail-size copy?
			if ($oWidth > $root->{photocfg}->{photos}->{thumbwidth}) {
				# Find out the aspect ratio.
				my $ratio = $root->{photocfg}->{photos}->{thumbwidth} / $oWidth;
				my $tHeight = int($oHeight * $ratio);
				my $tWidth  = $root->{photocfg}->{photos}->{thumbwidth};

				# Create a new GD image.
				my $thumb = GD::Image->new ($tWidth,$tHeight, 1);

				# Copy the resized image over.
				$thumb->copyResized (
					$orig,
					0, 0,
					0, 0,
					$tWidth, $tHeight,
					$oWidth, $oHeight,
				);

				push (@msgs,"Resized thumbnail image to $tWidth x $tHeight");

				# Write the new image.
				push (@msgs,"Wrote image s-$unique");
				open (THUMB, ">$root->{conf}->{site}->{public}/photos/$album/s-$unique");
				binmode THUMB;
				print THUMB $thumb->jpeg ($root->{photocfg}->{photos}->{quality});
				close (THUMB);
			}
			else {
				# Doesn't need to be resized. Resave it anyway.
				push (@msgs, "Wrote image s-$unique");
				open (THUMB, ">$root->{conf}->{site}->{public}/photos/$album/s-$unique");
				binmode THUMB;
				print THUMB $orig->jpeg ($root->{photocfg}->{photos}->{quality});
				close (THUMB);
			}

			# Unlink the temp file.
			unlink ("$root->{conf}->{site}->{public}/photos/temp.$file");

			# Notify the photo manager about the new photo.
			&writePhoto (
				album   => $album,
				photo   => $unique,
				caption => $cap,
				owner   => $root->{me},
			);
		}

		$root->{content} = "<h1>Photos Uploaded</h1>\n\n"
			. "The upload operation has completed successfully. "
			. "<a href=\"\$link:photos;album=$album\">View this photo album</a>.<p>\n\n"
			. "The details of the operation are as follows:\n"
			. "<ol>\n"
			. "<li>"
			. join("</li>\n<li>",@msgs)
			. "</li>\n"
			. "</ol>\n";
	}
	elsif ($action eq 'editpic') {
		# Only Photographers can upload photos.
		if ($privilege !~ /^(owners|photographers)$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only photographers can access this page.";
			return 1;
		}

		my $meta = &readPhotos($album);
		my $cap = $meta->{$pic}->{caption} || '';
		$album =~ s/\"/&quot;/ig;
		$cap =~ s/\"/&quot;/ig;

		$root->{content} = "<h1>Edit Caption</h1>\n\n"
			. "<form name=\"editor\" action=\"\$link\" method=\"post\">\n"
			. "<input type=\"hidden\" name=\"p\" value=\"photos\">\n"
			. "<input type=\"hidden\" name=\"action\" value=\"updatepic\">\n"
			. "<input type=\"hidden\" name=\"album\" value=\"$album\">\n"
			. "<input type=\"hidden\" name=\"pic\" value=\"$pic\">\n"
			. "<strong>Caption:</strong><br>\n"
			. "<input type=\"text\" size=\"40\" name=\"caption\" value=\"$cap\"><p>\n\n"
			. "<input type=\"submit\" value=\"Save Changes\">\n"
			. "</form>\n";
	}
	elsif ($action eq 'updatepic') {
		# Only Photographers can upload photos.
		if ($privilege !~ /^(owners|photographers)$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only photographers can access this page.";
			return 1;
		}

		my $meta = &readPhotos($album);
		my $newcap = $query->{caption} || '';

		&writePhoto (
			album   => $album,
			photo   => $pic,
			caption => $newcap,
			owner   => $meta->{$pic}->{owner},
		);

		$root->{content} = "<h1>Caption Updated</h1>\n\n"
			. "The caption has been updated. <a href=\"\$link:photos;album=$album;pic=$pic\">"
			. "View the picture</a>.";
	}
	elsif ($action eq 'delpic') {
		# Only Photographers can upload photos.
		if ($privilege !~ /^(owners|photographers)$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only photographers can access this page.";
			return 1;
		}

		&deletePhoto ($album,$pic);

		$root->{content} = "<h1>Photo Deleted</h1>\n\n"
			. "The photo has been deleted successfully. <a href=\"\$link:photos;album=$album\">"
			. "Return to the album</a>.";
	}
	elsif ($action eq 'sort') {
		# Only Photographers can sort pics.
		if ($privilege !~ /^(owners|photographers)$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only photographers can access this page.";
			return 1;
		}

		# Load this album's info.
		my $meta = &readAlbum($query->{album});
		$root->{meta}->{title} = $meta->{name};

		# Get the pics in this album.
		my $pics = &readPhotos($query->{album});

		$root->{content} = "<h1>Sort Photos</h1>\n\n";

		# Sort the pictures.
		my @prefSort = &getPicOrder($query->{album});
		my %allPicIDs = %{$pics};
		my @sorted = ();
		foreach my $id (@prefSort) {
			next unless exists $pics->{$id};
			push (@sorted,$id);
			delete $allPicIDs{$id};
		}
		push (@sorted, sort { $b cmp $a } keys %allPicIDs);
		my $size = scalar(@sorted);

		$root->{content} .= "<form name=\"sort\" action=\"\$link\" method=\"post\">\n"
			. "<input type=\"hidden\" name=\"p\" value=\"photos\">\n"
			. "<input type=\"hidden\" name=\"action\" value=\"dosort\">\n"
			. "<input type=\"hidden\" name=\"album\" value=\"$query->{album}\">\n"
			. "<input type=\"submit\" value=\"Save Changes\"><br>\n"
			. "<table border=\"0\" cellspacing=\"0\" cellpadding=\"2\">\n"
			. "<tr>\n"
			. "<td style=\"text-align: left; vertical-align: top\">\n"
			. "<select name=\"pics\" size=\"$size\" onChange=\"showPicture(this.value)\" id=\"piclist\">\n";

		my $selected = ' selected';
		my $first = $pics->{ $sorted[0] }->{photo};
		foreach my $id (@sorted) {
			$root->{content} .= "<option value=\"$pics->{$id}->{photo}\"$selected>"
				. "$pics->{$id}->{photo}</option>\n";
			$selected = '' if length $selected > 0;
		}

		$root->{content} .= "</select><br>\n"
			. "<input type=\"button\" value=\"Up\" onClick=\"movePic('up')\">"
			. "<input type=\"button\" value=\"Down\" onClick=\"movePic('down')\"><br>\n"
			. "<input type=\"hidden\" name=\"sorted\" id=\"sorted\" value=\"\">\n"
			. "</td>\n"
			. "<td style=\"text-align: left; vertical-align: top\">\n"
			. "<div id=\"pic-preview\"></div>\n"
			. "</td>\n"
			. "</tr>\n"
			. "</table>\n"
			. "</form>\n";

		$root->{content} .= qq~<script type="text/javascript">
function showPicture(pic) {
	document.getElementById("pic-preview").innerHTML = "<img src=\\"$root->{conf}->{site}->{public}/photos/$query->{album}/l-"
		+ pic + "\\" alt=\\"" + pic + "\\">";
	sortPictures();
}
function movePic(dir) {
	var sel = document.getElementById("piclist");
	var i  = sel.selectedIndex;
	var max = sel.length;
	var x   = 0;

	if (dir == "down") {
		if (i != max - 1) {
			x = i + 1;
		}
		else {
			return;
		}
	}
	else {
		if (i >= 0) {
			x = i - 1;
		}
		else {
			return;
		}
	}

	var swapOption = new Object();
	swapOption.text = sel.options[i].text;
	swapOption.value = sel.options[i].value;
	swapOption.selected = sel.options[i].selected;
	swapOption.defaultSelected = sel.options[i].defaultSelected;

	for (var property in swapOption) {
		sel.options[i][property] = sel.options[x][property];
	}
	for (var property in swapOption) {
		sel.options[x][property] = swapOption[property];
	}

	sortPictures();
}
function sortPictures() {
	var sel = document.getElementById("piclist");
	var vs = new Array();
	for (var i = 0; i < sel.length; i++) {
		vs[i] = sel.options[i].value;
	}
	document.getElementById("sorted").value = vs.join(":");
}

showPicture("$first");
</script>~;
	}
	elsif ($action eq "dosort") {
		# Only Photographers can sort pics.
		if ($privilege !~ /^(owners|photographers)$/i) {
			$root->{content} = "<h1>Permission Denied</h1>\n\n"
				. "Only photographers can access this page.";
			return 1;
		}

		# Load this album's info.
		my $meta = &readAlbum($query->{album});
		$root->{meta}->{title} = $meta->{name};

		# Get the pics in this album.
		my $pics = &readPhotos($query->{album});

		# Get the sorted pics.
		my $sorted = $query->{sorted};
		my @order = split(/:/, $sorted);

		# Update the ordering with the photo manager.
		&setPicOrder($query->{album},@order);

		$root->{content} = "<h1>Sort Photos</h1>\n\n"
			. "The photo album has been organized. "
			. "<a href=\"\$link:photos;album=$query->{album}\">"
			. "Return to the album</a>.";
	}
</perl>