UseModWiki소스수정/사용자의견

• /반영된사용자의견 - 여기에 올라온 의견들 중에 UseModWiki소스수정에 반영된 것들은 따로 옮겨 두겠습니다.

1. 이모티콘 :|

2. macrosubst의 매크로 내용들을 dorequest의 action에 연결

3. sub매크로

4. TABLE:

5. COMIC:만화책출간일자

6. -_- Link

7. 최근변경내역 개선

8. 관리자가 지정한 페이지는 손님에게도 편집권한 허용

9. UTF-8

10. 셀 개념의 도입

11. 이미지 자동 저장

12. RC, 편집창 크기

13. 글자에 색깔넣기

14. 크기별 인덱스

15. 다단계 하위페이지

16. 본문 텍스트 바꾸기

17. etc

18. Etc the 2nd

19. 테이블에 각각 다른 배경색 지정

20. 다른위키사이트 건드리기

21. 안쓰는 옵션들 제거

22. 확장 기능을 붙이기 좋게 하기 위한 제안

23. HTML::Template

24. 잦은 변경

25. 한글 페이지 파일들을 첫글자에 따라 분류해서 저장

26. utf-8 트랙백 받기

27. WikiPatches/RawMode

1. 이모티콘 :|

sub EmoticonSubst {
....
	if ($UseEmoticon) {
....
		$txt =~ s/\s\:[-]*\|/$e1/g; ##추가
	}
	return $txt;
}

* :-| <nowiki>:-| :|</nowiki> 추가.

#			$text = q|
#			....
#			|;

윗내용을 아래처럼 바꿉니다.
바꾸는 이유는 q| ... |의 "|" 이것과 :-|의 "|" 이것이 충돌하기 때문. qq()괄호도 오류생김.
			$text = "
			....
			";

MSN 메신저 이모티콘이 되는 수정버전은 http://host9.swidc.com/~ncc1701/msnwiki/wiki.cgi 에서 받으실 수 있습니다.

-- 조프 2002-11-22 6:05 pm

감사합니다. :)

2. macrosubst의 매크로 내용들을 dorequest의 action에 연결

같은 생각 하고 있었습니다. 매크로쪽을 그럭저럭 손 본 후에 action 쪽에도 만들어보도록 하죠. 어차피 매크로 함수의 코드를 그대로 쓸 수 있을 것 같으니...

-- Raymundo 2002-12-3 1:42 am

아 그리고... 역링크 관련 루틴들은 지금도 미흡하게나마 됩니다. 원래 코드에서 cgi 파라메터를 지원했기 때문에.. action=links 뒤에 인자를 붙여서 효과를 낼 수 있습니다. 물론 수동으로 주소 입릭창에 적어주어야 하지요. 필요하다면 해당 액션에 대한 링크를 화면 어딘가에 배치시킬 수 있겠군요. GetFullLinkList 함수 소스를 보시면 사용 가능한 옵션들이 있습니다. 주로 값은 0,1,2 등을 할당하게 되어 있고요. 웬만큼 요긴한 것들은 이미 만들어져 있더군요.

예:
wiki.pl?action=links                      이게 상단의 링크 버튼을 눌렀을 때 나오는 화면이고
wiki.pl?action=links&reverse=페이지이름   특정 페이지의 역링크만 찾을 때
wiki.pl?action=links&exists=0             존재하지 않는 링크들만 찾을 때
등등등.. 두 가지 이상 옵션은 & 로 연결해서 적어주면 됩니다.

3. sub매크로

그렇게 뜬금없이 말씀하시면... :-) 구경 가보니 현재 페이지의 하위페이지들의 목록만 뽑아내는군요. 지양님께서 코드를 공개해 주시고, 아울러 preview 에서도 제대로 적용되게 해 주시길 간절히 기원합니다. ^_^ 제가 따로 처음부터 만든다는 것은 괜한 일이겠죠?

-- Raymundo 2002-12-3 11:01 pm

에구 죄송합니다. 지양님 diff찾아보면 있기 ㅤㄸㅒㅤ문에 알고 계신줄 알았거든요..^^; 원래 지양위키의 기능은 <sub>가 불리면 해당페이지의 하위목록을 보여주는 건데, <sub(페이지이름)> 요런식으로 상위페이지를 지정할 수 있게 약간 바꿨습니다. 이유는 오로지 미리보기에서 제대로 안나오는게 걸거치다는 것입니다. ;;;

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

#       $name =~ s/.*\//\//;

        $id =~ s|^/|$MainPage/|;
        if ($FreeLinks) {
                $id = &FreeToNormal($id);
                $name =~ s/_/ /g;
        }
        return &ScriptLink($id, $name);
}

sub MacroGetSubPageList {
        my ($rootpage) = @_;
        my (@pagelist);
        @pagelist = &AllPagesList();
        my $subpage;
        my $result;
        $DocID = $rootpage if($rootpage ne "");
        foreach $subpage (@pagelist) {
                if ($subpage =~ m|$DocID/|) {
                        $result .= &GetSubPageLink($subpage);
                        $result .=  "<br>" if($rootpage eq "");
                }
        }

        return $result;
}

######## ↑여기까지 추가합니다. ######

####### ↓별표친 부분을 추가합니다. ######

sub MacroSubst {
....
        $txt =~ s/\&__LT__;sub\(([^\n]+)\)\&__GT__;/&MacroGetSubPageList($1)/gei; ### ★☆★☆★☆★☆ 별표친부분
....
}
sub DoEdit {
....
        body += '< body>< form method="post" action="$ScriptName">';
        # 아래부분 추가
        body += '< input type="hidden" name="id" value="$id">';
        # ★☆★☆★☆★☆별표별표별표별표별표별표★☆★☆★☆★☆
        # DoEdit 함수의 추가부분은 자바스크립이 들어가기때문에 #으로 된 주석을 반드시 삭제.
....
}

sub DoPreview {
....
        $ClickEdit = 0;
        $DocID = &GetParam('id', ''); ## 추가  ★☆별표
....
}
############# 여기까지

