UseModWiki소스수정/입력한그대로출력

{{{ }}} 태그 개선 및 SyntaxHighlighting 지원

• 사용자입력을그대로출력하기를 위한 패치

• 부작용: 몇 달 동안 사용하는 도중에 문제가 된 적은 없었다.
  • 기존에 {{{ }}} 태그를 사용했던 페이지들이 제대로 출력되지 않을 수 있으니 점검할 것
  • SyntaxHighlighting 을 많이 사용한 페이지는 경우 로딩 속도가 느려지니 주의

• wiki.pl 수정: 워낙 오래 전에 수정한 데다가 이곳 저곳 두서없이 뜯어고치는 바람에.. 이제 와서 정리하려 해도 엄두가 나지 않는다.. 생략함. :-)

Notes

sub GetPageLinks {
    ...
    $text =~ s/<code>(.|\n)*?\<\/code>/ /ig;
### 다음 두 줄 추가
    $text =~ s/(^|\n)\{\{\{[ \t\r\f]*\n((.|\n)*?)\n\}\}\}[ \t\r\f]*\n/ \n/igm;
    $text =~ s/(^|\n)\{\{\{([a-zA-Z0-9+]+)(\|(n|\d*|n\d+|\d+n))?[ \t\r\f]*\n((.|\n)*?)\n\}\}\}[ \t\r\f]*\n/ \n/igm;
### 여기까지
    if ($interlink) {
        $text =~ s/''+/ /g;  # Quotes can adjacent to inter-site links
    ...
}

source-highlight 유틸리티가 지원하는 언어 목록을 해쉬변수에 담아서 사용했었는데, 너무도 직관적이지 않은 형태가 되어서... SRCHIGHLANG 환경변수를 배열로 지정하고 실제로 호출될 때 루프를 돌면서 지원 언어 목록을 검색하도록 수정하였다. 다음과 같이 수정한다.

config.pl 에서는

### source-highlight 의 경로명
$SOURCEHIGHLIGHT    = "/usr/local/bin/source-highlight";    # path of source-highlight
### source-highlight 에서 옵션으로 줄 수 있는 언어 목록을 아래와 같이 배열로 지정한다.
@SRCHIGHLANG = qw(cpp java prolog perl php3 python flex changeelog);

wiki.pl 에서는

###############
### added by gypark
### 패치를 위해 추가된 환경설정 변수
use vars qw(
    $UserGotoBar $UserGotoBar2 $UserGotoBar3 $UserGotoBar4
    $ConfigFile $SOURCEHIGHLIGHT @SRCHIGHLANG $LinkFirstChar   # %SRCHIGHLANG 을 @SRCHIGHLANG 으로 바꾼다.
    $EditGuideInExtern $SizeTopFrame $SizeBottomFrame
    $LogoPage $CheckTime $LinkDir $IconDir
    );
###
###############

sub StoreSyntaxHighlight {
    my ($lang, $opt , @code) = @_;

    my %LANG;                    # 추가
    foreach (@SRCHIGHLANG) {     # 추가
        $LANG{$_} = "1";         # 추가
    }                            # 추가

    if (!((-x "$SOURCEHIGHLIGHT") && defined($LANG{$lang}))) {  # 수정
        return &StoreCodeRaw(@code);
    }
    ... 이하 이전과 동일 ...
}

추가 업데이트 내역

3524,3528c3524,3530
< # source-highlight 출력물 앞뒤의 pre 태그와 tt 태그를 뺀다
<   shift @html;
<   shift @html;
<   pop @html;
<   pop @html;
---
> # source-highlight 출력물 앞뒤의 버전정보, pre 태그, tt 태그를 뺀다
>   my $html = join($FS1, @html);
>   $html =~ s/^<!-- Generator: GNU source-highlight.*?-->//s;
>   $html =~ s/^.*?<pre>.*?<tt>//s;
>   $html =~ s/<\/tt>.*?<\/pre>(\r?\n)*$//s;
>   $html =~ s/(\r?\n)*?$//s;
>   @html = split(/$FS1/, $html);

사용자 의견