UseModWiki소스수정/WantedPages매크로

wantedpages 매크로 추가

• 링크만 있고 내용은 아직 없는 WantedPages 를 찾기 위한 매크로

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

• 사용법 - <wantedpages>
  • 목록의 각 라인에는 페이지 이름이 나오고, 이름 오른쪽에는 괄호 안에 숫자가 나온다. 이 숫자는 그 페이지가 몇 개의 페이지에서 링크를 하고 있는지를 나타낸다. 숫자를 클릭하면 그 페이지들의 목록을 볼 수 있다.

sub MacroSubst {
    ...
### 다음 라인 추가
    $txt =~ s/\&__LT__;wantedpages\&__GT__;/&MacroWantedPages()/gei;
###
    return $txt;
}

### 다음 함수를 통채로 추가
sub MacroWantedPages {
    my ($pageline, @found, $page);
    my %numOfReverse;
    my $txt;

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

    foreach $page (@found) {
        $txt .= ".... " if ($page =~ m|/|);
        $txt .= &GetPageOrEditLink($page, $page) . " ("
            . &ScriptLink("action=links&editlink=1&empty=0&reverse=$page", $numOfReverse{$page})
            . ")<br>";
    }

    return $txt;
}

Notes

#           . &ScriptLink("action=links&editlink=1&reverse=$page", $numOfReverse{$page})
            . &ScriptLink("action=links&editlink=1&empty=0reverse=$page", $numOfReverse{$page})