cgi first time!

[stocki]

Hello, I am cgi beginner! When I do this in firefox

http://localhost/test.cgi?email=xx

I get only "Hello World!"

Where is email=xx ??? Whats wrong here?
Thanks!



unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  SysUtils, Classes, httpdefs, fpHTTP, fpWeb;

type

  { TFPWebModule1 }

  TFPWebModule1 = class(TFPWebModule)
    procedure DataModuleRequest(Sender: TObject; ARequest: TRequest;
      AResponse: TResponse; var Handled: Boolean);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FPWebModule1: TFPWebModule1;

implementation

{$R *.lfm}

{ TFPWebModule1 }

procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
                                          AResponse: TResponse; var Handled: Boolean);
begin
  AResponse.ContentType := 'text/html;charset=utf-8';
  AResponse.Contents.Add(ARequest.Content+'<br>');
  AResponse.Contents.Add(ARequest.ContentFields.Values['email'] + '<br>');
  AResponse.Contents.Add('Hello World!<br>');
  Handled := True;
end;

initialization
  RegisterHTTPModule('TFPWebModule1', TFPWebModule1);
end.

[Leledumbo]

ContentFields contain POST data, GET uses different properties http://wiki.freepascal.org/fcl-web#Reading_GET_data