From 0a47acc79e8f081a5e1af8897e3aef4b7659b35b Mon Sep 17 00:00:00 2001
From: hylom <hylom@users.sourceforge.jp>
Date: Tue, 8 Nov 2016 00:21:22 +0900
Subject: [PATCH] Model::Util: add escape_plaintext method

---
 src/newslash_web/lib/Newslash/Model/Util.pm | 34 +++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/src/newslash_web/lib/Newslash/Model/Util.pm b/src/newslash_web/lib/Newslash/Model/Util.pm
index d9a5abe3..82270125 100644
--- a/src/newslash_web/lib/Newslash/Model/Util.pm
+++ b/src/newslash_web/lib/Newslash/Model/Util.pm
@@ -83,4 +83,38 @@ sub escape_html {
     return EscapeHTML::escape($allowed, $html);
 }
 
+
+=head2 escape_plaintext($text)
+
+escape  HTML
+
+=over 4
+
+=item Parameters
+
+=over 4
+
+=item $text
+
+input plain text
+
+=back
+
+=item Return value
+
+escaped text
+
+=back
+
+=cut
+
+sub escape_plaintext {
+    my ($self, $text) = @_;
+
+    my $t = $text->replace(qr/&(?!|lt;|gt;)/, '&amp;');
+    $t = $t->replace(qr/</, '&lt;');
+    $t = $t->replace(qr/>/, '&gt;');
+    return $t;
+}
+
 1;
-- 
2.11.0