File: relocation.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 (7 lines) | stat: -rw-r--r-- 193 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
 
handler <- function(){
   loc <- '/index.html'
   if (!is.null(GET) && !is.null(GET$loc) && GET$loc != '')
      loc <- GET$loc
   setHeader("Location",loc)
   return(HTTP_MOVED_TEMPORARILY)
}