X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/b106596ea51f33b91b4c1ab2a6748a5f099338ce..675455c2159ddadcc96a04b470d9516d54bd7fe7:/bin/disorder-notify

diff --git a/bin/disorder-notify b/bin/disorder-notify
index ac329ba..e801d3d 100755
--- a/bin/disorder-notify
+++ b/bin/disorder-notify
@@ -3,6 +3,9 @@
 sub notify ($$) {
   my ($head, $body) = @_;
 
+  $body =~ s:\&:&:g;
+  $body =~ s:\<:&lt;:g;
+  $body =~ s:\>:&gt;:g;
   my $kid = fork;
   defined $kid or return;
   if (!$kid) {
@@ -100,6 +103,8 @@ for (;;) {
 	if (defined $startinfo) { $startinfo .= "; " . $msg; }
 	else { $startinfo = $msg; }
       }
+    } elsif ($what eq "scratched") {
+      notify "DisOrder state", "Scratched playing track";
     } elsif ($what eq "playing") {
       now_playing $f[2];
     }