• GetSubPageList 대신 MacroSubPageList 로 이름을 짓는게 일관성 측면에서 좋겠습니다.
• 매크로 안에서 "\n" 을 출력하는 것은, 저번에 언급한 pre 태그가 첫번째 라인에만 걸리는 문제가 생길 수 있기 때문에 빼는 게 좋겠습니다.
• 미리보기에서의 문제점은, 제가 preview 의 동작을 이해하지 못한 상태라 어찌할수가 없네요, 그리고 이중 작업을 할 필요는 없겠으니 언젠가 해결될 때까지 기다리렵니다. :-) 건투를 빕니다~

수정했습니다. <sub>매크로는 세로출력 <sub(페이지이름)>매크로는 가로출력입니다. 출처는 지양위키입니다. :)

4. TABLE:

sub WikiLinesToHtml {
....
                        while (@htmlStack < $depth) {
                                push(@htmlStack, $code);
                                if ($code eq "TABLE") {                                 # added luke
                                        $pageHtml .= "<TABLE $TableTag border=1>\n";
                                } else {
                                        $pageHtml .= "<$code>\n";
                                };                                                                              # added luke
                                # $pageHtml .= "<$code>\n";                             # deleted luke
                                $TableTag = ""; ### 이거 한줄만 추가
                        }
                }
.... 이하생략

5. COMIC:만화책출간일자

use vars qw(@RcDays @HtmlPairs @HtmlSingle
.... $COMICPattern #### 추가한다.

sub InitLinkPatterns {
        ....
        $ISBNPattern = "ISBN:?([0-9- xX]{10,})";
        $COMICPattern = "COMIC:?([0-9- xX]{10,})"; #### 추가한다.
        ....
}

sub WikiToHTML {
        ....
                s/$ISBNPattern/&StoreISBN($1)/geo;
                s/$COMICPattern/&StoreCOMIC($1)/geo; #### 추가한다.
                s/CD:\s*(\d+)/&StoreHotTrack($1)/geo;
        ....
}

sub StoreCOMIC {
        my ($num) = @_;

        return &StoreRaw(&COMICLink($num));
}
#### 함수전체를 추가한다.
sub COMICLink {
        my ($rawnum) = @_;
        my ($rawprint, $num, @split_num);

        $num = $rawnum;
        @split_num = split //, $rawnum;
        $rawprint = $rawnum;
        $rawprint =~ s/ +$//;
        $num =~ s/[- ]//g;
        if (length($num) != 10) {
                return "ISBN $rawnum";
        }
        return "<a target=_blank href=\"http://www.mani.co.kr/share/mani/review_read.htm?id=$num\"><img $ImageTag src=\"http://www.mani.co.kr/cover/$split_num[0]$split_num[1]$split_num[2]$split_num[3]/$split_num[4]$split_num[5]/$split_num[4]$split_num[5]$split_num[6]$split_num[7]-$split_num[8]$split_num[9].jpg\" height=150 border=1></a>";
}
#### 여기까지.

6. -_- Link

sub SplitUrlPunct {
...
	#### 바꿔준다.
	($punct) = ($url =~ /([^a-zA-Z0-9\/\x80-\xff|\-|\_|\^]+)$/);
	$url =~ s/([^a-zA-Z0-9\/\x80-\xff|\-|\_|\^]+)$//;
	#### 끝.
....
}

7. 최근변경내역 개선

• 마이너 에딧의 한계를 정해주는 것이 바람직하다.
  • 일정 바이트 이상을 고치면 마이너 에딧으로 인정하지 않는다.
  • 그냥 세이브를 해도 일정 바이트 이하가 수정되면 자동으로 마이너 에딧을 표시해준다.
  • 일정 로열티가 쌓이지 않은 사람에게는 마이너 에딧을 허용하지 않는다. 아 로열티는 어떻게 판단하느냐가 남는군...로그를 쌓나? -_-
  • 메이저 에딧을 만들어서 누군가가 대량으로 고쳐 사람들에게 주목도를 높이고 싶을 때 사용할 수 있도록 하는 것도 좋을것이다.
• 특정분류의 RC보여주는 방법을 어떻게 할것인가. 디폴트 RC를 설정할 수 있게 한다.
  • 페이지 만들 때 반드시 분류가 부여되어있어야 한다.
  • 위키의 장점인 저자동 고유연성을 해치는 것이 아닌지 심히 염려된다.
• RC에 나타나는 최종 수정자를 중복되지 않게 5명까지 보여주고 풍선도움말로 고친 시각과 IP를 보여주면 좋을듯 하다. 이렇게 하면 간략하게 히스토리를 볼 수 있어 그 페이지에 대한 주목도가 높아질 수 있다.

(변경사항) TalkingDrum 17:04 (133 번 변경됨) . . . . . || SonDon || 거북이 || DarkTown ||

• 로그인을 한다음 특정 링크를 누르면 본인이 한번이상 작성한 적이 있는 페이지만 RC에 뜨게 해준다.
  • 그 횟수는 개인적으로 조절할 수 있으며 여러번 수정한 페이지라면 더욱 눈에 띄는 색으로 나오도록 할 수 있을것이다. 이 경우 사용자가 많아져서 페이지 수정이 많이 이루어질 때 유용할 것이다.
  • 역시 로그를 남겨야 하나? -.-
• 역시 나만의 커스터마이징 된 RC를 만들 수 있어야 한다. 모든 페이지에 개인페이지에 추가하기/개인페이지에서 제거하기 토글 버튼을 만들면 간단하게 할 수 있다. 로그인만 되어있다면.
  • 예를들면 사용자 거북이가 있다. 거북이로 로그인하여 위키를 돌아다닌다고 생각해보자.
  • 모든 페이지에는 '내 페이지에 추가하기' 링크가 달려있다. 이 링크를 누르면 그 페이지는 거북이의 집중관리대상 페이지로 지정된다.
  • 거북이의 최근변경내역에는 '집중관리대상 페이지보기'(가칭...-_-) 링크가 있다. 그것을 누르면 거북이가 지정한 페이지들만의 최근변경내역이 나온다.
  • 즉 오래간만에 오거나 갱신되는 페이지들이 매우 많아졌을때 거북이는 원하는 페이지들의 최근 변경상태를 확인해서 피드백을 남길 수 있다.
  • 집중관리대상에서 빼고싶으면 최근변경내역 혹은 해당페이지로 가서 '개인페이지에서 제거' 링크를 눌러 뺄 수 있다.
• 모인모인처럼 새 페이지와 수정된 페이지를 구분하는 기능.

8. 관리자가 지정한 페이지는 손님에게도 편집권한 허용

## config.pl에 추가
@GuestPage = qw(방명록 오에카키 낙서장 WikiSandBox);  # 공개할게 없으면 "";    # 비공개위키의 경우 손님에게 공개할 방명록페이지 지정
## 끝.

## wiki.pl
use vars qw(@RcDays @HtmlPairs @HtmlSingle
....
@GuestPage); #### 추가.

sub UserCanEdit {
....
        if (($id ne "") && (-f &GetLockedPageFile($id))) {
                return 1  if (&UserIsAdmin());  # Requires more privledges
                # Later option for editor-level to edit these pages?
                return 0;
        }
        #### 추가
        if (@GuestPage ne "") {
                foreach my $grep_temp (@GuestPage) {
                        return 1 if ($grep_temp eq $id);
                }
        }
        #### 끝.
        if (!$EditAllowed) {
                return 1  if (&UserIsEditor());
                return 0;
        }
....
}

9. UTF-8

10. 셀 개념의 도입

대학1학년 때 서울로 올라오면서 본격적으로 WWF에 미치기 시작했었다. 제이크더스네이크와 밀리언달러맨, 브렛히트맨하트, 션마이클스, 오오…그리고…이름도 거룩한 얼티밋워리어여…군대생활의 공백을 넘어 다시금 나의 영웅이 된 인물은 물론 스톤콜드 스티브오스틴…그러나 언더테이커의 카리스마도 무척 좋아했었다. 개인적으로는 부활 이후 와일드씽 폭주족과 같은 설정은 그리 맘에 안든다. 더락…이 한인물하는 놈이야말로 WWF의 쇼맨쉽을 온몸에 달고다니던 훗가시의 왕자!…이젠 영화배우로서 링에는 모습을 안보이고있지만 우리는 다 안다. 조만간 다시 링으로 성큼성큼 걸어올라와서 로프 위에 올라서서는 관중들의 열광을 들이마시는 그 특유의 세러머니와 피플스 엘보우를 보여주리란걸…아! 또한가지, 물론 욕많이먹고있는것이긴 하지만 몇년전부터 수위를 높이고있는 에로틱 테마...하나같이 운동을 한건지 수술만 열심히 한건지 알길이 없는 여성레슬러나 레슬러들의 애인들을 둘러싼 에피소드들도 감칠맛을 더해가는 양념중에 양념^^ 이 나이에도 그 뻔한 쇼를 보면서 흥분하고 재밌어하는게 한심하게 느껴질 때는 내 주위에 나보다 더 광팬들인 선배들을 보면서 위안을 삼고는 한다.^^ WWF…이것이야말로 가장 미국적인 쌩쇼가 아닐는지…비판의 시각을 배제하고 보면 너무나 잘 만들어진 한편의 초대형 스포츠액션 성인시트콤이라고 할 수 있겠다. 케이블을 끊은 이후로 이것 역시 제대로 못보다보니 최근 소식에 뒤쳐졌었는데, 근래에 WCW와 통합하여 WWE로 새롭게 시작을 한듯 보인다. 왼편의 사진은 WWF입장권이라고 한다 쿠오오... 크아앗...1월23일 한국에서 드디어 WWE Far East Tour 가 온단다...꼭 보러가야되는데...ㅠ.ㅠ 한편으론 반미감정에 휩싸여있는 이 나라에 미제자본주의 쇼비즈의 상징물이 하필이면 요 시점에 온다니...

1. GODEVIN LE VILAIN 2. LES LONGUES NUITS D'ISAAC 3. SI J'ETAIS LE MESSIE 4. BALLADE POUR UNE ORGIE 5. EXODE 6. LA BATAILLE DU SUCRE 7. FILS DE LUMIERE 8. AU DELA DU DELIRE

|| http://www.siwan.co.kr/2/image/0000/0030.jpg ||{[
# GODEVIN LE VILAIN 
# LES LONGUES NUITS D'ISAAC 
# SI J'ETAIS LE MESSIE 
# BALLADE POUR UNE ORGIE 
# EXODE 
# LA BATAILLE DU SUCRE 
# FILS DE LUMIERE 
# AU DELA DU DELIRE
]}||

