#!shebang path to /cgi-bin/rebol -cs
REBOL [
Title: "CGI with FORM with refilled data"
Date: 2-aug-2012
File: %cgi-form-val-example.r
Author: "Arnold van Hofwegen"
Version: 0.0.1
Purpose: {
Example of how a webform could be processed by a REBOL script,
refilling previously filled fields when errors in input are detected.
For performance it is always better to have some validation (using
e.g. Javascript) on the client side first, but for safety the check
also needs to be (re)done at the server side.
}
library: [
level: 'intermediate
platform: 'all
type: [cgi demo]
domain: [cgi]
tested-under: [Core 2.7.8 *nix]
support: "AltMe"
license: none
see-also: none
]
]
;-------------------------------------------------------------------
; This script uses the safe-cgi-data-read.r script
; At this moment I do not recommend using this script in a place for
; public use, i.e. to provide webcomments and other services.
; I use an extended version of this script to put articles on my
; website from a protected directory.
; Improvements and suggestions are more than welcome.
;-------------------------------------------------------------------
do %path to your/cgi-bin/safe-cgi-data-read.r
cgi-block: safe-cgi-data-read
print "Content-Type: text/html^/" ;-- Required Page Header
; Declaration and emit function from the cookbook:
; http://www.rebol.net/cookbook/recipes/0006.html
html: make string! 10000
emit: func [code] [repend html code]
; Start of the webpage holding the form
emit [
"CGI Form processing with validation and field refill"
newline
newline
]
error-field-title: error-field-article: copy ""
title-text: article-text: copy ""
number-of-errors: 0
; Check for valid input, this validation should probably be very much more thorough!
if 0 < length? to-string cgi-block [
emit [
"The form was send with some data. Results are shown."
newline
]
either not empty? cgi-block/title_text [
error-field-title: copy ""
title-text: cgi-block/title_text
][
number-of-errors: number-of-errors + 1
error-field-title: " The title field must not be empty. "
]
either not empty? cgi-block/article_text [
error-field-article: copy ""
article-text: cgi-block/article_text
][
number-of-errors: number-of-errors + 1
error-field-article: " The article field must not be empty. "
]
either 0 = number-of-errors [
; Do some processing here, like putting the data into your mysql database.
; Depending on that result show an appropriate message.
emit [
"Site updated at " now
]
][
emit [
"Error(s) found: Site not updated!"
]
]
]
; There is some fun putting a Javascript in here.
emit [
newline
newline
newline
]
print html