paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-19 07:38:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Corrected example

Browse Source
This commit is contained in:
michael 2003-05-29 22:37:13 +00:00
parent dab70f699a
commit 44dfb357e3
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/extra/uncgi/testcgi.pp
View File

@ -4,16 +4,12 @@ uses uncgi;
begin begin
cgi_init; cgi_init;
set_content('text/html');
Writeln ('User agent = ',http_useragent); Writeln ('User agent = ',http_useragent);
Writeln ('Referer = ',http_referer); Writeln ('Referer = ',http_referer);
Writeln ('Name = ',get_value('name')); Writeln ('Name = ',get_value('name'));
Writeln ('Address = ',get_value('address')); Writeln ('Address = ',get_value('address'));
Writeln ('City = ',get_value('city')); Writeln ('City = ',get_value('city'));
end. $Log$
end. Revision 1.2 2002-09-07 15:43:06 peter
end. * old logs removed and tabs fixed
end.
end. Revision 1.1 2002/01/29 17:55:23 peter
end. * splitted to base and extra
end. end.
{
} }