UseModWiki소스수정/등록금지단어

1. 등록 금지 단어 필터링 기능

1.1. 사용법

1.2. 부작용

1.3. wiki.pl 수정

1.4. action/editbannedtext.pl 추가

1.5. action/updatebannedtext.pl 추가

1.6. action/adminmenu.pl 수정

1.7. action/comments.pl 수정

1.8. translations/korean.pl 수정

1.9. 관련 링크

1.10. 추가 업데이트 내역

1.11. 사용자 의견

1. 등록 금지 단어 필터링 기능

• 필수 요구 사항:
  • /액션모듈화가 되어 있을 것. 아닐 경우 아래의 action들을 wiki.pl에 추가해 줌.
  • /TrackBack 패치 중에 GetParam()함수의 수정이 되어 있어야 한다.
• 선택 요구 사항:
  • /관리메뉴가 되어 있으면 편하다.

1.1. 사용법

• wiki.pl?action=editbannedtext 를 띄우거나, /관리메뉴가 되어 있으면 상단 메뉴바에서 관리-등록 금지 단어 목록 수정
• 단어 목록에는 Perl/정규표현식을 사용할 수 있다.
• 글을 저장할 때 본문에 해당 단어가 들어 있으면 저장이 되지 않는다.
• [금지 단어로 사용할만한 목록] - 외국 사이트들도 어지간히 당했었나보다.

1.2. 부작용

1.3. wiki.pl 수정

sub DoPostMain {
    ...
        return;
    }

# 금지단어 - 이 단락 추가
    if (my $bannedText = &TextIsBanned($string)) {
        print &GetHeader("", T('Editing Denied'),"");
        print Ts('Editing not allowed: text includes banned text');
        print " [$bannedText]";
        print "\n<br><hr noshade size=1><p><strong>". T('This is the text you submitted:').
                "<br>". T('(Copy the text, go back with your browser, paste the text, and edit again please)').
                "</strong><p>".
                &GetTextArea('text', $string, &GetParam("editrows", 20), &GetParam("editcols", 65)).
                "<p>\n";
        print &GetCommonFooter();
        return;
    }

    if (($id eq 'SampleUndefinedPage') || ($id eq T('SampleUndefinedPage'))) {
        &ReportError(Ts('%s cannot be defined.', $id));
        return;
    ...
}

# 금지단어
sub TextIsBanned {
    my ($text) = @_;
    my ($data, $status);

    ($status, $data) = &ReadFile("$DataDir/bantext");
    return undef if (!$status);

    $data =~ s/\r//g;
    foreach (split(/\n/, $data)) {
        next if ((/^\s*$/) || (/^#/));
        return $& if ($text =~ /$_/i);
    }
    return undef;
}

sub DoReceiveTrackbackPing {
    ...
    } elsif (!&PageCanReceiveTrackbackPing($normal_id)) {
        &SendTrackbackResponse("1", "Invalid Pagename (Page is missing, or Trackback is not allowed)");
    } elsif (my $bannedText = &TextIsBanned($blog_name.$url.$title.$excerpt)) {       # 이 줄과 아래 줄 추가
        &SendTrackbackResponse("1", "[$bannedText] is a Banned text");
    } else {
        &OpenPage($normal_id);
    ...
}

1.4. action/editbannedtext.pl 추가

# editbannedtext action
# 금지단어
sub action_editbannedtext {
    my ($banList, $status);

    print &GetHeader("", T('Editing Banned text'), "");
    return if (!&UserIsAdminOrError());

    ($status, $banList) = &ReadFile("$DataDir/bantext");
    $banList = "" if (!$status);
    print &GetFormStart();
    print &GetHiddenValue("edit_bantext",1),"\n";
    print &GetHiddenValue("action", "updatebannedtext"),"\n";
    print "<b>Banned text list:</b><br>\n";
    print "<p>Each entry is either a commented line (starting with #), ",
        "or text.";
    print "<p>Example:<br>",
        "# blocks text 'spam.com'<br>",
        "spam\\.com\$<p>";
    print &GetTextArea('bantext', $banList, 12, 50);
    print "<br>", $q->submit(-name=>'Save'), "\n";
    print $q->endform;
    print &GetCommonFooter();
}

1;

1.5. action/updatebannedtext.pl 추가

# updatebannedtext action
# 금지단어
sub action_updatebannedtext {
    my ($newList, $fname);

    print &GetHeader("", T('Updating Banned text'), "");
    return  if (!&UserIsAdminOrError());
    $fname = "$DataDir/bantext";
    $newList = &GetParam("bantext", "#Empty file");
    if ($newList eq "") {
        print "<p>Empty banned text or error.";
        print "<p>Resubmit with at least one space character to remove.";
    } elsif ($newList =~ /^\s*$/s) {
        unlink($fname);
        print "<p>Removed banned text";
    } else {
        &WriteStringToFile($fname, $newList);
        print "<p>Updated banned text";
    }
    print &GetCommonFooter();
}

1;

1.6. action/adminmenu.pl 수정

...
        "<p>".&ScriptLink("action=editbanned",T('Editing Banned list')).
        "<p>".&ScriptLink("action=editbannedtext",T('Editing Banned text')).  # 추가
        "<p>".&ScriptLink("action=maintain",T('Maintenance on all pages')).
...

1.7. action/comments.pl 수정

1.8. translations/korean.pl 수정

Editing not allowed: text includes banned text
수정할 수 없습니다: 금지된 단어가 포함되어 있습니다
Editing Banned text
등록 금지 단어 목록 수정
Updating Banned text
등록 금지 단어 목록 갱신
(Copy the text, go back with your browser, paste the text, and edit again please)
(아래 텍스트를 복사하고, 브라우저의 뒤로 가기를 사용하여, 이전 화면에 붙여놓고 다시 편집해 주시기 바랍니다)

1.9. 관련 링크

• Banning - OddMuse의 비슷한 구현
• BannedContent - 금지 단어로 사용할만한 목록

• WikiSpam
• WikiPatches/RobotsNoFollow

1.10. 추가 업데이트 내역

• 사용자가 본의 아니게 등록금지단어에 해당하는 텍스트를 넣은 글을 올리다가, 작성한 내용을 모두 날려버릴 수 있는 문제를 수정
  • 대단한 건 아니고, 등록금지에 걸렸을 때는 텍스트 입력폼에 있던 내용을 다시 한 번 출력해준다. 사용자는 그걸 복사한 후 브라우저의 뒤로 가기를 눌러서 편집 화면으로 돌아가서 붙여 넣은 다음에 수정을 하면 된다.
  • (금지에 걸렸을 때 바로 편집화면을 다시 띄울 수 있으면 훨씬 좋았겠지만, 그러자면 수정할 코드가 너무 많고 복잡해져서.. 이 정도로 절충합니다)

1.11. 사용자 의견

"#"으로 시작하는 것은 주석문이라는 얘기입니다. 즉 그 줄은 무시되지요. # 대신에 ^를 쓰셔야겠죠. :-)

-- Raymundo 2005-4-8 11:51 am

어려울리가요! :-) "\b"라는 앵커는 단어의 끝을 의미합니다.

"anth"라는 단어만 잡고 싶으면 \banth\b 를 넣어 보세요. anth.com 처럼 특수기호가 붙은 경우도 단어의 끝으로 간주해서 잡아냅니다.

-- Raymundo 2007-3-9 12:49 pm

아 그렇군요!

-- Nyxity 2007-3-9 1:17 pm

간혹 IP차단해도 들어오는 녀석들이 있긴 있더군요.

-- Nyxity 2007-4-10 10:58 pm