UseModWiki소스수정/웹페이지링크쉽게올리기

1. 웹페이지 링크 횡설수설 등에 쉽게 올리기

1.1. 사용법

1.1.1. 마우스로 긁어서 선택한 텍스트가 있는 상태에서 스크립트를 띄우면

1.1.2. 추가 - 매크로 종류도 선택하기

1.1.3. 추가 - 클립보드에 복사하기, 링크 형태 전환하기

1.2. 부작용

1.3. 발견된 문제점

1.3.1. 즐겨찾기를 클릭해도 반응이 없고, "액세스가 거부되었습니다"라는 자바스크립트 에러가 나옴

1.3.2. URL 이 이상하게 바뀜 (해결됨)

1.4. addtopic.pl 추가

1.5. 추가 업데이트 내역

1.6. 사용자 의견

1. 웹페이지 링크 횡설수설 등에 쉽게 올리기

1.1. 사용법

• 팝업창을 띄우는 스크립트:
  • javascript:wiki='http://gypark.pe.kr/wiki';id='횡설수설';up='-100';t='';if(window.getSelection){t=window.getSelection();}else if(document.getSelection){t=document.getSelection();}else if(document.selection){t=document.selection.createRange().text;}function e(s){return encodeURIComponent(s);}void(open(wiki+'?action=addtopic&id='+e(id)+'&up='+up+'&url='+e(location.href)+'&title='+e(document.title)+'&text='+e(t),'topic','toolbar=no,scrollbars=yes,width=750,height=330'));

• 현재 창을 사용하는 스크립트:
  • javascript:wiki='http://gypark.pe.kr/wiki';id='횡설수설';up='-100';t='';if(window.getSelection){t=window.getSelection();}else if(document.getSelection){t=document.getSelection();}else if(document.selection){t=document.selection.createRange().text;}function e(s){return encodeURIComponent(s);}location.href=wiki+'?action=addtopic&id='+e(id)+'&up='+up+'&url='+e(location.href)+'&title='+e(document.title)+'&text='+e(t);

• 주의 스크립트의 전체 길이가 512바이트 정도를 넘어가면 IE에서는 동작하지 않는다. 그리고 IE에 저장될때 공백 " "이 "%20"으로 바뀌어서 저장되니까 그렇게 늘어나는 길이도 고려를 해야 한다. (자기 위키 주소가 엄청나게 길게 되어 있지 않는 이상 어지간하면 괜찮을 걸로 생각하지만..)

• wiki='http://gypark.pe.kr/wiki' : 자기 위키의 wiki.pl 주소. 뒤에 물음표나 슬래쉬 붙이지 말 것
  • (예: wiki='http://my.domain.com/cgi-bin/wiki/wiki.pl')
• id='횡설수설' : 자기 위키에 있는 페이지이름
• up='-100' : 저 id페이지에 있는 "새 글 쓰기" thread 매크로에 적혀 있는 인자값.
• id와 up이 실제 존재하는 값과 일치해야만 제대로 페이지가 수정된다.

########## 자기 위키에 맞춰서 바꿔 줄 부분
    my ($title_only, $title_with_text, $guide_msg);
    # 텍스트 필드에 자동으로 채워지는 형태
    $title_only      = '[$url $title]';             # 선택한 텍스트가 없는 경우
    $title_with_text = '[$url $text -- $title]';    # 있는 경우


    $guide_msg =                # 입력폼 상단에 나올 안내문
        "웹사이트 링크는 [http://www.usemod.org UseModWiki] 형식으로 하면 됩니다.";
##########

1.1.1. 마우스로 긁어서 선택한 텍스트가 있는 상태에서 스크립트를 띄우면

[URL주소 해당웹페이지의제목]
[URL주소 해당웹페이지의제목] 선택한텍스트

[URL주소 해당웹페이지의제목]
[URL주소 선택한텍스트 --- 해당웹페이지의제목]

    my $title_with_text = '[$url $title] $text';

1.1.2. 추가 - 매크로 종류도 선택하기

