-18,7 +18,7 |
** MostPopular 참조 |
: wiki.pl |
{{{perl |
{{{#!vim perl |
sub MacroSubst { |
... |
### <MostPopular(시작, 갯수)> |
-31,7 +31,7 |
: 다음 함수를 통채로 추가 |
: 아래에 보면 "$#pages ... " 로 된 부분이 # 이후부터 주석인 것처럼 표시되어 있는데.. 주석이 아니니 반드시 입력해 주어야 한다 |
{{{perl |
{{{#!vim perl |
### MostPopular |
sub MacroMostPopular { |
my ($itself, $start, $end) = (@_); |
-43,7 +43,11 |
foreach $page (&AllPagesList()) { |
$countfile = &GetCountFile($page); |
($status, $count) = &ReadFile($countfile); |
$pgcount{$page} = $count if ($status); |
if ($status) { |
$pgcount{$page} = $count; |
} else { |
$pgcount{$page} = 0; |
} |
} |
@pages = sort { |
-82,5 +86,8 |
} |
}}} |
=== Notes === |
패치를 적용한 직후에 한 번도 카운터가 증가하지 않아 카운터 저장 화일이 만들어지지 않은 페이지의 경우 제대로 소팅되지 않는 것을 발견했습니다. 변경내역을 보면서 수정하세요. <mysign([[Raymundo]],2003-4-7 4:44 pm)> |
---- |
[[위키위키분류]] |