어려울 것 같은데요. (적어도 제게는 ^^;) 라인 단위로 마킹하는 시점에서 저것을 어찌 구분할 수 있을런지 모르겠습니다.

-- Raymundo 2003-1-8 4:40 pm

\\\\ 이거 관련 부분을 약간 수정해주면 #이나 *은 힘들어도 대충 쓸 수 있을거 같은데요.

-- Bab2 2003-2-12 1:24 am

• http://d.hatena.ne.jp/help
  -- 거북이 2004-3-5 3:37 pm

11. 이미지 자동 저장

<simg(http ://www.siwan.co.kr/2/image/0000/0030.jpg)>

simg:0030.jpg

나쁘지 않은 생각 같습니다. (바로 위에 적으신 것보다는 이쪽이 덜 허황된 것 같은 느낌인데요 ^^) 별도의 유틸리티 wget 을 호출하게 하면 될 것 같은데, 그것을 쓰지 않고 perl 만으로 하려면 어떻게 해야 될 지 모르겠네요. 그리고, 남이 임의로 페이지 하나에 저런 태그를 마구잡이로 넣어서 하드를 채워버리는 것을 막아야겠군요.

• 파일 크기 제한 - wget 의 quota 기능 사용
• 기존에 존재하는 화일과 이름이 겹칠 경우 고려
• 저작권 문제 - 대책없음
• 기타 등등 - 천천히 생각하기로~

게시판에도 써놨습니다만, 그냥 화일 업로드 기능을 만드는게 더 낫지 않을까 싶습니다.

-- Bab2 2003-1-8 6:39 pm

12. RC, 편집창 크기

1. 변경내역을 매크로화 시켜서 임의의 페이지에 집어넣게 할 수 있을까요?
2. 편집창의 크기를 환경설정이 아닌 편집창에서 조정 가능하게 액션을 추가할 수 있을까요?

1번은 시도해 보겠습니다. 사실 작년부터 탐을 내던 기능인데, DoRc 나 GetRcHtml 을 그대로 재사용하려고 했더니만 원체 그런 고려 없이 만들어져 있어서 뜯어고칠 곳이 많다고 관뒀었습니다만.. 저 역시 있었으면 하는 기능인터라... 2번은... 글쎄요, 환경설정에 있는 해당 항목을 편집창에 똑같이 달아두면 안 되려나요? 아니면 입력하는 와중에, 현재 입력한 내용을 보존하면서 크기를 자유롭게 조절하는 것을 바라시는 거라면..그런 게 가능한지조차 저는 모르겠습니다.

-- Raymundo 2003-2-26 11:01 am

2번은 DHTML과 자바 스크립트를... 미친듯이 사용하면 가능하긴 합니다. [여기]에서 [WindowScript]라는 놈의 데모를 보세요. 이건 DIV 태그에 대해서 동작하는 것 같기는 하지만, TEXTAREA에 대해서도 비슷한 방식으로 크기 조절이 가능할 것 같습니다. (TEXTAREA의 크기를 바꾸는 데모도 본 것 같은데 어디서 봤는지 기억이 안나는군요.) 아니면 [이것]처럼 입력창의 크기를 브라우저의 크기에 따라서 자동으로 바뀌도록 하는 것도 괜찮은 방법이 될 지 모르겠네요.

-- 조프 2003-2-26 11:59 am

13. 글자에 색깔넣기

I like the simplicity and look of this -- Tim Nelson
The following syntax was lifted from the Webmacro Wiki http://wiki.webmacro.org/WebMacroWiki

^ -- used for color. The next word (or HTML color value) that follows the caret will be the color used:

      ^blue This text will be blue here^
      ^#FF0000 This text will be red here^ 

Patch:

sub CommonMarkup {
...
  if ($doLines) {
...
     s/\^([a-zA-Z]{1,}|#[0-9A-Fa-f]{6}) (.*?)\^/<FONT COLOR="$1">$2<\/FONT>/g;

14. 크기별 인덱스

sub MacroSubst {
....
        $txt =~ s/(\&__LT__;sizeindex\(([-+]?\d+),([-+]?\d+)\)\&__GT__;)/&MacroSizeIndex($1,$2, $3)/gei;
        return $txt;
}

sub MacroSizeIndex {
        my ($itself, $start, $end) = (@_);
        my (%pgcount, $page, $pagefile, $count, @pages);
        my $txt;

        if (($start == 0) || ($end == 0)) { return $itself; }

        foreach $page (&AllPagesList()) {
                $pagefile = $PageDir . "\/" . &GetPageDirectory($page) . "\/$page.db";
                $count = (-s $pagefile);
                $pgcount{$page} = $count;
        }

        @pages = sort { $pgcount{$b} <=> $pgcount{$a} || $a cmp $b } keys %pgcount;

        if ($start > 0) {
                $start--;
        } else {
                $start = $#pages + $start + 1;
        }
        if ($end > 0) {
                $end--;
        } else {
                $end = $#pages + $end + 1;
        }
        $start = 0 if ($start < 0);
        $start = $#pages if ($start > $#pages);
        $end = 0 if ($end < 0);
        $end = $#pages if ($end > $#pages);
        if ($start <= $end) {
                @pages = @pages[$start .. $end];
        } else {
                @pages = reverse(@pages[$end .. $start]);
        }

        foreach $page (@pages) {
                $txt .= ".... "  if ($page =~ m|/|);
                $txt .= &GetPageLink($page) .
                        " (".Ts('%s byte'.(($pgcount{$page}>1)?'s':''), $pgcount{$page}) . ")<br>";
        }

        return $txt;
}

15. 다단계 하위페이지

16. 본문 텍스트 바꾸기

• 사용법

>perl textswap.pl "koreanrock.com" "고려바위"

• 부작용 : 모름 -_-
• 개선점 : 정규표현식이 가능해야 함 : 울트라에딧처럼 :)

#!/usr/bin/perl

my $dir = '.';

my $orig = shift || die;
my $change = shift || die;

loop:

chdir($dir);
opendir DIR, ".";
@files = readdir(DIR);
foreach $file (@files)
{
	next if $file eq '.';
	next if $file eq '..';

	if (-d $file) 
	{
		unless(fork())
		{
			closedir(DIR);
			$dir = $file;
			goto loop;	
		}
	}
	else
	{
		print `pwd`."$file\n";
		open FILE, $file;
		@lines = <FILE>;
		close FILE;

		foreach $line (@lines)
		{
			$line =~ s/$orig/$change/g;
		}

		open FILE, ">$file";
		print FILE @lines;
		close FILE;
	}
}

17. etc

• 지금 페이지 숨기기 기능을 쓰고있습니다만 버그는 잘 못찾겠구요. ^^ 몇가지 부가적 기능이 필요해 보입니다.
  • 숨겨진 페이지는 외부 링크일 때 '새창으로 띄우기'와 같은 조그만 아이콘이 달려있거나 마우스 오버시 툴팁으로 알려주어야 할 거 같아 보이구요. 안그러면 사람들이 일일이 눌러봐야지 그 링크가 잠겼는지 안잠겼는지 알 수 있으니까, 많아질경우 거부감을 느끼게 될 듯 하네요.
    • 이건 사전기능에서도 마찬가지던가요.
  • 페이지 숨김 기능은 조금만 확장하면 폐쇄적으로 사용할 수 있을듯 합니다. 일반 게시판에서처럼 로그인해야 볼 수 있는 그런 형태가 되는건가요. 퍼미션이란 참 복잡한 문제입니다.
• 페이지 숨김과 더불어 드는 생각입니다.
  • 노스목같은 경우는 누구나 페이지 삭제와 이름 변경이 가능하죠. 제가 보기에도 장기적으로 그렇게 가는 것이 맞다고 봅니다. 여러 사람이 동시에 운영자가 되고 대신 그 내역이 공개된 장소에 나오면 되고, 삭제된 페이지를 복구할 수 있어야겠지요. 페이지 이름 바꾸기는 복구가 가능한데 페이지 이름 돌리기는 복구가 불가능할 수도 있겠네요. 페이지 이름 돌리기는 명령 건 다음 승인하는 식으로 가야하나...허허...-_-a
  • 고려바위에서 여러 사람에게 운영자 권한을 주고 페이지 숨김기능을 이용하게 하려하니 이런 문제가 발생하더라구요. 그들이 임의로 페이지를 지우거나 이름을 변경해도 제가 알 수 없다는 문제요.
• 아 쓰고나니 문장이 어수선하네요. 하라키리할까요? ^^a
  -- 거북이 2003-4-14 9:46 am

아...네 뭐 저도 주인장님 말씀에 동의해요 :) 지금 운영도 그렇게 가고있구요.

제가 그런 걱정을 하게 된 이유는 다음과 같습니다.
고려바위 사람들이 내부적으로만 보고싶어하는 내용들이 있다.
그것을 위해선 몇몇 사람들에게 운영자 권한을 주어야 한다.
그들에게 운영자권한을 주는 것까지는 좋은데 페이지 수정/삭제 등의 현황을 관리자인 거북이가 알 길이 없다.

뭐 이런거거든요. 하지만 이게 필요하다고 해서 쓱 만들자 이런 의견은 아니구요. 좀 더 크게 봐야 할 것 같습니다. DB를 쓰지 않는다는 한계와 RC관련 문제 등 뭐 여러가지 유즈모드위키가 가지고 있던 문제들까지 고려해야겠지요. 나중에요. ^^

-- 거북이 2003-4-14 12:34 pm

네 오버헤드는 분명 있을거 같았어요. 오버헤드를 줄이려면 또 뭔가 로그를 남기고 복잡해지겠지요.

제가 아이콘같은거 만들어본적이 한번도 없어서 자신없지만 대신 아는 디자이너를 한번 괴롭혀볼께요. ^^

그나저나 페이지 이름 바꾸기나 삭제 등 운영자 기능은 언제 개선된건가요? 어제 혹시나 하고 해보니 너무나 빨리 작동해서 허망하게 기뻤거든요. 하하.

-- 거북이 2003-4-14 12:34 pm

그나저나 페이지 이름 바꾸기나 삭제 등 운영자 기능은 언제 개선된건가요 가 무슨 말씀이신지 잘 모르겠는데요.. 그 기능들은 Luke 님의 K3 버전에 이미 있던 기능들이고 이 곳에서 크게 고쳐진 것은 없습니다만...

-- Raymundo 2003-4-14 2:53 pm

흠 페이지가 늘자 한동안 버벅대면서 잘 안되었었는데 갑자기 쓰윽 하고 잘 되더라구요. 무슨 조화일까요...-_-a

-- 거북이 2003-4-14 4:36 pm

링크참조부분 수정이 주효했을듯 싶네요..==a

-- Bab2 2003-4-14 5:53 pm

아 페이지 삭제는 RC에 뜨는군요. 페이지 이름 바꾸기나 페이지 경로 돌리기는 막을 방법이 없긴 하지만 그래도 이정도면 몇몇 사람들과는 운영자권한을 공유해도 될 거 같아요. :)

제가 모르는 기능이 너무나 많아져서 어서 공부를 더 해야겠습니다.

새 사무실에서 페인트를 칠했는지 완죤히 본드 들이마신 효과가 나는군요...@.@

-- 거북이 2003-4-15 12:41 pm

18. Etc the 2nd

• myinterest

1. mostpopular처럼 몇개만 본다라는 규정이 필요
2. myrecentchanges역할도 필요

• includeday

1. 매크로 다음에 표같은 것이 안먹고 페이지 이름을 생략해도 안먹음

입력
|| <includeday(-1)> || <includeday(위키낙서장,0)> || <includeday(위키낙서장,+1)> ||

출력
|| <includeday(-1)> || <includeday(위키낙서장,0)> || DeleteThisPage  ||

• orphanedpages

1. 매크로에서 하위페이지로의 링크가 있는데 미아 페이지로 인식, 거북이/바보라는 링크가 있고 거북이 페이지에 [ [/바보] ] 이런 링크가 있으면 이것은 링크가 아닌 것으로 인식
2. REDIRECT는 미아 페이지에서 빼야함. 당연히 거의 미아 페이지이므로.

여러 가지 테스트를 해 주시느라 고생하셨네요. 감사합니다. 그런데 제 입장에서는 할 게 별로 없는 것 같네요 ^_^

• /IncludeDay매크로 에서 페이지이름이 인자로 없으면 현재 페이지를 기준으로 찾는 게 아닙니다 그냥 "2003-04-15" 페이지를 찾는 겁니다. 그 페이지가 없으니 안 나오는 겁니다.
• 테이블의 경우에는, include* 매크로들은 먼저 페이지 내용을 삽입하고 그 다음에 각종 처리를 하기 때문에, 삽입되는 순간 삽입된 내용에 있는 줄바꿈이 포함되는 바람에 테이블이 깨져 버립니다.. || 를 사용하지 말고 명시적으로 table 태그를 써 보세요.
• /MyInterest매크로 에서 숫자를 인자로 받는다 치면... 무슨 기준으로 숫자만큼의 페이지를 추려내죠? (방금 생각해보니.. 최근변경시각을 가지고 할 수는 있겠습니다만, 관심페이지의 갯수가 많아지면 오버헤드가 너무 큽니다)
  • 오버헤드가 크군요. ^^ --거북이
• RC 를 매크로로 만드는 것은 세 번이나 시도해 봤으나 너무 일이 커져서 관뒀습니다. 하물며 개인별로 관심 페이지의 RC 를 보는 것은... -_- 그 기능에 미련이 많으신 것은 압니다만 제게서 해법을 기대하지 마세요. ^^;
  • 하하, 이것도 역시 트래픽이 커지지 않을까 싶은 생각이 드네요. --거북이
• /OrphanedPages매크로 문제는... 그럴리가요. 제가 그런 하위페이지 링크를 링크로 인식시키려고 얼마나 고생했었는데.. ^^; 방금 위키낙서장/바보 라는 페이지를 만들어 시험해 봤는데 잘 되는데요? (고아로 인식되지 않음)
  • 고려바위통계 를 보시면 고아페이지 목록이 있습니다. 여기에 BrainSalad독서일기/01 이녀석이 고아로 나와있는데요 BrainSalad독서일기 에 [ [/01] ]이라는 링크가 있습니다. --거북이
    • 소스 업데이트 이후에 maintain 한 번 해 주세요. 이유는 모르겠지만 01 페이지로 향한 링크가 계산되어 있지 않더군요. 독서일기 페이지를 한 번 수정해 주니 이제는 잘 나오네요. :-) --Raymundo
      • 아 알겠습니다. 그런 문제가 있었군요. 어쨌거나 상세한 기능들에 대해 조금씩 알아가는 것이 즐겁습니다. ^^--거북이