• 팝업창을 띄우는 스크립트:
  • javascript:wiki='http://gypark.pe.kr/wiki';id='횡설수설';up=-100;m=3;t='';if(window.getSelection){t=window.getSelection();}else if(document.getSelection){t=document.getSelection();}else if(document.selection){t=document.selection.createRange().text;}function e(s){return encodeURIComponent(s);}void(open(wiki+'?action=addtopic&id='+e(id)+'&up='+up+'&m='+m+'&url='+e(location.href)+'&title='+e(document.title)+'&text='+e(t),'topic','toolbar=no,scrollbars=yes,width=750,height=330'));

• 현재 창을 사용하는 스크립트:
  • javascript:wiki='http://gypark.pe.kr/wiki';id='횡설수설';up=-100;m=3;t='';if(window.getSelection){t=window.getSelection();}else if(document.getSelection){t=document.getSelection();}else if(document.selection){t=document.selection.createRange().text;}function e(s){return encodeURIComponent(s);}location.href=wiki+'?action=addtopic&id='+e(id)+'&up='+up+'&m='+m+'&url='+e(location.href)+'&title='+e(document.title)+'&text='+e(t);

• m=3: 해당 페이지에 사용한 매크로가 무엇인지 지정
  • 1 - comments
  • 2 - longcomments
  • 3 (또는 1,2 이외의 아무 값) - thread
  • 위키는 자기가 불렸을 때 m값이 없으면 기본으로 3을 택한다. 따라서 m을 언급하지 않은 위의 스크립트는 thread로 처리

1.1.3. 추가 - 클립보드에 복사하기, 링크 형태 전환하기

(숨겨져 있는 버튼을 찾아라~)

• Copy to clipboard"
• 클릭하면 텍스트 영역에 있는 텍스트 전체를 클립보드에 복사한다.
• 북마클릿을 만든 페이지 이외의 다른 페이지에 링크를 올릴 때 쓰는 용도

• 텍스트 영역에 있는 URL 링크의 형태를 전환한다.

[URL 설명] - 1)
설명[URL]  - 2)

• 클릭할 때마다 번걸아가면서 1)->2), 2)->1)로 바뀐다.
• 유의 1)->2)는 좌우 경계가 대괄호로 명확하게 구분되기 때문에 문제가 없는데, 2)에서 1)로 변환할 때는 앞에 어디까지가 설명인지 알 수 없기 때문에, 대괄호 앞에 있는 모든 글자를 다 설명으로 취급한다.

1.2. 부작용

1.3. 발견된 문제점

1.3.1. 즐겨찾기를 클릭해도 반응이 없고, "액세스가 거부되었습니다"라는 자바스크립트 에러가 나옴

• IE6으로 (FF는 괜찮고, 심지어 IE의 프론트엔드인 웹마에서도 괜찮다. 오직 IE만... 아 정말 뭣같은 브라우저다.)
• 특정 웹페이지를 보다가 (일단 네이버 뉴스에서 발견했음. 네이버 대문은 괜찮은데 개별 기사, 특히 메인에서 링크된 주요 기사들이 그랬음. 사용자 게시물 같은 건 또 괜찮았고)
• 마우스로 IE의 주소창이나 다른 어플리케이션을 클릭해서 포커스를 그쪽으로 옮긴 직후
• 곧바로 IE의 즐겨찾기 메뉴를 클릭해서 "횡설수설하기"를 클릭한 경우

1.3.2. URL 이 이상하게 바뀜 (해결됨)

• IE6 에서 - 진짜 상종 못할 브라우저다
• 어디서나 가능성이 있지만 매우 빈번하게 네이버 뉴스에서 - 네이버도 참...

원래 기사URL: http://news.naver.com/news/read.php?mode=LSS2D&office_id=023&article_id=0000237284&section_id=102&section_id2=255&menu_id=102
저장된 URL:   http://news.naver.com/news/read.php?mode=LSS2D&office_id=023&article_id=0000237284§ion_id=102§ion_id2=255&menu_id=102

• 횡설수설에 올리기 창이 뜬 시점까지는 제대로 들어가 있는데, (소스 보기를 하면 알 수 있음)
• 그게 화면에 출력되는 시점에서 IE가 "&sect"를 제 멋대로 "§"즉 "§"로 표시를 하고, -_-;;; (뒤에 세미콜론이 없는데도 왜 멋대로!!! 실수로 빼먹었을까봐 배려해준답시고?)
• 이 상태에서 "달기" 버튼을 눌러 submit하면 저 "§"가 위키 서버로 날아가서 저장된다.

