# Control Panel - Routines for clearing UBB cache

sub cache {


	$Hiddens = qq%<INPUT TYPE="HIDDEN" NAME="ubb" VALUE="clear_cache">
%;
	$CurrentTab = qq%$vars_wordlets_cp{clear_cache}%;

	&CPHeader;
	&CPFooter;
	&CPTop;
	&LoadTemplate("cp_cache_form");
	&CPBottom;

}    # end cache sr

sub clear_cache {

	if (($in{forum_summary} eq "") && ($in{forum_pages} eq "") && ($in{topics} eq "") && ($in{misc} eq "")) {

		&StandardHTML("$vars_wordlets_err{select_one}");
	}

	if ($in{forum_summary} eq "clear") { &ClearSummaryCache; }
	if ($in{forum_pages} eq "clear")   { &ClearForumPageCache; }
	if ($in{topics} eq "clear")        { &ClearForumTopicsCache; }
	if ($in{misc} eq "clear")          { &ClearMiscCache; }

	&cp_confirm("Cache Cleared");
	exit(0);


}    # end clear_cache


# Danger- do not remove the following line!
1;