(UseModWiki소스수정/TrackBackReceived매크로 페이지로부터 자동으로 이동)

UseModWiki소스수정/TrackBack

(삭제됨)

1. TrackBack

2. 사용법

2.1. TrackBack 보내기 (UseModWiki로부터 다른 블로그나 위키로)

2.2. 보낸 트랙백 목록 - <trackbacksent> 매크로

2.3. 트랙백 보내기 테스트 결과

2.4. TrackBack 받기 (다른 블로그나 위키로부터 UseModWiki로)

2.5. 받은 트랙백 목록 - <trackbackreceived> 매크로

2.6. 스타일쉬트

3. 문제점 및 부작용

4. 소스 수정

4.1. config.pl 수정

4.2. wiki.pl 수정

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

4.3. action/tb.pl 추가

4.4. wiki.css 수정

4.5. wikiscript.js 수정

4.6. translations/korean.pl 수정

5. 추가 업데이트 내역

6. 관련 링크

7. 사용자 의견

1. TrackBack

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

2. 사용법

2.1. TrackBack 보내기 (UseModWiki로부터 다른 블로그나 위키로)

• 각 페이지 하단, 편집 가이드 위에 트랙백을 보낼 타겟 주소를 입력하는 창과 버튼이 표시된다.
  
• 블로그의 경우 블로그 주인만이 트랙백을 보내는 것이 당연하지만, 위키위키의 특성상 홈페이지 주인이 아닌 다른 사람이 위키 페이지의 트랙백을 다른 곳으로 보내도록 허용할 필요가 있다. 따라서 이 허가권은 다음 환경변수를 사용하여 지정한다.
  • UseModWiki소스수정/Configuration에 다음 변수를 추가한다.

$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 모듈의 문제인지 에러 메시지를 제대로 가져오지 못하고 있다. 일단 [버그리포트]를 해 둔 상태이고, 현재 GyparkWiki 에서는 서버에 있는 펄 모듈 자체를 고치는 만행을 저질렀기 때문에 메시지가 나오긴 한다. (대신 무슨 부작용이 있을지..)
• 트랙백을 보낼 때, 트랙백URL 외에 별도로 Permalink URL (한글로는 "해당 글의 URL")을 줄 수 있다. 이것은 아래 "보낸 트랙백 목록"에서 사용된다.

2.2. 보낸 트랙백 목록 - <trackbacksent> 매크로

• 트랙백을 보낼 경우 자기가 어디어디에 보냈는지 로그를 남기고 싶을 수 있다. 따라서 /TrackBackSent매크로를 제공한다.
  • 사용법: <trackbacksent>
• 어떤 페이지의 트랙백 핑을 성공적으로 보냈을 때, 그 페이지에 이 매크로가 있을 경우 이 매크로 바로 위에 다음과 같은 형식으로 내용을 추가하여 페이지를 저장한다. 즉 자동으로 페이지가 수정된다.

* 날짜 시간 | 트랙백 핑을 보낸 트랙백URL
또는 트랙백을 보낼때 Permalink URL 을 입력했다면
* 날짜 시간 | 트랙백 핑을 보낸 게시물의 Permalink URL

• "*"로 시작하기 때문에 자동으로 리스트가 되며, 시간순으로 배열된다. /Comments매크로와 유사하다.
• 페이지가 수정되면서 summary 에는 트랙백을 보냈다는 메시지가 삽입된다.
• 페이지를 표시할 때는 이 매크로는 현재 목록에 있는 보낸 트랙백들의 갯수를 출력하며, /Memo매크로와 동일하게 목록 내용을 감춘다.
  • 즉, 다음과 같은 경우

* 보낸 트랙백 1
* 보낸 트랙백 2
* 보낸 트랙백 3
<trackbacksent>

• 아래와 같이 출력된다.

• 트랙백 목록 바로 위에 "* "로 시작하는 줄이 있으면 갯수에 포함되어 버리니 주의
• 일관성 측면에서 약간의 문제점이 있는데, 이 매크로가 없는 페이지의 경우는 트랙백을 보내도 페이지에 수정되는 사항이 없기 때문에 결과적으로 최근변경내역에 표시되지 않는다. 뭐, 별 수 없다고 생각함.

2.3. 트랙백 보내기 테스트 결과

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

2.4. TrackBack 받기 (다른 블로그나 위키로부터 UseModWiki로)

• /페이지숨김 기능을 사용하여 관리자가 감춘 페이지
• 관리자가 잠근 페이지
  • 페이지를 잠궜으나 트랙백은 받고 싶은 경우나, 트랙백은 불허하되 타인의 수정은 허가하고 싶은 경우가 있을 수 있는데... 잠그는 의도를 생각해 볼 때 이런 경우가 흔하지는 않을 것이라 생각함.

2.5. 받은 트랙백 목록 - <trackbackreceived> 매크로

• trackbacksent 와 유사한 trackbackreceived 매크로를 제공한다.
  • 사용법: <trackbackreceived>
• 외부로부터 트랙백이 날아왔을 때, 이 매크로가 있을 경우 이 매크로 바로 위에 다음과 같은 형식으로 내용을 추가하여 페이지를 저장한다. 즉 자동으로 페이지가 수정된다.

* 블로그 이름 시간
** 제목 : ...
** 내용 : ...

• 페이지가 수정되면서 summary 에는 트랙백을 받았다는 메시지가 삽입된다.
• 페이지를 표시할 때는 이 매크로는 현재 목록에 있는 받은 트랙백들의 갯수를 출력하며, /Memo매크로와 동일하게 목록 내용을 감춘다.
  • 즉, 다음과 같은 경우

