UseModWiki소스수정/TrackBack 페이지의 소스 보기

내용출력
로그인[l]
수정할 수 없습니다: UseModWiki소스수정/TrackBack 는 읽기 전용 페이지입니다.
= (삭제됨) =

<toc>

== # TrackBack ==
여러 블로그 툴이 제공하는 TrackBack 기능을 추가

* 필수 요구 사항:
** 펄 모듈 Net::Trackback 과 그 하위 모듈들이 필요하다. [http://search.cpan.org/~tima/Net-Trackback-0.992/ 여기]에서 다운받아 재주껏 설치한다. 아마 이것을 설치하기 위해서는 다시 LWP 모듈 등이 필요할 것이다. 관리자를 졸라 시스템에 설치를 하던가, [[Perl/모듈설치]]를 참조하여 자신의 계정에 설치를 한다.
** [[/Comments매크로]]에서 사용했던 DoPostMain 을 다시 사용하므로 이 패치가 이미 적용되어 있어야 한다.
** [[/Memo매크로]] 패치가 되어 있어야 한다.
* 선택 요구 사항:
** [[/등록금지단어]] 페이지에 있는 패치도 적용할 것

== # 사용법 ==
=== # TrackBack 보내기 (UseModWiki로부터 다른 블로그나 위키로) ===
* 각 페이지 하단, 편집 가이드 위에 트랙백을 보낼 타겟 주소를 입력하는 창과 버튼이 표시된다. \\
Upload:sendpingform2.png 
* 블로그의 경우 블로그 주인만이 트랙백을 보내는 것이 당연하지만, [[위키위키]]의 특성상 홈페이지 주인이 아닌 다른 사람이 위키 페이지의 트랙백을 다른 곳으로 보내도록 허용할 필요가 있다. 따라서 이 허가권은 다음 환경변수를 사용하여 지정한다.
** [[UseModWiki소스수정/Configuration]]에 다음 변수를 추가한다.
{{{#!vim perl
$SendPingAllowed = 0;   # 0 - anyone, 1 - who can edit, 2 - who is admin
}}}
*** 0이면 아무나 어떤 페이지의 트랙백이든 보낼 수 있다. (즉 트랙백 주소 입력폼이 보인다)
*** 1이면 자신이 수정할 수 있는 페이지의 트랙백만 보낼 수 있다. 이것은 환경설정 파일의 EditAllowed의 값과 사용자 환경설정의 editor 권한, 또 관리자에 의한 페이지 잠금 등 다양한 조건이 적용된다. 
*** 2면 오직 관리자 권한이 있는 사람만이 트랙백을 보낼 수 있다.
* 트랙백을 보낼 때는 각 항목의 값이 다음과 같이 들어간다.
** url : 그 페이지의 full URL
** blog_name : 환경설정파일의 SiteName 변수의 값
** title : 페이지 이름
** excerpt : 페이지 본문의 처음 252 글자 (영문기준)
* 트랙백 핑 보내기에 성공 또는 실패했음을 알려주는 결과 화면이 뜬다. 
** 성공하면 (리턴 코드 0) 성공 메시지 출력
** 리턴 코드가 1일 경우는 HTTP 요청은 제대로 이뤄졌으나 요청 데이타에 오류가 있다던가 상대방 블로그 쪽에 문제가 있어서 상대방 쪽에서 에러를 보낸 경우
** 리턴 코드가 404 등일 경우는 HTTP 요청 자체가 성공하지 못한 경우 (URL 이 올바르지 않다던가 등)
** 원칙적으로는 에러코드 옆에 에러 메시지까지 떠야 하나, Net::Trackback 모듈의 문제인지 에러 메시지를 제대로 가져오지 못하고 있다. 일단 [http://rt.cpan.org/NoAuth/Bugs.html?Dist=Net-Trackback 버그리포트]를 해 둔 상태이고, 현재 GyparkWiki 에서는 서버에 있는 펄 모듈 자체를 고치는 만행을 저질렀기 때문에 메시지가 나오긴 한다. (대신 무슨 부작용이 있을지..)
* 트랙백을 보낼 때, 트랙백URL 외에 별도로 Permalink URL (한글로는 "해당 글의 URL")을 줄 수 있다. 이것은 아래 "보낸 트랙백 목록"에서 사용된다.

=== # 보낸 트랙백 목록 - <trackbacksent> 매크로 ===
* 트랙백을 보낼 경우 자기가 어디어디에 보냈는지 로그를 남기고 싶을 수 있다. 따라서 [[/TrackBackSent매크로]]를 제공한다.
** 사용법: <trackbacksent> 
* 어떤 페이지의 트랙백 핑을 성공적으로 보냈을 때, 그 페이지에 이 매크로가 있을 경우 이 매크로 바로 위에 다음과 같은 형식으로 내용을 추가하여 페이지를 저장한다. 즉 자동으로 페이지가 수정된다. 
{{{
* 날짜 시간 | 트랙백 핑을 보낸 트랙백URL
또는 트랙백을 보낼때 Permalink URL 을 입력했다면
* 날짜 시간 | 트랙백 핑을 보낸 게시물의 Permalink URL
}}}
** "*"로 시작하기 때문에 자동으로 리스트가 되며, 시간순으로 배열된다. [[/Comments매크로]]와 유사하다.
** 페이지가 수정되면서 summary 에는 트랙백을 보냈다는 메시지가 삽입된다.
* 페이지를 표시할 때는 이 매크로는 현재 목록에 있는 보낸 트랙백들의 갯수를 출력하며, [[/Memo매크로]]와 동일하게 목록 내용을 감춘다. 
** 즉, 다음과 같은 경우
{{{
* 보낸 트랙백 1
* 보낸 트랙백 2
* 보낸 트랙백 3
<trackbacksent>
}}}
** 아래와 같이 출력된다.
<memo(보낸 트랙백 [3])>
* 보낸 트랙백 1
* 보낸 트랙백 2
* 보낸 트랙백 3
</memo>
** 트랙백 목록 바로 위에 "* "로 시작하는 줄이 있으면 갯수에 포함되어 버리니 주의
* 일관성 측면에서 약간의 문제점이 있는데, 이 매크로가 없는 페이지의 경우는 트랙백을 보내도 페이지에 수정되는 사항이 없기 때문에 결과적으로 [[최근변경내역]]에 표시되지 않는다. 뭐, 별 수 없다고 생각함.

=== # 트랙백 보내기 테스트 결과 ===
* 태터툴즈 : 본문 앞부분의 내용이 그대로 전달됨
* pMachine : 본문에서 부등호로 둘러쌓인 부분이 사라져 버린다. <lt; 와 >gt; 로 치환해서 보냈는데 사라지는 이유를 모르겠음.
* IRiS ell: 2.11b by http://nvyu.net/ : 오직 POST 로 날아온 요청만 처리하게 되어 있는데, 위키 쪽에서는 트랙백URL에 "?"가 포함되어 있으면 GET 으로 보내 버린다. (현재 트랙백 스펙상에서는 GET 을 더 이상 지원하지 않는다고 하였으므로, 안 받아줘도 할 말 없다 -_-;) 그래서 전달이 안 됨.
* [http://www.blogin.com/ 블로그인] : pMachine 과 마찬가지로 부등호로 둘러쌓인 부분은 사라진다. 다른 곳들과 달리 줄바꿈문자가 <br> 로 처리되어 줄바꿈이 적용된다.
* [http://www.egloos.com/ 이글루스] : 부등호로 둘러쌓인 부분은 사라짐 (어차피 태그로 인식되어 안 보일 수 있다고 일부러 빼어 버리는건가?

=== # TrackBack 받기 (다른 블로그나 위키로부터 UseModWiki로) ===
기본적으로 모든 페이지가 트랙백을 받을 수 있으나, 다음 두 경우는 트랙백을 받지 못한다. 하단에 트랙백URL도 출력되지 않는다. URL을 수작업으로 구성해서 보내도 에러를 반환한다.
* [[/페이지숨김]] 기능을 사용하여 관리자가 감춘 페이지
* 관리자가 잠근 페이지
** 페이지를 잠궜으나 트랙백은 받고 싶은 경우나, 트랙백은 불허하되 타인의 수정은 허가하고 싶은 경우가 있을 수 있는데... 잠그는 의도를 생각해 볼 때 이런 경우가 흔하지는 않을 것이라 생각함.

=== # 받은 트랙백 목록 - <trackbackreceived> 매크로 ===
* trackbacksent 와 유사한 trackbackreceived 매크로를 제공한다.
** 사용법: <trackbackreceived>
* 외부로부터 트랙백이 날아왔을 때, 이 매크로가 있을 경우 이 매크로 바로 위에 다음과 같은 형식으로 내용을 추가하여 페이지를 저장한다. 즉 자동으로 페이지가 수정된다. 
{{{
* 블로그 이름 시간
** 제목 : ...
** 내용 : ...
}}}
** 페이지가 수정되면서 summary 에는 트랙백을 받았다는 메시지가 삽입된다.
* 페이지를 표시할 때는 이 매크로는 현재 목록에 있는 받은 트랙백들의 갯수를 출력하며, [[/Memo매크로]]와 동일하게 목록 내용을 감춘다. 
** 즉, 다음과 같은 경우
{{{
* 블로그 이름 1
** 제목 1
** 내용 1
* 블로그 이름 2
** 제목 2
** 내용 2

}}}
** 아래와 같이 출력된다.
<memo(받은 트랙백 [2])>
* 블로그 이름 1
** 제목 1
** 내용 1
* 블로그 이름 2
** 제목 2
** 내용 2
</memo>
* 페이지 내에 이 매크로가 없는 데 트랙백이 날아올 경우는, 자동으로 페이지 내용 제일 아래에 이 매크로를 삽입하게 된다.

=== # 스타일쉬트 ===
[[UseModWiki스타일쉬트]]에서 trackback 관련 부분 참조.

== # 문제점 및 부작용 ==
딱히 부작용은 없을 듯 하고, 현재 알려진 문제점은 다음과 같다.

* 특정 블로그 (IRiS ell 등) 로 트랙백을 보낼 수 없다. 이건 펄 모듈을 고치던가 모듈을 쓰지 않고 직접 핑을 보내도록 구현을 바꾸지 않는 이상 현재 해결 불가. (GET과 POST문제)
* 특정 블로그로부터 제대로 받지를 못한다. 현재로서는 보내는 쪽에 문제가 있는 것으로 생각된다.
* 보내기에 실패했을 때 제대로 에러 메시지를 보내주지 못한다. 이것은 펄 모듈의 문제.
* 받은 트랙백 목록은 자동으로 추가되지만 보낸 트랙백 목록은 trackbacksent 매크로가 있을 때만 추가된다. 약간 일관성 문제가 있긴 한데, 보낸 트랙백 목록은 필수적이 아니라 생각해서...
* 트랙백 스펙 전부를 지원하지 않는다. 대표적으로 RDF를 받아서 트랙백 주소를 찾는 기능이 없다. 반대로 그런 요청이 왔을 때 응답하지도 못한다.

== # 소스 수정 ==
=== # config.pl 수정 ===
다음 항목 추가
{{{#!vim perl
### trackback 보내기
$SendPingAllowed = 0;   # 0 - anyone, 1 - who can edit, 2 - who is admin
}}}

=== # wiki.pl 수정 ===
다음 변수 추가
{{{#!vim perl
### 패치를 위해 추가된 환경설정 변수
use vars qw(
    ...
    $SendPingAllowed
    );
}}}

{{{#!vim perl
sub BrowsePage {
    ...
    if ($EditPagePos >= 2) {
        $fullHtml .= &GetTrackbackGuide($id);  # 이 줄 추가
        $fullHtml .= &GetEditGuide($id, $goodRevision);     # luke added
    }
    ...
}
}}}

{{{#!vim perl
sub BrowseExternUrl {
    ...
    } elsif ((&GetParam('InFrame','') eq '2') && ($EditGuideInExtern)) {
        print &GetHeader($id, "$id [InBottomFrame]",$oldId);
        print "<hr>\n";
        print &GetTrackbackGuide($id);     # 이 줄 추가
        print &GetEditGuide($id, '');
        print &GetMinimumFooter();
        return;
    ...
}
}}}

{{{#!vim perl
sub GetFooterText {
    ...
    if ($EditPagePos eq 1 or $EditPagePos eq 3) {
        $result .= &GetTrackbackGuide($id);   # 이 줄 추가
        $result .= &GetEditGuide($id, $rev);
    }
    ...
}}}

{{{#!vim perl
sub MacroSubst {
    ...
    $txt =~ s/&__LT__;color\(([^,)]+),([^\n]+?)\)&__GT__;/&MacroColor($1, $2)/gei;
### <trackbacksent> 
    $txt =~ s/(((^|\n)\* .*)*\n?)(&__LT__;trackbacksent&__GT__;)/&MacroTrackbackSent($4,$1)/gei;
    $txt =~ s/(((^|\n)\* .*\n\*\* .*\n\*\* .*)*\n?)(&__LT__;trackbackreceived&__GT__;)/&MacroTrackbackReceived($4,$1)/gei;
###
###############
    return $txt;
}
}}}

다음 두 함수 통채로 추가
{{{#!vim perl
sub MacroTrackbackSent {
    my ($itself, $trackbacks) = @_;
    my $title = &T('No Trackback sent');

    my $count = ($trackbacks =~ s/((^|\n)\* .*)/$1/g);
    $title = &Ts('Trackback sent [%s]', $count) if ($count);

    return &MacroMemo("", $title, $trackbacks, "trackbacklist");
}

sub MacroTrackbackReceived {
    my ($itself, $trackbacks) = @_;
    my $title = &T('No Trackback received');

    my $count = ($trackbacks =~ s/((^|\n)\* .*\n\*\* .*\n\*\* .*)/$1/g);
    $title = &Ts('Trackback received [%s]', $count) if ($count);

    return &MacroMemo("", $title, $trackbacks, "trackbacklist");
}
}}}

다음 함수 수정
{{{#!vim perl
sub GetParam {
    my ($name, $default) = @_;
    my $result;

    $result = $q->param($name);
### POST 로 넘어올 경우의 데이타 처리 - 아래 세 줄 추가
    if (!defined($result)) {
        $result = $q->url_param($name);
    }
    if (!defined($result)) {
    ...
}
}}}

{{{#!vim perl
sub DoOtherRequest {
    ...
        } elsif ($action eq "rss") {
            &DoRss();
### Trackback - 아래 줄 추가
        } elsif ($action eq "send_ping") {
            &DoSendTrackbackPing($id);
###
###############
        } else {
            # Later improve error reporting
            &ReportError(Ts('Invalid action parameter %s', $action));
        }
        return;
    }
    ...
}
}}}

아래 함수의 제일 마지막 줄 수정
{{{#!vim perl
sub DoPostMain {
    ...
    &ReBrowsePage($id, "", 1) if ($id ne "!!");   # if 문 추가
}
}}}

다음 함수들 통채로 추가
{{{#!vim perl
sub DoSendTrackbackPing {
    require Net::Trackback::Client;
    require Net::Trackback::Ping;

    my ($id) = @_;
    my ($ping_url, $title, $url, $excerpt, $blog_name, $ping_permalink);
    my $validid = &ValidId($id);
    my $result = "";

    $ping_url = &GetParam('ping_url');
    $title = &GetParam('title');
    $url = &GetParam('url');
    $excerpt = &GetParam('excerpt');
    $blog_name = &GetParam('blog_name');
    $ping_permalink = &GetParam('ping_permalink');

    if ($validid ne '') {
        $result .= $validid;
    } elsif (!&UserCanSendTrackbackPing($id)) {
        $result .= &T('You are not allowed to send Trackback ping of this page');
    } elsif ($ping_url eq '') {
        $result .= &T('No Ping URL');
    } else {
        my $ping = Net::Trackback::Ping->new;
        $ping->ping_url("$ping_url");
        $ping->title("$title");
        $ping->url("$url");
        $ping->excerpt("$excerpt");
        $ping->blog_name("$blog_name");

        my $client = Net::Trackback::Client->new();
        $client->charset("$HttpCharset");
        my $msg = $client->send_ping($ping);
        my $msg_str = $msg->to_xml;

        my ($code, $message) = ($msg_str =~ m!<error>(\d+).*<message>(.*?)</message>!s);

        if ($msg->is_success) {
            sleep(1);
            $Now = time;
            &OpenPage($id);
            &OpenDefaultText();
            my $string = $Text{'text'};
            my $macro = "\<trackbacksent\>";
            if ($string =~ /$macro/) {
                my $timestamp = &CalcDay($Now) . " " . &CalcTime($Now);
                my $newtrackbacksent = "* $timestamp | " .
                    (($ping_permalink ne '')?$ping_permalink:$ping_url);
                $string =~ s/($macro)/$newtrackbacksent\n$1/;
                &DoPostMain($string, $id, &T('New Trackback Sent'), $Section{'ts'}, 0, 0, "!!");
            }
            $result .= &T('Ping successfully sent');
        } else {
            $result .= &Ts('Error occurred: %s', "$code - $message");
        }
    }

    print &GetHttpHeader();
    print &GetHtmlHeader("$SiteName : ". &T('Send Trackback Ping'), "");
    print $q->h2(&T('Send Trackback Ping')) . "\n";
    print $result;
    print "<hr size='1'>".Ts('Return to %s' , &GetPageLink($id));
    print $q->end_html;

    return;
}

sub UserCanSendTrackbackPing {
    my ($id) = @_;

    return 0 if (! -f &GetPageFile($id));
    return 1 if ($SendPingAllowed == 0);
    return 1 if (&UserIsAdmin());
    return 1 if (($SendPingAllowed == 1) && (&UserCanEdit($id)));

    return 0;
}

sub PageCanReceiveTrackbackPing {
    my ($id) = @_;

    return 0 if (! -f &GetPageFile($id));
    return 0 if (defined $HiddenPage{$id});
    return 0 if (-f &GetLockedPageFile($id));

    return 1;
}

sub GetTrackbackGuide {
    my ($id) = @_;

    my $result = "\n<HR class='footer'>\n<DIV class='trackbackguide'>";

    my $trackbackguide = "<P>";

    $FullUrl = $q->url(-full=>1)  if ($FullUrl eq "");
    my $encoded = &EncodeUrl($id);
    my $url = $FullUrl . &ScriptLinkChar() . "action=tb&id=$encoded";

    if (&PageCanReceiveTrackbackPing($id)) {
        $trackbackguide .= &T('Trackback address of this page:')." ".
            "<input type=\"button\" title=\"".
            &T('Copy the address to the clipboard.').
            "\" value=\"".
            &T('Copy').
            "\" onClick=\"copy_clip('','$url');\"> ".
            $url;
    } else {
        $trackbackguide .= &T('This page can not receive Trackback');
    }

    if (&UserCanSendTrackbackPing($id)) {
        $FullUrl = $q->url(-full=>1)  if ($FullUrl eq "");
        my $url = $FullUrl . &ScriptLinkChar . $encoded;
        my $title = $id;
        if ($FreeLinks) {
            $title =~ s/_/ /g;  # Display with spaces
        }
        my $excerpt = $Text{'text'};
        $excerpt =~ s/<.*?>//g;
        if (length($excerpt) > 255) {
            $excerpt = substr($excerpt, 0, 252);
            $excerpt =~ s/(([\x80-\xff].)*)[\x80-\xff]?$/$1/;
            $excerpt .= "...";
        }
        $excerpt =~ s/(\r?\n)/ /g;
        $excerpt = &QuoteHtml($excerpt);
        $excerpt =~ s/"/"/g;   # " 를 quot;로 변환

        $trackbackguide .= "\n<BR>";
        $trackbackguide .= &GetFormStart("Trackback_ping") .
            &GetHiddenValue("action", "send_ping") .
            &GetHiddenValue("title", "$title") .
            &GetHiddenValue("blog_name", "$SiteName") .
            &GetHiddenValue("excerpt", "$excerpt") .
            &GetHiddenValue("url", "$url") .
            &GetHiddenValue("id", "$id") .
            "<TABLE style='border: none;'>" .
            "<TR><TD style='border: none;' colspan=2>" . &T('Send Trackback Ping of this page to:') . "</TD></TR>" .
            "<TR><TD style='border: none;'>" . &T('Trackback URL:') . "</TD>" .
            "<TD style='border: none;'>" . $q->textfield(-name=>"ping_url", -default=>"", -override=>1, -size=>100, -maxlength=>200) . "</TD></TR>" .
            "<TR><TD style='border: none;'>" . &T('Permalink URL (optional):') . "</TD>" .
            "<TD style='border: none;'>" .
            $q->textfield(-name=>"ping_permalink", -default=>"", -override=>1, -size=>100, -maxlength=>200) . "</TD></TR>" .
            "<TR><TD style='text-align: center; border: none;' colspan=2>" . $q->submit(&T('Send Ping')) . "</TD></TR>" .
            "</TABLE>" .
            $q->endform;
    }

    $result .= &MacroMemo("", &T('Send Trackback'), $trackbackguide, "trackbackguidecontent");

    $result .= "</DIV>";
}
}}}

==== # wiki.pl 내에 추가할 EncodeUrl() 함수 ====

이 함수는 나름대로 중요하여, 따로 빼어서 표시해 둔다. 이 함수는 스트링을 인자로 받아서, 다음 문자를 제외하고는 한바이트씩 "%FF"와 같이 두자리의 16진수로 변환한다.
* a~z
* A~Z
* 0~9
* "_", ".", "-"
* "/" - '''주의:''' 다른 곳에서 보는 urlencode 함수들은 "/"도 "%2F"로 인코딩한다. 그러나 여기서는 아래와 같은 이유로 "/"를 인코딩하지 않도록 했다.
** 1) 쿼리에 들어간 스트링의 경우는 "/"나 "%2F"나 동일하게 동작한다.
** 2) URL에 들어간 경우는 "/"여야만 제대로 웹서버가 인식한다. [[/SlashLinks처리]]를 할 때 이것이 문제가 된다.
** 3) (무책임한 말이지만) 현재는 EncodeUrl()이 쓰이는 곳이 이 [[/TrackBack]]과 [[/RSS제공]]의 action=rss, [[/blog매크로시리즈]]의 action=blog_rss, 이렇게 세 곳 밖에 없다. 셋 다 페이지이름을 URL에 포함시킬 때 인코딩하는 것이라서, "%2F"보다는 "/"가 낫다고 판단된다.
*** 참고로, Firefox 주소창에 한글을 쓸 경우 자동으로 인코딩해서 보여주는데 이 때도 EUC-KR, UTF-8 두 경우 다 "/"는 인코딩하지 않고 있다.

