1 번째 수정본 소스 보기 : UseModWiki소스수정/UTF-8트랙백받기

내용출력

로그인[l]

수정할 수 없습니다: UseModWiki소스수정/UTF-8트랙백받기 는 읽기 전용 페이지입니다.

<toc>

== # UTF-8 트랙백 받기 ==
다른 사이트로부터 UTF-8로 인코딩되어 있는 트랙백을 받았을 때 EUC-KR로 변환하여서 삽입해 준다. [[조프]]님이 알려 준 코드를 그대로 사용.

태터툴즈 1.1.0.1과 이글루스(2006년12월10일 현재)에서 보내어 봤는데 잘 동작하는 것 같다. :-)

* 필수 요구 사항:
** Encode 라는 펄 모듈이 있던가
** Text::Iconv 라는 펄 모듈이 있어야 한다.
* 선택 요구 사항:

=== # 사용법 ===

=== # 부작용 ===

=== # wiki.pl 수정 ===
다음 함수를 통채로 추가

{{{#!vim perl
# UTF-8 -> EUC-KR
sub encode_korean {
    my ($str, $from, $to) = @_;

    eval { require Encode; };
    unless($@) {
        $str = Encode::encode($to, Encode::decode($from, $str));
    } else {
        eval { require Text::Iconv; };
        unless($@) {
            my $converter = Text::Iconv->new($from, $to);
            $str = $converter->convert($str);
        }
    }
    return $str;
}
}}}

=== # action/trackback.pl 수정 ===

{{{#!vim perl
    ...
    my $blog_name = &GetParam('blog_name');
    my $excerpt = &GetParam('excerpt');

# UTF-8 -> EUC-KR 전환 (이 단락 추가)
    if ($ENV{'CONTENT_TYPE'} and ($ENV{'CONTENT_TYPE'} =~ m/utf-8/i)) {
        $title = encode_korean($title, 'utf-8', 'euc-kr');
        $blog_name = encode_korean($blog_name, 'utf-8', 'euc-kr');
        $excerpt = encode_korean($excerpt, 'utf-8', 'euc-kr');
    }
    ...
}}}

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

=== # 사용자 의견 ===
<longcomments(100)>
----
[[위키위키분류]]

UseModWiki소스수정/UTF-8트랙백받기 페이지로 돌아가기 | 다른 수정본 보기