sub DoPost { ... # Remove "\r"-s (0x0d) from the string $string =~ s/\r//g; ### 다음 라인 추가 $string = &ProcessPostMacro($string); ### # Lock before getting old page to prevent races &RequestLock() or die(T('Could not get editing lock')); ...
sub ProcessPostMacro { my ($string) = @_; ### 여기에 사용할 매크로들을 나열한다 $string = &PostMacroMySign($string); return $string; }
$string = &내가추가한함수($string);
sub DoPreview { $ClickEdit = 0; print &GetHttpHeader(); print &GetHtmlHeader("$SiteName: " . T('Preview'), "Preview"); ### 다음 라인을 아래 두 줄로 교체 # print &WikiToHTML(&GetParam("text", undef)); my ($textPreview) = &GetParam("text", undef); print &WikiToHTML(&ProcessPostMacro($textPreview)); ### }