* 블로그 이름 1
** 제목 1
** 내용 1
* 블로그 이름 2
** 제목 2
** 내용 2

• 아래와 같이 출력된다.

• 페이지 내에 이 매크로가 없는 데 트랙백이 날아올 경우는, 자동으로 페이지 내용 제일 아래에 이 매크로를 삽입하게 된다.

2.6. 스타일쉬트

3. 문제점 및 부작용

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

4. 소스 수정

4.1. config.pl 수정

### trackback 보내기
$SendPingAllowed = 0;   # 0 - anyone, 1 - who can edit, 2 - who is admin

4.2. wiki.pl 수정

### 패치를 위해 추가된 환경설정 변수
use vars qw(
    ...
    $SendPingAllowed
    );

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

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

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

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

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");
}

sub GetParam {
    my ($name, $default) = @_;
    my $result;

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

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

sub DoPostMain {
    ...
    &ReBrowsePage($id, "", 1) if ($id ne "!!");   # if 문 추가
}

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/"/&quot;/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>";
}

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

• 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 두 경우 다 "/"는 인코딩하지 않고 있다.

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

4.3. action/tb.pl 추가

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;

4.4. wiki.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;
}

4.5. wikiscript.js 수정

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

4.6. 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]

5. 추가 업데이트 내역

• 소스 코드 내에서 함수 이름이나 변수, 스트링 등에 있는 "TrackBack"을 "Trackback"으로 고쳤습니다. 원하지 않는 곳에서 위키네임으로 인식될 우려가 있어서.. 스트링만 고치고 나니 일관성이 없어보여서 죄다 고쳤습니다.
• trackbacksent 와 trackbackreceived 매크로 구현 변경 - memo 매크로처럼 자동으로 목록을 숨겨주며, 펼치는 링크 부분에 보내거나 받은 트랙백들의 갯수를 출력해 줍니다.

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

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

• 받는 트랙백 주소를 "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+$//;" 라는 라인이 추가되었습니다.

• /Comments와Thread매크로스팸막기로 소스가 변경되었습니다. 자세한 것은 저 페이지를 참조

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

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

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

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

• 인코딩 변환 루틴 수정 - POST 요청이면서 CONTENT_TYPE에 charset이 명시되어 있는 경우는 그 값을 보고 변환하고, 그 외의 경우는 추측해서 변환하도록 함.

6. 관련 링크

• TrackBack논의
• TrackBack
• TrackBack
• [TrackBack Technical Specification]

7. 사용자 의견

    (my $result = $string) =~ s!([^a-zA-Z0-9_.-])!uc sprintf "%%%02x", ord($1)!eg;

ㅋㅋㅋㅋ 역시 -_-=b 꽤 불편했을 텐데 가만히 참고 있지는 않고 있었을 거라 생각했어요.

-- Raymundo 2007-2-9 10:46 am

고쳤습니다. 버튼이 좀 어색하긴 하지만 쓰는 사람 입장에서는 이게 낫겠죠. :-)

-- Raymundo 2007-2-9 12:46 pm

으음..왜 주소가 복사가 안될까요. 스크립트에 에러가 났다고 표시되네요.

-- Nyxity 2007-2-9 2:41 pm

아 그렇잖아도 제가 물어보려고 했었는데 :-) 저번에 바벨 계정 들어가서 봤더니만 wikiscript.js 를 wiki가 설치된 곳에 있는 걸 쓰지 않고 "/wikiscript.js"를 쓰도록 설정해뒀었더군요. 아마도 스크립트는 공유하면서 여러 위키 디렉토리를 돌리려고 하나 싶어서 놔뒀습니다만.

지금 보니까 수정하신 건 wiki/ 디렉토리의 js 파일인데 여전히 config 파일에서는 "/wikiscript.js"를 쓰게 되어 있길래, 제가 config_gypark.pl을 고쳐서 wiki/ 아래에 있는 걸 쓰도록 해놨습니다. 지금은 잘 될거예요

-- Raymundo 2007-2-9 2:55 pm

아 그렇군요. 경로가 이상하게 되어있었군요. 감사감사.

-- Nyxity 2007-2-9 3:00 pm

한가지 더.. 불여우의 경우 설정을 이렇게 하면 된다는 설명문을 추가하는 것이 좋지 않을까요?

-- Nyxity 2007-2-9 3:04 pm

으어.. 제 생각은 이페이지 트랙백 주소 바로 밑에 줄에 설명만 있으면 좋겠다..정도였는데.. 그렇게 복잡하게 될 줄은..

-- Nyxity 2007-2-9 5:26 pm

으음... 그런 좋은 방법이 있었군요 ^^;;;;

-- Raymundo 2007-2-9 6:20 pm

Net::Trackback 모듈 [최신 버전]을 받아서 다시 설치하시면 될 것으로 생각됩니다. 바벨 계정 들어가보니 그 함수가 Client.pm 파일에 없군요.

-- Raymundo 2007-2-13 4:25 pm

호스팅사에게 설치해달라고 해서 설치를 했습니다만. 그래도 같은 에러가 나네요. 기존 설치했던 것 때문에 경로같은걸 바꿔줘야할듯한데..

-- Nyxity 2007-2-13 5:13 pm

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

-- Raymundo 2007-2-13 6:02 pm

전 이미 삭제했습니다... orz

-- 조프 2012-2-9 1:58 pm

네, 사실 조프위키의 소스수정 페이지에서 삭제된 것들 보면서 검토하고 있는 거거든요 :-)

-- Raymundo 2012-2-9 4:09 pm