-#!/usr/bin/perl\r
-################################################################################\r
-#\r
-# FSWiki Lite\r
-#\r
-################################################################################\r
-require "./lib/common.pl";\r
-#===============================================================================\r
-# ½èÍý¤Î¿¶¤êʬ¤±\r
-#===============================================================================\r
-&ReadParse();\r
-if($in{"p"} eq ""){\r
- $in{"p"} = "FrontPage";\r
-}\r
-\r
-if($in{"a"} eq "list"){\r
- &list_page();\r
- \r
-} elsif($in{"a"} eq "search"){\r
- &search_page();\r
- \r
-} else {\r
- &show_page();\r
- \r
-}\r
-\r
-#-------------------------------------------------------------------------------\r
-# ¥Ú¡¼¥¸¤Î°ìÍ÷\r
-#-------------------------------------------------------------------------------\r
-sub list_page {\r
- my @pages = &Wiki::get_page_list();\r
- \r
- &print_header("°ìÍ÷");\r
- print "<ul>\n";\r
- foreach my $page (@pages){\r
- print "<li><a href=\"$MAIN_SCRIPT?p=".&Util::url_encode($page->{NAME})."\">".\r
- &Util::escapeHTML($page->{NAME})."</a>".\r
- " - ".&Util::format_date($page->{TIME})."</li>\n";\r
- }\r
- print "</ul>\n";\r
- &print_footer();\r
-}\r
-\r
-#-------------------------------------------------------------------------------\r
-# ¥Ú¡¼¥¸¤òɽ¼¨\r
-#-------------------------------------------------------------------------------\r
-sub show_page {\r
- \r
- unless(&Wiki::exists_page($in{"p"})){\r
- undef %in;\r
- $in{"a"} = "edit";\r
- require $EDIT_SCRIPT;\r
- return;\r
- }\r
- \r
- my $source = &Wiki::get_page($in{"p"});\r
- my $html = &Wiki::process_wiki($source,1);\r
- \r
- &print_header($in{"p"},1);\r
- \r
- if(&Wiki::exists_page("Header")){\r
- print "<div class=\"header\">\n";\r
- print &Wiki::process_wiki(&Wiki::get_page("Header"));\r
- print "</div>\n";\r
- }\r
-\r
- print "<div class=\"day body section\">\n";\r
- print $html;\r
- print "</div>\n";\r
- \r
- if(&Wiki::exists_page("Footer")){\r
- print "<div class=\"comment\">\n";\r
- print &Wiki::process_wiki(&Wiki::get_page("Footer"));\r
- print "</div>\n";\r
- }\r
- \r
- &print_footer();\r
-}\r
-\r
-#-------------------------------------------------------------------------------\r
-# ¥Ú¡¼¥¸¤Î¸¡º÷\r
-#-------------------------------------------------------------------------------\r
-sub search_page {\r
- \r
- &print_header("¸¡º÷");\r
- print "<form action=\"$MAIN_SCRIPT\" method=\"GET\">\n";\r
- print " ¥¡¼¥ï¡¼¥É <input type=\"text\" name=\"w\" size=\"20\" value=\"".&Util::escapeHTML($in{'w'})."\">\n";\r
- print " <input type=\"submit\" value=\" ¸¡ º÷ \">\n";\r
- print " <input type=\"hidden\" name=\"a\" value=\"search\">\n";\r
- print "</form>\n";\r
- \r
- if($in{'w'} ne ""){\r
- my @pages = &Wiki::get_page_list();\r
- my $find = 0;\r
- print "<ul>\n";\r
- foreach my $page (@pages){\r
- my $source = $page->{NAME}."\n".&Wiki::get_page($page->{NAME});\r
- if(index($source,$in{'w'})!=-1){\r
- print " <li><a href=\"$MAIN_SCRIPT?p=".&Util::url_encode($page->{NAME})."\">".&Util::escapeHTML($page->{NAME})."</a></li>\n";\r
- $find = 1;\r
- }\r
- }\r
- if($find==0){\r
- print "<li>³ºÅö¤¹¤ë¥Ú¡¼¥¸¤Ï¸ºß¤·¤Þ¤»¤ó¡£</li>\n";\r
- }\r
- print "</ul>\n";\r
- }\r
- \r
- &print_footer();\r
-}\r
-\r
+#!/usr/bin/perl
+################################################################################
+#
+# FSWiki Lite
+#
+################################################################################
+require "./lib/common.pl";
+#===============================================================================
+# ½èÍý¤Î¿¶¤êʬ¤±
+#===============================================================================
+&ReadParse();
+if($in{"p"} eq ""){
+ $in{"p"} = "FrontPage";
+}
+
+if($in{"a"} eq "list"){
+ &list_page();
+
+} elsif($in{"a"} eq "search"){
+ &search_page();
+
+} else {
+ &show_page();
+
+}
+
+#-------------------------------------------------------------------------------
+# ¥Ú¡¼¥¸¤Î°ìÍ÷
+#-------------------------------------------------------------------------------
+sub list_page {
+ my @pages = &Wiki::get_page_list();
+
+ &print_header("°ìÍ÷");
+ print "<ul>\n";
+ foreach my $page (@pages){
+ print "<li><a href=\"$MAIN_SCRIPT?p=".&Util::url_encode($page->{NAME})."\">".
+ &Util::escapeHTML($page->{NAME})."</a>".
+ " - ".&Util::format_date($page->{TIME})."</li>\n";
+ }
+ print "</ul>\n";
+ &print_footer();
+}
+
+#-------------------------------------------------------------------------------
+# ¥Ú¡¼¥¸¤òɽ¼¨
+#-------------------------------------------------------------------------------
+sub show_page {
+
+ unless(&Wiki::exists_page($in{"p"})){
+ undef %in;
+ $in{"a"} = "edit";
+ require $EDIT_SCRIPT;
+ return;
+ }
+
+ my $source = &Wiki::get_page($in{"p"});
+ my $html = &Wiki::process_wiki($source,1);
+
+ &print_header($in{"p"},1);
+
+ if(&Wiki::exists_page("Header")){
+ print "<div class=\"header\">\n";
+ print &Wiki::process_wiki(&Wiki::get_page("Header"));
+ print "</div>\n";
+ }
+
+ print "<div class=\"day body section\">\n";
+ print $html;
+ print "</div>\n";
+
+ if(&Wiki::exists_page("Footer")){
+ print "<div class=\"comment\">\n";
+ print &Wiki::process_wiki(&Wiki::get_page("Footer"));
+ print "</div>\n";
+ }
+
+ &print_footer();
+}
+
+#-------------------------------------------------------------------------------
+# ¥Ú¡¼¥¸¤Î¸¡º÷
+#-------------------------------------------------------------------------------
+sub search_page {
+
+ &print_header("¸¡º÷");
+ print "<form action=\"$MAIN_SCRIPT\" method=\"GET\">\n";
+ print " ¥¡¼¥ï¡¼¥É <input type=\"text\" name=\"w\" size=\"20\" value=\"".&Util::escapeHTML($in{'w'})."\">\n";
+ print " <input type=\"submit\" value=\" ¸¡ º÷ \">\n";
+ print " <input type=\"hidden\" name=\"a\" value=\"search\">\n";
+ print "</form>\n";
+
+ if($in{'w'} ne ""){
+ my @pages = &Wiki::get_page_list();
+ my $find = 0;
+ print "<ul>\n";
+ foreach my $page (@pages){
+ my $source = $page->{NAME}."\n".&Wiki::get_page($page->{NAME});
+ if(index($source,$in{'w'})!=-1){
+ print " <li><a href=\"$MAIN_SCRIPT?p=".&Util::url_encode($page->{NAME})."\">".&Util::escapeHTML($page->{NAME})."</a></li>\n";
+ $find = 1;
+ }
+ }
+ if($find==0){
+ print "<li>³ºÅö¤¹¤ë¥Ú¡¼¥¸¤Ï¸ºß¤·¤Þ¤»¤ó¡£</li>\n";
+ }
+ print "</ul>\n";
+ }
+
+ &print_footer();
+}
+
OSDN Git Service
