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(); ... }