6 번째 수정본 소스 보기 : UseModWiki소스수정/페이지소스보기

내용출력
로그인[l]
수정할 수 없습니다: UseModWiki소스수정/페이지소스보기 는 읽기 전용 페이지입니다.
<font color="red">아직 적용하지 마세요</font>

== view action 추가 및 잠긴 페이지의 소스를 볼 수 있게 함 ==
* $EditAllowed = 0 일 때 로그인하지 않은 사용자의 경우나, 특정한 페이지가 잠겨 있는데 관리자 권한이 없는 사용자의 경우 등 페이지를 수정할 수 없는 경우는 페이지 소스 자체를 보는 것 조차 불가능하다.
* WikiX 에서처럼, 수정 권한이 없더라도 페이지 소스를 보는 것은 가능하게 하였다.
* 소스를 보는 것조차 금지하고 싶은 페이지도 있지 않겠는가..라고 할 수가 있겠는데, diff 만 봐도 소스의 일부분 또는 전부가 드러나고, 어차피 최종 html 출력을 보면 그만이기 때문에 굳이 막는 것이 의미가 없다고 판단하였다.

* 필수 요구 사항 : 없음
* 선택 요구 사항 : 없음

* 사용법 :
** 이 패치를 적용하면, 기존에 "This page is read-only (이 페이지는 수정이 불가능합니다)" 라고 나오던 자리에 "View text of this page (페이지 소스 보기)" 란 링크가 나온다. 이 링크를 클릭하면 페이지 소스를 볼 수 있다.
** 마우스를 더블 클릭했을 때 역시, 페이지 수정 권한이 있는지 여부에 따라서 자동으로 편집 창 또는 소스 보기 창을 띄워준다. (따라서 [[/마우스더블클릭]] 패치는 더 이상 유용하지 않다)
** wiki.pl?action=view&id=페이지이름[&revision=리비전번호] 의 형식으로 직접 호출할 수도 있다.
*** revision 번호 파라메터를 생략하면 현재 버전을 보여준다.

* 부작용 : 테스트하는 동안에는 별다른 문제가 발견되지는 않았다.

* 소스 수정
: 마우스 더블 클릭을 처리하는 부분
{{{perl
sub GetHtmlHeader {
    ...
    if ($bgcolor ne '') {
        $bodyExtra = qq( BGCOLOR="$bgcolor");
    }
###############
### replaced by gypark
### #EXTERN
    # added luke
#   if ($ClickEdit) {
#       if ($FreeLinks) {
#           $id = &FreeToNormal($id);
#       }
#       $bodyExtra .= qq(ondblclick="location.href='$ScriptName?action=edit&id=$id'");
#   }
    # end

    if (&GetParam('InFrame','') ne '') {
        $html .= qq(<base target="_parent">\n);
    } else {
        if ($ClickEdit) {
            if ($FreeLinks) {
                $id = &FreeToNormal($id);
            }
### 아래의 세 줄이 새로 수정된 부분이다
            my $action = "view";
            $action = "edit" if (&UserCanEdit($id,0));
            $bodyExtra .= qq(ondblclick="location.href='$ScriptName?action=$action&id=$id'");
### 여기까지
        }
    }

###
###############

    # Insert any other body stuff (like scripts) into $bodyExtra here
    # (remember to add a space at the beginning to separate from prior text)
    $html .= "</HEAD><BODY $bodyExtra>\n";
    return $html;
}
}}}

: 편집 가이드 수정
{{{perl
sub GetEditGuide {
    ...
    if (&UserCanEdit($id, 0)) {
        if ($rev ne '') {
            $result .= &GetOldPageLink('edit',   $id, $rev,
                     Ts('Edit revision %s of this page', $rev));
        } else {
            $result .= &GetEditLink($id, T('Edit text of this page'));
        }
    } else {
###############
### replaced by gypark
### view action 추가
#       $result .= T('This page is read-only');
        if ($rev ne '') {
            $result .= &GetOldPageLink('view',   $id, $rev,
                     Ts('View revision %s of this page', $rev));
        } else {
            $result .= &GetViewLink($id, T('View text of this page'));
        }
###
###############
    }
    $result .= "</DIV>";
    ...
}
}}}

: redirect 나 extern 을 사용한 페이지의 상단의 안내문에 있는 페이지 링크도 마찬가지로 view 또는 edit 를 결정한다. [[/EXTERN명령어]] 패치와 섞여 있으니 주의.
{{{perl
sub GetHeader {
    ...
###############
### replaced by gypark
### #EXTERN
#   if ($oldId ne '') {
#       $result .= $q->h3('(' . Ts('redirected from %s',
#                                                            &GetEditLink($oldId, $oldId)) . ')');
#   }

    my $topMsg = "";
    if ($oldId ne '') {
### view action 추가 by gypark
#       $topMsg .= '('.Ts('redirected from %s',&GetEditLink($oldId, $oldId)).')  ';
        my $oldpagelink = &GetViewLink($oldId, $oldId);
        $oldpagelink = &GetEditLink($oldId, $oldId) if (&UserCanEdit($oldId));
        $topMsg .= '('.Ts('redirected from %s',$oldpagelink).')  ';
    }
    if (&GetParam('InFrame','') eq '1') {
### view action 추가 by gypark
#       $topMsg .= '('.Ts('%s includes external page',&GetEditLink($id,$id)).')';
        my $oldpagelink = &GetViewLink($id, $id);
        $oldpagelink = &GetEditLink($id, $id) if (&UserCanEdit($id));
        $topMsg .= '('.Ts('redirected from %s',$oldpagelink).')  ';
    }
    $result .= $q->h3($topMsg) if (($oldId ne '') || (&GetParam('InFrame','') eq '1'));
###
###############
    ...
}
}}}

