改行コードをLFに統一。

[fswiki/fswiki.git] / plugin / recent / Recent.pm

diff --git a/plugin/recent/Recent.pm b/plugin/recent/Recent.pm
index 5368af1..427e2f3 100644 (file)
--- a/plugin/recent/Recent.pm
+++ b/plugin/recent/Recent.pm
@@ -1,80 +1,80 @@
-############################################################\r
-# \r
-# <p>ºÇ¶á¹¹¿·¤µ¤ì¤¿¥Ú¡¼¥¸¤ò°ìÍ÷ɽ¼¨¤·¤Þ¤¹¡£</p>\r
-# <p>°ú¿ô¤Çɽ¼¨·ï¿ô¤ò»ØÄê¤Ç¤­¤Þ¤¹¡£</p>\r
-# <pre>\r
-# {{recent 5}}\r
-# </pre>\r
-# <p>½Ä¤Ëɽ¼¨¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£</p>\r
-# <pre>\r
-# {{recent 5,v}}\r
-# </pre>\r
-# <p>ÆüÉÕ¤´¤È¤Ë°ìÍ÷ɽ¼¨¤¹¤ë¤Ë¤Ïrecentdays¥×¥é¥°¥¤¥ó¤ò»ÈÍѤ·¤Þ¤¹¡£</p>\r
-# \r
-############################################################\r
-package plugin::recent::Recent;\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 $max    = shift;\r
-       my $way    = shift;\r
-       my $cgi    = $wiki->get_CGI;\r
-       \r
-       # ɽ¼¨Êý¼°¤ò·èÄê\r
-       if($way eq ""){\r
-               $way = "H";\r
-       }\r
-       \r
-       if($max eq "V" || $max eq "v"){\r
-               $way = "V";\r
-               $max = 0;\r
-               \r
-       } elsif($max eq "H" || $max eq "h"){\r
-               $way = "H";\r
-               $max = 0;\r
-               \r
-       } elsif($max eq ""){\r
-               $max = 0;\r
-       }\r
-       \r
-       # ɽ¼¨ÆâÍƤòºîÀ®\r
-       my $content = "";\r
-       my $count   = 0;\r
-       foreach my $page ($wiki->get_page_list({-sort   =>'last_modified',\r
-                                               -permit =>'show',\r
-                                               -max    =>$max})){\r
-               \r
-               if($way eq "H" || $way eq "h"){\r
-                       if($count!=0){\r
-                               $content = $content." / ";\r
-                       }\r
-               } else {\r
-                       $content = $content."*";\r
-               }\r
-               \r
-               $content = $content."[[$page]]";\r
-               \r
-               if($way ne "H" && $way ne "h"){\r
-                       $content .= "\n";\r
-               }\r
-               \r
-               $count++;\r
-       }\r
-       \r
-       return $content;\r
-}\r
-\r
-1;\r
+############################################################
+# 
+# <p>ºÇ¶á¹¹¿·¤µ¤ì¤¿¥Ú¡¼¥¸¤ò°ìÍ÷ɽ¼¨¤·¤Þ¤¹¡£</p>
+# <p>°ú¿ô¤Çɽ¼¨·ï¿ô¤ò»ØÄê¤Ç¤­¤Þ¤¹¡£</p>
+# <pre>
+# {{recent 5}}
+# </pre>
+# <p>½Ä¤Ëɽ¼¨¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹¡£</p>
+# <pre>
+# {{recent 5,v}}
+# </pre>
+# <p>ÆüÉÕ¤´¤È¤Ë°ìÍ÷ɽ¼¨¤¹¤ë¤Ë¤Ïrecentdays¥×¥é¥°¥¤¥ó¤ò»ÈÍѤ·¤Þ¤¹¡£</p>
+# 
+############################################################
+package plugin::recent::Recent;
+use strict;
+#===========================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#===========================================================
+sub new {
+       my $class = shift;
+       my $self = {};
+       return bless $self,$class;
+}
+
+#===========================================================
+# ¥Ñ¥é¥°¥é¥Õ¥á¥½¥Ã¥É
+#===========================================================
+sub paragraph {
+       my $self   = shift;
+       my $wiki   = shift;
+       my $max    = shift;
+       my $way    = shift;
+       my $cgi    = $wiki->get_CGI;
+       
+       # ɽ¼¨Êý¼°¤ò·èÄê
+       if($way eq ""){
+               $way = "H";
+       }
+       
+       if($max eq "V" || $max eq "v"){
+               $way = "V";
+               $max = 0;
+               
+       } elsif($max eq "H" || $max eq "h"){
+               $way = "H";
+               $max = 0;
+               
+       } elsif($max eq ""){
+               $max = 0;
+       }
+       
+       # ɽ¼¨ÆâÍƤòºîÀ®
+       my $content = "";
+       my $count   = 0;
+       foreach my $page ($wiki->get_page_list({-sort   =>'last_modified',
+                                               -permit =>'show',
+                                               -max    =>$max})){
+               
+               if($way eq "H" || $way eq "h"){
+                       if($count!=0){
+                               $content = $content." / ";
+                       }
+               } else {
+                       $content = $content."*";
+               }
+               
+               $content = $content."[[$page]]";
+               
+               if($way ne "H" && $way ne "h"){
+                       $content .= "\n";
+               }
+               
+               $count++;
+       }
+       
+       return $content;
+}
+
+1;