1.4. addtopic.pl 추가

# See http://jof4002.net/?UseModWiki소스수정/주절주절에쉽게올리기
#     http://gypark.pe.kr/wiki/UseModWiki소스수정/웹페이지링크쉽게올리기

use strict;

sub action_addtopic {
########## 자기 위키에 맞춰서 바꿔 줄 부분
    my ($title_only, $title_with_text, $guide_msg);
    # 텍스트 필드에 자동으로 채워지는 형태
    $title_only      = '[$url $title]';             # 선택한 텍스트가 없는 경우
    $title_with_text = '[$url $text -- $title]';    # 있는 경우

    $guide_msg =                # 입력폼 상단에 나올 안내문
        "웹사이트 링크는 [http://www.usemod.org UseModWiki] 형식으로 하면 됩니다.";
##########

    $EmbedWiki = 1;

    # 필요한 데이타를 쿼리스트링으로부터 가져옴
    my ($id, $up, $url, $title, $text, $macro);
    $id    = &GetParam("id", "");
    $up    = &GetParam("up", "");
    $url   = &GetParam("url", "");
    $title = &GetParam("title", "");
    $text  = &GetParam("text", "");
    $macro  = &GetParam("m", 3);

    # 그 외 출력할 때 사용될 변수들
    my ($header_msg, $ccode, $idvalue, $name_field, $default_text, $comment_field);
    my ($threadindent, $long);

    # 매크로 종류
    if ($macro == 1) {      # comments
        ($threadindent, $long) = ("", "0");
    } elsif ($macro == 2) { # longcomments
        ($threadindent, $long) = ("", "1");
    } else {                # thread
        ($threadindent, $long) = ("0", "1");
    }

    # 인코딩 관련 처리들
    $guide_msg = &guess_and_convert($guide_msg);
    $header_msg = "$id 페이지에 올리기";
    $header_msg = &guess_and_convert($header_msg);
    # 위키에서 UTF-8이 아닌 인코딩을 사용하는 경우는 변환
    if ($HttpCharset !~ /utf-8|utf8/i) {
        $id = &convert_encode($id, "UTF-8", $HttpCharset);
        $title = &convert_encode($title, "UTF-8", $HttpCharset);
        $text = &convert_encode($text, "UTF-8", $HttpCharset);
    }

    # ccode
    $ccode = &simple_crypt(length($id).substr(&CalcDay($Now),5));

    # 사용자 이름 필드에 채워넣을 값
    if (&LoginUser()) {
        $idvalue = "[[$UserID]]";
    }
    $name_field = $q->textfield(-name=>"name",
                                -class=>"comments",
                                -size=>"15",
                                -maxlength=>"80",
                                -default=>"$idvalue");

    # 입력폼에 채워넣을 기본 텍스트
    $text =~ s/^\s*//;
    $text =~ s/\s*$//;
    if ($text eq "") {
        eval '$default_text = "'.$title_only.'";';
    } else {
        eval '$default_text = "'.$title_with_text.'";';
    }

    $comment_field = &GetTextArea("comment", $default_text, 7, 80);

    # html 출력
    print &GetHeader("", $header_msg, "");
    print
        $q->h2($header_msg).
        "<DIV class='threadnew'>".
        $guide_msg."\n".
        $q->startform(-name=>"comments",-method=>"POST",-action=>"$ScriptName",
                -enctype=>"application/x-www-form-urlencoded",
                -accept_charset=>"$HttpCharset")."\n".
        &GetHiddenValue("action","comments")."\n".
        &GetHiddenValue("id","$id")."\n".
        &GetHiddenValue("pageid","$id")."\n".
        &GetHiddenValue("up","$up")."\n".
        &GetHiddenValue("ccode","$ccode") ."\n".
        &GetHiddenValue("long","$long")."\n".
        &GetHiddenValue("threadindent","$threadindent")."\n".
        T('Name') . ": ".
        $name_field . "&nbsp;"."\n".
        T('Comment') . ":<br>".
        $comment_field . "&nbsp;" ."\n".
        $q->submit(-name=>"Submit",-value=>("&nbsp;"x5).T("Submit").("&nbsp;"x5))."\n".
        "<DIV"
        . " onMouseOver=\"document.getElementById('secret').style.visibility='visible'\""
        . " onMouseOut=\"document.getElementById('secret').style.visibility='hidden'\""
        . ">"."\n".
        "<DIV id=\"secret\""
        . " style='text-align: right; visibility: hidden; border: 1px dashed red;'"
        . ">"."\n".
        $q->button(
                -name=>T("Copy to clipboard"),
                -onClick=>"copy_clip('',document.comments.comment.value)"
                ).
        " ".
        $q->button(
                -name=>T("Toggle format"),
                -onClick=>"change_format(document.comments.comment)"
                )."\n".
        "</DIV>"."\n".
        "</DIV>"."\n".
        $q->endform."\n".
        "</DIV>";

## "[URL 설명]" 형태와 "설명[URL]" 형태를 토글해주는 함수
    print <<EOF;

<script>
var to_bracket_url=true;
<!--
function change_format(obj) {
    var str = obj.value;
    if (to_bracket_url) {
        str = str.replace(/\\[(\\S+?)\\s(.*?)\\]/g,"\$2\[\$1\]");
    }
    else {
        str = str.replace(/(\\S.*)\\[(\\S+?)\\]/g,"\[\$2 \$1\]");
    }
    to_bracket_url = !to_bracket_url;

    obj.value = str;
}
-->
</script>
EOF
    print $q->end_html;

    return;
}