• REDIRECT 가 들어 있는 페이지는 당연히 거의 고아 페이지라뇨? 어째서요?
  • 아, 제 실수군요. 저는 REDIRECT를 쓰는 것은 SandBox를 위키낙서장이라고 쓴다거나 하는 곳에서 사용합니다. 이 경우 페이지 내에서는 거의 위키낙서장으로 써있고 외부의 사람이 SandBox라고 적었을 때 돌려주기 위한 목적이지요.
  • 즉 REDIRECT가 있는 페이지는 고아가 되기 쉽고 고아이더라도 별 의미가 없기때문에 빼는것이 어떨까 합니다. --거북이
    • 그런 경우에만 사용하는 게 아니까 함부로 뺄 수가 없다고 생각합니다. --Raymundo
    • 넵, 저도 굳이 고칠 필요는 없을 듯 해요. --거북이

19. 테이블에 각각 다른 배경색 지정

||<cyan> 내용.. ||<black> 내용... ||

안녕하세요, 매일 아침마다 환절기 코막힘으로 고생하는 것 빼고는 건강하다 할 수 있겠죠 ^^; 요즘은 학교 일도 정신 없고 위키소스는 거의 손 놓고 있네요.. (그다지 손댈 필요도 느껴지지 않고) 하루하루 숙제 마감에 쫓기는 삶이로군요..

