X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FClifton%2FTower%2FJabber.pm;h=e57e9627178441652c6847d0290f27e8b114637b;hb=3b5393442399a78f1fddb61c492eaa523c67e8fc;hp=1798f46ccfc5349ad030d3556088015ee7d7665c;hpb=38180dc82ce612829b2c52d661e515fe60ac0f1d;p=scpubgit%2FClifton.git

diff --git a/lib/App/Clifton/Tower/Jabber.pm b/lib/App/Clifton/Tower/Jabber.pm
index 1798f46..e57e962 100644
--- a/lib/App/Clifton/Tower/Jabber.pm
+++ b/lib/App/Clifton/Tower/Jabber.pm
@@ -93,6 +93,7 @@ sub handle_message {
 
 sub send_xmpp_message {
   my ($self, $args) = @_;
+  s/&/&amp;/g, s/"/&quot;/g, s/</&lt;/g, s/>/&gt;/g for $args->{body};
   $self->xmpp_client->compose(%$args)->send;
 }