{{{#!vim perl
sub EncodeUrl {
    my ($string) = @_;
    $string =~ s!([^/a-zA-Z0-9_.-])!uc sprintf "%%%02x", ord($1)!eg;
    return $string;
}
}}}

=== # action/tb.pl 추가 ===
ext2.1g의 action/tb.pl을 그대로 옮겼음. [[/Comments와Thread매크로스팸막기]]나 [[/UTF-8트랙백받기]]에 관련된 코드(ext2부터는 반대로 UTF-8이 아닌 트랙백을 처리하는 코드)까지 다 포함되어 있다.

{{{#!vim perl
sub action_tb {
    use strict;
    my $id = &GetParam("id","");
    $id =~ s/\s+$//;
    my $normal_id = $id;

    my $url = &GetParam('url');
    my $title = &GetParam('title', $url);
    my $blog_name = &GetParam('blog_name');
    my $excerpt = &GetParam('excerpt');

# tcode
    my $tcode = &GetParam('tc',"");
    my ($code_today, $code_yesterday);
    $code_today = &simple_crypt(length($id).substr(&CalcDay($Now),5));
    $code_yesterday = &simple_crypt(length($id).substr(&CalcDay($Now - 86400),5));

    if (($tcode ne $code_today) && ($tcode ne $code_yesterday)) { # spam
        &SendTrackbackResponse("1", "SPAM trackback");
        return;
    }

# 인코딩 컨버트
    if ($q->content_type() =~ /charset=(.+)\b/i) {
        # POST요청이면서, 인코딩이 명시되어 있는 경우
        my $remote_enc = $1;
        $title = convert_encode($title, "$remote_enc", "$HttpCharset");
        $blog_name = convert_encode($blog_name, "$remote_enc", "$HttpCharset");
        $excerpt = convert_encode($excerpt, "$remote_enc", "$HttpCharset");
    } else {
        # 인코딩을 추측해서 변환
        $title = guess_and_convert($title);
        $blog_name = guess_and_convert($blog_name);
        $excerpt = guess_and_convert($excerpt);
    }

# 블로그 지원을 위한 꽁수
    my ($blogrcpage, $blogrccomment);
    if ($id =~ m/(.+)(\/|%2f|%2F)(.+)/) {
        $blogrcpage = "$1/BlogRc";
    } else {
        $blogrcpage = "BlogRc";
    }
    if (-f &GetPageFile($blogrcpage)) {
        $blogrccomment = $excerpt;
    } else {
        $blogrcpage = "";
    }

    # 처음 200글자까지만 남김
    $excerpt = (&split_string($excerpt, 200))[0];
    $excerpt .= " ...";

    $excerpt =~ s/(\r?\n)/ /g;
    $excerpt = &QuoteHtml($excerpt);
    $excerpt = "<nowiki>$excerpt</nowiki>";

    if ($FreeLinks) {
        $normal_id = &FreeToNormal($id);
    }

    if ($url eq '') {
        &SendTrackbackResponse("1", "No URL (url)");
    } elsif ($id eq '') {
        &SendTrackbackResponse("1", "No Pagename (id)");
    } elsif (!&PageCanReceiveTrackbackPing($normal_id)) {
        &SendTrackbackResponse("1", "Invalid Pagename (Page is missing, or Trackback is not allowed)");
    } elsif (my $bannedText = &TextIsBanned($blog_name.$url.$title.$excerpt)) {
        &SendTrackbackResponse("1", "[$bannedText] is a Banned text");
    } else {
        &OpenPage($normal_id);
        &OpenDefaultText();
        my $string = $Text{'text'};
        my $macro = "\<trackbackreceived\>";
        if (!($string =~ /$macro/)) {
            $string .= "\n$macro\n";
        }
        my $timestamp = &CalcDay($Now) . " " . &CalcTime($Now);
        my $newtrackbackreceived = "* " .
            &Ts('Trackback from %s', "'''<nowiki>$blog_name</nowiki>'''") .
            " $timestamp\n" .
            "** " . &T('Title:') . " [$url $title]\n" .
            "** " . &T('Content:') . " $excerpt";
        $string =~ s/($macro)/$newtrackbackreceived\n$1/;

# 블로그 지원을 위한 꽁수
        if ($blogrcpage) {
            $blogrccomment =~ s/(\r?\n)/ /g;
            $blogrccomment =~ s/\[/{/g;
            $blogrccomment =~ s/\]/}/g;

            # 처음 30글자까지만 남김
            $blogrccomment = (&split_string($blogrccomment, 30))[0];
            $blogrccomment .= " ...";

            $blogrccomment = &QuoteHtml($blogrccomment);
            $blogrccomment =~ s/----+/---/g;
            $blogrccomment =~ s/^ *//;
            $blogrccomment = "T) $blogrccomment";

            my ($fname, $status, $data);
            $fname = &GetPageFile($blogrcpage);
            if (-f $fname) {
                ($status, $data) = &ReadFile($fname);
                if ($status) {
                    my %temp_Page = split(/$FS1/, $data, -1);
                    my %temp_Section = split(/$FS2/, $temp_Page{'text_default'}, -1);
                    my %temp_Text = split(/$FS3/, $temp_Section{'data'}, -1);
                    my $blogrc_Text = $temp_Text{'text'};

                    my $date = &CalcDayNow();
                    if ($date =~ /(\d+)-(\d+)-(\d+)/) {
                        $date = sprintf("%4d-%02d-%02d",$1,$2,$3);
                    }
                    if ($blogrc_Text =~ /^\*/m) {
                        $blogrc_Text =~ s/^\*/* [[$id|$blogrccomment]] $date\n*/m;
                    } else {
                        $blogrc_Text .= "\n* [[$id|$blogrccomment]] $date";
                    }
                    my $backup = $Section{'ts'};
                    &DoPostMain($blogrc_Text, $blogrcpage, "", $temp_Section{'ts'}, 0, 1, "!!");
                    $Section{'ts'} = $backup;
                }
            }
        }

        &DoPostMain($string, $id, &T('New Trackback Received'), $Section{'ts'}, 0, 0, "!!");
        &SendTrackbackResponse(0, "");
    }
}

sub SendTrackbackResponse {
    my ($code, $message) = @_;

    if ($code == 0) {
        print <<END;
Content-Type: application/xml; charset: iso-8859-1\n
<?xml version="1.0" encoding="iso-8859-1"?>
<response>
<error>0</error>
</response>
END
    } else {
        print <<END;
Content-Type: application/xml; charset: iso-8859-1\n
<?xml version="1.0" encoding="iso-8859-1"?>
<response>
<error>$code</error>
<message>$message</message>
</response>
END
    }
}

1;
}}}
=== # wiki.css 수정 ===
트랙백과 관련한 다음의 클래스들을 추가
{{{#!vim css
/* 트랙백 주고받기 안내영역 */
DIV.trackbackguide {
    text-align: left;
    background: transparent;
    border: none;
    color: black;
}

/* 트랙백 주고받기 가이드 */
DIV.trackbackguidecontent {
    background: transparent;
    border: none;
}

A.trackbackguidecontent:link, A.trackbackguidecontent:active, A.trackbackguidecontent:visited, A.trackbackguidecontent:hover {
    background: transparent;
    color: blue;
    text-decoration: none;
}
A.trackbackguidecontent:hover
{
    text-decoration: underline;
}

/* trackbacksent, trackbackreceived 매크로 */
DIV.trackbacklist {
    background-color:#F8F8F8;
    color:#000;
    border:1px solid silver;
    padding:5px;
}

A.trackbacklist:link, A.trackbacklist:active, A.trackbacklist:visited, A.trackbacklist:hover {
    background: transparent;
    color: blue;
    text-decoration: none;
}
A.trackbacklist:hover
{
    text-decoration: underline;
}
}}}

