UseModWiki소스수정/OrphanedPages매크로

orphanedpages 매크로 추가

• OrphanedPages 를 찾기 위한 매크로

• 필수 요구 사항: 없음
• 선택 요구 사항:
  • /링크를별도의화일로관리 패치를 적용해야 속도 저하를 피할 수 있음

• 사용법 - <orphanedpages([+,-]숫자)>
  • 역링크 페이지 수가 "숫자"개인 페이지들의 목록이 출력된다. 따라서 인자로 0 을 주면 역링크의 갯수가 0 인 OrphanedPages 들이 출력된다.
  • 이 때, 자기 자신을 링크하고 있는 것은 포함하지 않는다. 즉, <orphanedpages(3)> 이라고 했을때 A 라는 페이지가 출력되었다면, 실제 A 페이지의 역링크는 3개일 수도 있고 4개(A 내에 A 가 링크되어 있을 경우)일 수도 있다.
  • 숫자 앞에 별도로 + 또는 - 를 붙일 수 있다. -3 은 "역링크의 갯수가 3개 이하", +4 는 "역링크의 갯수가 4개 이상"인 페이지들의 목록을 출력한다.
• 부작용
  • 매크로 치환을 한 번 할 때마다 전체 페이지 목록을 읽어야 한다. 한 페이지 내에 저 매크로를 두 번 이상 사용하는 것은 바람직하지 못하다. 페이지 수가 1000개 단위로 늘어날 경우 얼마나 느려질지 알 수 없다.
• "GetFullLinkList 함수에 파라메터 사용을 가능하게 함" 패치가 적용되어 있어야 한다.

sub MacroSubst {
    ...
### 다음 라인 추가
    $txt =~ s/\&__LT__;orphanedpages\(([-+])?(\d+)\)\&__GT__;/&MacroOrphanedPages($1, $2)/gei;
###
    return $txt;
}

### 다음 함수를 통채로 추가
sub MacroOrphanedPages {
    my ($less_or_more, $criterion) = @_;
    my (@allPages, $page, $pageline, @pages, $id, @x);
    my %numOfReverse;
    my $txt;

    @allPages = &AllPagesList();

    foreach $page (@allPages) {
        $numOfReverse{$page} = 0;
    }

    foreach $pageline (&GetFullLinkList("exists=1&sort=0")) {
        my @links = split(' ', $pageline);
        my $id = shift(@links);
        my $link;
        foreach $link (@links) {
            $link = (split('/',$id))[0]."$link" if ($link =~ /^\//);
            next if ($id eq $link);
            $numOfReverse{$link}++;
        }
    }

    foreach $page (@allPages) {
        next if (($less_or_more eq "-") && ($numOfReverse{$page} > $criterion));
        next if (($less_or_more eq "+") && ($numOfReverse{$page} < $criterion));
        next if (($less_or_more eq "") && ($numOfReverse{$page} != $criterion));
        $txt .= ".... " if ($page =~ m|/|);
        $txt .= &GetPageLink($page) . "<br>";
    }

    return $txt;
}

Hmm... So, you want to add "finding orphaned pages" feature into your script, right? You don't need any other macros, and you don't need "criterion" parameter either.

Then, I suggest...

• modify "CommonMarkup" subroutine (Following code comes from my modified version, so it may differ from yours)

        s/$ISBNPattern/&StoreISBN($1)/geo;
        s/CD:\s*(\d+)/&StoreHotTrack($1)/geo;
        s/<orphanedpages>/&MacroOrphanedPages()/gei;    # here, or you can choose any appropriate position

• Add "MacroOrphanedPages" subroutine

sub MacroOrphanedPages {
    my ($less_or_more, $criterion) = ("", 0);   # modify this line
    my (@allPages, $page, $pageline);

# the rest of codes are same as the above code
}

Now, you can use <orphanedpages> in your wiki page to print the list.

However, I modified so many lines from the original usemodwiki 0.92. So there may be any other patches that this patch depends on. I'm not sure this patch would work for you.

Yes, it took too long time to find all the links in each pages through the whole text using OpenPage(). So, as you said, usemodkr stores the links in a separate files in DataDir/link, that looks successful. :-)

-- Raymundo 2007-6-8 11:21 am