사전매크로 추가
-
sub MacroSubst {
...
$txt =~ s/\&__LT__;dic\(([^)]+)\)\&__GT__;/&MacroEDic($1)/gei;
$txt =~ s/\&__LT__;kdic\(([^)]+)\)\&__GT__;/&MacroKDic($1)/gei;
$txt =~ s/\&__LT__;jdic\(([^)]+)\)\&__GT__;/&MacroJDic($1)/gei;
return $txt;
}
-
...
sub MacroEDic {
return "<a href='http://dic.naver.com/endic?query=@_' target='dictionary'>@_</a>";
}
sub MacroKDic {
return "<a href='http://krdic.naver.com/krdic?query=@_' target='dictionary'>@_</a>";
}
sub MacroJDic {
return "<a href='http://jpdic.naver.com/jpdic?query=@_' target='dictionary'>@_</a>";
}
sub MacroIncludeDay {
my ($mainpage, $day_offset) = @_;
...
위키위키분류