-- Raymundo 2003-4-21 11:18 pm

20. 다른위키사이트 건드리기

다른 곳에서 한쪽을 임포트하지 않는 한 어렵지 않을까요? 라고 개발 문외한이 한번 적어봅니다.

-- 거북이 2003-7-15 2:16 pm

여러위키에 같은 내용을 post 해주는 cgi를 만들어 보심은. -_-; usemod wiki 끼리라면 대강 할 수 있을지도요.

-- 조프 2003-7-15 2:29 pm

고려바위나 jof4002, redica 같은 곳은 걍 내용을 날려만 주면 되겠다 싶은데, 이곳처럼 회원가입이 필요한 경우에는 쿠키를 어떻게 처리해야하는지 모르겠네요. -.-a

-- Bab2 2003-7-15 3:55 pm

서버 자체에 있는 cgi 가 만들어낸 것이 아닌 외부에서 날아온 POST 요청에 대해 응답을 할 수 있는건가요? 오에카키를 넣다가 타인의 계정에 그림을 추가할 수 있는 문제가 생길 것 같아 테스트했더니만 에러가 나더라고요. 그래서 불가능한가보다 하고 있었습니다만, 이 경우와는 다른 상황인지도 모르겠네요.

-- Raymundo 2003-7-15 4:19 pm

