Difference between revisions of "CGI Web Programming"

From Lazarus wiki
Jump to navigationJump to search
m
m
Line 5: Line 5:
 
Here is an example of a minimal CGI program to demonstrate...
 
Here is an example of a minimal CGI program to demonstrate...
  
  1. Setting a cookie
+
# Setting a cookie
  2. Outputting the content-type (ie make it put out legal text for HTTP)
+
# Outputting the content-type (ie make it put out legal text for HTTP)
  3. Reading Cookies
+
# Reading Cookies
  4. Reading form data via GET
+
# Reading form data via GET
  5. Reading form data via POST  
+
# Reading form data via POST  
  
 
<pre>
 
<pre>

Revision as of 18:46, 14 January 2006

This is the start of a tutorial about cgi web programming. Everyone is invited to contribute.

A very basic example

Here is an example of a minimal CGI program to demonstrate...

  1. Setting a cookie
  2. Outputting the content-type (ie make it put out legal text for HTTP)
  3. Reading Cookies
  4. Reading form data via GET
  5. Reading form data via POST
program mini;

uses dos;

var
  a:string;
  c:char;
begin
  //set a cookie (must come before content-type line below)
writeln('Set-cookie:widget=value; path=/; expires= Mon, 21-Mar-2005  18:37:00 GMT');

  //output legal http page
  writeln('Content-Type:text/html',MESSAGE KEY MISSING: '10'13);

  //demonstrate get cookies
  a:= GetEnv('HTTP_COOKIE');
  writeln('
cookies:',a);
  
  //demonstrate GET result
  a:='';
  a:= GetEnv('QUERY_STRING');
  writeln('
GET: ',a);
	
  //demonstrate POST result 
  a:='';
  while not eof(input) do
  begin
     read(c);
     a:= a+c;
  end;	 
  writeln('
POST: ',a);
end.