added wml_escape() for summary line in display_wml

diff --git a/src/lib/Spong/Service.pm b/src/lib/Spong/Service.pm
index 9c0216be77a32d996a7a9dbc8734fa6a2177f51d..3fd5951ceac28d0d740bb7b0fb4f35f0a4992aa3 100755 (executable)
--- a/src/lib/Spong/Service.pm
+++ b/src/lib/Spong/Service.pm
@@ -331,7 +331,7 @@ sub display_wml {
       print "<br/><b>",$self->name(),"</b> ",$self->color(),"\n";
       print "<br/>Updated: ",
              POSIX::strftime($main::DATETIMEFMT,localtime($self->rtime())),"\n";
-      print "<br/>",$self->summary(),"\n";
+      print "<br/>",wml_esacpe($self->summary()),"\n";
       print "<br/><br/>\n";
       foreach $line ( split /\r?\n/s,$self->message() ) {
          print "<br/>",wml_escape($line),"\n";