app <- function(env){
req <- Request$new(env)
res <- Response$new()
envstr <- paste(capture.output(str(as.list(env)),file=NULL),collapse='\n')
poststr <- paste(capture.output(str(req$POST()),file=NULL),collapse='\n')
getstr <- paste(capture.output(str(req$GET()),file=NULL),collapse='\n')
randomString <- function() paste(letters[floor(runif(10,0,26))],collapse='')
randomNumber <- function() runif(1,0,26)
res$write( c(
'<HTML><head><style type="text/css">\n',
'table { border: 1px solid #8897be; border-spacing: 0px; font-size: 10pt; }',
'td { border-bottom:1px solid #d9d9d9; border-left:1px solid #d9d9d9; border-spacing: 0px; padding: 3px 8px; }',
'td.l { font-weight: bold; width: 10%; }\n',
'tr.e { background-color: #eeeeee; border-spacing: 0px; }\n',
'tr.o { background-color: #ffffff; border-spacing: 0px; }\n',
'</style></head><BODY>',
'<img alt="rook logo" src="http://wiki.rapache.net/static/rook.png">',
'<H1>Welcome to Rook</H1>\n',
sprintf('<form enctype="multipart/form-data" method=POST action="%s/%s?called=%s">',env$SCRIPT_NAME,randomString(),randomNumber()),
'Enter a string: <input type=text name=name value=""><br>\n',
'Enter another string: <input type=text name=name2 value=""><br>\n',
'Upload a file: <input type=file name=fileUpload><br>\n',
'Upload another file: <input type=file name=anotherFile><br>\n',
'<input type=submit name=Submit><br><br>',
'Environment:<br><pre>',envstr,'</pre><br>',
'Get:<br><pre>',getstr,'</pre><br>',
'Post:<br><pre>',poststr, '</pre><br><br>'
))
res$finish()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.