REBOL [
    title: "CGI Remote Console"
    date: 26-sep-2009
    file: %remote-console.r
    purpose: {
       Allows you to type REBOL code into an HTML text area, and have
       that code execute directly on your web server.  The results of the 
       code are then displayed in your browser.  This essentially functions
       as a remote console for the REBOL interpreter on your server.  You
       can use it to run REBOL code, or to call shell programs directly on
       your web site.  DO NOT run this on your web server if you're 
       concerned at all about security!
       Taken from the tutorial at http://musiclessonz.com/rebol.html
    }
]

#! /home/path/public_html/rebol/rebol276 -cs
REBOL [Title: "REBOL CGI Console"]
print "content-type: text/html^/"
print {}
selection: decode-cgi system/options/cgi/query-string

; If no data has been submitted, print form to request user/pass:

if ((selection/2 = none) or (selection/4 = none)) [
    print {
        W A R N I N G  -  Private Server, Login Required:
        


        

        Username: 


        Password: 


        
        
    }
    quit
]

; If code has been submitted, print the output:

qq: [
    print {
        

        
        


        
        
    }
]

if selection/2 = "command-submitted" [
    write %commands.txt join "REBOL[]^/" selection/4
    ; The "call" function requires REBOL version 2.76:
    call/output/error 
        "/home/path/public_html/rebol/rebol276 -qs commands.txt"
        %conso.txt %conse.txt
    print rejoin [
        {Output: 

}
        {
}
        read %conso.txt
        {


}
        {Errors: 

}
        read %conse.txt
        {}
    ]
    do qq
    quit
]

; Otherwise, check submitted user/pass, then print form for code entry:

username: selection/2 password: selection/4 
either (username = "user") and (password = "pass") [
    ; if user/pass is ok, go on
][
    print "Incorrect Username/Password." quit
]

do qq