#! /usr/bin/perl
# This is a script example for the local CGI feature of the web browser retawq
# ().
# This is a Perl script (expecting a Perl interpreter at /usr/bin/perl), but
# retawq can use "scripts" (arbitrary programs) in any interpreted or compiled
# programming language. The script only has to be executable; so you might have
# to apply a command like "chmod u+x "; cf. retawq/docu/scheme.html
# for more information.
# Local CGI scripts are supported since retawq version 0.1.2. retawq currently
# uses the Common Gateway Interface version 1.1; for information about this,
# read .
# The header of a CGI script for retawq is exactly the same as a normal HTTP
# header with one exception: the first header line (e.g. "HTTP/1.0 200 OK") is
# left out; instead, the status code is given in a "Status" header line, e.g.
# "Status: 200" if the script was able to do what it should or "Status: 500" if
# something went wrong. For possible status codes, read RFC2616, 6.1.1 and 10
# ().
# Each header line is terminated with a "\r\n"; the end of the header is
# indicated by an empty header line:
print "Status: 200\r\nContent-Type: text/plain\r\n\r\n";
# After the header, let's print a little message:
print "Hold Orwell!"; # (These letters are better known as "Hello World!":-)
exit(0);
# ...and that's it. If you want to generate an HTML page instead of plain text,
# use the content type "text/html" instead of "text/plain" like so:
print "Status: 200\r\nContent-Type: text/html\r\n\r\n";
print "Oh well, lord!
Old hellrow!";
exit(0);