$wiki->add_hook("title3", "plugin::book::Title3");
$wiki->add_inline_plugin("br", "plugin::book::Br");
+ $wiki->add_inline_plugin("raw" ,"plugin::book::Raw" ,"HTML");
$wiki->add_paragraph_plugin("keyword" ,"plugin::book::Keyword" ,"HTML");
my @paths = split(/\//, $wiki->get_CGI()->path_info());
--- /dev/null
+################################################################################
+#
+# <p>°ú¿ô¤Ç»ØÄꤷ¤¿Ê¸»úÎó¤ò¤½¤Î¤Þ¤Þɽ¼¨¤¹¤ë¥¤¥ó¥é¥¤¥ó¥×¥é¥°¥¤¥ó¤Ç¤¹¡£</p>
+# <pre>
+# {{raw '''°ú¿ô¤Ç»ØÄꤷ¤¿Ê¸»úÎó¤ò¤½¤Î¤Þ¤Þɽ¼¨¤·¤Þ¤¹'''}}
+# </pre>
+#
+################################################################################
+package plugin::book::Raw;
+use Encode qw(decode);
+#==============================================================================
+# ¥³¥ó¥¹¥È¥é¥¯¥¿
+#==============================================================================
+sub new {
+ my $class = shift;
+ my $self = {};
+ return bless $self,$class;
+}
+
+#==============================================================================
+# ¥¤¥ó¥é¥¤¥ó¥á¥½¥Ã¥É
+#==============================================================================
+sub inline {
+ my $self = shift;
+ my $wiki = shift;
+ my $text = shift;
+ return Util::escapeHTML($text);
+}
+
+1;