=== # wikiscript.js 수정 ===

ext1.109d에서 클립보드 복사 기능을 넣으면서 추가된 자바스크립트 함수
{{{#!vim javascript
// msg - 사용자에게 확인창을 띄울때 출력되는 메시지
//     - ""이면 확인창 띄우지 않음
// text - 클립보드에 복사될 텍스트
// 출처: http://www.krikkit.net/howto_javascript_copy_clipboard.html
// modified by raymundo, gypark@gmail.com

// Copyright (C) krikkit - krikkit@gmx.net
// --> http://www.krikkit.net
// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation; either version 2
// of the License, or (at your option) any later version.
function copy_clip(msg, text) {
    if (msg != "") {
        if (!confirm(msg)) return;
    }

    // IE
    if (window.clipboardData) {
        window.clipboardData.setData("Text", text);
    }
    // Firefox/Mozilla
    else if (window.netscape) {
        // firefox/mozilla 에서 동작하기 위해서는 사용자 프로파일 디렉토리에 prefs.js 파일에 다음과 같이 적어준다
        // user_pref("signed.applets.codebase_principal_support", true);
        // 또는 "about:config" 페이지를 열어서 다음 항목의 값을 true로 설정해 준다
        // signed.applets.codebase_principal_support

        alert("If it fails to copy, check the option:\n\nsigned.applets.codebase_principal_support  =  true\n\nin \"about:config\" page.");

        netscape.security.PrivilegeManager.enablePrivilege('UniversalXPConnect');

        var clip = Components.classes['@mozilla.org/widget/clipboard;1'].createInstance(Components.interfaces.nsIClipboard);
        if (!clip) return;

        var trans = Components.classes['@mozilla.org/widget/transferable;1'].createInstance(Components.interfaces.nsITransferable);
        if (!trans) return;

        trans.addDataFlavor('text/unicode');

        var str = Components.classes["@mozilla.org/supports-string;1"].createInstance(Components.interfaces.nsISupportsString);
        var copytext=text;

        str.data=copytext;

        trans.setTransferData("text/unicode",str,copytext.length*2);

        var clipid=Components.interfaces.nsIClipboard;

        if (!clip) return false;

        clip.setData(trans,null,clipid.kGlobalClipboard);
    }
    return false;
}
}}}
=== # translations/korean.pl 수정 ===
다음 번역 추가
{{{
Send Trackback
트랙백 주고받기
Send Trackback Ping of this page to:
이 페이지의 트랙백 핑을 다음 주소로 보냄:
Trackback URL:
트랙백 URL:
Permalink URL (optional):
해당 글의 URL (선택사항):
Send Ping
트랙백 핑 보내기
You are not allowed to send Trackback ping of this page
이 페이지의 트랙백 핑을 보낼 권한이 없습니다
No Ping URL
트랙백 핑을 받을 주소가 없습니다
New Trackback Sent
트랙백 핑을 보냄
Error occurred: %s
에러가 발생했습니다: %s
Send Trackback Ping
트랙백 핑 보내기
Ping successfully sent
핑을 보내는 데 성공했습니다
Trackback address of this page:
이 페이지의 트랙백 주소:
Copy
복사
Copy the address to the clipboard.
이 주소를 클립보드에 복사합니다.
This page can not receive Trackback
이 페이지로는 트랙백을 보낼 수 없습니다
Trackback from %s
%s 로부터의 트랙백
Title:
제목:
Content:
내용:
New Trackback Received
트랙백 핑을 받음
No Trackback sent
보낸 트랙백 없음
Trackback sent [%s]
보낸 트랙백 [%s]
No Trackback received
받은 트랙백 없음
Trackback received [%s]
받은 트랙백 [%s]
}}}

