改行コードをLFに統一。

[fswiki/fswiki.git] / plugin / comment / Comment.pm

diff --git a/plugin/comment/Comment.pm b/plugin/comment/Comment.pm
index dc1945f..7dabb87 100644 (file)
--- a/plugin/comment/Comment.pm
+++ b/plugin/comment/Comment.pm
@@ -1,76 +1,76 @@
-############################################################\r
-# \r
-# <p>£±¹Ô¥³¥á¥ó¥È¤ò½ñ¤­¹þ¤à¤¿¤á¤Î¥Õ¥©¡¼¥à¤ò½ÐÎϤ·¤Þ¤¹¡£</p>\r
-# <pre>\r
-# {{comment}}\r
-# </pre>\r
-# <p>\r
-#   Ä̾¥³¥á¥ó¥È¤ÏÅê¹Æ¥Õ¥©¡¼¥à¤Î²¼¤ËÄɲ䵤ì¤Æ¤¤¤­¤Þ¤¹¤¬¡¢\r
-#   ¥ª¥×¥·¥ç¥ó¤Ç¥Õ¥©¡¼¥à¤Î¾å¤Ë¿·Ãå½çɽ¼¨¤¹¤ë¤è¤¦¤Ë¤Ç¤­¤Þ¤¹¡£\r
-# </p>\r
-# <pre>\r
-# {{comment reverse}}\r
-# </pre>\r
-# <p>\r
-#   tail¥ª¥×¥·¥ç¥ó¤ò¤Ä¤±¤ë¤È¥Ú¡¼¥¸¤ÎºÇ¸å¤Ë¥³¥á¥ó¥È¤òÄɲä·¤Þ¤¹¡£\r
-#   ¥Õ¥Ã¥¿¤Ê¤É¤Ëcomment¥×¥é¥°¥¤¥ó¤òÇÛÃÖ¤·¤ÆÁ´¥Ú¡¼¥¸¤Ë¥³¥á¥ó¥È¤ò\r
-#   ¤Ä¤±¤¿¤¤¾ì¹ç¤ËÍ­¸ú¤Ç¤¹¡£\r
-# </p>\r
-# <pre>\r
-# {{comment tail}}\r
-# </pre>\r
-# \r
-############################################################\r
-package plugin::comment::Comment;\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 paragraph {\r
-       my $self = shift;\r
-       my $wiki = shift;\r
-       my $opt  = shift;\r
-       my $cgi  = $wiki->get_CGI;\r
-       \r
-       my $page = $cgi->param("page");\r
-       \r
-       if(!defined($self->{$page})){\r
-               $self->{$page} = 1;\r
-       } else {\r
-               $self->{$page}++;\r
-       }\r
-       \r
-       # ̾Á°¤ò¼èÆÀ\r
-       my $name = $cgi->cookie(-name=>'post_name');\r
-       if($name eq ''){\r
-               my $login = $wiki->get_login_info();\r
-               if(defined($login)){\r
-                       $name = $login->{id};\r
-               }\r
-       }\r
-       \r
-       my $tmpl = HTML::Template->new(filename=>$wiki->config('tmpl_dir')."/comment.tmpl",\r
-                                      die_on_bad_params=>0);\r
-       $tmpl->param(NAME=>$name);\r
-       \r
-       my $buf = "<form method=\"post\" action=\"".$wiki->create_url()."\">\n".\r
-                 $tmpl->output().\r
-                 "<input type=\"hidden\" name=\"action\" value=\"COMMENT\">\n".\r
-                 "<input type=\"hidden\" name=\"page\" value=\"".&Util::escapeHTML($page)."\">\n".\r
-                 "<input type=\"hidden\" name=\"count\" value=\"".$self->{$page}."\">\n".\r
-                 "<input type=\"hidden\" name=\"option\" value=\"".&Util::escapeHTML($opt)."\">\n".\r
-                 "</form>\n";\r
-       \r
-       return $buf;\r
-}\r
-\r
-1;\r
+############################################################
+# 
+# <p>£±¹Ô¥³¥á¥ó¥È¤ò½ñ¤­¹þ¤à¤¿¤á¤Î¥Õ¥©¡¼¥à¤ò½ÐÎϤ·¤Þ¤¹¡£</p>
+# <pre>
+# {{comment}}
+# </pre>
+# <p>
+#   Ä̾¥³¥á¥ó¥È¤ÏÅê¹Æ¥Õ¥©¡¼¥à¤Î²¼¤ËÄɲ䵤ì¤Æ¤¤¤­¤Þ¤¹¤¬¡¢
+#   ¥ª¥×¥·¥ç¥ó¤Ç¥Õ¥©¡¼¥à¤Î¾å¤Ë¿·Ãå½çɽ¼¨¤¹¤ë¤è¤¦¤Ë¤Ç¤­¤Þ¤¹¡£
+# </p>
+# <pre>
+# {{comment reverse}}
+# </pre>
+# <p>
+#   tail¥ª¥×¥·¥ç¥ó¤ò¤Ä¤±¤ë¤È¥Ú¡¼¥¸¤ÎºÇ¸å¤Ë¥³¥á¥ó¥È¤òÄɲä·¤Þ¤¹¡£
+#   ¥Õ¥Ã¥¿¤Ê¤É¤Ëcomment¥×¥é¥°¥¤¥ó¤òÇÛÃÖ¤·¤ÆÁ´¥Ú¡¼¥¸¤Ë¥³¥á¥ó¥È¤ò
+#   ¤Ä¤±¤¿¤¤¾ì¹ç¤ËÍ­¸ú¤Ç¤¹¡£
+# </p>
+# <pre>
+# {{comment tail}}
+# </pre>
+# 
+############################################################
+package plugin::comment::Comment;
+use strict;
+#===========================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#===========================================================
+sub new {
+       my $class = shift;
+       my $self = {};
+       return bless $self,$class;
+}
+
+#===========================================================
+# ¥³¥á¥ó¥È¥Õ¥©¡¼¥à
+#===========================================================
+sub paragraph {
+       my $self = shift;
+       my $wiki = shift;
+       my $opt  = shift;
+       my $cgi  = $wiki->get_CGI;
+       
+       my $page = $cgi->param("page");
+       
+       if(!defined($self->{$page})){
+               $self->{$page} = 1;
+       } else {
+               $self->{$page}++;
+       }
+       
+       # ̾Á°¤ò¼èÆÀ
+       my $name = $cgi->cookie(-name=>'post_name');
+       if($name eq ''){
+               my $login = $wiki->get_login_info();
+               if(defined($login)){
+                       $name = $login->{id};
+               }
+       }
+       
+       my $tmpl = HTML::Template->new(filename=>$wiki->config('tmpl_dir')."/comment.tmpl",
+                                      die_on_bad_params=>0);
+       $tmpl->param(NAME=>$name);
+       
+       my $buf = "<form method=\"post\" action=\"".$wiki->create_url()."\">\n".
+                 $tmpl->output().
+                 "<input type=\"hidden\" name=\"action\" value=\"COMMENT\">\n".
+                 "<input type=\"hidden\" name=\"page\" value=\"".&Util::escapeHTML($page)."\">\n".
+                 "<input type=\"hidden\" name=\"count\" value=\"".$self->{$page}."\">\n".
+                 "<input type=\"hidden\" name=\"option\" value=\"".&Util::escapeHTML($opt)."\">\n".
+                 "</form>\n";
+       
+       return $buf;
+}
+
+1;