UseModWiki소스수정/WikiVersion매크로

<wikiversion> 매크로 추가 (optional)

• wiki.pl?action=version 으로 위키소스의 버전을 볼 수 있는데, 이 때 나오는 버전 정보가 hard coding 되어 있는 게 보기 싫어서... 버전 정보를 담고 있는 변수를 따로 사용하도록 함
• 겸사겸사, 현재 소스 버전을 출력할 수 있는 매크로 <wikiversion> 도 추가함.

...
package UseModWiki;
use strict;
### 소스 제일 첫부분에 다음 라인들을 추가
use vars qw($WikiVersion $WikiRelease);
$WikiVersion = "0.92K3-ext1";
$WikiRelease = "2002-11-24";
###
local $| = 1;  # Do not buffer output (localized for mod_perl)
...

• 버전명이 딱히 생각나지 않아서... 1'st extended 를 뜻하는 ext1 을 뒤에 붙였다. -_-;

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

### 다음 함수를 적절한 곳에 추가
sub MacroWikiVersion {
    return &ScriptLink("action=version", $WikiVersion);
}

sub DoShowVersion {
    print &GetHeader("", T('Displaying Wiki Version'), "");
### 다음 라인을 교체
#   print "<p>UseModWiki version 0.92K2<p>\n";
    print "<p>UseModWiki version $WikiVersion ($WikiRelease)<p>\n";
###
    print &GetCommonFooter();
}