Mercurial > urweb

diff src/scriptcheck.sml @ 670:f73913d97a40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Proper recv
author Adam Chlipala <adamc@hcoop.net>
date Sun, 22 Mar 2009 16:03:45 -0400
parents b0c1a46b1f15
children 655bcc9b77e0
line wrap: on
line diff
--- a/src/scriptcheck.sml	Sun Mar 22 15:16:34 2009 -0400
+++ b/src/scriptcheck.sml	Sun Mar 22 16:03:45 2009 -0400
@@ -41,10 +41,12 @@
                            "set_client_source",
                            "new_channel",
                            "subscribe",
+                           "send",
                            "recv"])
 
 val scriptWords = ["<script",
-                   " onclick="]
+                   " onclick=",
+                   " onload="]
 
 fun classify (ds, ps) =
     let