UseModWiki소스수정/Comments와Thread매크로개선

1. comments 매크로, thread 매크로 개선

1.1. 사용법:

1.2. 부작용

1.3. wiki.pl 수정

1.4. action/comments.pl 수정

1.5. macros/thread.pl 수정

1.6. 추가 업데이트 내역

1.7. 사용자 의견

1. comments 매크로, thread 매크로 개선

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

1.1. 사용법:

• 괄호 안 파라메터에 페이지 이름을 적어주지 않아도 되고, 나머지 파라메터만 적어주면 된다.
• 페이지 이름을 쓴 것도 인식하므로 기존에 작성한 매크로를 찾아서 고칠 필요는 없다.

1.2. 부작용

• 개선된 방식의 경우 : 현재 페이지에 있는, id가 "1234"고, 들여쓰기가 "5"칸인 "답글 달기" 매크로
• 기존의 방식의 경우 : "1234"라는 페이지에 있는, id가 "5"고, 들여쓰기가 지정되지 않은 "새 글 쓰기" 매크로

• 상단 검색창에 "thread\(\d+,\d+\)"라고 검색을 하면 파라메터가 두 개의 숫자로 되어 있는 thread 매크로를 찾을 수 있으니, 이 패치 적용 직후에 확인해 보기를 권장함

1.3. wiki.pl 수정

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

### <UploadedFiles>
    $txt =~ s/(\&__LT__;uploadedfiles\&__GT__;)/&MacroUploadedFiles($1)/gei;
### <comments(숫자)>
# 추가
    # 페이지 이름을 쓰지 않음
    $txt =~ s/(&__LT__;(long)?comments\()([-+]?\d+)(\)&__GT__;)/$1$pageid,$3$4/gi;

    $txt =~ s/(\&__LT__;comments\(([^,]+),([-+]?\d+)\)&__GT__;)/&MacroComments($1,$2,$3)/gei;
### <noinclude> </noinclude> from Jof
    ...
}

sub MacroInclude {
    ...
    my %SubSection = split(/$FS2/, $SubPage{"text_default"}, -1);
    my %TextInclude = split(/$FS3/, $SubSection{'data'}, -1);
# 여기서부터 아래부분을 고쳐 줌
    my $txt = $TextInclude{'text'};

    # includenotoc 의 경우
    $txt =~ s/<toc>/$FS_lt."toc".$FS_gt/gei if ($opt eq "notoc");
    # noinclude 처리 from Jof
    $txt =~ s/<noinclude>(.)*?<\/noinclude>//igs;

    # comments 시리즈의 경우 페이지 아이디를 추가해줌
    $txt =~ s/(<(long)?comments\()([-+]?\d+)(\)>)/$1$name,$3$4/gi;
    $txt =~ s/(<thread\()([-+]?\d+(,\d+)?)(\)>)/$1$name,$2$4/gi;

    return $txt;
}

### 글을 작성한 직후에 수행되는 매크로들
sub ProcessPostMacro {
    my ($string, $id) = @_;

    ### 여기에 사용할 매크로들을 나열한다
    $string = &PostMacroMySign($string);
    ### 이 자리에 있던 if() 구문을 삭제
    return $string;
}

1.4. action/comments.pl 수정

sub action_comments {
    ...

        if (($abs_up >= 100) && ($abs_up <= $threshold2)) { # 커멘트 권한 상속
            $newup = $Now - $threshold2;
        } else {
            $newup = $Now;
        }

# 수정
        $comment_tail = "<thread($newup," . ($threadindent+1) . ")>";

        if ($threadindent >= 1) {
            for (1 .. $threadindent) {
                $comment_head .= ":";
            }
            $comment_head .= " ";
        } else {    # 새글
#           $comment_head = "<thread>\n";
#           $comment_tail .= "\n</thread>";
        }

# 추가
        my $thread_pattern = "\\<thread\\($id,$up(,\\d+)?\\)\\>|\\<thread\\($up(,\\d+)?\\)\\>";

        if (($up > 0) && ($up < $threshold1)) {     # 위로 달리는 새글
# 수정
            $string =~ s/($thread_pattern)/$comment_head$newcomments <mysign($name,$timestamp)>\n$comment_tail\n\n$1/;
        } else {                                    # 리플 or 아래로 달리는 새글
# 수정
            $string =~ s/($thread_pattern)/$1\n\n$comment_head$newcomments <mysign($name,$timestamp)>\n$comment_tail/;
        }
    } elsif ($long) {               # longcomments
        $newcomments =~ s/^\s*//g;
        $newcomments =~ s/\s*$//g;
        $newcomments =~ s/(\n)\s*(\r?\n)/$1$2/g;
        $newcomments =~ s/(\r?\n)/ \\\\$1/g;
# 추가
        my $longcomments_pattern = "\\<longcomments\\($id,$up\\)\\>|\\<longcomments\\($up\\)\\>";

        if ($up > 0) {
# 수정
            $string =~ s/($longcomments_pattern)/\n$newcomments <mysign($name,$timestamp)>\n$1/;
        } else {
# 수정
            $string =~ s/($longcomments_pattern)/$1\n$newcomments <mysign($name,$timestamp)>\n/;
        }
    } else {                        # comments
        $newcomments =~ s/(----+)/<nowiki>$1<\/nowiki>/g;
# 추가
        my $comments_pattern = "\\<comments\\($id,$up\\)\\>|\\<comments\\($up\\)\\>";
        if ($up > 0) {
# 수정
            $string =~ s/($comments_pattern)/* ''' $name ''' : $newcomments - <small>$timestamp<\/small>\n$1/;
        } else {
# 수정
            $string =~ s/($comments_pattern)/$1\n* ''' $name ''' : $newcomments - <small>$timestamp<\/small>/;
        }
    }

    if (((!&UserCanEdit($id,1)) && (($abs_up < 100) || ($abs_up > $threshold2))) || (&UserIsBanned())) {        # 에디트 불가
        $pageid = "";
    }

    ...
}

1.5. macros/thread.pl 수정

sub thread {
    my ($txt) = @_;
# 추가
    # 페이지 이름을 쓰지 않음
    $txt =~ s/(&__LT__;thread\()([-+]?\d+(,\d+)?)(\)&__GT__;)/$1$pageid,$2$4/gi;

    $txt =~ s/(&__LT__;thread\(([^,]+),([-+]?\d+),(\d+)\)&__GT__;)/&MacroThread($1,$2,$3,1,$4)/gei;
    $txt =~ s/(&__LT__;thread\(([^,]+),([-+]?\d+)\)&__GT__;)/&MacroThread($1,$2,$3,1,0)/gei;
    $txt =~ s/(&__LT__;thread&__GT__;((.)*?)&__LT__;\/thread&__GT__;)/&MacroThreadBlock($2)/geis;

    return $txt;
}

1.6. 추가 업데이트 내역

1.7. 사용자 의견