| -489,518 +489,7 |
| :: 펄 버전 5.6.1(근영님 쓰시는 버전이 몇이신지..?)에서 테스트 해봤습니다. 결과는 마찬가지..-_-;; <mysign([[Bab2]],2002-12-10 3:00 pm)> |
| ::: 5.6.0 입니다. 문제가 되는 코드가 어떤 것인지 모르겠습니다만, |
| ::: |
| {{{perl |
| #!/usr/bin/perl |
| $string1 = "abc"; |
| $string2 = "abcd"; |
|
| if ($string1 eq $string2) { |
| print "yes!\n"; |
| } else { |
| print "no!\n"; |
| } |
| }}} |
| ::: 의 결과가 어떻게 되나요? |
| 흐미~ No요. 이건 잘되네 -_-; <mysign([[Bab2]],2002-12-10 4:22 pm)> |
|
| [[UseModWiki소스수정/RemoteWiki]] 에 이동했습니다. 완료. <mysign([[Raymundo]],2003-2-20 9:51 am)> |
|
| == # 편집된 페이지의 처음이 빈 줄일 경우 == |
| 저장할때마다 한 줄씩 사라져 버립니다. 물론 제일 위쪽의 빈 줄들에 한해서만 그렇습니다. |
| 또 봐바야될듯..ㅜㅡ |
| <mysign([[Bab2]],2002-11-25 8:41 pm)> |
|
| 사는 데 지장없는 문제로 판단함. 완료. :-) <mysign([[Raymundo]],2003-2-26 10:55 am)> |
| == # ||, |<, |> 에 대한 버그 == |
|
| /ToDoOrBugReport 에 적어두신 내용을 보고 소스를 찾아봤습니다. 그러니까 그 페이지 위에 한번이라도 ||를 이용한 테이블이 나오면 그 이후 ||, |<, |> 가 td닫고 새로 열기로 바뀌어 버리는데요. 원인은 $TableMode라는 변수가 1로 설정된 상태로 남아있기 때문입니다. |
|
| WikiLinesToHtml 함수에서 다음 부분을 찾아서 바꿔주면 됩니다. |
|
| {{{perl |
| if ($tag eq "TABLE") { |
| $TableMode = 0; # 원래 내용은 필요없음 |
| }; |
| }}} |
|
| 테이블이 생성될 때 매 라인의 끝이 ||으로 끝나게 변경했고, 그 ||가 tr 닫기로 치환되므로 원래 저 부분에 있던 tr 닫기는 필요없습니다. tag가 TABLE이니 굳이 table로 바꿀 필요도 없구요. 단지 $TableMode만 0으로 만들어주면 됩니다. <mysign([[조프]],2002-12-18 1:38 pm)> |
|
| [[조프]]님의 패치를 [[/버그또는문제점해결]]에 반영했습니다. 완료. <mysign([[Raymundo]],2002-12-18 2:23 pm)> |
|
|
| == # 빈페이지 링크스타일을 사용자 설정에 따라 바꿔줌 == |
| 원래의 WikiX스타일 소스수정에서 다음과 같이 바꿔줍니다. |
| 기본값은 $LinkFirstChar의 값을 따릅니다. |
|
| {{{perl |
|
| sub DoEditPrefs { |
| .... |
| print '<br>', &GetFormCheck('linkstyle', $LinkFirstChar, |
| T('Use WikiX link style for newpage')); # 추가한다. |
| print '<br>', &GetFormCheck('linkrandom', 0, |
| T('Add "Random Page" link to link bar')); |
| print '<br>', $q->submit(-name=>'Save', -value=>T('Save')), "\n"; |
| .... |
| } |
|
| sub DoUpdatePrefs { |
| .... |
| &UpdatePrefCheckbox("linkstyle"); #### 추가한다. |
| &UpdatePrefCheckbox("linkrandom"); |
| .... |
| } |
|
| sub GetPageOrEditAnchoredLink { |
| .... |
| #### 이것을 |
| # if (($LinkFirstChar) && ($name =~ /(\[)?([^\/]*\/)?([a-zA-Z0-9\/]|[\x80-\xff][\x80-\xff])([^\]]*)(\])?/)) { |
| #### 이것을 |
|
| #### 이렇게 바꿔준다. |
| if ((&GetParam('linkstyle', $LinkFirstChar)) && ($name =~ /(\[)?([^\/]*\/)?([a-zA-Z0-9\/]|[\x80-\xff][\x80-\xff])([^\]]*)(\])?/)) { |
| #### 이렇게 바꿔준다. |
| return $2 . &GetEditLink($id,"<b>$3</b>") . $4; |
| } else { |
| return $name . &GetEditLink($id,"?"); |
| } |
| .... |
| } |
| }}} |
|
| 별다른 문제는 없을겁니다. 원격위키링크를 wikix스타일로 표시할 수 있게 누가 손좀 봐줬으면 좋겠는데..흑. ㅠㅠ <mysign([[Bab2]],2002-12-19 4:55 pm)> |
|
| 이거 멋지군요. 반영했습니다. <mysign([[Raymundo]],2002-12-23 1:08 am)> |
|
| == # 사용자목록 매크로 == |
|
| {{{perl |
|
| 적당한 위치에 다음 함수를 집어넣습니다. |
|
| sub GetUserList { |
| my (@userlist, $result); |
| my $usernumber; |
| opendir(USERLIST, $UserDir); |
| @userlist = readdir(USERLIST); |
| close(USERLIST); |
| shift @userlist; |
| shift @userlist; |
| @userlist = sort @userlist; |
| foreach $usernumber (0..(@userlist-1)) { |
| @userlist[$usernumber] =~ s/(.*)\.db/($1)/gei; |
| @userlist[$usernumber] = &StorePageOrEditLink("@userlist[$usernumber]", "@userlist[$usernumber]") . "<br>"; |
| } |
|
| $result = "@userlist"; |
| |
| return $result; |
|
| } |
|
| 그리고나서 아래의 함수에 한줄 추가합니다. |
|
| sub MacroSubst { |
| .... |
| $txt =~ s/\&__LT__;userlist\&__GT__;/&GetUserList()/gei; ####추가한다. |
| .... |
| } |
|
| }}} |
|
| 개인적으로 필요해서 추가했고, <nowiki><userlist></nowiki> 형식으로 사용하며, GenerateAllPagesList함수는 도저히 사용을 못하겠어서리, 그냥 보이는대로 만들었습니다.(허덥해서리..;; 최적화를 좀 부탁드리겠습니다.) 흐~ |
| 사용자페이지가 없는데 그냥 링크를 넣고자 하면 &StorePageOrEditLink 대신에 &GetPageLink 를 넣음 될겁니다. |
| <mysign([[Bab2]],2002-11-28 6:14 am)> |
|
| 적용했습니다. <mysign([[Raymundo]],2002-12-30 3:34 pm)> |
|
|
| == # action=titleindex == |
|
| RemoteWiki를 위한 부산물입니다.(정작 RemoteWiki부분은 시작도 안했는데 -_-a) http://no-smok.net/ns/moin.cgi/?action=titleindex 와 페이지 |
| 의 내용을 같은 형식의 Plain Text로 출력합니다. |
|
| {{{perl |
| #### 함수전체 추가. |
| sub DoTitleIndex { |
| my (@list); |
| my $index; |
| print "Content-type: text/plain\n\n"; |
| @list = &AllPagesList(); |
| foreach $index (@list) { |
| print $index."\r\n"; |
| } |
| } |
| #### 여기까지. |
|
| .... |
|
| sub DoOtherRequest { |
| .... |
| } elsif ($action eq "index") { |
| &DoIndex(); |
| } elsif ($action eq "titleindex") { #### 추가한다. |
| DoTitleIndex(); #### 추가한다. |
| } elsif ($action eq "help") { # luke added |
| &DoHelp(); |
| .... |
| } |
| }}} |
|
| HTML을 문법을 몰라서 GetHttpHeader 함수를 그냥 복사해서 붙여넣기 했는데, DoTitleIndex에서 "print &GetPlainTextHeader();"를 그냥 html문으로 출력하게끔 누가 수정 해줬으면 하는 작은 소망이 있습니다. :) |
| <mysign([[Bab2]],2002-12-9 8:53 pm)> |
|
| : 오오.. 상당히 규모가 큰 작업을 구상 중이신 것 같군요. 짝짝짝~ 말씀하신 '작은 소망'이란 것이, 저 GetPlainTextHeader 를 쓰지 않고 간단히 하길 원하시는 거라면... |
| {{{perl |
| print "Content-type: text/plain\n\n"; |
| }}} |
| : 이라고만 쓰셔도 똑같은 효과일 걸요. 이 경우 쿠키나 캐쉬에 대한 지정이 전혀 들어가지 않아서 문제가 될 수 있을지도 모르겠습니다만... CGI 는 저도 잘 몰라서요. <mysign([[Raymundo]],2002-12-9 10:46 pm)> |
|
| 적용했습니다. <mysign([[Raymundo]],2002-12-30 4:05 pm)> |
|
|
| == # EXTERN 에서 수정했으면 하는 부분 == |
|
| 아 별건 아니고요. 요즘 valid한 위키 페이지를 만드는 일을 해보고 있습니다. |
| * http://validator.w3.org/ |
| * http://jigsaw.w3.org/css-validator/ |
| 에서 문서의 이름을 넣어주면 html이나 css가 문법적으로 에러가 없는지 확인할 수 있거든요. \\ |
| 한글로 된 주소를 넣으면 문서를 제대로 찾지 못한다는 치명적인 문제가 있습니다만, Opera에서 주소를 %12%34 형식으로 보여주기 때문에 그 주소를 넣어주면 테스트가 가능합니다. :-) |
|
| 일단 BrowseExternUrl에서 |
| {{{perl |
| } else { |
| print &GetHttpHeader(); |
| print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Frameset//EN\">\n"; # 추가 |
| }}} |
| 를 해줘야 하고요. (일반 위키 페이지의 경우는 DOCTYPE이 제대로 출력됩니다) |
|
| 좀 애매한 부분이긴 한데, 원래 frameset에는 border라는 속성이 없습니다. \\ |
| frame에 frameborder라는 속성이 있어서 이 속성을 0을 주면 되지요. [http://www.w3.org/TR/html4/present/frames.html 참고] \\ |
| 문제는 Opera가 이 속성을 제대로 지원하지 않는 것 같다는... 이건 지금 테스트 중입니다. |
|
| 그럼. <mysign([[조프]],2002-12-10 1:15 pm)> |
|
| : 오... frameset 에 border 가 사실은 없는 거라니.. 처음 알았네요. 반영하겠습니다. <mysign([[Raymundo]],2002-12-10 2:04 pm)> |
|
| == # IncludeDay 매크로 == |
|
| 지금 [http://jof4002.net 조프위키] 대문을 보면 날짜와 그날 일정이 나옵니다. |
| {{{ |
| 오늘은 '''<date>''' 입니다.\\ |
| <IncludeToday()> |
| }}} |
| 이런 식으로 해놨지요. IncludeToday의 내용은 오늘 날짜에 맞는 페이지를 Include 해주는 단순한 함수입니다. |
|
| 제가 추가한 함수는 대강 다음과 같습니다. |
| {{{perl |
| sub MacroToday { |
| my ($cal_name) = @_; |
| my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($Now); |
| |
| if ($cal_name ne "") { |
| $cal_name .= "/"; |
| } |
| |
| my $cal_page = $cal_name . ($year + 1900) . "-"; |
| if ($mon + 1 < 10) { |
| $cal_page .= '0'; |
| } |
| $cal_page .= ($mon+1); |
| if ($mday < 10) { |
| $cal_page .= "-0$mday"; |
| } else { |
| $cal_page .= "-$mday"; |
| } |
| |
| return &MacroInclude($cal_page); |
| } |
| }}} |
|
| 구찮아서 날짜 처리를 안했죠. -_-; 달력을 사용하는 김에 추가하면 대문이나 개인 페이지에 사용하기 괜찮지 않나 싶네요. <mysign([[조프]],2003-2-6 7:12 pm)> |
| :달력처럼 날짜를 정할수 있게 하는 것이 가능할까요? |
| {{{ |
| <IncludeToday(0,-1)> <IncludeToday(0,0)> <IncludeToday(0,1)> |
| }}} |
| 이런식으로요. '_'a <mysign([[Bab2]],2003-2-6 8:12 pm)> |
| : 예, 저는 필요를 느끼지 못해서 그냥 오늘만 되게했지만, MacroCalendar 함수의 날짜 처리루틴을 응용하면 그리 어렵지 않게 구현할 수 있을 것 같네요. <mysign([[조프]],2003-2-6 10:59 pm)> |
|
| [[Bab2]]님도 그렇고 [[조프]]님도 그렇고... 이런 맛에 UseModWiki 를 떠날 수 없네요. 멋집니다. 잘 지내시죠? ^_^ <mysign([[Raymundo]],2003-2-6 8:55 pm)> |
| :예 :-) <mysign([[조프]],2003-2-6 10:59 pm)> |
| ::저두요! 그리고 유즈모드의 심플함도 매력이죠.<mysign([[Nyxity]],2003-2-6 11:07 pm)> |
| :저도요. 'v' <mysign([[Bab2]],2003-2-6 11:45 pm)> |
|
| [[조프]]님 홈에서 잠깐 테스트 해 보았는데, 인자로 페이지 이름이 들어갈 경우 페이지 이름이 [[위키네임]]이면 동작을 안 하는 것 같네요. 매크로 검사하기 전에 먼저 a href 링크로 바뀌어 버리니까 그러는 것 같습니다. 현재 작업 중입니다. 간만에 하려니까 문법도 가물가물하군요. ^^; <mysign([[Raymundo]],2003-2-11 1:27 am)> |
|
| 날짜 offset 을 인자로 받을 수 있도록 개선하여 반영했습니다. 완료. <mysign([[Raymundo]],2003-2-11 2:36 am)> |
|
| == # 자동로그인 선택 == |
|
| {{{perl |
|
| #### 쿠키에 expire항목 추가. |
| sub GetHttpHeader { |
| ... |
| if (defined($SetCookie{'id'})) { |
| ################## 바꿔준다. |
| $cookie = "$CookieName=" . "expire&" . $SetCookie{'expire'} . "&rev&" . $SetCookie{'rev'} . "&id&" . $SetCookie{'id'} . "&randkey&" . $SetCookie{'randkey'}; |
| if ($SetCookie{'expire'} eq "1") { |
| $cookie .= ";expires=Fri, 08-Sep-2010 19:48:23 GMT"; |
| } else { |
| $cookie .= ";"; |
| } |
| ################## 끝. |
| if ($HttpCharset ne '') { |
| ... |
| } |
|
|
| #### DoEnterLogin으로부터 받은 값을 해쉬에 추가. (약간 삐리리한.. -_-;) |
| sub DoLogin { |
| my $expire_mode; # 추가 |
| .... |
| $expire_mode = &UpdatePrefCheckbox("p_expire"); # 추가 |
|
| ################# 밑에서부터 여기까지. |
| if ($expire_mode eq "") { |
| $SetCookie{'expire'} = 1; |
| } else { |
| $SetCookie{'expire'} = $expire_mode if ($expire_mode ne ""); |
| } |
| #### ↓이것들의 바로위에 ↑ 이것들 추가.(crypt함수 수정으로 인해 원문을 모름.) |
| $SetCookie{'id'} = $uid; |
| $SetCookie{'randkey'} = $UserData{'randkey'}; |
| $SetCookie{'rev'} = 1; |
| .... |
| } |
|
| #### 로긴창에 체크박스 폼 집어넣음. |
| sub DoEnterLogin { |
| .... |
| print "<br>", &GetFormCheck('p_expire', 0, T('Keep login information')); ## 추가한다. |
|
| print '<br>', $q->submit(-name=>'Login', -value=>T('Login')), "\n"; |
| print "<hr>\n"; |
| .... |
| } |
| }}} |
| 겜방에서 컴터를 많이 쓴다는 누군가의 협박(?)으로 대충 만들어 봤는데, 어떨지 모르겠네요. 여전히 펄이나 웹이나 그런건 암것도 몰라서 ㅜㅡ; 좋은 하루 되세요.. ^^ <mysign([[Bab2]],2003-1-4 4:11 am)> |
|
| 반영했습니다. 완료. <mysign([[Raymundo]],2003-2-11 5:35 pm)> |
|
| == # 새로생긴 페이지에 NEW 마크 표시 == |
| {{{perl |
| .... |
| sub GetRcHtml { |
| if ($UseDiff && &GetParam("diffrclink", 1)) { |
| $link .= &ScriptLinkDiff(4, $pagename, $tDiff, "") . " "; |
| } |
| #### 수정한다. |
| if ($pagecount{$pagename} eq 1) { |
| $link .= &GetPageLink($pagename)." <small>(<font color=red>" . &T('NEW') . "</font>)</small>"; |
| } else { |
| $link .= &GetPageLink($pagename); |
| } |
| #### 끝. |
| $html .= "<tr><td style=\"border:0\"> </td><td style=\"border:0\"><li>$link $sum</td>" |
| .... |
| } |
| }}} |
| 굳이 필요할까라는 의문이 듭니다만..;; <mysign([[Bab2]],2002-12-22 4:55 am)> |
|
| 적어주신 것이.. new 마크가 제목 뒤에 붙더군요. 다른 페이지들의 "~번 변경됨" 자리에 있는 게 더 나아보여서 조금 다르게 적용했습니다만... 정말 필요가 없어 보이는데요. :-) 어쨌거나 완료. <mysign([[Raymundo]],2003-2-11 6:40 pm)> |
|
|
| == # RemoteWiki == |
|
| 특정위키사이트의 인덱스목록을 받아와서 지정한 값과 일치하는 제목이 있으면 그 사이트의 해당페이지로 링크를 만들어줍니다. \\ |
| * 페이지 목록을 받아오는 액션은 wiki.pl?action=remotepage 이며 현재 plain/text만 가능 |
| * remotemap화일에는 원격사이트의 TitleIndex 실행 주소를 기입한다. |
| * remotemap화일에 있는 사이트가 intermap 에 없을 경우 그냥 텍스트로 출력된다. |
| ** remotemap의 사이트정보 작성시 "이름 주소 경로" <- 이런식으로 한칸씩 띄어줘야 한다.(능력부족..ㅜㅡ) \\ |
| 예 : |
| {{{ |
| NoSmok http://no-smok.net /ns/moin.cgi?action=titleindex |
| }}} |
| * 대상 사이트 : 노스모크, KLE |
|
| * 문제점 : macrosubst함수의 위치때문에 검색어가 WikiLink일 경우 검색되지 않는다. |
| :: 이런, 제가 그것 때문에 몇 번이나 삽질을 했으면서도 알아채질 못했군요. ^^ 그래서 RemoveLink 라는 함수를 만들어놨습니다. RemoveLink($string) 하면 a href 태그 등을 떼어내고 원래 문자열을 반환해 줄 겁니다. - [[raymundo]] |
| ::: 우헐헐헐~ 고맙습니다. 이제 대충 쓸만해졌네요. <mysign([[Bab2]],2002-12-10 11:47 pm)> |
|
| * 다음과제 : 완료. |
|
| {{{perl |
| #config.pl 에 추가해야할 내용 |
| $RemoteDir = "$DataDir/remotewiki"; # 원격위키의 타이틀인덱스가 저장될 장소. |
| $UseRemoteWiki = 1; #1 원격 활성 2 비활성 |
| $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: <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("처음", 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); |
| #### 추가한다. |
| } elsif (($UseRemoteWiki) && (!$LinkFirstChar) && ($Section{'revision'} > 0)) { |
| $intername = &MacroMetaSearch($id); |
| $intername =~ s/\s+(.*)//g; |
| return $intername." ".&GetPageLinkText($id,"?") if ($intername ne "Nothing."); |
| } |
| #### 끝. |
| if ($FreeLinks) { |
| .... |
| } |
| }}} |
|
| 어딜 찾아봐도 구체적으로 어떻게 구현했다는 말이 없으니...원..\\ |
| 그럭저럭 돌아갈겁니다. 노스모크의 "-_-" <- 이 링크가 안되는 문제가 있는데 이것은 StoreInterPage 함수의 문제이기 때문에 어쩔 수 없습니다.\\ |
| (라기 보단 손대기 귀찮죠 -_-;;)\\ |
| 본문의 리모트 페이지는 우선순위가 제일 높은 한페이지만 표시하게 했습니다.\\ |
| cron 대몬을 써서 자동으로 갱신시키고자 한다면. GetUrlSocket함수와 GetRemotePage를 별도의 화일로 만들어서 하루에 한 번 정도 갱신시켜주면 될 것입니다.\\ |
| 그 외에는 메뉴에 링크를 걸어서 직접 고쳐주는 수밖에 없죠. --;\\ |
| WikiX스타일 링크는 적용이 안되는데 그건 wikix스타일을 쓰는 다른분이 해결좀 해주셨음 좋겠군요..\\ |
| 다른 문제는 모두 해결했습니다. (꽁수로 --;)\\ |
| 진짜로 끝냈다 만세~ |
|
| 각 페이지의 이름배열을 foreach문으로 변수하나하나에 나누어 검사하는 것을 화일(사이트) 한개마다 양쪽에 둘러쳐진 $FS변수 단위로 짤라서 한번에 검사하도록 수정했습니다. 이제 적용해도 괜찮을겁니다. WikiX는 스타일은 도저히 수가 안나서 포기했습니다. ^^;; |
| <mysign([[Bab2]],2002-12-12 3:53 am)> |
|
| ---- |
| 내일은 시험치는 과목이 없어서 그나마 다행입니다. 좋은 하루 되세요. :) <mysign([[Bab2]],2002-12-10 5:04 am)> |
|
| : 그럴 리가요? 문자열은 eq 로 비교하면 정확히 잡아내던데요. "abc" eq "abcd" 로 했을 때 true 가 되더라는 말씀인가요? 제 홈페이지가 있는 서버에서는 잘 되던데요. 혹시 perl 버전에 따른 버그일지도.. 설마... <mysign([[Raymundo]],2002-12-10 8:33 am)> |
| :: 펄 버전 5.6.1(근영님 쓰시는 버전이 몇이신지..?)에서 테스트 해봤습니다. 결과는 마찬가지..-_-;; <mysign([[Bab2]],2002-12-10 3:00 pm)> |
| ::: 5.6.0 입니다. 문제가 되는 코드가 어떤 것인지 모르겠습니다만, |
| ::: |
| {{{perl |
| {{{#!vim perl |
| #!/usr/bin/perl |
| $string1 = "abc"; |
| $string2 = "abcd"; |
![[첫화면으로]](/raymundo_logo.jpg){kind=logo}
"UseModWiki소스수정/반영된사용자의견archive03" 페이지의 변경 내역