UseModWiki소스수정/매크로모듈화

출력시 치환되는 매크로들을 모듈 파일로 분리

• 매크로를 추가할 때는 해당 매크로 파일만 받아서 설치하면 되고
• 사용하지 않(기를 원하)는 매크로를 제거할 때는 해당 매크로 파일만 삭제하면 되고
• 자신이 기존의 매크로의 동작을 바꾸고 싶을 경우 별도의 매크로 파일을 만드는 것으로도 기존 매크로를 덮어쓰는 것이 가능하게 (따라서, ext 버전이 업데이트되었을 때도 그냥 받아서 덮어쓰면 된다) 하는 것이다.

• 필수 요구 사항: 없음
• 선택 요구 사항: 없음

사용법

• wiki.pl 의 MacroSubst()는 자체 내장된 매크로들(이런 저런 이유로 분리해 낼 수 없는 것들)을 먼저 실행한다.
• 그 다음, wiki.pl 은 ./macros/ 안에 들어 있는 *.pl 파일들의 목록을 보고 (지원할 매크로, 그 매크로의 실제 구현이 들어 있는 파일)쌍의 목록을 만든다. 파일명에서 확장자를 제외한 부분이 매크로가 된다. (예: mysign.pl 은 mysign 매크로)
• 다시 ./mymacros/ 안에 있는 *.pl 파일들의 목록을 보고 매크로 목록을 갱신한다. macros 와 mymacros 양쪽에 동일한 이름의 파일이 있다면 mymacros 쪽의 파일이 목록에 적힌다. 따라서 사용자가 기존 매크로를 덮어쓸 수 있다. 앞으로 ext 버전이 업그레이드되더라도 mymacros 디렉토리는 항상 비어 있는 채로 제공된다.
• 이렇게 마련된 목록에 대해서, 페이지 본문을 보면서 "&__LT__;매크로이름" 또는 "<매크로이름"이 있는지를 검사한다. (예: <mysign, <date, <datetime 등등...)2 해당되는 문자열이 있으면, 그 매크로 파일의 내용을 읽어서 매크로를 실행한다. 즉 해당 페이지를 출력하는 데 필요한 매크로들만 읽어들인다. 따라서 페이지에 사용된 매크로의 종류가 적을 수록 오버헤드가 적다. 그렇지만 대강 시험해 본 바로는 매크로가 전부 wiki.pl 안에 있는 것에 비하면 느려진다. 그래도 무조건 모든 매크로를 읽어 들이는 것보다는 훨씬 낫다. :-)
• 여러 개의 매크로들이 있을 경우 매크로 이름의 알파벳 순서대로 실행된다.
• 자신이 새로운 매크로를 작성하고 싶다면 UseModWiki매크로와, ext 버전에 들어 있는 매크로 파일들의 소스를 참조하라.

• uploadedfiles,comments,longcomments - 매크로 출력에 있는 submit 버튼을 눌렀을 때 별도의 action 이 실행되어야 하는 매크로들. action 을 분리할 수 없기 때문에 매크로만 분리하는 게 의미가 없어 보임
• include 시리즈, noinclude,/noinclude - include 시리즈 매크로가 wiki.pl 곳곳에 들어 있어서 제거할 수 없고, noinclude 는 include 시리즈와 연관된 것이라서 남겼음.
• memo,/memo - MacroMemo 함수를 다른 곳에서 사용한다.
• trackbacksent, trackbackreceived - 역시 MacroMemo 함수를 재사용하고 trackback 관련 action 이 따로 있기 때문에 분리하지 않았음.
• 그외 저장될 때 치환되는 매크로와 템플릿에 사용되는 매크로들 - 차후에 궁리할 예정

부작용

• 기존에는 wiki.pl 에 나열된 순서대로 매크로들이 동작했지만, 이제는 알파벳 순서대로 (예: allpagesfrom, allpagesto, anchor, ..., wikiversion) 실행된다. 즉 두 개 이상의 매크로가 서로 예기치 않은 간섭을 할 수 있다. 사실 순서란게 의미가 없지만, 아예 아무 기준없이 예측불허로 실행되는 것보다는 낫다 싶어서 알파벳 순서로 실행하게 하였다.
• 예전에 새로운 매크로를 만들면서, 매크로 함수(Macro...로 시작하는)내에서 사용하기 위해서 다른 함수를 만든 것들이 있는데, 그런 함수들을 골라내기 힘들어서 분리하지 못했다. 만일 그런 경우에 해당되는 매크로 파일을 지워버릴 경우는 분리하지 못한 함수는 불필요하게 들어간 셈인데... 이건 큰 문제는 되지 않을 듯.

