www/localhost/rscript.r

source("api/danode.r")

cat("HTTP/1.1 200 OK\n")
cat("Content-Type: text/html; charset=utf-8\n\n")
cat("<html>")
cat("  <head>")
cat("    <title>DaNode 'user defined' CGI (R) test script</title>")
cat("    <meta name='author' content='Danny Arends'>")
cat("  </head>")
cat("  <body>")
cat("    DaNode 'user defined' CGI (R) test script<br/>")
cat("    <form action='rscript.r' method='post' enctype='multipart/form-data'>")
cat("    <table>")
cat("     <tr><td>Server: </td><td>",toS(SERVER),"</td></tr>")
cat("     <tr><td><a href='rscript.r?test=GET&do'>GET</a>:  </td><td>",toS(GET),"</td></tr>")
cat("     <tr><td>POST: </td><td>",toS(POST),"</td></tr>")
cat("      <tr><td>Test: </td><td> <input name='test' type='text'></td></tr>")
cat("      <tr><td>File: </td><td> <input name='file' type='file'></td></tr>")
cat("      <tr><td>&nbsp;</td><td> <input type='submit' value='POST'></td></tr>")
cat("    </table>")
cat("    </form>")
cat("  </body>")
cat("</html>")