diff -r 5e1f1e916419 -r 98bbc533541c punbb/include/common_admin.php
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/punbb/include/common_admin.php	Sun Apr 06 00:28:50 2008 -0400
@@ -0,0 +1,203 @@
+<?php
+/***********************************************************************
+
+  Copyright (C) 2002-2008  PunBB.org
+
+  This file is part of PunBB.
+
+  PunBB is free software; 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.
+
+  PunBB is distributed in the hope that it will be useful, but
+  WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+  MA  02111-1307  USA
+
+************************************************************************/
+
+// Make sure no one attempts to run this script "directly"
+if (!defined('PUN'))
+	exit;
+
+// Check for Enano authentication
+global $db, $session, $paths, $template, $plugins; // Common objects
+if ( $session->auth_level < USER_LEVEL_ADMIN )
+{
+  redirect(makeUrlComplete('Special', 'Login/' . $paths->fullpage, 'level=' . $session->user_level, false), 'Permission denied', 'Re-auth needed.', 0);
+}
+
+//
+// Display the admin navigation menu
+//
+function generate_admin_menu()
+{
+	global $pun_config, $pun_url, $pun_user, $lang_admin, $db_type;
+  global $db, $session, $paths, $template, $plugins; // Common objects
+  
+	$adnav_sublinks = array();
+
+	if ($session->user_level < USER_LEVEL_ADMIN)
+	{
+		$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-information') ? ' class="li-first isactive">' : ' class="li-first">').'<a href="'.pun_link($pun_url['admin_index']).'">'.$lang_admin['Information'].'</span></a></li>';
+		$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-users') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_users']).'">'.$lang_admin['User search'].'</a></li>';
+		$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-censoring') ? ' class="isactive">' : '>').'<a href="'.pun_link($pun_url['admin_censoring']).'">'.$lang_admin['Censoring'].'</a></li>';
+		$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-reports') ? ' class="isactive">' : '>').'<a href="'.pun_link($pun_url['admin_reports']).'">'.$lang_admin['Reports'].'</a></li>';
+
+		if ($pun_user['g_mod_ban_users'] == '1')
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-bans') ? ' class="isactive">' : '>').'<a href="'.pun_link($pun_url['admin_bans']).'">'.$lang_admin['Bans'].'</a></li>';
+	}
+	else
+	{
+		if (PUN_PAGE_SECTION == 'start')
+		{
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-information') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_index']).'">'.$lang_admin['Information'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-categories') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_categories']).'">'.$lang_admin['Categories'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-forums') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_forums']).'">'.$lang_admin['Forums'].'</a></li>';
+		}
+		else if (PUN_PAGE_SECTION == 'users')
+		{
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-users') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_users']).'">'.$lang_admin['Searches'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-groups') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_groups']).'">'.$lang_admin['Groups'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-ranks') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_ranks']).'">'.$lang_admin['Ranks'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-bans') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_bans']).'">'.$lang_admin['Bans'].'</a></li>';
+		}
+		else if (PUN_PAGE_SECTION == 'options')
+		{
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-options-setup') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_options_setup']).'">'.$lang_admin['Setup'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-options-features') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_options_features']).'">'.$lang_admin['Features'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-options-email') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_options_email']).'">'.$lang_admin['E-mail'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-options-registration') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_options_registration']).'">'.$lang_admin['Registration'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-censoring') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_censoring']).'">'.$lang_admin['Censoring'].'</a></li>';
+		}
+		else if (PUN_PAGE_SECTION == 'management')
+		{
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-reports') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_reports']).'">'.$lang_admin['Reports'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-prune') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_prune']).'">'.$lang_admin['Prune topics'].'</a></li>';
+
+			if ($db_type != 'mysql' && $db_type != 'mysqli')
+				$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-reindex') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_reindex']).'">'.$lang_admin['Rebuild index'].'</a></li>';
+
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-options-maintenance') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_options_maintenance']).'">'.$lang_admin['Maintenance mode'].'</a></li>';
+		}
+		else if (PUN_PAGE_SECTION == 'extensions')
+		{
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-extensions-manage') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_extensions_manage']).'">'.$lang_admin['Manage extensions'].'</a></li>';
+			$adnav_sublinks[] = '<li'.((PUN_PAGE == 'admin-extensions-install') ? ' class="isactive"' : '').'><a href="'.pun_link($pun_url['admin_extensions_install']).'">'.$lang_admin['Install extensions'].'</a></li>';
+		}
+	}
+
+	($hook = get_hook('ca_admin_menu_new_sublink')) ? eval($hook) : null;
+
+	if (count($adnav_sublinks) > 1)
+		$adnav_submenu = "\n\t\t\t\t".'<div><ul>'."\n\t\t\t\t\t".implode("\n\t\t\t\t\t", $adnav_sublinks)."\n\t\t\t\t".'</ul></div>';
+	else
+		$adnav_submenu = '';
+
+	if ($session->user_level < USER_LEVEL_ADMIN)
+		$adnav_links[] = '<li class="topactive"><a href="'.pun_link($pun_url['admin_index']).'"><span>'.$lang_admin['Moderate'].'</span></a>'.$adnav_submenu."\n\t\t\t".'</li>';
+	else
+	{
+		$adnav_links[] = '<li'.((PUN_PAGE_SECTION == 'start') ? ' class="topactive"' : '').'><a href="'.pun_link($pun_url['admin_index']).'"><span>'.$lang_admin['Start'].'</span></a>'.(((PUN_PAGE_SECTION == 'start') && ($adnav_submenu != '')) ? $adnav_submenu."\n\t\t\t" : '').'</li>';
+		$adnav_links[] = '<li'.((PUN_PAGE_SECTION == 'options') ? ' class="topactive"' : '').'><a href="'.pun_link($pun_url['admin_options_setup']).'"><span>'.$lang_admin['Settings'].'</span></a>'.(((PUN_PAGE_SECTION == 'options') && ($adnav_submenu != '')) ? $adnav_submenu."\n\t\t\t" : '').'</li>';
+		$adnav_links[] = '<li'.((PUN_PAGE_SECTION == 'users') ? ' class="topactive"' : '').'><a href="'.pun_link($pun_url['admin_users']).'"><span>'.$lang_admin['Users'].'</span></a>'.(((PUN_PAGE_SECTION == 'users') && ($adnav_submenu != '')) ? $adnav_submenu."\n\t\t\t" : '').'</li>';
+		$adnav_links[] = '<li'.((PUN_PAGE_SECTION == 'management') ? ' class="topactive"' : '').'><a href="'.pun_link($pun_url['admin_reports']).'"><span>'.$lang_admin['Management'].'</span></a>'.(((PUN_PAGE_SECTION == 'management') && ($adnav_submenu != '')) ? $adnav_submenu."\n\t\t\t" : '').'</li>';
+		$adnav_links[] = '<li'.((PUN_PAGE_SECTION == 'extensions') ? ' class="topactive"' : '').'><a href="'.pun_link($pun_url['admin_extensions_manage']).'"><span>'.$lang_admin['Extensions'].'</span></a>'.(((PUN_PAGE_SECTION == 'extensions') && ($adnav_submenu != '')) ? $adnav_submenu."\n\t\t\t" : '').'</li>';
+	}
+
+?>
+	<div class="main-nav<?php if ($adnav_submenu != '') echo ' submenu' ?>">
+		<ul>
+			<?php echo implode("\n\t\t\t", $adnav_links)."\n" ?>
+		</ul>
+	</div>
+<?php
+
+}
+
+
+//
+// Delete topics from $forum_id that are "older than" $prune_date (if $prune_sticky is 1, sticky topics will also be deleted)
+//
+function prune($forum_id, $prune_sticky, $prune_date)
+{
+	global $pun_db, $db_type;
+
+	// Fetch topics to prune
+	$query = array(
+		'SELECT'	=> 't.id',
+		'FROM'		=> 'topics AS t',
+		'WHERE'		=> 't.forum_id='.$forum_id
+	);
+
+	if ($prune_date != -1)
+		$query['WHERE'] .= ' AND last_post<'.$prune_date;
+	if (!$prune_sticky)
+		$query['WHERE'] .= ' AND sticky=\'0\'';
+
+	($hook = get_hook('ca_qr_get_topics_to_prune')) ? eval($hook) : null;
+	$result = $pun_db->query_build($query, true) or error(__FILE__, __LINE__);
+
+	$topic_ids = '';
+	while ($row = $pun_db->fetch_row($result))
+		$topic_ids .= (($topic_ids != '') ? ',' : '').$row[0];
+
+	if ($topic_ids != '')
+	{
+		// Fetch posts to prune (used lated for updating the search index)
+		$query = array(
+			'SELECT'	=> 'p.id',
+			'FROM'		=> 'posts AS p',
+			'WHERE'		=> 'p.topic_id IN('.$topic_ids.')'
+		);
+
+		($hook = get_hook('ca_qr_get_posts_to_prune')) ? eval($hook) : null;
+		$result = $pun_db->query_build($query, true) or error(__FILE__, __LINE__);
+
+		$post_ids = '';
+		while ($row = $pun_db->fetch_row($result))
+			$post_ids .= (($post_ids != '') ? ',' : '').$row[0];
+
+		// Delete topics
+		$query = array(
+			'DELETE'	=> 'topics',
+			'WHERE'		=> 'id IN('.$topic_ids.')'
+		);
+
+		($hook = get_hook('ca_qr_prune_topics')) ? eval($hook) : null;
+		$pun_db->query_build($query) or error(__FILE__, __LINE__);
+
+		// Delete posts
+		$query = array(
+			'DELETE'	=> 'posts',
+			'WHERE'		=> 'topic_id IN('.$topic_ids.')'
+		);
+
+		($hook = get_hook('ca_qr_prune_posts')) ? eval($hook) : null;
+		$pun_db->query_build($query) or error(__FILE__, __LINE__);
+
+		// Delete subscriptions
+		$query = array(
+			'DELETE'	=> 'subscriptions',
+			'WHERE'		=> 'topic_id IN('.$topic_ids.')'
+		);
+
+		($hook = get_hook('ca_qr_prune_subscriptions')) ? eval($hook) : null;
+		$pun_db->query_build($query) or error(__FILE__, __LINE__);
+
+		// We removed a bunch of posts, so now we have to update the search index
+		if ($db_type != 'mysql' && $db_type != 'mysqli')
+		{
+			require_once PUN_ROOT.'include/search_idx.php';
+			strip_search_index($post_ids);
+		}
+	}
+}
+
+($hook = get_hook('ca_new_function')) ? eval($hook) : null;