== # 추가 업데이트 내역 ==
ext1.61b - Jof:TrackBack 의 소스를 차용. (기존 인터페이스를 바꾸기 싫어서 실제 구현과 사용방법은 좀 다름)
* 소스 코드 내에서 함수 이름이나 변수, 스트링 등에 있는 "TrackBack"을 "Trackback"으로 고쳤습니다. 원하지 않는 곳에서 위키네임으로 인식될 우려가 있어서.. 스트링만 고치고 나니 일관성이 없어보여서 죄다 고쳤습니다.
* trackbacksent 와 trackbackreceived 매크로 구현 변경 - memo 매크로처럼 자동으로 목록을 숨겨주며, 펼치는 링크 부분에 보내거나 받은 트랙백들의 갯수를 출력해 줍니다. 

ext1.61c -
* 트랙백을 보낼 때, excerpt 값에는 페이지 본문 텍스트에서 부등호로 둘러쌓인 부분을 제거하고 남은 것들 중에 처음 255자를 넣어준다. 페이지 초반에 위키태그를 넣는 경우가 많아서 트랙백을 날렸을 때 받은 쪽에서 보면 너무 지저분해 보여서.
** 태그가 아니더라도 부등호로 둘러쌓인 것들은 사라지니 주의

ext1.82b -
* [[/액션모듈화]] 관련.  DoReceiveTrackbackPing 함수와 SendTrackbackResponse 함수를 별도의 파일로 분리.
* 존재하지 않는 페이지의 트랙백을 다른 곳으로 보낼 수 있는 문제 수정.

