Mercurial > urweb
annotate tests/DynChannel.ur @ 2139:8c81cd351c1a
Allow URIs specified in file directives implicitly
It seems to me that, by specifying that one wants to serve a given
file at a specified URI, one is implying that this URI should be
allowed.
| author | Julian Squires <julian@cipht.net> |
|---|---|
| date | Fri, 24 Apr 2015 16:21:55 -0400 |
| parents | 3dd041b00087 |
| children |
| rev | line source |
|---|---|
| adam@2064 | 1 table channels : {Id : int, Channel:channel xbody} |
| adam@2064 | 2 |
| adam@2064 | 3 fun dosend (s:string) : transaction unit = |
| adam@2064 | 4 c <- oneRow1 (SELECT * FROM channels); |
| adam@2064 | 5 debug ("Sending " ^ s ^ " through the channel..."); |
| adam@2064 | 6 send c.Channel <xml>{[s]}</xml> |
| adam@2064 | 7 |
| adam@2064 | 8 fun mkchannel {} : transaction xbody = |
| adam@2064 | 9 c <- channel; |
| adam@2064 | 10 s <- source <xml/>; |
| adam@2064 | 11 dml( DELETE FROM channels WHERE Id >= 0); |
| adam@2064 | 12 dml( INSERT INTO channels(Id, Channel) VALUES(0, {[c]}) ); |
| adam@2064 | 13 return <xml> |
| adam@2064 | 14 <button value="Send" onclick={fn _ => rpc(dosend "blabla")}/> |
| adam@2064 | 15 <active code={spawn(x <- recv c; alert ("Got something from the channel"); set s x); return <xml/>}/> |
| adam@2064 | 16 <dyn signal={signal s}/> |
| adam@2064 | 17 </xml> |
| adam@2064 | 18 |
| adam@2064 | 19 fun main {} : transaction page = |
| adam@2064 | 20 s <- source <xml/>; |
| adam@2064 | 21 return <xml> |
| adam@2064 | 22 <head/> |
| adam@2064 | 23 <body> |
| adam@2064 | 24 <button value="Register" onclick={fn _ => |
| adam@2064 | 25 x <- rpc(mkchannel {}); set s x |
| adam@2064 | 26 }/> |
| adam@2064 | 27 <dyn signal={signal s}/> |
| adam@2064 | 28 </body> |
| adam@2064 | 29 </xml> |