UseModWiki소스수정/UTF-8트랙백받기

1. UTF-8 트랙백 받기

1.1. 사용법

1.2. 부작용

1.3. wiki.pl 수정

1.4. action/tb.pl 수정

1.5. 추가 업데이트 내역

1.6. 사용자 의견

1. UTF-8 트랙백 받기

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

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

1.1. 사용법

1.2. 부작용

1.3. wiki.pl 수정

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

1.4. action/tb.pl 수정

    ...
    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');
    }
    ...

1.5. 추가 업데이트 내역

1.6. 사용자 의견