wiki.pl 수정

### 패치를 위해 추가된 환경설정 변수
use vars qw(
    ...
    $MacrosDir $MyMacrosDir
    );
###

### 패치를 위해 추가된 내부 전역 변수
use vars qw(%RevisionTs $FS_lt $FS_gt $StartTime $Sec_Revision $Sec_Ts
    ...        # <-- 이 자리에 있던 $MyFootnoteCounter $MyFootnotes 는 매크로가 분리되면서 그쪽으로 넘어갔다. 삭제
    %MacroFile);
###

sub MacroSubst {
    my ($txt) = @_;

### 분리할 수 없는 매크로 목록
### <UploadedFiles>
    $txt =~ s/(\&__LT__;uploadedfiles\&__GT__;)/&MacroUploadedFiles($1)/gei;
### <comments(숫자)>
    $txt =~ s/(\&__LT__;comments\(([^,]+),([-+]?\d+)\)&__GT__;)/&MacroComments($1,$2,$3)/gei;
### <noinclude> </noinclude> from Jof
    $txt =~ s/\&__LT__;(\/)?noinclude\&__GT__;//gei;
### <longcomments(숫자)>
    $txt =~ s/(\&__LT__;longcomments\(([^,]+),([-+]?\d+)\)&__GT__;)/&MacroComments($1,$2,$3,1)/gei;
### <memo(제목)></memo> from Jof
    $MemoID = 0;
    $txt =~ s/(&__LT__;memo\(([^\n]+?)\)&__GT__;((.)*?)&__LT__;\/memo&__GT__;)/&MacroMemo($1, $2, $3)/geis;
### <trackbacksent> 
    $txt =~ s/(((^|\n)\* .*)*\n?)(&__LT__;trackbacksent&__GT__;)/&MacroTrackbackSent($4,$1)/gei;
    $txt =~ s/(((^|\n)\* .*\n\*\* .*\n\*\* .*)*\n?)(&__LT__;trackbackreceived&__GT__;)/&MacroTrackbackReceived($4,$1)/gei;
###

### 매크로 모듈화
    my $macroname;
    my ($MacrosDir, $MyMacrosDir) = ("./macros/", "./mymacros/");
    foreach my $dir ($MacrosDir, $MyMacrosDir) {
        foreach my $macrofile (glob("$dir/*.pl")) {
            if ($macrofile =~ m|$dir/([^/]*).pl|) {
                $macroname = $1;
                $MacroFile{"$macroname"} = $macrofile;
            }
        }
    }

    foreach my $macro (sort keys %MacroFile) {
        if ($txt =~ /(&__LT__;|<)$macro/i) {
            require "$MacroFile{$macro}";
            $txt = &{\&$macro}($txt);
        }
    }

    return $txt;
}

# 이 시점에서 삭제된 함수들
sub MacroColor { ... }
sub MacroColorBk { ... }
sub MacroFootnote { ... }
sub MacroMyInterest { ... }
sub MacroMostPopular { ... }
sub MacroEDic { ... }
sub MacroKDic { ... }
sub MacroJDic { ... }
sub MacroUserList { ... }
sub MacroWantedPages { ... }
sub MacroOrphanedPages { ... }
sub MacroAllPagesFrom { ... }
sub MacroAllPagesTo { ... }
sub MacroVote { ... }
sub MacroMySign { ... }
sub MacroCalendar { ... }
sub MacroWikiVersion { ... }
sub MacroHistory { ... }
sub MacroGoto { ... }
sub MacroTitleSearch { ... }
sub MacroFullSearch() }
sub MacroDate() { ... }
sub MacroTime() { ... }
sub MacroDateTime() { ... }
sub MacroAnchor() { ... }
sub MacroPageCount() { ... }
sub MacroRandom() { ... }

macros/매크로.pl 파일들 추가

추가 업데이트 내역

사용자 의견