UseModWiki소스수정/UserList매크로

userlist 매크로 추가

• 현재 존재하는 아이디 목록을 출력한다.
• 사용법 - <userlist>
• Bab2 님의 패치를 함수 이름만 바꿔서 적용

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

### 다음 함수를 통채로 추가
sub MacroUserList {
    my (@userlist, $result);
    my $usernumber;
    opendir(USERLIST, $UserDir);
    @userlist = readdir(USERLIST);
    close(USERLIST);
    shift @userlist;
    shift @userlist;
    @userlist = sort @userlist;
    foreach $usernumber (0..(@userlist-1)) {
        @userlist[$usernumber] =~ s/(.*)\.db/($1)/gei;
        @userlist[$usernumber] = &StorePageOrEditLink("@userlist[$usernumber]", "@userlist[$usernumber]") . "<br>";
    }

    $result = "@userlist";

    return $result;
}