3 번째 수정본 소스 보기 : UseModWiki소스수정/ShowInterMap매크로

내용출력

로그인[l]

수정할 수 없습니다: UseModWiki소스수정/ShowInterMap매크로 는 읽기 전용 페이지입니다.

<toc>

== # <showintermap> 매크로 ==
제목 그대로, 위키 디렉토리에 설치되어 있는 intermap 파일을 출력하는 매크로.

(장기적으로는, intermap 파일을 계정에 텍스트 파일로 둘 것이 아니라, 위키 페이지를 이용하여 여러 사람이 같이 수정할 수 있게 하는 게 낫지 않을까 함.)

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

=== # 사용법 ===
그냥 <showintermap> 하면 intermap 파일을 읽어서 출력하는데, URL뒤에 이미지경로가 있을 경우 ([[/인터위키아이콘표시]]) 이미지경로는 텍스트 대신에 해당하는 이미지를 표시하게 하였다.

=== # 부작용 ===
없음.

=== # macros/showintermap.pl 추가 ===
{{{#!vim perl
# <showintermap>
# intermap 파일의 내용을 출력함

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

    $txt =~ s/&__LT__;showintermap&__GT__;/&MacroShowInterMap()/gei;

    return $txt;
}

sub MacroShowInterMap() {
    my ($status, $data) = &ReadFile($InterFile);

    if ($status) {
        $data =~ s/(#.*)/&StoreRaw("<SPAN style='color: blue;'>$1<\/SPAN>")/ge;
        $data =~ s/\|([^\|\n]+\.$ImageExtensions)/ <IMG class='inter' src='$InterIconDir\/$1' alt='$1'>/g;
        $data =~ s/\|([^\|\n]+)/ <SPAN style='color: green;'>$1<\/SPAN>/g;
        $data =~ s/\|//g;
        $data = &RestoreSavedText($data);
    } else {
        $data = "Can't read intermap file";
    }

    return &StoreRaw("<PRE class='code'>\n".$data."</PRE>");
}

1;
}}}

=== # 추가 업데이트 내역 ===

ext1.111
* [[/InterMap에인코딩지정]] 패치가 생겨서, 인코딩 옵션 부분은 초록색으로 출력하게 함
* intermap에 있는 주석 부분을 파란색으로 출력하게 함
=== # 사용자 의견 ===
<longcomments(100)>
----
[[위키위키분류]]

UseModWiki소스수정/ShowInterMap매크로 페이지로 돌아가기 | 다른 수정본 보기