UseModWiki소스수정/MyInterest매크로

MyInterest 매크로

• 자신 또는 특정 사용자의 /관심있는페이지 목록을 출력하는 매크로

• 필수 요구 사항 :
  • /관심있는페이지 패치가 적용되어 있어야 한다.
• 선택 요구 사항 : 없음

• 사용법 : <myinterest> 또는 <myinterest(사용자아이디)>
  • <myinterest> 매크로는, 이 매크로가 포함된 페이지를 브라우징하는 사용자의 관심 페이지 목록을 출력한다. 로그인하지 않은 사용자의 경우는 아무것도 출력되지 않는다. 최근변경내역 등에 이 매크로를 넣어 두는 식으로 사용할 수 있다.
  • <myinterest(사용자아이디)> 매크로는, 인자로 받은 아이디에 해당하는 사용자가 존재하고 그 사용자가 페이지 하나 이상을 관심페이지로 등록한 경우 그 페이지들의 목록을 출력한다. 그 외의 경우는 아무것도 출력되지 않는다.

• 주의사항 :
  • <myinterest> 는 이름이 <mysign> 과 유사하나 (/MySign전처리매크로 참조) 전처리 매크로가 아니다. <date> 나 <time> 이 "페이지를 보는 시각"에 따라 출력이 달라지는 것처럼, 이 매크로는 "페이지를 보는 사용자"에 따라 출력이 달라지는 것이다.
  • <myinterest(사용자아이디)> 를 사용하면, 자신의 관심 페이지 목록을 쉽게 자신의 개인페이지 등에 삽입해 두기가 쉬운 대신, 말을 바꾸면 타인의 관심 페이지 목록을 이 매크로를 써서 알아낼 수 있다는 뜻이 된다. 네티켓을 지키는 의미로, 남의 아이디를 인자로 넣어서 페이지에 포함하는 것을 삼가자. (주인장의 과민반응일지도..)

wiki.pl 수정

sub MacroSubst {
    ...
### <MyInterest(username)>
    $txt =~ s/(\&__LT__;myinterest(\(([^\n]+)\))?\&__GT__;)/&MacroMyInterest($1, $3)/gei;
###
###############
    return $txt;
}

### MyInterest
sub MacroMyInterest {
    my ($itself, $username) = (@_);
    my ($data, $status, @pages);
    my (%tempUserData, %tempUserInterest);
    my $txt = "";

    if ($username eq "") {
        if (&GetParam('username') eq "") {
            return "";
        } else {
            $username = &GetParam('username');
        }
    }

    %tempUserData = ();
    ($status, $data) = &ReadFile(&UserDataFilename($username));
    if (!$status) {
        return "";
    }
    %tempUserData = split(/$FS1/, $data, -1);  # -1 keeps trailing null fields
    %tempUserInterest = split(/$FS2/, $tempUserData{'interest'}, -1);

    @pages = sort (keys (%tempUserInterest));

    foreach (@pages) {
        $txt .= ".... "  if ($_ =~ m|/|);
        $txt .= &GetPageLink($_)."<br>";
    }

    return $txt;
}

Notes

        if ($username eq "") {
                if (&GetParam('username') eq "") {
                        return "";
                } else {
                        $username = &GetParam('username');
                }
## 추가
        } else {
                $username = &FreeToNormal($username);
        }
## 추가

누구가 누군데요? 일리가 있고, 생각을 안 한 것도 아닙니다만... /사용자아이디 패치를 적용하지 않은 경우에는 들어맞지 않지요. 굳이 패치들간에 불필요한 의존성을 걸 필요가 없다고 생각해서 일부러 넣지 않았습니다. 뭐 이 원칙이 잘 지켜지고 있지도 않습니다만 :-)

-- Raymundo 2003-3-31 1:03 am

그렇군요.. 'o'a 누군가는... 저희 아이들(?) 얘기 였습니다. ^^;

-- Bab2 2003-3-31 2:12 am