Title: Recent Entries
Plugin: Starburst-Blog

<h1>Web Blog</h1>

You shouldn't see this page.

<perl>
	# Load the blog config.
	$root->{blogcfg} = &readConfig('blog.conf') unless exists $root->{blogcfg};

	my $id = $query->{id} || '';

	if (length $id > 0) {
		if (&entryExists($id)) {
			# Read this entry.
			my $entry = &readEntry($id);
			my $stamp = &timeFormat($root->{blogcfg}->{blog}->{timestamp}, $entry->{time});
			my $subject = $entry->{subject} || $stamp;

			# Hidden entry?
			my $hide = 0;
			if ($entry->{privacy} eq 'private') {
				if ($root->{auth}) {
					if (&isAdmin() || $root->{me} eq $entry->{author}) {
						# Okay.
					}
					else {
						$hide = 1;
					}
				}
				else {
					$hide = 1;
				}
			}
			elsif ($entry->{privacy} eq 'members') {
				if (not $root->{auth}) {
					$hide = 1;
				}
			}

			if ($hide) {
				$root->{content} = "<h1>Can't Read Entry</h1>\n\n"
					. "You are not allowed to view this entry.";
				return 1;
			}

			# Read the author's profile.
			$root->{meta}->{title} = $entry->{subject};
			&readUser($entry->{author});
			my $nick = &getNickname($entry->{author});

			# Render emoticons?
			if (not $entry->{noemote}) {
				$entry->{body} = &renderEmoticons($entry->{body});
			}

			# Splitting/showing only the summary?
			my $cutID = 1;
			while ($entry->{body} =~ /<sb\-cut>(.+?)<\/sb\-cut>/si) {
				my $cut = $1;
				my $code = "<a name=\"cut$cutID\"></a>$1";
				$cutID++;
				$entry->{body} =~ s/<sb\-cut>(.+?)<\/sb\-cut>/$code/si;
			}

			$root->{content} = "<h1 style=\"margin-bottom: 0px\">$subject</h1>\n\n"
				. "<div style=\"float: right; width: 100px; margin-left: 5px; text-align: center; "
				. "padding: 2px; border: 1px solid #000000; background-color: #FFFFFF\">\n"
				. "<a href=\"\$link:profile;user=$entry->{author}\">"
				. "<img src=\"$root->{conf}->{site}->{public}/avatars/$entry->{avatar}\" "
				. "alt=\"$nick\"></a><br>\n"
				. "<a href=\"\$link:profile;user=$entry->{author}\">"
				. "<strong>$entry->{author}</strong></a>\n"
				. "</div>\n"
				. "<div style=\"margin-left: 20px\">"
				. "<small><em>Posted on $stamp by <a href=\"\$link:profile;user=$entry->{author}\">"
				. "$nick</a></em></small></div><br>\n\n"
				. "$entry->{body}<br><br>\n\n"
				. "<strong>$root->{blogcfg}->{vocab}->{tags}:</strong> ";

			my @cats = ();
			foreach my $cat (split(/\,/, $entry->{categories})) {
				$cat =~ s/^\s+//g;
				$cat =~ s/\s+$//g;
				push (@cats,"<a href=\"\$link:blog;tag=$cat\">$cat</a>");
			}
			if (scalar @cats > 0) {
				$root->{content} .= join (", ", @cats);
			}
			else {
				$root->{content} .= "<a href=\"\$link:blog;tag=$root->{blogcfg}->{blog}->{defcategory}\">"
					. "$root->{blogcfg}->{blog}->{defcategory}</a>";
			}

			if ($root->{auth}) {
				my $perm = &getBlogPermissions();
				if ($perm eq 'authors' || ($perm eq 'publishers' && $root->{me} eq $entry->{author})) {
					$root->{content} .= "<br><br>"
						. "<small>[<a href=\"\$link:blog.edit;id=$id\">edit</a>|"
						. "<a href=\"\$link:blog.edit;action=delete;id=$id\">delete</a>"
						. "]</small>\n\n";
				}
			}

			# Show blog comments?
			my $showComments = 1;
			if ($entry->{noreply} == 1) {
				# Comments are disabled.
				$showComments = 0;
			}
			else {
				# Comments are allowed.
				$showComments = 1;
			}

			if ($showComments) {
				$root->{content} .= "<br clear=\"all\">\n"
					. "<include blog.comment;id=$id>";
			}
		}
		else {
			$root->{content} = "<h1>Missing Entry</h1>";
		}
	}
	else {
		# Just showing the whole list of entries.
		my $offset = $query->{os} || 0;
		my $tag    = $query->{tag} || '';
		my $total = &countEntries();
		my @entries = &getEntries($offset,$root->{blogcfg}->{blog}->{postsperpage},$tag);

		if (length $tag) {
			$root->{content} = "<h1>Category: $tag</h1>\n\n";
			$root->{meta}->{title} = $tag;
		}
		else {
			$root->{content} = "<h1>Recent Entries</h1>\n\n";
		}

		if (scalar(@entries)) {
			foreach my $item (@entries) {
				my $entry = &readEntry($item);

				my $stamp = &timeFormat($root->{blogcfg}->{blog}->{timestamp}, $entry->{time});
				my $subject = $entry->{subject} || $stamp;

				# Read the author's profile.
				&readUser($entry->{author});
				my $nick = &getNickname($entry->{author});

				# Render emoticons?
				if (not $entry->{noemote}) {
					$entry->{body} = &renderEmoticons($entry->{body});
				}

				# Splitting/showing only the summary?
				my $cutID = 1;
				while ($entry->{body} =~ /<sb\-cut>(.+?)<\/sb\-cut>/si) {
					my $cut = $1;
					my $code = "<div style=\"margin-top: 10px; margin-bottom: 10px\">"
						. "[<a href=\"\$link:blog;id=$item#cut$cutID\">Read more...</a>]</div>\n";
					$cutID++;
					$entry->{body} =~ s/<sb\-cut>(.+?)<\/sb\-cut>/$code/si;
				}

				$root->{content} .= "<div style=\"clear: both\"></div>\n"
					. "<div class=\"sblog-title\">"
					. "<a href=\"\$link:blog;id=$item\">$subject</a></div>\n"
					. "<div style=\"float: right; width: 100px; margin-left: 5px; text-align: center; "
					. "padding: 2px; border: 1px solid #000000; background-color: #FFFFFF\">\n"
					. "<a href=\"\$link:profile;user=$entry->{author}\">"
					. "<img src=\"$root->{conf}->{site}->{public}/avatars/$entry->{avatar}\" "
					. "alt=\"$nick\"></a><br>\n"
					. "<a href=\"\$link:profile;user=$entry->{author}\">"
					. "<strong>$entry->{author}</strong></a>\n"
					. "</div>\n"
					. "<div style=\"margin-left: 20px\">"
					. "<small><em>Posted on $stamp by <a href=\"\$link:profile;user=$entry->{author}\">"
					. "$nick</a></em></small></div><br>\n\n"
					. "$entry->{body}<br><br>\n\n"
					. "<strong>$root->{blogcfg}->{vocab}->{tags}:</strong> ";

				my @cats = ();
				foreach my $cat (split(/\,/, $entry->{categories})) {
					$cat =~ s/^\s+//g;
					$cat =~ s/\s+$//g;
					push (@cats,"<a href=\"\$link:blog;tag=$cat\">$cat</a>");
				}
				if (scalar @cats > 0) {
					$root->{content} .= join (", ", @cats);
				}
				else {
					$root->{content} .= "<a href=\"\$link:blog;tag=$root->{blogcfg}->{blog}->{defcategory}\">"
						. "$root->{blogcfg}->{blog}->{defcategory}</a>";
				}

				if ($root->{auth}) {
					my $perm = &getBlogPermissions();
					if ($perm eq 'authors' || ($perm eq 'publishers' && $root->{me} eq $entry->{author})) {
						$root->{content} .= "<br><br>"
							. "<small>[<a href=\"\$link:blog.edit;id=$item\">edit</a>|"
							. "<a href=\"\$link:blog.edit;action=delete;id=$item\">delete</a>"
							. "]</small>\n\n";
					}
				}

				# Count the comments.
				my @com = &getComments($item);
				my $ccount = scalar(@com);
				my $plural = $ccount == 1 ? '' : 's';

				# Show blog comments?
				my $showComments = 1;
				my $canComment = 1;
				if ($entry->{noreply} == 1) {
					# Comments are disabled.
					$showComments = 0;
					$canComment = 0;
				}
				else {
					# Comments are allowed; is guest commenting allowed?
					$showComments = 1;
					if ($root->{blogcfg}->{comments}->{allowguests} != 1) {
						# If we're not logged in...
						if (not $root->{auth}) {
							# Commenting denied.
							$canComment = 0;
						}
					}
				}

				$root->{content} .= "<br><br>\n"
					. "[";

				if ($showComments) {
					my $comlab = $root->{blogcfg}->{vocab}->{single};
					if ($ccount != 1) {
						$comlab = $root->{blogcfg}->{vocab}->{multiple};
					}
					$comlab =~ s/(\#)+/$ccount/ig;
					$root->{content} .= "<a href=\"\$link:blog;id=$item\">$comlab</a>|";
				}
				if ($canComment) {
					my $lab = $root->{blogcfg}->{vocab}->{comment};
					$root->{content} .= "<a href=\"\$link:blog;id=$item\">$lab</a>|";
				}

				$root->{content} .= "<a href=\"\$link:blog;id=$item\">"
					. "$root->{blogcfg}->{vocab}->{permalink}</a>]\n\n";
			}

			$root->{content} .= "<div style=\"clear: both; text-align: right\">\n";
			if ($offset > 0) {
				my $prev = $offset - $root->{blogcfg}->{blog}->{postsperpage};
				$prev = 0 if $prev < 0;
				$root->{content} .= "&lt; <a href=\"\$link:blog;os=$prev\">Newer "
					. "$root->{blogcfg}->{blog}->{postsperpage}</a> | ";
			}
			if (($offset + $root->{blogcfg}->{blog}->{postsperpage}) < $total) {
				my $next = $offset + $root->{blogcfg}->{blog}->{postsperpage};
				$root->{content} .= "<a href=\"\$link:blog;os=$next\">Older "
					. "$root->{blogcfg}->{blog}->{postsperpage} </a> &gt;";
			}
			$root->{content} .= "</div>\n";
		}
		else {
			$root->{content} .= "No blog posts were found.";
		}
	}
</perl>