UseModWiki소스수정/AllPagesTo매크로

allpagesto 매크로 추가

• 특정한 페이지의 역링크 목록을 출력하는 매크로
• 매크로 이름은 애초에 "Links To" 로 하려고 했으나.. WikiX 에서 이미 같은 용도의 매크로가 있기에 같은 이름이 나을 것 같아 "All Pages To"로 정했다.

• 필수 요구 사항:
  • /RemoveLink함수 패치가 적용되어 있어야 한다.
• 선택 요구 사항:
  • /링크를별도의화일로관리 패치를 적용해야 속도 저하를 피할 수 있음

• 사용법 - <allpagesto(페이지이름)>

sub MacroSubst {
    ...
### 추가
    $txt =~ s/\&__LT__;allpagesto\(([^\n]+)\)\&__GT__;/&MacroAllPagesTo($1)/gei;
###
    return $txt;
}

### 함수를 통채로 추가
sub MacroAllPagesTo {
    my ($string) = @_;
    my @x = ();
    my ($pagelines, $pagename, $txt);
    my $pagename;

    $string = &RemoveLink($string);
    $string = &FreeToNormal($string);
    if (&ValidId($string) ne "") {
        return "<allpagesto($string)>";
    }

    foreach $pagelines (&GetFullLinkList("empty=0&sort=1&reverse=$string")) {
        my @pages = split(' ', $pagelines);
        @x = (@x, shift(@pages));
    }

    foreach $pagename (@x) {
        $txt .= ".... "  if ($pagename =~ m|/|);
        $txt .= &GetPageLink($pagename) . "<br>";
    }

    return $txt;
}

1.1. 추가 업데이트 내역

1.2. 사용자 의견

 

foreach $pagename (@x) { 

       &OpenPage($pagename); 

       &OpenDefaultText(); 

 

       if (substr($Text{'text'}, 0, 10) ne '#REDIRECT ') {    

...