UseModWiki소스수정/문자열일괄치환

1. 모든 페이지의 문자열 일괄 치환

1.1. 사용법

1.2. 치환 예

1.3. 부작용

1.4. action/adminmenu.pl 수정

1.5. action/replacetext.pl 추가

1.6. translations/korean.pl 수정

1.7. 추가 업데이트 내역

1.8. 사용자 의견

1. 모든 페이지의 문자열 일괄 치환

• 필수 요구 사항: 없음
• 선택 요구 사항:

1.1. 사용법

• "Ignore case"에 체크하면 "morning"을 찾을때 대소문자를 구분하지 않는다.
• "Use regular Expression"에 체크하면 찾을 문자열에 Perl/정규표현식을 사용할 수 있다.
• "Evaluate"에 체크하면 New string에 적힌 것을 Perl expression으로 해석하여 그 결과를 가지고 치환한다.

1.2. 치환 예

1.3. 부작용

            $newText =~ s/$oldStr/$newStr/g;

예를 들어서, 치환 코드에서 쓰이는 구분자가 "/"이기 때문에, "2/3"을 "5/6"으로 치환하려면 슬래쉬를 그대로 쓸수가 없고 "\/"처럼 넣어야 한다.
$newText =~ s/2\/3/5\/6/g;

그런데, 위키에서 "2\/3" "5\/6"을 넣으면 "2/3"이 "5\/6"으로 치환되어 버린다. -_-; New string에는 "5/6"이라고 그냥 슬래쉬만 적어주어야 한다.

1.4. action/adminmenu.pl 수정

       "<p>".&ScriptLink("action=unlock",T('Removing edit lock')).
        "<p>".&ScriptLink("action=replacetext",T('Replace strings in all pages')).  # 이 줄 추가
       "\n";

1.5. action/replacetext.pl 추가

# replacetext action
# 일괄치환
use strict;

sub action_replacetext {
    print &GetHeader("", T('Replace strings in all pages'), "");
    return  if (!&UserIsAdminOrError());

    my ($oldStr, $newStr, $ignoreCase, $regular, $evaluate, $test);
    $oldStr = &GetParam("old", "");
    $newStr = &GetParam("new", "");
    $ignoreCase = &GetParam("p_ignore", "0");
    $ignoreCase = "1" if ($ignoreCase eq "on");
    $regular = &GetParam("p_regular", "0");
    $regular = "1" if ($regular eq "on");
    $evaluate = &GetParam("p_evaluate", "0");
    $evaluate = "1" if ($evaluate eq "on");
    $test = &GetParam("p_test", "0");
    $test = "1" if ($test eq "on");

# 폼 출력
    print &GetFormStart();
    print &GetHiddenValue("action", "replacetext"),"\n";
    print "<p><b>Old string:</b><br>\n";
    print $q->textfield(-name=>"old",-size=>"100",-maxlength=>"255",-default=>"$oldStr");
    print "<br>\n";
    print $q->checkbox(-name=>"p_ignore", -override=>1, -checked=>$ignoreCase,
                        -label=>T('Ignore case'));
    print $q->checkbox(-name=>"p_regular", -override=>1, -checked=>$regular,
                        -label=>T('Use regular expression'));

    print "\n<p><b>New string:</b><br>\n";
    print $q->textfield(-name=>"new",-size=>"100",-maxlength=>"255",-default=>"$newStr"). "\n";
    print "<br>\n";
    print $q->checkbox(-name=>"p_evaluate", -override=>1, -checked=>$evaluate,
                        -label=>T('Evaluate'));

    print "<p>";
    print $q->submit(-name=>'Replace'), "\n";
    print $q->checkbox(-name=>"p_test", -override=>1, -checked=>1,
                                -label=>T('Just test'));
    print $q->endform;

# old string 값이 없는 경우. 제일 처음 불렸을 때 등
    if ($oldStr eq '') {
        print &GetCommonFooter();
        return;
    }


    if ($test) {
        print "<p>Just test ...<br>\n";
    } else {
        print "<p>Search & replace ...<br>\n";
    }

    my ($page, $num);
    $num = 0;

    $oldStr = "\Q$oldStr\E" if (not $regular);
    $oldStr = "(?i)$oldStr" if ($ignoreCase);

    foreach $page (&AllPagesList()) {       # 모든 페이지 검사
        &OpenPage($page);
        &OpenDefaultText();
        my $newText = $Text{'text'};
        my $match = 0;

# 치환 시도
        if ($evaluate) {
            $match = ($newText =~ s/$oldStr/$newStr/mgoee);
        } else {
            $match = ($newText =~ s/$oldStr/$newStr/mgo);
        }

# 치환되는 것이 있는 경우
        if ($newText ne $Text{'text'}) {
            $num++;
            print "[$num] Processing $page ... $match string(s) were found.<br>";
            print &DiffToHTML(&GetDiff($Text{'text'}, $newText))."<br>";

            if (!$test) {   # 테스트 모드가 아닐 때는 저장
                DoPostMain($newText, $page, "*", $Section{'ts'}, 0, 1, "!!");
            }
        }
    }

    print "Completed.";
    print &GetCommonFooter();
}

1;

1.6. translations/korean.pl 수정

Replace strings in all pages
모든 페이지의 문자열 일괄 치환

1.7. 추가 업데이트 내역

1.8. 사용자 의견

아 이걸로 가능하지 않을까 하는 생각을 안한건 아닌데.. 역시.. :)

-- Nyxity 2007-3-7 5:49 pm

I'm considering to add a feature that user can choose which pages to be replaced, rather than all pages that $oldStr matches. However, I don't know when I will. :-/ I'll refer to your code when I will update this patch. Thank you.

-- Raymundo 2007-6-8 11:27 am

I meant both. :-)

When I was making this patch, I had to consider several things to make it perfect. They include 'managing edit conflict', 'supporting the undo of replacement', 'preventing server error caused by the misuse of regexp' etc.

However, those things required my code to be more complex. And I couldn't find an interface that is so easy that a user can manage such problem without being confused. Moreover, I guessed this patch would not be used frequently. (In fact, I used this function only once after I'd made it three years ago.) Therefore, I decided to give up such supplements and just implemented the essential part.

Is this a enough answer? :-) English is more difficult than Perl! ㅠ,.ㅠ

-- Raymundo 2009-8-21 1:37 am

Page (blank for whole Site):
\n";
print $q->textfield(-name=>"old",-size=>"30%",-maxlength=>"255",- default=>"$pagename");

...
foreach $page (&AllPagesList()) { # 모든 페이지 검사
&OpenPage($page);
&OpenDefaultText();
if ($pagename) {
next if ($page ne $pagename);
}
...

HTH. 감사. --JuanmaMPKr

Thank you. I'll check as soon as possible.

-- Raymundo 2012-4-1 11:50 pm

Currently, regexp is supported in search. (For example, try to search "Use.*Wiki" here)

However, I don't think supporting evaluation is a good idea. It may be a very dangerous security hole. action=replace is allowed only for admin, but search is allowed for anyone.

-- Raymundo 2012-6-21 10:04 pm

Good to see you. It's a good idea. I'll apply this patch soon.

-- Raymundo 2012-11-26 4:42 pm

Happy new year, JuanmaMP :-)

The answer is No. (?i) option means "ignore case".

-- Raymundo 2013-1-3 9:58 am