Title: My Homepage
Comment: Logged-in users' personal homepage.

<h1>My Homepage</h1>

<strong>Error:</strong> You must be logged in to access this page.

<perl>
	if ($root->{auth}) {
		# If the blog plugin exists, load its config.
		my %plugin = (
			blog => 0,
		);

		if (-f "$root->{base}/inc/blog.lib") {
			$root->{blogcfg} = &readConfig('blog.conf') unless exists $root->{blogcfg};
			$plugin{blog} = 1;
		}

		$root->{content} = "<h1>My Homepage</h1>\n\n"
			. "Welcome to your <strong>home</strong> page.<p>\n\n"
			. "Would you like to...\n"
			. "<ul>\n"
			. "<li><a href=\"\$link:profile;user=$root->{me}\">View your profile?</a></li>\n"
			. "<li><a href=\"\$link:profile;action=edit\">Edit your profile?</a></li>\n"
			. "<li><a href=\"\$link\">Return to the site homepage</a></li>\n"
			. "</ul>";

		# Can we interact with the blog?
		if ($plugin{blog}) {
			my $perms = &getBlogPermissions();
			if ($perms =~ /^(authors|publishers)$/i) {
				$root->{content} .= "<strong>Web Blog Links:</strong>\n"
					. "<ul>\n"
					. "<li><a href=\"\$link:blog\">View the Blog</a></li>\n"
					. "<li><a href=\"\$link:blog.edit\">Post an Entry</a></li>\n"
					. "</ul>\n";
			}
		}

		# Administrative Links.
		if (&isAdmin()) {
			$root->{content} .= "<strong>Administrator Links:</strong>\n"
				. "<ul>\n"
				. "<li><a href=\"\$link:admin\">Admin Center</a></li>\n"
				. "<li><a href=\"\$link:admin;action=users\">Manage Users</a></li>\n"
				. "<li><a href=\"\$link:admin;action=pages\">Manage Pages</a></li>\n"
				. "</ul>\n";
		}
	}
</perl>