mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-09 11:12:32 +02:00
12 lines
294 B
ObjectPascal
12 lines
294 B
ObjectPascal
program testcgi;
|
|
|
|
uses uncgi;
|
|
|
|
begin
|
|
cgi_init;
|
|
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. |