procedure TWebModule1.dumpit(Sender: TObject; Request: TWebRequest;
Response: TWebResponse; var Handled: Boolean);
var
resp:tStringList;
procedure AddVal(name:string; Val:String); overload
begin
resp.add(Name+' = ['+val+']<BR>');
end;
procedure AddVal(name:String; d:tdatetime); overload
begin
AddVal(name, DateTimeToStr(d));
end;
procedure AddVal(name:String; V:tstrings); overload
begin
AddVal(name, v.text);
end;
begin
//dumps the request back to the sender for debugging purposes
resp:=TStringList.Create;
Resp.add('<!doctype html public "-//w3c//dtd html 4.0 transitional//en">');
Resp.add('<html>');
Resp.add('<head>');
Resp.add('<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">');
Resp.add('<meta name="Author" content="Bryan Valencia">');
Resp.add('<meta name="GENERATOR" content="Delphi 4">');
Resp.add('<title>Omni HTTPd listserver archives</title>');
Resp.add('</head>');
Resp.add('<body text="#000000" bgcolor="#FFFFC0" link="#0000FF" vlink="#800080" alink="#FF00FF">');
Resp.add('<h1>CGI Request DUMP by Bryan Valencia</h1>');
Resp.add('<h2>Request Dump</h2>');
with Request do
begin
AddVal('Accept', Accept);
AddVal('Authorization',Authorization);
AddVal('CacheControl',CacheControl);
AddVal('Connection',Connection);
AddVal('Content',Content);
AddVal('ContentEncoding',ContentEncoding);
AddVal('ContentFields',ContentFields);
AddVal('ContentLength',Contentlength);
AddVal('ContentType',ContentType);
AddVal('ContentVersion',ContentVersion);
AddVal('Cookie',Cookie);
AddVal('CookieFields',CookieFields);
AddVal('Date',date);
AddVal('DerivedFrom',DerivedFrom);
AddVal('Expires',expires);
AddVal('From',From);
AddVal('Host',host);
AddVal('IfModifiedSince',IfModifiedSince);
AddVal('Method',Method);
AddVal('PathInfo',PathInfo);
AddVal('PathTranslated',PathTranslated);
AddVal('ProtocolVersion',ProtocolVersion);
AddVal('Query',query);
AddVal('QueryFields',queryfields);
AddVal('Referer',Referer);
AddVal('RemoteAddr',Remoteaddr);
AddVal('RemoteHost',RemoteHost);
AddVal('ScriptName',ScriptName);
AddVal('ServerPort',ServerPort);
AddVal('Title',Title);
AddVal('URL',url);
AddVal('UserAgent',Useragent);
end;
Resp.add('</body></html>');
response.Content:=resp.Text;
handled:=true;
Resp.Free;
end;
