UseModWiki소스수정/RemoteWiki

RemoteWIki 지원

• remotemap화일에는 원격사이트의 TitleIndex 실행 주소를 기입한다.
• remotemap화일에 있는 사이트가 intermap 에 없을 경우 그냥 텍스트로 출력된다.
  • remotemap의 사이트정보 작성시 "이름 주소 경로" <- 이런식으로 한칸씩 띄어줘야 한다.(능력부족..ㅜㅡ)
    예 :

NoSmok http://no-smok.net /ns/moin.cgi?action=titleindex

• 주의 :
  • Wikix스타일의 빈페이지링크이름사용 패치가 섞여있으므로 주의할 것.
  • 이곳의 패치(뭐였는지 기억이 안남 ㅡ.,ㅡ;) > < 를 &__GT__;, &__LT__;로 바꿔주는 패치가 적용되어 있어야 하며 적용되어 있지 않다면 sub MacroSubst함수에서 아래와 같이 바꿔줘야 한다.

#이것을
        $txt =~ s/\&__LT__;metasearch\(([^\n]+)\)\&__GT__;/&MacroMetaSearch($1)/gei;
#이렇게
        $txt =~ s/\<metasearch\(([^\n]+)\)\>/&MacroMetaSearch($1)/gei;

• 상당히 허접하게 구현됐기 때문에 remotemap작성시 주의를 요합니다. 우선 텔넷을 사용해서 제대로 된 경로를 확인한 다음 remotemap을 작성하시기 바랍니다.

#config.pl 에 추가해야할 내용
$RemoteDir   = "$DataDir/remotewiki"; # 원격위키의 타이틀인덱스가 저장될 장소.
$UseRemoteWiki = 1; #1 원격 활성 0 비활성
$RemoteFile = "remotemap"; # 원격위키 타이틀인덱스 경로
#### 끝.