게시판 스팸봇과 비슷하게 만들면 될 거 같다는 생각을 했거든요. 우움.. 게시판 스팸봇 관련자료 찾을데 어디 없을까요?

-- Bab2 2003-7-16 9:46 am

21. 안쓰는 옵션들 제거

• No more email notification
• No thin-lines option - 이건 반대로 항상 살리는 게 나을지도
• No user preferences saved on the server - 허억, 쿠키를 쓴 건가?
• Username saved directly in the cookie
• No more conditional compilation (was disabled anyway) - 뭔 소린지..
• ScriptTZ is no longer an option; there is no more timezone handling, all timestamps use GMT - 흐음.. 모르겠음
• UseCache is no longer an option; it is never used (was disabled and not 100% functional anyway) - 찬성
• UseIndex is no longer an option; it is always used - 모르겠음
• FastGlob is no longer an option; it is always used - 무슨 옵션인지도 모르겠지만 찬성
• UseHeadings is no longer an option; it is always used - 찬성
• UseDiffLog is no longer an option; diffs are never logged - 모르겠음
• No more editlinks action, and no more editlinks file during maintenance. Pages can be deleted using the page deletion patch, and I have never ever had the need to rename pages. Using reverse lookup, and a few quick edits was always faster than figuring out what the password was, figuring out how to use the editlinks action, and praying that it all worked. - 뭐라는 건지 읽어보기 귀찮다
• Removed parameters such as alldiff, norcdiff, etc. - 찬성
• Removed diff-type 4 (4 got replaced by the default). The default is 1 (ie. major diffs). - 글쎄
• Removed diff-type 3 (no more author diffs). At the same time, when displaying a diff, no links to other cached diff types exist. People can use the page history to produce any kind of diffs they want.
• NonEnglish is no longer an option; non-english characters are always allowed - 찬성
• SimpleWiki is no longer an option; numbers are always allowed - 찬성
• No more intermap file, no more banned list editing - 인터맵을 없애면 어떻게 인터위키를?
• UseSubpages is no longer an option; the / separator is far too common for this to be useful, the shorthand /foo looks ugly, and the difference between WikiPatches/RawMode and WikiPatchesRawMode is hard to explain. - 하위페이지 쓰지 말자는 소린감? 반대
• FreeUpper is no longer an option; it was a source of confusion in one instance and requires extra explaining for non-US ASCII encodings (since it doesn't work, there). - 뭔 소린지
• Deleting a page no longer removes all corresponding entries from the rclog (and thus the deleted page is still part of RecentChanges if you go back long enough) - 이곳의 패치와 유사한 듯

22. 확장 기능을 붙이기 좋게 하기 위한 제안

• wiki.pl 의 마지막에서 require "wiki_ext.pl"; 을 호출한다.
• MacroSubst 등의 함수 가장 아래에서 ExtensionMacroSubst 함수를 호출한다. ExtensionMacroSubst 같은 함수는 wiki.pl 마지막에 참고할 수 있게 기본적인 구현을 제공해도 되겠죠.

흥미로운 내용이네요. wiki_ext.pl 은 그러면 배포본(?)에서는 전혀 업그레이드되지 않을 화일이란 말이군요. 배포본에서 업그레이드해버리면 wiki.pl 과 똑같은 불편함이 생길테니까. (하지만 틀림없이 언젠가는 wiki_ext.pl 도 다시 손을 보는 날이 올 것 같군요, 처음부터 완벽하게 만들 리는 없으니..) 그리고 wiki_ext.pl 에다가 HashKey, DataDir, ConfigFile 세 변수를 초기화하는 함수를 두고 wiki.pl 쪽에서는 그 함수를 부르면 만사형통...이려나요? 일단 테스트 해 보겠습니다. 함수 덮어쓰기 얘기는 저도 책이 없어서.. 된다는 보장이 생기면 그 때 새 버전을 내어넣도록 하죠. (제 홈은 CVS를 사용해서 업데이트하기 때문에 전혀 문제가 되지 않았네요 ^^;)

-- Raymundo 2004-1-9 10:58 pm

### wiki.pl 소스

# 이 이하의 함수는 wiki_ext.pl 에서 구현할 수 있는 함수의 원형입니다.
sub InitVariables
{
    $HashKey = "salt";
    $DataDir = "data";
    $ConfigFile = "config.pl";
}
sub ExtMacroSubst
{
    $txt = @_;
    return $txt;
}
require "wiki_ext.pl";
&DoWiki~~~;
### wiki.pl 끝.

### wiki_ext.pl 소스
return 1;

InitVariable 의 경우 말입니다만... config 화일 따로 있고, config 화일의 이름을 말해주는 화일 따로 있고..란 것도 좀 우습다 싶네요. config 화일의 이름을 따로 지정할 수 있게 했던 이유가, 웹서버 환경에 따라서 브라우저로 config 화일을 그대로 볼 수 있어서였는데, wiki_ext.pl 에 그 이름을 보관하면 다시 같은 문제가...

차라리 예전의 상태로 회귀하여, config 화일의 이름은 그냥 config.pl 로 고정하고, 그러면 DataDir 과 HashKey 는 config.pl 안에서 정해 주면 어떨까 싶은데요. (예전에는 분명 config.pl 을 들여다 볼 수 있다고 생각했는데 지금 해 보면 forbidden 이 나는군요. 제가 착각했던 것인지 아니면 웹서버 설정에 의존한 것인지 모르겠습니다)

그리고 예전에 소스크기를 줄인다고 wiki.pl 과 config.pl 에 중복해서 정의되어 있는 전역변수 설정들을 wiki.pl 에서 제거했던게 크나큰 실수였습니다. 디폴트값을 wiki.pl 쪽에 만들어놔야 사용자는 자기의 config.pl 을 그대로 보존하면서 버전업을 할 수 있는데, 디폴트값이 사라져버렸으니 새로운 전역 환경변수가 등장할 때마다 config.pl 을 비교하며 신경써줘야 하는군요.

고로 요약하면,

• wiki_ext.pl 은 잠시 미루고 (이쪽에는 매크로만 들어갈 테니 이왕이면 매크로 말고도 집어넣으면 좋을 게 있는지 생각해 보도록 하죠)
• config 화일 이름을 붙박이로 두고 (config.pl)
• HashKey, DataDir 은 config 화일 쪽에서 지정하도록 하고
• 예전처럼 config 화일의 내용을 wiki.pl 에도 그대로 넣어서, 사용자가 버전업을 할 때는 자신이 사용하던 이전 버전의 config.pl 만 보존하면 되도록 함. (새로 생긴 환경변수를 디폴트 이외의 값으로 주고 싶을 때만 config.pl 을 수정하면 되도록)

정도가 되겠습니다. 어떻게 생각하시는지 다른 분들의 의견을 부탁드릴께요.

흐미.. 위 글을 쓴 후에 오리지널은 어찌하나 봤더니만 1.0 에서 ConfigFile 변수를 추가했군요. WikiPatches/MoveConfigFile 등을 보면 이유도 동일하고, 구성도 거의 동일하네요.. Adams 씨가 우리 ext 버전을 베낀 게 아닐까 합니다 ^^;;;

-- Raymundo 2004-1-10 11:47 pm

지금 wiki.pl을 여러개로 쪼개서 사용중인데, 좋은지 어떤지 알 수가 없네요. 부하는 약간 줄은거 같은데..ㅡ.,ㅡ;
여기저기 중복으로 사용하는 함수가 많아서 전체적으로 일관성있게 쪼개는게 쉽지 않을거 같던데요..
쪼갠 놈들은 전부 하부폴더로 몰아놨는데, 신기한게 요놈들이 디렉토리 경로를 본체의 경로를 따랐던거 같네요. 원래그런건가.. -.-a;;

-- Bab2 2004-3-3 10:07 pm

어떻게 쪼개냐에 따라 다르겠지만, 예를 들어 매크로 치환은 쪼개봐도 어차피 매번 불려야 할 거고, diff 나 history 역시 기본 출력과 연결되어 있고, 그럼 남은 것은 편집 모드 정도인데, 뭐 어쨌거나 제가 아쉽지 않은 부분은 관심 밖이라서요. :-)

