#!/usr/bin/perl
################################################################################
#
# FSWiki Lite - カテゴリの一覧
#
################################################################################
require "./lib/common.pl";
#===============================================================================
# 処理の振り分け
#===============================================================================
&ReadParse();
if($in{'c'} ne ""){
	&show_category($in{'c'});
	
} else {
	&show_all_category();
	
}

#===============================================================================
# 指定されたカテゴリを表示
#===============================================================================
sub show_category {
	my $category = shift;
	
	&print_header("カテゴリ");
	print &Wiki::Plugin::category_list($category);
	&print_footer();
}

#===============================================================================
# 全てのカテゴリを表示
#===============================================================================
sub show_all_category {
	&print_header("カテゴリ");
	print &Wiki::Plugin::category_list();
	&print_footer();
}