[첫화면으로]UseModWiki소스수정/ShowInterMap매크로

마지막으로 [b]

1. <showintermap> 매크로
1.1. 사용법
1.2. 부작용
1.3. macros/showintermap.pl 추가
1.4. 추가 업데이트 내역
1.5. 사용자 의견

1. <showintermap> 매크로

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

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

1.1. 사용법

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

사용한 결과는 InterMap 페이지를 참조

1.2. 부작용

없음.

1.3. macros/showintermap.pl 추가

# <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;

1.4. 추가 업데이트 내역

ext1.111

1.5. 사용자 의견

이름:  
Homepage:
내용:
 

위키위키분류

마지막 편집일: 2007-2-11 9:15 pm (변경사항 [d])
1030 hits | Permalink | 변경내역 보기 [h] | 페이지 소스 보기