-- Raymundo 2004-3-3 10:42 pm

• 위키설치 디렉토리 아래 macro 라는 이름의 디렉토리를 두고,
• macro 디렉토리 아래 각 매크로를 하나씩 pl 또는 pm (확장자는 어느쪽이든 상관없을 듯) 파일로 둔다.
• 각 매크로는 다음과 같은 식으로 작성한다. mysign 매크로의 경우

# mysign.pl 파일 - 파일 이름과 매크로 이름이 동일하도록 작성
push(@MyMacros, "mysign");  # OddMuse 의 경우 \&mysign 과 같이 함수의 주소를 줬는데, 덮어쓰기를 위해서 이름을 줘야 할 듯. 

sub mysign {
    ($txt) = @_;
    $txt =~ s/\&__LT__;mysign\(([^,]+),(\d+-\d+-\d+ \d+:\d+.*)\)\&__GT__;/&MacroMySign($1, $2)/gei;  # sub MacroSubst 에 있는 치환부
    return $txt;
}

sub MacroMySign {  # 구체적인 치환 루틴
   ...
}

• 다음, wiki.pl 쪽에서은 일단 각 파일을 한번씩 주욱 읽는다. (하나 읽고 실행하고 다음 거 읽고...라는 식으로 하면 안 됨. 덮어씌우기를 위해서)

