File: rshell.R

package info (click to toggle)
rapache 1.2.10-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 6,368 kB
  • sloc: sh: 18,629; ansic: 10,417; perl: 5,675; javascript: 2,800; makefile: 307
file content (15 lines) | stat: -rw-r--r-- 754 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
setContentType('text/html')
cat('<HTML><head><style type="text/css">\n') 
cat('table { border: 1px solid #8897be; border-spacing: 0px; font-size: 10pt; }')
cat('td { border-bottom:1px solid #d9d9d9; border-left:1px solid #d9d9d9; border-spacing: 0px; padding: 3px 8px; }')
cat('td.l { font-weight: bold; width: 10%; }\n')
cat('tr.e { background-color: #eeeeee; border-spacing: 0px; }\n')
cat('tr.o { background-color: #ffffff; border-spacing: 0px; }\n')
cat('</style></head><BODY><H1>R Shell for RApache</H1>\n')
cat('<form enctype=multipart/form-data method="POST">\n')
cat('<input type="text" cols=80 rows=1 id="code" name="code"><br>')
if (!is.null(POST$code)){
    cat("<hr><pre>\n")
    print(try(eval(parse(text=POST$code))))
    cat("</pre>\n")
}