ext1.90a - 다른 사이트에 트랙백을 보낼 때, 트랙백 핑 데이타의 url항목의 값에 한글이 들어간 경우 (한글이름 페이지의 경우) 인코딩하도록 함.

ext1.96b - 스팸트랙백을 막을 수 있을까 해서, 페이지의 트랙백 주소를 하이퍼링크가 아니라 평범한 텍스트로 출력하게 함.

ext1.100
* 받는 트랙백 주소를 "wiki.pl?action=trackback&id=***"에서 action=tb 로 고침. 거창한 이유는 없고, 이미 스팸 트랙백으로 고생하는 사이트의 경우 일시적인 해결책이 될 것으로 기대함. 
** wiki.pl의 코드에 있는 action=trackback이라는 문자열을 action=tb로 고침
** action/trackback.pl 파일을 action/tb.pl 로 이름을 바꾸고, 첫줄에 sub action_trackback 을 sub action_tb로 수정
** 차후에도 또 스팸이 날아오면 tb란 문자열을 다른 이름으로 바꾸면 될 겁니다. =.=;;
* id 뒤에 공백이 들어간 상태로 핑을 받았을 때 제대로 처리되지 않는 문제 수정.
** tb.pl 파일에 "$id =~ s/\s+$//;" 라는 라인이 추가되었습니다.

ext1.101~103a
* [[/Comments와Thread매크로스팸막기]]로 소스가 변경되었습니다. 자세한 것은 저 페이지를 참조

ext1.107c
* 트랙백을 보낼 때, 대상 웹페이지의 주소에 "?"가 없는 경우 내용을 잘못 인코딩하는 문제를 수정
* 페이지 이름을 인코딩하는 EncodeUrl()함수에서, "/"는 인코딩하지 않도록 제외함

