UseModWiki소스수정/이모티콘도움말

이모티콘 도움말 추가

• 페이지 수정 모드에서, 상단 메뉴 아래에 있는 도움말에 "이모티콘" 항목을 추가
• danny의 패치를 약간 수정하여 적용
• $UseEmoticon 값에 따라 출력 내용이 달라진다.
• 부작용 : 알려진 것 없음

sub DoHelp {
        ...
<goto(바보)>
        |;
        }
### 여기서부터 추가
    elsif ($idx eq 5) {
        if ($UseEmoticon eq 0) {
            $text = q|
'''현재 이 홈페이지에서는 이모티콘을 사용하지 않도록 설정되어 있습니다.'''
'''따라서 아래의 도움말은 적용되지 않습니다.'''
            |;
        }
        $text .= q|
== 이모티콘 ==
이모티콘은 감정표현에 사용되는 작은 그림입니다. <br>
다음과 같은 문자열 중 하나를 입력하시면 왼쪽의 그림이 자동으로 삽입됩니다.

* ^^  <nowiki>^^ ^-^ ^_^ ^o^ ^O^ ^^; ^-^; ^_^; ^o^ ^O^ :-D :D</nowiki>
* :-) <nowiki>:-)</nowiki>
* -_- <nowiki>-_- -_-; =.= =.=; :-s :-S</nowiki>
* o.O <nowiki>o.O *.* :-o :-O :o :O</nowiki>
* :-( <nowiki>:-( :(</nowiki>
* :-p <nowiki>:-p :-P :p :P</nowiki>
* ;-) <nowiki>;-) ;)</nowiki>
    |;
    }
### 여기까지
        $ClickEdit = 0;
        print &GetHttpHeader();
        ...
}

sub DoEdit {
        ...
        print &HelpLink(3, "링크와 이미지") . " | ";

#       print &HelpLink(4, "매크로") . "<br>";       이 줄을 아래 두 줄로 바꿈
        print &HelpLink(4, "매크로") . " | ";
        print &HelpLink(5, "이모티콘") . "<br>";

        print &GetFormStart();
        ...
}