foreach $file (glob("./macro/*.pm")) {  # 이렇게 하면 간단히 디렉토리 스캔이 되더군요. readdir 같은 거 필요없이
    do "$file";
}
# 이러면 @MyMacros 배열이 완성

# 이것을 해쉬의 키로 넣고, keys 로 다시 키를 뽑아내어서 중복된 값을 하나만 남게 만든 후

# 하나씩 실행한다.
foreach $mymacro (@MyMacros) {
    $txt = &$mymacro($txt);   # 함수 이름을 이렇게 쉽게 동적으로 줄 수 있다니.. -_-;
}

• 만일 사용자가 mysign 매크로의 출력을 자신만의 방식으로 바꾸고 싶다면
  • 다른 파일을 만들어 macro 디렉토리에 넣고
  • 위의 mysign 또는 MacroMySign 을 그 파일 안에서 다시 작성하되
  • 파일 이름은 위와 다르게 (뭐든 상관없으나, 저 mysign.pm 보다 나중에 읽히면 됨. mysign_ext.pm 등) 하면 됨.
  • 아예 mysign.pm 을 삭제해 버려도 될 것임.

• 새로운 매크로를 만들어 배포하거나, 남이 만든 매크로를 자신의 홈에 추가하는 게 쉽다. 매크로 파일 하나만 받아서 넣어주면 된다.
• usemod ext 버전을 새로 받아올 때도 내가 따로 만든 매크로를 다시 작성해 줄 필요가 없다. 별개의 이름으로 매크로 파일을 만들어 넣어두면 된다.
• 안 쓰는 매크로들을 삭제해 버리면 읽어들이는 코드의 양이 적어진다. 근데 반대로 전부 읽을 경우 하나의 파일을 읽을 때보다 더 오버헤드가 있을 것 같은데... 일반적으로는 모든 매크로를 다 넣어 두고 쓸 것 같으니 오히려 단점일 수도 있겠네요. 가장 좋은 것은 "페이지 안에 매크로가 있을 때 그 매크로 함수만 읽고 부른다"인데, 위처럼 wiki.pl 에 매크로 이름을 명시하지 않게 하면서 이게 가능할지 모르겠습니다.

• 다른 매크로의 함수를 재사용하는 매크로(만들 때는 앗싸 하면서 만들었는데 -_-;)는 어찌하나... 함수를 중복 작성해서 매크로끼리의 독립성을 주는 게 좋을지 그냥 "이 매크로는 무슨 매크로가 있어야 함"처럼 하는 게 좋은지
• 더 큰 문제는 wiki.pl 의 다른 부분에서 매크로의 함수를 쓰는 경우 (있었던 것 같은데) ... 이런 매크로는 그냥 wiki.pl 에 놔 둘랍니다.
• 편집 도움말의 매크로 항목이 실제와 전혀 맞지 않게 될 수 있다. (매크로 파일에 도움말도 같이 넣어서 도움말을 동적으로 생성할 수 있을런지 테스트해볼 생각)
• 말은 이렇게 했지만 진짜로 잘 될지 자신할 수 없음 -_-;;;

자주사용하는 매크로는 그냥 본체에 놔두면 되지 않을까요? ==a

-- Bab2 2004-10-5 3:42 pm

누가 무엇을 자주 사용하는지 어떻게 알죠? 매크로 사용빈도 설문조사를 할 수도 없고...

-- Raymundo 2004-10-5 4:02 pm

아... 사용빈도가 아니라. 중복사용 안하는거만 골라서 떼는 거죠.. 제가 잘못썼네요.

-- Bab2 2004-10-5 7:44 pm

일단 되든 안 되는 해보자는 생각으로 매크로들을 죄다 분리해내고 있는 중입니다. 막노동이군요. -3-;;

-- Raymundo 2004-10-5 8:10 pm

헤헤헤~ 화이팅~! :D

-- Bab2 2004-10-5 10:07 pm

23. HTML::Template

24. 잦은 변경

• keep 파일의 구조는 그대로 둔다.
• 단, 페이지 내용은 분리를 한다. 형식은 'keep 파일이름.revision 번호'

25. 한글 페이지 파일들을 첫글자에 따라 분류해서 저장

26. utf-8 트랙백 받기

#  일단 GetParam 해준 다음에 넘어온게 utf-8인듯 하면 변환
    if ($ENV{'CONTENT_TYPE'} and ($ENV{'CONTENT_TYPE'} =~ m/utf-8/))
    {
        # url은 안 해도 될 것 같음.
        $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');
    }

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

27. WikiPatches/RawMode

• http://www.usemod.org/cgi-bin/wiki.pl?WikiPatches/RawMode