ext1.109d
* 트랙백 주소를 긁어서 복사하는게 아무래도 너무 불편해서... 클릭하면 클립보드에 복사하도록 하였습니다.
** Internet Explorer와 Firefox, Mozilla 등을 다 지원하기 위해서, [http://smallvil.net/47 파이어 폭스에서도 클립보드 접근하기]에서 찾은 코드 ([http://www.krikkit.net/howto_javascript_copy_clipboard.html 아마도 여기가 원 출처])를 가져다가 수정해서 썼습니다.
** Firefox의 경우, "about:config"페이지에 들어가서 "'''signed.applets.codebase_principal_support'''" 옵션을 '''true''' 로 설정해 주어야 동작합니다.

ext1.109e
* 트랙백 주소는 그냥 평범한 텍스트로 출력하고, 좌측에 "복사"버튼을 추가하여서 그걸 누르면 클립보드로 복사하도록 함
* 본의 아니게 클립보드의 내용을 날려버리는 일을 막으려고 확인창을 띄우도록 했었으나, 이제 버튼이 따로 달렸기 때문에, 클릭했을때 확인창 없이 바로 복사됨
* IE 유저는 복사 버튼을 누르면 바로 복사됨
* FF 유저는
** "about:config"페이지에 들어가서 "'''signed.applets.codebase_principal_support'''" 옵션을 '''true'''로 설정한 상태에서 복사 버튼을 누르거나
** [http://yellow5.us/firefox/linkification/ Linkification] 확장을 설치하면 주소 텍스트가 링크로 보이니 그걸 우클릭해서 복사하면 될 것임
** 옵션인 디폴트값이 false이고 확장은 따로 설치해주지 않으면 없으니... FF 설치하고 기본 상태에서 쓰는 사람은 여전히 동작하지 않는 것이 아쉽다.

ext1.110
* 불여우의 경우 옵션 설정을 안내하는 창을 띄움 - 옵션이 켜져 있든 꺼져 있든 무조건 창이 뜬다는 게 단점.

ext2.1g
* 인코딩 변환 루틴 수정 - POST 요청이면서 CONTENT_TYPE에 charset이 명시되어 있는 경우는 그 값을 보고 변환하고, 그 외의 경우는 추측해서 변환하도록 함.
== # 관련 링크 ==
* [[TrackBack논의]]
* UseMod:TrackBack
* Jof:TrackBack
* [http://www.movabletype.org/docs/mttrackback.html TrackBack Technical Specification]

== # 사용자 의견 ==
<memo(ext1.61a 가 나오기 전까지의 의견들. 거의 전부 반영되었음)>
다른 블로그 툴이나 위키엔진에 트랙백을 보내어 테스트를 하고 싶습니다. [[Diary/2004-07-18]]에 답글 좀 달아 주세요~ <mysign([[Raymundo]],2004-7-19 1:02 am)>

트랙백 받기까지 완성은 되었는데, 사용법이나 인터페이스가 아무리 생각해도 너무 조잡해서 공개하기가 그렇군요. 좀 더 좋은 방법이 있을 법도 한데.. <mysign([[Raymundo]],2004-7-19 3:04 pm)>

: 일단 트랙백 보내기나 받기 매크로가 없는데 트랙백이 일어났다면, 그 순간 페이지 아래에 강제로 새로 매크로를 붙이고 치환해버리는게 왔따라고 생각합니다. 아래 붙은 모양이 보기 흉하면 알아서 메모 매크로로 감싸던가 하면 되겠죠. 트랙백을 허용하는 이상, 받는거야 받은게 맘에 안들면 지우면 되는거고, 보내는건 소스에서 권한 설정해놓은 걸로 넘어가고요. 아예 안되는 것 보다야 이 쪽이 좋을 것 같습니다. <mysign([[조프]],2004-7-20 12:09 am)>

: 그리고 trackback sent 매크로가 큰 의미가 있는지 저는 잘 모르겠습니다. 있으면 좋겠지만, 지금처럼 트랙백 주소가 나오면 실제로 어떤 글에 트랙백이 갔는지는 직접 주소보고 때려맞추기를 해야하는데... -_-;;; 사실은 트랙백을 보내고 그 사후처리에 대한 내용이 트랙백 규칙에 없다는 것도 지금 알았습니다. 성공했을 경우 reply에서 성공했을 경우 실제 URL과 타이틀만 넘겨줘도 깔끔하게 처리할 수 있을텐데 말이죠. 이글루스같은 경우는 아예 남의 이글루스 블로그를 볼 때 관련글 쓰기가 있어서 글 본문에 링크 걸어주고 트랙백도 처리해줍니다만. 다른 블로그나 위키 사이에서는 불가능한 일일테고요. 아예 트랙백을 보낼 때 실제링크(와 타이틀)을 옵션으로 입력하게 하는건 너무 귀찮겠죠? (뭐 저라면 쓸 것 같기도 합니다만.) 파일업로드도 새창 띄우는데, 트랙백 보내기도 새창 띄워서 처리하는건 어떨까요. <mysign([[조프]],2004-7-20 12:29 am)>

: 결국 제 의견은 sent는 잘 모르겠고, received는 없으면 강제추가, 기왕이면 < 열리고 > < / 닫히고 > 형태로 만들어서 시간순으로 나왔으면 합니다. <mysign([[조프]],2004-7-20 12:29 am)>

:: 좋은 의견 감사합니다. 하나씩 보면,

:: received 강제 추가는 고려를 했었는데, 그럼 트랙백받을URL을 어디에 (현재는 received 매크로 자리에 치환되는데) 표시할 것인가가 고민거리였습니다. 페이지 하단에 무조건 표시하게 만들 수도 있는데, [[Diary]]처럼 다른 페이지들 여러 개를 include 해서 먹고사는 페이지들과, 대문처럼 잠궈둔 페이지에 트랙백이 멋대로 (뭐 악의로 그러지야 않겠지만) 날아오고 그걸 뒤늦게 발견해서 지워야 한다는 것은 생각만 해도 끔찍하더라고요. 페이지 잠금이나 숨김 속성처럼 트랙백 허용 속성(디폴트는 허용이고 불허 속성이라 해야겠군요)을 별도로 추가하기도 너무 군더더기가 많아지는것 같고... 블로그 중에도 게시물 별로 트랙백 허용 여부를 정할 수 있는 걸 봤던 것 같기도 하고요. 이건 잘 모르겠습니다. 다른 분들 생각도 듣고 싶고.

:: 강제추가할 때 열리고 닫히는 것을... 매 트랙백 데이타별로 그렇게 감싸주자는 건가요? 통채로 감싸려면 그 이후에 날아오는 트랙백을 어떻게.. 아 강제 추가할 때 매크로도 추가해 넣을 테니 큰 상관없을 듯 하기도 하군요.

:: sent 목록의 불편함은 동감입니다. 핑URL 필드 이외에 실제 글 URL과 타이틀까지 옵션 필드로 넣도록 하지요. 어쨌거나 보낸 로그를 담을 공간은 필요하고, 그 로그를 어딘가 치환해 넣어야 할테니 매크로가 하나 있긴 해야겠지요. 이것은 정말 강제추가할 사항이 아닌듯 하고... <mysign([[Raymundo]],2004-7-20 1:07 am)>


IRiS ell 이 트랙백을 보냈을때는  \\
wiki.pl?action=trackback 으로 POST 리퀘스트가 오는데 (더 자세한 정보를 어찌 볼 수 있는지 모르겠네요) 여기에 대해 wiki.pl 이 \\
 \\
&ReportError(T('Invalid URL.')); \\
코드를 실행해 버리는군요. 어째서 action=trackback 이 있는데 이걸 인식을 못하는지... <mysign([[Raymundo]],2004-7-20 1:57 am)>

IRiS ell 이 에러를 내는 원인은 알았습니다. \\
 \\
주소가 http주저리주저리/wiki.pl?action=trackback&id=페이지이름 인데, 이것을 첫번째 & 를 기준으로 잘라서 앞은 URL 로 뒤의 것은 트랙백데이타 쪽에 덧붙인 후 POST 로 보내네요. 즉 \\
 \\
http....wiki.pl?action=trackback 이 주소이고 \\
 \\
blog_name=***&title=****...등등&id=페이지이름  이 POST 데이타인데, \\
희한하게 이 경우 wiki.pl 이 주소에 붙은 action=trackback 을 인식을 못하는군요. 그래서 결국 어떤 action 도 취할 수가 없이 다른 인자만 있으니 Invalid URL 에러. \\
 \\
반대로 트랙백 주소를 id=페이지이름&action=trackback 으로 주면 이번에는 action 인자는 POST 로 가는데 id 인자를 인식을 못해서 결국 트랙백 처리 도중 No page 에러가 나는군요. 원래 POST 로 보낼 때는 ? 뒤에 있는 인자를 처리 못하는게 맞는가요? 맞다면 이것은 IRiS ell 쪽의 잘못이 아닐런지. <mysign([[Raymundo]],2004-7-20 2:09 am)>

IRiS ell 이 트랙백을 받지 못하는 이유도 발견. IRiS ell 은 오직 POST 로 들어왔을 때만 처리하는데, Net::Trackback::Client 에 있는 send_ping() 함수는 ping_url 에 "?"가 들어가 있을 경우는 GET 으로 보냄. 게다가 IRiS ell 의 트랙백 URL 에는 "?"가 들어가 있음... -_-;;; 어쩌라고!!! 트랙백의 스펙상으로는 GET 을 지원하지 않아도 할 말이 없긴 하다. <mysign([[Raymundo]],2004-7-20 2:31 am)>

: IRiS는 어떨지 모르겠고... egloos와 blogin을 지원하려면 $q->param()과 함께 $q->url_param()을 써야 합니다. POST로 넘어올 때 주소에 붙어있는 파라미터를 얻는 함수랍니다. 헉헉. CGI.pm 매뉴얼에 있었군요. (뉴스그룹에서 찾아봤더니 역시나 매뉴얼을 보라는 말과 함께 설명이...) <mysign([[조프]],2004-7-20 2:57 am)>

:: 안 주무시는군요.^^; 저는 자고 싶어도 열받아서라도 못 자고 있습니다만... 그렇잖아도 지금 그 문제가 대충 정리가 되고 있네요. <mysign([[Raymundo]],2004-7-20 3:00 am)>

이글루스로부터는 태터툴즈로도 안 가고 위키로도 (한글페이지 이름 때문에) 못 오는 것을 확인하고 문의 메일 보낸 상태입니다. <mysign([[Raymundo]],2004-7-20 2:13 pm)>

트랙백 URL 의 경우만 한글을 그냥 인코딩해서 넣어버릴까요? 근데 인코딩,디코딩 하는 방법을 모르겠습니다. 아시는 분? <mysign([[Raymundo]],2004-7-20 2:26 pm)>

: 어제 찾아봤는데, utf8이나 encode라는 모듈이 필요할 것 같습니다. 그러나 제가 들어가있는 서버에는 없어서 시도 불가능하더군요. -_-;;; <mysign([[조프]],2004-7-20 2:43 pm)>

크으... 조프님과 MSN으로 수시로 의견을 교환하면 좋을 것 같네요. 저도 Encode 모듈 들여다보고 있었거든요. 근데 그 모듈을 테스트했는데 제 생각처럼 되지 않아서... 그리고 이글루스쪽에서 오는 건 utf-8 도 아닌 것 같습니다. Encode 모듈의 guess() 함수를 돌려보면 알 수 없는 인코딩이라 하네요. 제가 제대로 돌렸는지 모르겠으나...

결국 이쪽에서 트랙백URL 에 한글을 없애는 것이 나을 듯 한데, 의외로 간단한 코드가 있더군요.
{{{#!vim perl
    (my $result = $string) =~ s!([^a-zA-Z0-9_.-])!uc sprintf "%%%02x", ord($1)!eg;
}}}
요 코드를 베껴왔더니만 흔히 보이는 바로 그 URL이 나오네요.
* 원래 : http://gypark.pe.kr/cgi-bin/wiki/wiki.pl?연습장/트랙백
* id 부분만 컨버트 : http://gypark.pe.kr/cgi-bin/wiki/wiki.pl?%BF%AC%BD%C0%C0%E5%2F%C6%AE%B7%A2%B9%E9
저렇게 컨버트된 것을 클릭하면 그냥 들어가지네요? 저는 저렇게 URL 이 나오는 위키들은 다시 id 부분을 디코딩해서 처리하는 거라고만 생각했는데, 전혀 그런 디코딩 없이도 제대로 동작을 하는군요. 그럼 저렇게 인코딩해서 트랙백URL로 표시하도록 할까요? <mysign([[Raymundo]],2004-7-20 3:54 pm)>

이리 저리 하여 몇 가지 고쳤습니다. 고쳐진 사항은,
* trackbacksent 와 trackbackreceived 는 인자를 쓰지 않습니다. (코멘트와 달리 인자가 필요 없게 되어서)
* 위의 두 매크로는 단지 널 스트링으로 치환됩니다.
* 시간의 역순으로 로그가 삽입되던 것을 시간순으로 삽입되도록 바꿨습니다.
* 편집 가이드와 별도로 편집 가이드 위에 따로 트랙백 주고받기를 위한 공간을 만들었습니다.
** 현재 트랙백 권한이 관리자에게만 있기 때문에 각 페이지의 트랙백 URL만 보일 겁니다. 테스트하고 싶은 분은 CVS 를 써서 [[/Download]]에서 받아서 하세요. 아무리 테스트가 중요해도 트랙백 보내기 권한을 개방하고 싶지는 않네요. :-)
* 트랙백을 보낼 때, 트랙백URL 외에 목적지 게시물의 URL 을 추가로 적어 줄 수 있습니다. 이 경우 보낸 트랙백 로그에는 게시물URL이 대신 들어갑니다. 응용하면 그냥 <nowiki>[[페이지이름]]</nowiki>이나 [[인터위키]]형식으로 적어줘도 되지요. ;-)
여전히 고려 중인 것은
* trackbackreceived 가 없는 페이지에 트랙백이 날아왔을 때 자동으로 넣을 것인가 - 이건 [[조프]]님 말도 일리가 있고 제 걱정도 합당해 보여서 계속 고민 중입니다.

그리고 현재 [[/Memo매크로]]도 그렇고 아래 트랙백 주고받기 공간도 그렇고, 매번 JavaScript 코드가 들어가니 html 결과가 불필요하게 길어지는 듯 한데, 이 "감췄다 보였다 토글하기" 기능을 따로 함수처럼 만들어 쓸 수 없을까요? <mysign([[Raymundo]],2004-7-21 3:36 am)>

다시 수정했습니다.
* trackbackreceived 가 없는 페이지에 트랙백이 날아올 경우 자동으로 매크로를 제일 아래에 삽입하여 치환시킵니다.
* 페이지가 잠겨 있거나, 숨겨져 있을 경우 트랙백 주소도 보여주지 않고, 실제로 트랙백을 날려도 거부하도록 했습니다.
** 트랙백을 보내는 주체는 사용자가 아니라 해당 블로그 또는 위키 cgi 이기 때문에, 자기가 관리자 권한이 있더라도 잠겨 있거나 숨겨진 페이지에는 트랙백을 보내지 못합니다. 페이지를 잠그거나 숨긴 의도를 생각해 볼 때 트랙백을 보내지 못한다고 해서 큰 불편은 없을 것이라 생각합니다.
이 정도면 거의 된 것 같네요. 위에 말한 자바스크립트를 함수로 뽑아내는 것만 해결하면 마무리지을까 합니다만, 또 다른 문제가 있나요? <mysign([[Raymundo]],2004-7-21 5:14 am)>


: 훌륭하십니다!!! 스크립트를 함수로 뽑아내는거야 뭐... http://jof4002.net/wikiscript.js 의 OnMemoToggle 같이 그냥 .js 파일에 함수넣고 쓰면 됩니다. .js 빼기 귀찮으시면 head 부분에 출력해도 되고요. <mysign([[조프]],2004-7-21 9:40 am)>

일단은... 끝났습니다. <mysign([[Raymundo]],2004-7-21 3:33 pm)>
</memo>

<memo(2007년1월6일 이전까지의 문답)>
대단히 죄송합니다만 넷트랙백은 어떻게 설치해야하나요? 흑흑 재주가없어서 재주것 설치못하겠어요. <mysign([[Nyxity]],2004-7-27 9:42 am)>

: 1. 서버 관리자에게 깔아 달라 부탁한다. \\
2. [http://www.perlmania.or.kr/DOCS/installing_perl_module.html 여기]를 보면서 직접 해 본다. \\
3. 모듈 설치와 관련하여 제가 실험해보고 싶은게 있는터라, 제게 메일로 서버, 아이디, 암호(임시로 바꿔 두시던가)를 알려 주시면 제가 해보겠습니다. <mysign([[Raymundo]],2004-7-27 11:49 am)>

:깨비멜로 보냈다가 프리챌로 바뀐것이 생각나서 그곳으로 다시보냈는데 지금 글을쓰다가 Gmail도 생각나서 그쪽으로도 보내야겠다고 생각하고있습니다. 근데 그쪽 주소가 없네요. 프리챌쪽으로만 보냈습니다. <mysign([[Nyxity]],2004-7-27 8:06 pm)>

[[Canday]]님 홈페이지의 경우 이글루스로부터 트랙백을 받았다 하면 에러가 나면서 락이 안 풀리는 현상이 발생하는데, 조사해 보니 환경변수 UseLookup = 1 이라서 이글루스 서버의 IP주소의 도메인네임을 얻으려다 타임아웃에 걸리는 것 같습니다. [[/Download]]에서 받아서 아무런 수정없이 설치한 버전에서는 잘 되는데 내가 좀 고쳐서 쓰는 버전에서는 안 되더라..는 경우는 이렇게 환경변수들 중에 자기가 변경한 값을 의심해 보는 것도 필요하겠습니다. <mysign([[Raymundo]],2004-7-30 5:33 pm)>

---- \\
어제 wiki.pl을 업데이트한 후 트랙백이 안보네집니다.  \\
Software error: \\
Can't locate Net/Trackback/Client.pm in @INC (@INC contains: /usr/lib/perl5/5.6.1/i386-linux /usr/lib/perl5/5.6.1 /usr/lib/perl5/site_perl/5.6.1/i386-linux /usr/lib/perl5/site_perl/5.6.1 /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.6.1/i386-linux /usr/lib/perl5/vendor_perl/5.6.1 /usr/lib/perl5/vendor_perl .) at /home/4/nyxity35/www/wiki/wiki.pl line 8563. \\
뭐가 잘못된 걸까요? <mysign([[Nyxity]],2004-11-18 10:16 am)>

: [[Perl/모듈설치]]의 4.1을 보면서 wiki.pl 을 고쳐 주시면 될 것 같습니다. <mysign([[Raymundo]],2004-11-18 10:27 am)>

::아하! wiki.pl에 한줄만 추가하면 되는 것이었군요. 모듈화로 wiki.pl을 통채로 바꾸면서 생기는 이런 일이 없어지겠죠? 감사합니다. <mysign([[Nyxity]],2004-11-18 10:53 am)>

::: 모듈화는 매크로에만 적용되는 것이니, 다른 부분이 바뀌면 이런 일은 또 생기겠죠. 사실 이것 말고도 wiki.pl 을 받아올 때마다 직접 손봐줘야 되는 부분들이 여럿 있어서 불편하긴 합니다만 딱히 좋은 해결책을 못 찾아서요. <mysign([[Raymundo]],2004-11-18 12:53 pm)>

에... CAFE24에서 잘 쓰고 있습니다만... \\
 \\
이상하게 트랙벡 핑을 보낼 수가 없네요. 내부 서버 문제라고는 하는데 어디가 문제인지는 나오지도 않고, 서버 로그도 어디 갔는지 모르겠고, 당황스럽습니다. \\
 \\
설정문제일까요? <mysign(死海文書,2005-12-16 9:43 pm)>

글쎄요, cafe24에서 사용하는 다른 분들이 있다면 비교해 볼 수 있겠지만... 트랙백이 예전에 되었다가 언젠가부터 안 된다는 얘기는 아닌 거죠? 제일 유력한 것은 트랙백 핑을 보낼 때 사용하는 펄 모듈들이 없는 게 아닐까 하는 겁니다. 그건 관리자에게 문의해서 설치해달라고 하던가 [[Perl/모듈설치]]를 참조해서 직접 설치하던가 하셔야 할 것 같네요. <mysign([[Raymundo]],2005-12-16 10:29 pm)>

안녕하세요~ :-) \\
[http://koreanrock.com/tort.pl?최근변경내역 여길] 보시면 요즘 고려바위가 트랙팩 스팸에 시달리고 있습니다. 잠시 옵션에서 트랙백 기능을 막아볼까 하고 찾아봤는데 찾기가 어렵네요. 트랙백 기능을 일단 끄려면 어떻게 해야할까요? \\
 \\
그나저나 어제 선거의 결과는 참으로 침통하네요. -_- <mysign([[거북이]],2006-6-1 11:59 am)>

허억.. 유즈모드위키도 이젠 트랙백 스팸에... -_-;;; \\
 \\
만들 때 이런 경우를 전혀 생각지 않았기 때문에, 개별 페이지를 잠그던가 숨기는 것 이외에는 트랙백을 받지 않게 할 방법이 없습니다. \\
 \\
쓸 수 있는 방법으로는... \\
관리자모드에서 금지어를 등록하여 트랙백에 금지어가 들어와 있는 경우 거부하게 하는 방법이 있겠고, 현재 쓰시는 버전이 최근 거라면 action/trackback.pl 파일을 지워버리면, 트랙백이 날아와도 아무런 일처리를 못하게 됩니다. 다만 페이지 하단에 있는 트랙백 주소 등은 여전히 나오고 있으니, 선의의 피해자가 생기겠죠. 트랙백 주고받기 란도 없애고 싶다면 그때는 wiki.pl 의 해당 출력 부분을 찾아서 지워주어야 합니다. <mysign([[Raymundo]],2006-6-1 12:36 pm)>
</memo>


불여우에서 Linkification 확장을 써서 불편함을 못느끼고 있었군요. <mysign([[Nyxity]],2007-2-9 10:30 am)>

: ㅋㅋㅋㅋ 역시 -_-=b 꽤 불편했을 텐데 가만히 참고 있지는 않고 있었을 거라 생각했어요. <mysign([[Raymundo]],2007-2-9 10:46 am)>

음 참고 있지 않는 정도가 아니라, 이 패치 때문에 오히려 그 Linkifcation 이 트랙백 주소 부분에 대해서 동작을 못하는군요. 동작하게 해주려면, Linkifcation 설정에 들어가서 고급->차단된 요소에 *[@onclick] 항목을 제거해줘야 하더군요. 이건 이거대로 불편한데... 표시된 주소를 클릭했을 때 복사하지 말고 옆에다가 따로 버튼을 만들던가 해야겠습니다. <mysign([[Raymundo]],2007-2-9 11:36 am)>

: 고쳤습니다. 버튼이 좀 어색하긴 하지만 쓰는 사람 입장에서는 이게 낫겠죠. :-) <mysign([[Raymundo]],2007-2-9 12:46 pm)>

:으음..왜 주소가 복사가 안될까요. 스크립트에 에러가 났다고 표시되네요. <mysign([[Nyxity]],2007-2-9 2:41 pm)>

:: 아 그렇잖아도 제가 물어보려고 했었는데 :-) 저번에 바벨 계정 들어가서 봤더니만 wikiscript.js 를 wiki가 설치된 곳에 있는 걸 쓰지 않고 "/wikiscript.js"를 쓰도록 설정해뒀었더군요. 아마도 스크립트는 공유하면서 여러 위키 디렉토리를 돌리려고 하나 싶어서 놔뒀습니다만. \\
 \\
