-############################################################\r
-#\r
-# ·Ç¼¨Èǥץ饰¥¤¥ó¤Î¥¢¥¯¥·¥ç¥ó¥Ï¥ó¥É¥é¡£\r
-#\r
-############################################################\r
-package plugin::bbs::BBS2Handler;\r
-use strict;\r
-#===========================================================\r
-# ¥³¥ó¥¹¥È¥é¥¯¥¿\r
-#===========================================================\r
-sub new {\r
- my $class = shift;\r
- my $self = {};\r
- return bless $self,$class;\r
-}\r
-\r
-#===========================================================\r
-# µ»ö¤Î½ñ¤¹þ¤ß\r
-#===========================================================\r
-sub do_action {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my $cgi = $wiki->get_CGI;\r
- \r
- my $bbsname = $cgi->param("bbsname");\r
- my $name = $cgi->param("name");\r
- my $subject = $cgi->param("subject");\r
- my $message = $cgi->param("message");\r
- my $page = $cgi->param("page");\r
- my $option = $cgi->param("option");\r
- \r
- if($name eq ""){\r
- $name = "̵̾¤·¤µ¤ó";\r
- } else {\r
- # post_name¤È¤¤¤¦¥¡¼¤Ç¥¯¥Ã¥¡¼¤ò¥»¥Ã¥È¤¹¤ë\r
- my $path = &Util::cookie_path($wiki);\r
- my $cookie = $cgi->cookie(-name=>'post_name',-value=>$name,-expires=>'+1M',-path=>$path);\r
- print "Set-Cookie: ",$cookie->as_string,"\n";\r
- }\r
- \r
- if($subject eq ""){\r
- $subject = "̵Âê";\r
- }\r
- \r
- if($bbsname eq ""){\r
- return $wiki->error("¥Ñ¥é¥á¡¼¥¿¤¬ÉÔÀµ¤Ç¤¹¡£");\r
- }\r
- if($message eq ""){\r
- return $wiki->error("ËÜʸ¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤¡£");\r
- }\r
- \r
- # ¥Õ¥©¡¼¥Þ¥Ã¥È¥×¥é¥°¥¤¥ó¤Ø¤ÎÂбþ\r
- my $format = $wiki->get_edit_format();\r
- $name = $wiki->convert_to_fswiki($name ,$format,1);\r
- $subject = $wiki->convert_to_fswiki($subject,$format,1);\r
- $message = $wiki->convert_to_fswiki($message,$format);\r
- \r
- my $pagename = $self->get_page_name($wiki,$bbsname);\r
- my $content = "!![[$subject|$pagename]] - $name (".&Util::format_date(time()).")\n".\r
- "$message\n";\r
- \r
- # no_comment¥ª¥×¥·¥ç¥ó\r
- if($option eq "no_comment"){\r
- \r
- # reverse_comment¥ª¥×¥·¥ç¥ó\r
- } elsif($option eq "reverse_comment"){\r
- $content .= "{{comment reverse}}\n";\r
- # ¥Ç¥Õ¥©¥ë¥È\r
- } else {\r
- $content .= "{{comment}}\n";\r
- }\r
- $wiki->save_page($pagename,$content);\r
- \r
- # ¸µ¤Î¥Ú¡¼¥¸¤Ë¥ê¥À¥¤¥ì¥¯¥È\r
- $wiki->redirect($pagename);\r
-}\r
-\r
-#===========================================================\r
-# ºîÀ®¤¹¤ë¥Ú¡¼¥¸Ì¾¤ò¼èÆÀ\r
-#===========================================================\r
-sub get_page_name {\r
- my $self = shift;\r
- my $wiki = shift;\r
- my $name = shift;\r
- my $count = 0;\r
- my $qname = quotemeta($name);\r
- foreach my $pagename ($wiki->get_page_list()){\r
- if($pagename =~ /^BBS-$qname\/([0-9]+)$/){\r
- if($count < $1){\r
- $count = $1;\r
- }\r
- }\r
- }\r
- $count++;\r
- return "BBS-$name/$count";\r
-}\r
-\r
-1;\r
+############################################################
+#
+# ·Ç¼¨Èǥץ饰¥¤¥ó¤Î¥¢¥¯¥·¥ç¥ó¥Ï¥ó¥É¥é¡£
+#
+############################################################
+package plugin::bbs::BBS2Handler;
+use strict;
+#===========================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#===========================================================
+sub new {
+ my $class = shift;
+ my $self = {};
+ return bless $self,$class;
+}
+
+#===========================================================
+# µ»ö¤Î½ñ¤¹þ¤ß
+#===========================================================
+sub do_action {
+ my $self = shift;
+ my $wiki = shift;
+ my $cgi = $wiki->get_CGI;
+
+ my $bbsname = $cgi->param("bbsname");
+ my $name = $cgi->param("name");
+ my $subject = $cgi->param("subject");
+ my $message = $cgi->param("message");
+ my $page = $cgi->param("page");
+ my $option = $cgi->param("option");
+
+ if($name eq ""){
+ $name = "̵̾¤·¤µ¤ó";
+ } else {
+ # post_name¤È¤¤¤¦¥¡¼¤Ç¥¯¥Ã¥¡¼¤ò¥»¥Ã¥È¤¹¤ë
+ my $path = &Util::cookie_path($wiki);
+ my $cookie = $cgi->cookie(-name=>'post_name',-value=>$name,-expires=>'+1M',-path=>$path);
+ print "Set-Cookie: ",$cookie->as_string,"\n";
+ }
+
+ if($subject eq ""){
+ $subject = "̵Âê";
+ }
+
+ if($bbsname eq ""){
+ return $wiki->error("¥Ñ¥é¥á¡¼¥¿¤¬ÉÔÀµ¤Ç¤¹¡£");
+ }
+ if($message eq ""){
+ return $wiki->error("ËÜʸ¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤¡£");
+ }
+
+ # ¥Õ¥©¡¼¥Þ¥Ã¥È¥×¥é¥°¥¤¥ó¤Ø¤ÎÂбþ
+ my $format = $wiki->get_edit_format();
+ $name = $wiki->convert_to_fswiki($name ,$format,1);
+ $subject = $wiki->convert_to_fswiki($subject,$format,1);
+ $message = $wiki->convert_to_fswiki($message,$format);
+
+ my $pagename = $self->get_page_name($wiki,$bbsname);
+ my $content = "!![[$subject|$pagename]] - $name (".&Util::format_date(time()).")\n".
+ "$message\n";
+
+ # no_comment¥ª¥×¥·¥ç¥ó
+ if($option eq "no_comment"){
+
+ # reverse_comment¥ª¥×¥·¥ç¥ó
+ } elsif($option eq "reverse_comment"){
+ $content .= "{{comment reverse}}\n";
+ # ¥Ç¥Õ¥©¥ë¥È
+ } else {
+ $content .= "{{comment}}\n";
+ }
+ $wiki->save_page($pagename,$content);
+
+ # ¸µ¤Î¥Ú¡¼¥¸¤Ë¥ê¥À¥¤¥ì¥¯¥È
+ $wiki->redirect($pagename);
+}
+
+#===========================================================
+# ºîÀ®¤¹¤ë¥Ú¡¼¥¸Ì¾¤ò¼èÆÀ
+#===========================================================
+sub get_page_name {
+ my $self = shift;
+ my $wiki = shift;
+ my $name = shift;
+ my $count = 0;
+ my $qname = quotemeta($name);
+ foreach my $pagename ($wiki->get_page_list()){
+ if($pagename =~ /^BBS-$qname\/([0-9]+)$/){
+ if($count < $1){
+ $count = $1;
+ }
+ }
+ }
+ $count++;
+ return "BBS-$name/$count";
+}
+
+1;
OSDN Git Service
