|
@@ -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.
|
|
|
|
|
+{
|
|
|
}
|
|
}
|
michael