mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-06 05:38:31 +02:00
67 lines
1.9 KiB
ObjectPascal
67 lines
1.9 KiB
ObjectPascal
unit minimain;
|
|
|
|
interface
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
uses
|
|
SysUtils, Classes, httpd, apr;
|
|
|
|
procedure RegisterHooks(p: Papr_pool_t); cdecl;
|
|
|
|
implementation
|
|
|
|
function DefaultHandler(r: Prequest_rec): Integer; cdecl;
|
|
var
|
|
RequestedHandler: string;
|
|
begin
|
|
RequestedHandler := r^.handler;
|
|
|
|
{ We decline to handle a request if hello-handler is not the value of r->handler }
|
|
if not SameText(RequestedHandler, 'testapache-handler') then
|
|
begin
|
|
Result := DECLINED;
|
|
Exit;
|
|
end;
|
|
|
|
{ The following line just prints a message to the errorlog }
|
|
ap_log_error('me',1, APLOG_NOERRNO or APLOG_NOTICE, 0, r^.server,
|
|
'mod_hello: %s', ['Before content is output']);
|
|
|
|
{ We set the content type before doing anything else }
|
|
ap_set_content_type(r, 'text/html');
|
|
|
|
{ If the request is for a header only, and not a request for
|
|
the whole content, then return OK now. We don't have to do
|
|
anything else. }
|
|
if (r^.header_only <> 0) then
|
|
begin
|
|
Result := OK;
|
|
Exit;
|
|
end;
|
|
|
|
{ Now we just print the contents of the document using the
|
|
ap_rputs and ap_rprintf functions. More information about
|
|
the use of these can be found in http_protocol.h }
|
|
ap_rputs('<HTML>' + LineEnding, r);
|
|
ap_rputs('<HEAD>' + LineEnding, r);
|
|
ap_rputs('<TITLE>Hello There</TITLE>' + LineEnding, r);
|
|
ap_rputs('</HEAD>' + LineEnding, r);
|
|
ap_rputs('<BODY BGCOLOR="#FFFFFF">' + LineEnding ,r);
|
|
ap_rputs('<H1>Hello world</H1>' + LineEnding, r);
|
|
ap_rputs('This is the first Apache Module working with the new binding from Free Pascal' + LineEnding, r);
|
|
ap_rprintf(r, '<br>A sample line generated by ap_rprintf<br>\n', []);
|
|
ap_rputs('</BODY></HTML>' + LineEnding, r);
|
|
|
|
{ We can either return OK or DECLINED at this point. If we return
|
|
* OK, then no other modules will attempt to process this request }
|
|
Result := OK;
|
|
end;
|
|
|
|
procedure RegisterHooks(p: Papr_pool_t); cdecl;
|
|
begin
|
|
ap_hook_handler(DefaultHandler,nil,nil,APR_HOOK_MIDDLE);
|
|
end;
|
|
|
|
end.
|