# wiki.pl에 추가할 내용.
#### 변수추가.
use vars qw(@RcDays @HtmlPairs @HtmlSingle
....
$RemoteFile $UseRemoteWiki $RemoteDir ### 추가
....
#### 해당페이지의 쌍둥이페이지가 있고, $UseRemoteWiki=1일때 페이지하단에 쌍둥이페이지 링크를 무조건 출력한다. KLE의 RemoteWiki 설명 참고.
sub BrowsePage {
....
        #### 추가
        if ($UseRemoteWiki eq 1) {
                $oldId = $id if($oldId eq "");
                $fullHtml .= &WikiToHTML("<br><br><hr>\nSee Also: <br><metasearch($oldId)>");
                ## REDIRECT매크로 사용시 리다이렉트된 페이지가 아닌 원래페이지의 목록을 보여줌.
        }
        #### 끝.
        $fullHtml .= &GetFooterText($id, $goodRevision);
        print $fullHtml;
        return  if ($showDiff || ($revision ne ''));  # Don't cache special version
....
}
....
#### <metasearch()> 매크로
sub MacroSubst {
....
        $txt =~ s/\&__LT__;metasearch\(([^\n]+)\)\&__GT__;/&MacroMetaSearch($1)/gei; #### 추가.
....
}

#### 전체추가
#### 원격사이트 페이지목록을 소켓으로 긁어온다.
sub GetUrlSocket {
        use IO::Socket;
        my($url, $addr) = @_;
        my (@data, $result);
        my $sock;

        $sock = IO::Socket::INET->new(PeerAddr=>$url, Proto=>'tcp', PeerPort=>'80');
        print $sock "GET ". $addr . "\n\n";

        @data = <$sock>;

        $result = join ($FS,@data);
        $result =~ s/(\n|\r)//g;

        close($sock);

        return $result;
}

#### 긁어온 목록을 정리해서 화일로 저장한다.
sub GetRemotePage{
        my (@all, $data, $status, $count, $result);

        ($status, $data) = &ReadFile($RemoteFile);
        return ""  if (!$status);
        @all = split(/\s+/, $data);

        &CreateDir($RemoteDir);

        for ($count=1;$count<1+(@all/3);$count++) {
                open (remotewiki, ">"."$RemoteDir"."/"."$all[3*$count-3]".".db");

                @all[3*$count-2] =~ s/http\:\/\/(.*)/$1/g;
                ##### 0은 이름 1(3count-2)은 주소 2(3count-1)는 실행경로 #####
                $result = &GetUrlSocket(@all[3*$count-2], @all[3*$count-1]);

                print remotewiki $FS.$result;

                close (remotewiki);
        }

        print &GetHeader('', T('Get RemotePages'), "");
        print "<br>Getting RemoteWiki pages done.<br>";
        print &ScriptLink("$HomePage", T('<br>첫화면으로..<br>'));
        print "<hr>\n";
        print $q->endform;
        print &GetMinimumFooter();

        return "";
}

#### 페이지 이름과 일치하는 원격사이트 목록을 출력한다.
sub MacroMetaSearch {
        my ($name) = @_;
        my (@remotename, @all, $data, $status, $count, $remotedata);
        my $page;
        my $result = "";

        $name = &RemoveLink($name);
        ($status, $data) = &ReadFile($RemoteFile);
        return ""  if (!$status);
        @all = split(/\s+/, $data);

        for ($count=1;$count<1+(@all/3);$count++) {
                @all[3*$count-2] =~ s/http\:\/\/(.*)/$1/g;
                ##### 0은 이름 1(3count-2)은 주소 2(3count-1)는 실행경로 #####
                open (getdb, ($RemoteDir."/".@all[3*$count-3].".db"));
                $remotedata = <getdb>;
                if ($remotedata =~ /$FS($name)$FS/i) {
                        $result .= &StoreInterPage("@all[3*$count-3]\:$1")." ";
                }
                close (getdb);
        }
        return $result;
}
#### 끝.
....
#### 원격사이트로부터 타이틀인덱스를 받는 action 추가
sub DoOtherRequest {
....
                } elsif ($action eq "titleindex") {
                        DoTitleIndex();
                #### 추가.
                } elsif ($action eq "remotepage") {
                        &GetRemotePage();
                #### 끝.
                } elsif ($action eq "help") {                           # luke added
                        &DoHelp();
....
}
....
sub GetPageOrEditAnchoredLink {
        my ($id, $anchor, $name) = @_;
        my (@temp, $exists);
        my $intername;  #### 추가.
        ....
        if ($exists) {
                $id = "$id#$anchor" if $anchor;
                $name = "$name#$anchor" if $anchor && $NamedAnchors != 2;
                return &GetPageLinkText($id, $name);
        #### 추가한다.
        ## 이곳의 페이지이름을 wikix로 만들어주는 패치를 했다면 아래를 주석해제
#       } elsif (($UseRemoteWiki) && (!$LinkFirstChar) && ($Section{'revision'} > 0)) {
        ## 패치를 하지 않았다면 아래를 주석해제
#       } elsif (($UseRemoteWiki) && ($Section{'revision'} > 0)) {
                $intername = &MacroMetaSearch($id);
                $intername =~ s/\s+(.*)//g;
                return $intername." ".&GetPageLinkText($id,"?") if ($intername ne "");
        }
        #### 끝.
        if ($FreeLinks) {
....
}

Notes

홈페이지가 있는 계정에 telnet 또는 SSH 로 들어갈 수 있나요? 들어갈 수 있다면, 그리고 퍼미션이 허락한다면, (불행히도, 상용 서비스 업체에 하숙하시는 거라면 안 될 것 같습니다만) 아파치 로그를 찾아 보세요. 주로 있을 법한 곳은 /var/log/httpd , /var/log/apache , /usr/local/apache/logs/ 등등인데, 이 디렉토리 아래에 error_log 란 화일에 보면 웹서버 에러의 구체적인 내용이 기록됩니다. (물론.. 유닉스 환경에서 apache 웹서버를 사용하는 경우의 이야기입니다만) 웹브라우저 상에서는 그저 "Internal Server Error" 라고 나오는 것도, 저 로그 화일에는 구체적으로 "wiki.pl 의 몇 번째 라인에 syntax error 가 났다" 라는 식으로 적힙니다. 이것을 볼 수 있으면 원인을 찾기가 훨씬 쉬워지겠죠.

-- Raymundo 2003-2-20 11:47 pm

위 화일의 이름이 뭔가요? 아까 말을 빼먹었는데.. 만일 수많은 사람들이 같이 돈을 내고 쓰는 서버라면... 각 사람들의 홈페이지에서 발생하는 에러가 한 화일에 기록되는 수도 있습니다. 관리자의 설정에 따라서 각 홈페이지 별로 별도의 로그 화일을 만들 수도 있고요. 후자라면 좋겠지만, 전자라면 저 에러는 Nyxity님 홈페이지와는 관계없는 에러일 수도 있습니다. 뭐, 관계있는 걸 수도 있겠습니다만, 평소에는 잘 돌아가던 wiki.pl 이 패치를 했다고 해서 저런 에러를 낼 것 같지는 않거든요.

-- Raymundo 2003-2-21 12:00 am

힝~ 포기해야겠군요.

우웅...리눅스 깔 엄두는 못내겠어요. 그리고 위의 에러메시지는 '/usr/local/apache/logs/ '에 있는 error_log 를 본겁니다.

음. 그 파일을 볼 수가 있다면요, 다음과 같이 해 보세요. 텔넷으로 접속하셨다면 그 상태에서 다음의 명령을 내립니다.

tail -f /usr/local/apache/logs/error_log

그러면, 저 화일이 변경되는 것을 실시간으로 계속 보여줄 겁니다. 일단 엔터를 다다다 쳐가지고 줄을 좀 띄운 후에, 재빠르게 브라우저에서 문제의 코드를 실행시켜서 에러를 냅니다. 그 순간 텔넷 화면에 뜨는 메세지가 해당 에러 메세지일테니, 얼른 Ctrl+C 를 눌러서 tail 을 종료시키고, 갈무리를 하면 되겠죠. 저번에 말씀드린 것처럼 그 서버에 존재하는 모든 웹사이트들의 로그가 같이 뜬다면, 계속 출력이 쏟아져나와서 정확히 잡아내기가 쉽지 않을수도 있겠습니다만.. 그리고 저 /usr/local/apache/logs 디렉토리에 (만일 운이 좋다면) palmworld.org 로 접속했을때의 에러만 별도의 화일로 남기도록 했을 수도 있습니다. 다른 화일이 없나 살펴보세요.

-- Raymundo 2003-2-21 9:46 pm

아무래도 제 계정의 비번과 아디를 알려드리고 한번 봐주시는것이 더 빠를듯...어려워요..

-- Nyxity 2003-2-25 10:50 pm

흐음... 저 에러도 웬지 아니다 싶습니다만.. ^^; 거북이님과 Canday님의 경우에는 제가 대신 로긴해서 살펴볼 수 있었습니다만, 이 패치는 Bab2님이 작성하신 것이고 게다가 저는 사용하고 있지 않은 터라... Bab2님께서 괜찮으시다면 그쪽으로 메일을 보내시는 게 낫겠죠. 근데 아무래도 옮겨 적는 과정에서 오타가 났다거나 하는 단순한 에러가 아닐까 싶네요. 폐인월드에서는 잘 돌아가는 패치가 이쪽에서 안 되는 이유가 따로 있을런지...

-- Raymundo 2003-2-25 11:00 pm

혹시 펄에 SOCKET모듈이 없어서 그런건 아니겠죠? ㅡ.ㅡa 아마 기본적으로 깔려있을거라고 믿습니다만은..;; 위키본체랑 컨피그 화일을 메일로 좀 보내주실 수 있겠습니까? bab2 at hanafos.com 입니다.

-- Bab2 2003-2-25 11:48 pm

bab2@ftp bab2 $> telnet piwd.net 80 <-- (접속주소)

Trying 218.149.165.189...
Connected to piwd.net.
Escape character is '^]'.

GET http://piwd.net/cgi-bin/wiki.pl?action=titleindex <-- (실제경로)