지금 보니까 수정하신 건 wiki/ 디렉토리의 js 파일인데 여전히 config 파일에서는 "/wikiscript.js"를 쓰게 되어 있길래, 제가 config_gypark.pl을 고쳐서 wiki/ 아래에 있는 걸 쓰도록 해놨습니다. 지금은 잘 될거예요 <mysign([[Raymundo]],2007-2-9 2:55 pm)>

:::아 그렇군요. 경로가 이상하게 되어있었군요. 감사감사. <mysign([[Nyxity]],2007-2-9 3:00 pm)>

:::한가지 더.. 불여우의 경우 설정을 이렇게 하면 된다는 설명문을 추가하는 것이 좋지 않을까요? <mysign([[Nyxity]],2007-2-9 3:04 pm)>

불여우 사용자를 위한 옵션 설명문... 사실 넣기 싫어서 안 넣은게 아니었는데요 ^^ 문제가 좀 있습니다. 뭐 저도 어디 적어둬야겠다 싶은 터라 말이 나온김에 부연 설명을 하면... \\
 \\
일단, 불여우에서 제대로 복사가 되었는지 안 되었는지를 판단하고 복사가 안 된 경우만 따로 에러를 출력할 방법을 못 찾았습니다. \\
 \\
netscape.security.PrivilegeManager.enablePrivilege('UniversalXPConnect'); \\
 \\
