-#!/usr/bin/perl\r
-################################################################################\r
-#\r
-# FSWiki Lite - ¥«¥Æ¥´¥ê¤Î°ìÍ÷\r
-#\r
-################################################################################\r
-require "./lib/common.pl";\r
-#===============================================================================\r
-# ½èÍý¤Î¿¶¤êʬ¤±\r
-#===============================================================================\r
-&ReadParse();\r
-if($in{'c'} ne ""){\r
- &show_category($in{'c'});\r
- \r
-} else {\r
- &show_all_category();\r
- \r
-}\r
-\r
-#===============================================================================\r
-# »ØÄꤵ¤ì¤¿¥«¥Æ¥´¥ê¤òɽ¼¨\r
-#===============================================================================\r
-sub show_category {\r
- my $category = shift;\r
- \r
- &print_header("¥«¥Æ¥´¥ê");\r
- print &Wiki::Plugin::category_list($category);\r
- &print_footer();\r
-}\r
-\r
-#===============================================================================\r
-# Á´¤Æ¤Î¥«¥Æ¥´¥ê¤òɽ¼¨\r
-#===============================================================================\r
-sub show_all_category {\r
- &print_header("¥«¥Æ¥´¥ê");\r
- print "<h2>".&Util::escapeHTML($category)."</h2>\n";\r
- print &Wiki::Plugin::category_list();\r
- &print_footer();\r
-}\r
+#!/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 "<h2>".&Util::escapeHTML($category)."</h2>\n";
+ print &Wiki::Plugin::category_list();
+ &print_footer();
+}