category.cgi

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   4 # FSWiki Lite - ¥«¥Æ¥´¥ê¤Î°ìÍ÷
   5 #
   6 ################################################################################
   7 require "./lib/common.pl";
   8 #===============================================================================
   9 # ½èÍý¤Î¿¶¤êÊ¬¤±
  10 #===============================================================================
  11 &ReadParse();
  12 if($in{'c'} ne ""){
  13         &show_category($in{'c'});
  14
  15 } else {
  16         &show_all_category();
  17
  18 }
  19
  20 #===============================================================================
  21 # »ØÄê¤µ¤ì¤¿¥«¥Æ¥´¥ê¤òÉ½¼¨
  22 #===============================================================================
  23 sub show_category {
  24         my $category = shift;
  25
  26         &print_header("¥«¥Æ¥´¥ê");
  27         print &Wiki::Plugin::category_list($category);
  28         &print_footer();
  29 }
  30
  31 #===============================================================================
  32 # Á´¤Æ¤Î¥«¥Æ¥´¥ê¤òÉ½¼¨
  33 #===============================================================================
  34 sub show_all_category {
  35         &print_header("¥«¥Æ¥´¥ê");
  36         print &Wiki::Plugin::category_list();
  37         &print_footer();
  38 }