改行コードをLFに統一。

[fswiki/fswiki.git] / plugin / access / AccessDays.pm

diff --git a/plugin/access/AccessDays.pm b/plugin/access/AccessDays.pm
index 5d85c13..7a3d9e7 100644 (file)
--- a/plugin/access/AccessDays.pm
+++ b/plugin/access/AccessDays.pm
@@ -1,88 +1,88 @@
-###############################################################################\r
-# \r
-# <p>¥¢¥¯¥»¥¹¿ô¤Î¿¤¤½ç¤Ë¥Ú¡¼¥¸Ì¾¤òÆüËèx·ïɽ¼¨¤·¤Þ¤¹¡£</p>\r
-# <p>°ú¿ô¤Çɽ¼¨·ï¿ô¤ò»ØÄê¤Ç¤­¤Þ¤¹¡£</p>\r
-# <pre>\r
-# {{accessdays 5(¾å°Ìx·ï},5(yÆüʬ)}}\r
-# </pre>\r
-# <p>¥Ç¥Õ¥©¥ë¥È¤Ï5·ï,5Æü¤Ç¤¹¡£</p>\r
-# \r
-###############################################################################\r
-package plugin::access::AccessDays;\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 $maxrank = shift;\r
-       my $maxdays = shift;\r
-       my $access  = {};\r
-       my $buf     = "";\r
-\r
-       if($maxrank eq ""){\r
-           $maxrank = 5;\r
-       }\r
-\r
-       if($maxdays eq ""){\r
-           $maxdays = 5;\r
-       }\r
-\r
-       open(LOG,$wiki->config('log_dir')."/".$wiki->config('access_log_file')) or return "";\r
-\r
-       while(my $line=<LOG>){\r
-               chomp $line;\r
-               my ($page,$date) = split(/ /,$line);\r
-               ($date =~ m|\d{4}/\d{2}/\d{2}|o) or next;\r
-               $access->{$date}={} unless defined($access->{$date});\r
-               $page = Util::url_decode($page);\r
-               $access->{$date}->{$page}++;\r
-       }\r
-       close(LOG);\r
-       \r
-       my @days = keys(%{$access});\r
-\r
-       @days = sort {\r
-           return $b cmp $a;\r
-       } @days;\r
-       \r
-       foreach my $day (@days){\r
-               my $tmpday = $day;\r
-               # recentdays¤ÈƱ¤¸ÆüÉÕ·Á¼°¤Ë\r
-               $tmpday =~ s/\/0/\//g; \r
-               $buf .= "'''$tmpday'''\n";\r
-               my @pages = keys(%{$access->{$day}});\r
-               @pages = sort {\r
-                       my $count1=$access->{$day}->{$a};\r
-                       my $count2=$access->{$day}->{$b};\r
-                       return $count2 <=> $count1;\r
-               }@pages;\r
-               \r
-               my $rank = $maxrank;\r
-               foreach my $page (@pages){\r
-                       # ºï½ü¤µ¤ì¤¿¥Ú¡¼¥¸¤È»²¾È¸¢¸Â¤Î¤Ê¤¤¥Ú¡¼¥¸¤ò¾Ê¤¯\r
-                       next if (!$wiki->page_exists($page) || !$wiki->can_show($page));\r
-                       my $pagecount = $access->{$day}->{$page};\r
-                       $buf .= "*[[$page]]($pagecount)\n";\r
-                       $rank--;\r
-                       last unless $rank;\r
-               }\r
-               \r
-               $maxdays--;\r
-               last unless $maxdays;\r
-       }\r
-       \r
-       return $buf;\r
-}\r
-\r
-1;\r
+###############################################################################
+# 
+# <p>¥¢¥¯¥»¥¹¿ô¤Î¿¤¤½ç¤Ë¥Ú¡¼¥¸Ì¾¤òÆüËèx·ïɽ¼¨¤·¤Þ¤¹¡£</p>
+# <p>°ú¿ô¤Çɽ¼¨·ï¿ô¤ò»ØÄê¤Ç¤­¤Þ¤¹¡£</p>
+# <pre>
+# {{accessdays 5(¾å°Ìx·ï},5(yÆüʬ)}}
+# </pre>
+# <p>¥Ç¥Õ¥©¥ë¥È¤Ï5·ï,5Æü¤Ç¤¹¡£</p>
+# 
+###############################################################################
+package plugin::access::AccessDays;
+use strict;
+#==============================================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#==============================================================================
+sub new {
+       my $class = shift;
+       my $self = {};
+       return bless $self,$class;
+}
+
+#==============================================================================
+# ¥Ñ¥é¥°¥é¥Õ´Ø¿ô
+#==============================================================================
+sub paragraph {
+       my $self    = shift;
+       my $wiki    = shift;
+       my $maxrank = shift;
+       my $maxdays = shift;
+       my $access  = {};
+       my $buf     = "";
+
+       if($maxrank eq ""){
+           $maxrank = 5;
+       }
+
+       if($maxdays eq ""){
+           $maxdays = 5;
+       }
+
+       open(LOG,$wiki->config('log_dir')."/".$wiki->config('access_log_file')) or return "";
+
+       while(my $line=<LOG>){
+               chomp $line;
+               my ($page,$date) = split(/ /,$line);
+               ($date =~ m|\d{4}/\d{2}/\d{2}|o) or next;
+               $access->{$date}={} unless defined($access->{$date});
+               $page = Util::url_decode($page);
+               $access->{$date}->{$page}++;
+       }
+       close(LOG);
+       
+       my @days = keys(%{$access});
+
+       @days = sort {
+           return $b cmp $a;
+       } @days;
+       
+       foreach my $day (@days){
+               my $tmpday = $day;
+               # recentdays¤ÈƱ¤¸ÆüÉÕ·Á¼°¤Ë
+               $tmpday =~ s/\/0/\//g; 
+               $buf .= "'''$tmpday'''\n";
+               my @pages = keys(%{$access->{$day}});
+               @pages = sort {
+                       my $count1=$access->{$day}->{$a};
+                       my $count2=$access->{$day}->{$b};
+                       return $count2 <=> $count1;
+               }@pages;
+               
+               my $rank = $maxrank;
+               foreach my $page (@pages){
+                       # ºï½ü¤µ¤ì¤¿¥Ú¡¼¥¸¤È»²¾È¸¢¸Â¤Î¤Ê¤¤¥Ú¡¼¥¸¤ò¾Ê¤¯
+                       next if (!$wiki->page_exists($page) || !$wiki->can_show($page));
+                       my $pagecount = $access->{$day}->{$page};
+                       $buf .= "*[[$page]]($pagecount)\n";
+                       $rank--;
+                       last unless $rank;
+               }
+               
+               $maxdays--;
+               last unless $maxdays;
+       }
+       
+       return $buf;
+}
+
+1;