fswiki-lite/category.cgi at master · FreeStyleWiki/fswiki-lite · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!/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();
}