1;

1.5. 추가 업데이트 내역

• 자바스크립트가 인터넷 익스플로러에서도 마우스로 긁어서 선택한 텍스트가 있는 경우를 지원하게 함. [이 글]과 [이 코멘트]를 참조했음
• 입력폼에 채워질 형식을 입맛대로 고치기 쉽게 코드 앞쪽에 변수로 지정하게 함

• 수정할 페이지 이름과 thread매크로의 up번호까지도 자바스크립트쪽에서 지정할 수 있게 함. (pl파일을 직접 고칠 필요를 최소화)
• 자기 위키가 EUC-KR, UTF-8 중 어느 쪽이더라도 별 문제 없이 작동하게 함 (근데 뭐 빠뜨린게 없는지 모르겠음 -_-;)

• 파라메터로 받은 url에 포함된 &를 &로 바꾼 후 textarea에 내보내게 함

1.6. 사용자 의견

전체 주소가 508자를 넘어가면 작동하지 않음 -_-;;; 아 놔 별 게 다 속을...

-- Raymundo 2007-3-8 1:28 pm

아마도 512바이트 제한이고, "횡설수설" 네 글자가 8바이트를 차지해서 508자였던 듯. (짐작)

-- Raymundo 2007-3-8 2:44 pm

그것도 그렇고, FF용으로는 각종 블로그툴을 위한 북마클릿(이런 게 바로 북마클릿이란 걸 이제서야 알았습니다 ^^;)도 제공되고 있는 듯 하더군요. 근데 웹마가 손에 익은 이상 잘 못 넘어가겠더라고요.

-- Raymundo 2007-3-8 6:05 pm

엥? 그건 델리셔스에서 제공해야만... 혹시 델리셔스쪽에서, 다른 스크립트가 자기에게 태그를 등록할 수 있도록 인터페이스를 제공하고 있다면 그걸 쓰게 해 볼 수는 있을 것 같습니다. 근데 submit 버튼 하나로 양쪽을 구동시키는 건 안 될 것 같던데...

-- Raymundo 2007-3-9 12:52 pm

크, 역시나 불안하더라니 거기서 문제가...

그 구글에 있는 옛날 링크가 깨진다고 해서 한줄 추가해 준 거 주석처리해버리세요.

### QUERY_STRING이 %-인코딩된 형태로 오는 경우
### guess를 해도 ascii로 판정되기 때문에 변환이 안 된다.
### 이 시점에서 디코딩하여 복원함
$ENV{'QUERY_STRING'} =~ s/%([0-9a-fA-F]{2})/chr(hex($1))/ge; # 이 거

구글 쪽 문제는 다른 식으로 해결해야겠네요.

-- Raymundo 2007-3-23 2:35 pm

Hmmm... several years ago, I made usemodkr support UTF-8. There were a lot of work to do it. I can't remember what I did... sorry.

Did you check encoding setting for usemod script?

-- Raymundo 2012-8-14 12:17 pm