: action=view 로 불렀을 때 동작시키는 부분
{{{perl
sub DoOtherRequest {
    ...
        if ($action eq "edit") {
            &DoEdit($id, 0, 0, "", 0)  if &ValidIdOrDie($id);
###############
### added by gypark
### "view" action 추가
        } elsif ($action eq "view") {
            &DoView($id);
###
###############
        } elsif ($action eq "unlock") {
            &DoUnlock();
    ...
}
}}}

: 다음의 두 함수를 통채로 추가한다.
{{{perl
### view action 추가
sub DoView {
    my ($id) = @_;
    my ($header, $viewRows, $viewCols, $revision, $pageSource);

    &OpenPage($id);
    &OpenDefaultText();
    $header = Ts('Viewing %s', $id);
    # Old revision handling
    $revision = &GetParam('revision', '');
    $revision =~ s/\D//g;  # Remove non-numeric chars
    if ($revision ne '') {
        &OpenKeptRevisions('text_default');
        if (!defined($KeptRevisions{$revision})) {
            $revision = '';
            # Later look for better solution, like error message?
        } else {
            &OpenKeptRevision($revision);
            $header = Ts('Viewing revision %s of', $revision) . " $id";
        }
    }
    $pageSource = $Text{'text'};
    $viewRows = &GetParam("editrows", 20);
    $viewCols = &GetParam("editcols", 65);

    print &GetHeader('', &QuoteHtml($header), '');
    if ($revision ne '') {
        print "\n<b>"
                    . Ts('Viewing old revision %s.', $revision)
                    . '</b><br>'
    }
    print $q->textarea(-class=>'view', -accesskey=>'i', -name=>'text',
                -default=>$pageSource, -rows=>$viewRows, -columns=>$viewCols,
                -override=>1, -style=>'width:100%', -wrap=>'virtual',
                -readonly=>'true');
    print "<br>";

    print "<hr class='footer'>\n";
    print Ts('Return to %s' , &GetPageLink($id)) . " | ";
    print &GetHistoryLink($id, T('View other revisions')) . "<br>\n";
    print &GetMinimumFooter();
}

sub GetViewLink {
    my ($id, $name) = @_;

    if ($FreeLinks) {
        $id = &FreeToNormal($id);
        $name =~ s/_/ /g;
    }
    return &ScriptLink("action=view&id=$id", $name);
}

### 통채로 추가한 함수들의 끝
###############

&DoWikiRequest()  if ($RunCGI && ($_ ne 'nocgi'));   # Do everything.
}}}

== Notes ==
그냥 DoEdit 함수를 수정해서, 수정권한이 없으면 DoEdit 내에서 다시 DoView 를 호출하게 한다면 기존에 GetEditLink 가 들어간 부분들을 일일이 GetEditLink 또는 GetViewLink 로 분기하도록 고치지 않아도 되었을 것이다. 그렇지만 수정 권한이 없더라도 edit 로 링크가 걸리게 하고 싶은 경우도 있을 것이라 생각했고, 결정적으로 수정 권한이 있는 경우와 없는 경우에 각각 링크가 걸리는 안내문 자체가 달라져야 하기 때문에 어쨌거나 if 문이 추가되어야 했다. 뭐... 그렇다는 얘기. 여전히 DoEdit 또는 하다못해 GetEditLink 자체를 수정해서 권한 여부에 따라 DoEdit 또는 DoView 를 자동으로 결정하게 하고 싶은 유혹이 강하다.. 어느게 좋으려나...<mysign([[Raymundo]],2003-3-6 12:37 am)>

소스용량을 생각한다면 그냥 권한여부에 따라서 버튼만 막는게 좋을거 같네요. 지금  BCN에서 디지털맨이라는 영화 상영중 --v <mysign([[Bab2]],2003-3-6 1:47 am)>

: ^^; 그 생각도 했었는데... DoEdit 가 생긴게 복잡해 보여서 건드리기 싫었고, action=edit 를 했을 때는 명확히 거부된다는 것을 보이는 게 더 모양새도 좋아 보이더라고요. 용량은 뭐... 도움말하고 환경변수 초기화 루틴을 빼면서 10KB 정도를 벌고 이걸로 3.7KB 정도 늘었으니 뭐.. ^_^ 그리고 어쨌거나 링크를 거는 시점에서 텍스트가 바뀌어야 하니 if 문도 들어가야 되겠고요. (아니면 말씀하신 것처럼 구현한 후에 링크 자체를 "수정 또는 소스 보기" 라고 이름을 붙일까요? 으음.. <mysign([[Raymundo]],2003-3-6 8:10 am)>

: 음... 아무래도 말씀하신 것처럼 하는 게 낫겠습니다. 짧게 고치고 끝낼 수 있는 방법을 놔두고 굳이 이렇게 할 필요가 없을 것 같네요. 다시 고치죠 뭐...<mysign([[Raymundo]],2003-3-6 8:40 am)>

::편집불가메세지는 일단 소스보기로 대체하고 편집화면에서 편집불가임을 알리는 메세지를 넣어주는게 좀 더 친절해 보일듯 싶네요. 개인적으로 WikiX에서 처음 소스보기 눌러보고 느낀 것이었습니다. <mysign([[Bab2]],2003-3-6 1:42 pm)>
UseModWiki소스수정/페이지소스보기 페이지로 돌아가기 | 다른 수정본 보기