mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-20 02:56:05 +02:00
16 lines
316 B
ObjectPascal
16 lines
316 B
ObjectPascal
program testcgi;
|
|
|
|
uses uncgi;
|
|
|
|
begin
|
|
cgi_init;
|
|
set_content('text/html');
|
|
Writeln ('User agent = ',http_useragent);
|
|
Writeln ('Referer = ',http_referer);
|
|
Writeln ('Name = ',get_value('name'));
|
|
Writeln ('Address = ',get_value('address'));
|
|
Writeln ('City = ',get_value('city'));
|
|
end.
|
|
{
|
|
}
|