위 코드를 실행할때 그 옵션에 따라서 성공/실패가 갈리는데, 옵션이 꺼져 있으면 그냥 스크립트가 종료되어버리는 것 같더군요.  \\
        if (netscape.security.PrivilegeManager.enablePrivilege('UniversalXPConnect')) { \\
            alert("성공"); \\
        } else { \\
            alert("실패"); \\
        } \\
이런 식으로 if 를 써서 비교하려고 해도 안 되더라고요. (해 보면, 옵션이 켜져 있으면 "실패"- 뜻밖에도 -가 뜨고, 꺼져 있으면 아무 반응 없음) \\
 \\
따라서 복사를 시도하기 전에 창을 띄워야 합니다. 그럼 FF 사용자는 무조건 확인창을 한번 눌러줘야 하는 것도 불편하고... 더 큰 문제는 옵션이 켜져 있어도 알림창은 뜰 것이기 때문에 찾아온 사람 입장에서는 "옵션이 켜져 있는데 왜 자꾸 뜨냐"라고 생각할까봐.. =.=;;; 어찌 보면 별 거 아닌데 괜히 신경 쓰이더라고요 ^^ \\
 \\
창을 띄우는게 아니라 버튼의 title 속성에 넣어서 클릭하기 전에 가리켰을 때 나오게 할까도 했는데... 정작 FF에서는 title 문자열이 길면 뒤를 잘라먹고 말줄임표로 줄여서 표시해버리더군요 OTL \\
 \\
별 수 없이 "만일 복사에 실패했다면, 이 옵션을 체크하라"는 식으로 창을 띄울 생각입니다. 근데 스크립트에 직접 넣을 스트링이라 영작해야 되겠군요 =.=; "If it failes to copy, check the option:" 정도면 되려나요.<mysign([[Raymundo]],2007-2-9 5:07 pm)>

:으어.. 제 생각은 이페이지 트랙백 주소 바로 밑에 줄에 설명만 있으면 좋겠다..정도였는데.. 그렇게 복잡하게 될 줄은.. <mysign([[Nyxity]],2007-2-9 5:26 pm)>

:: 으음... 그런 좋은 방법이 있었군요 ^^;;;; <mysign([[Raymundo]],2007-2-9 6:20 pm)>

트랙백을 보내려고 했더니 에러가 나요. <mysign([[Nyxity]],2007-2-13 3:53 pm)>

Can't locate object method "charset" via package "Net::Trackback::Client" (perhaps you forgot to load "Net::Trackback::Client"?) at /home/4/nyxity35/www/wiki/wiki.pl line 9143. \\
 \\
For help, please send mail to the webmaster (postmaster@nyxity.com), giving this error message and the time and date of the error.  \\
 \\
9143째 줄은 DoSendTrackbackPing 함수의 \\
        $client->charset("$HttpCharset"); \\
부분입니다. <mysign([[Nyxity]],2007-2-13 3:55 pm)>

: Net::Trackback 모듈 [http://search.cpan.org/~tima/Net-Trackback-1/ 최신 버전]을 받아서 다시 설치하시면 될 것으로 생각됩니다. 바벨 계정 들어가보니 그 함수가 Client.pm 파일에 없군요. <mysign([[Raymundo]],2007-2-13 4:25 pm)>

:호스팅사에게 설치해달라고 해서 설치를 했습니다만. 그래도 같은 에러가 나네요. 기존 설치했던 것 때문에 경로같은걸 바꿔줘야할듯한데.. <mysign([[Nyxity]],2007-2-13 5:13 pm)>

:: 이야, 반나절만에 설치를 해주다니 정말 빠르군요 ^^ 말씀하신 것처럼 여전히 기존 버전을 사용하는 것으로 보입니다. 그렇지만 대부분의 경우 "서버에 설치된 것보다 내 계정에 직접 설치한게 더 최신 버전"이라고 보는 것이 합리적이기 때문에, wiki.pl에 있는 경로를 바꾸는 건 좋은 생각 같지 않고요. Nyxity 님 계정에 있는 perl 디렉토리에서 Net/Trackback.pm 파일과 Net/Trackback 디렉토리를 (Net은 말고요) 지워보세요. (불안하면 백업해두시고) <mysign([[Raymundo]],2007-2-13 6:02 pm)>


음, 지난 몇 년 간 사용한 적이 없군... 삭제할까.. -_- <mysign([[Raymundo]],2012-2-9 12:15 pm)>

: 전 이미 삭제했습니다... orz <mysign([[조프]],2012-2-9 1:58 pm)>

: 네, 사실 조프위키의 소스수정 페이지에서 삭제된 것들 보면서 검토하고 있는 거거든요 :-) <mysign([[Raymundo]],2012-2-9 4:09 pm)>

2.34에서 삭제했습니다. <mysign([[Raymundo]],2012-2-11 12:43 am)>

아... 삭제되었군요. <mysign([[Nyxity]],2012-7-17 11:07 am)>
<longcomments(100)>
----
[[위키위키분류]]
UseModWiki소스수정/TrackBack 페이지로 돌아가기 | 다른 수정본 보기