mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-26 08:38:22 +02:00
106 lines
3.7 KiB
ObjectPascal
106 lines
3.7 KiB
ObjectPascal
{*******************************************************************
|
|
* Test library of the Apache Pascal Headers
|
|
*******************************************************************}
|
|
library mod_hello;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses SysUtils, httpd24, apr;
|
|
|
|
const
|
|
MODULE_NAME = 'hello_module';
|
|
|
|
var
|
|
test_module: module;{$ifdef unix} public name MODULE_NAME;{$endif}
|
|
|
|
exports
|
|
test_module name MODULE_NAME;
|
|
|
|
{*******************************************************************
|
|
* Handles apache requests
|
|
*******************************************************************}
|
|
function DefaultHandler(r: Prequest_rec): Integer; cdecl;
|
|
var
|
|
RequestedHandler, onerow: string;
|
|
|
|
|
|
begin
|
|
RequestedHandler := r^.handler;
|
|
|
|
{ We decline to handle a request if r->handler is not the value of MODULE_NAME}
|
|
if not SameText(RequestedHandler, MODULE_NAME) then
|
|
begin
|
|
Result := DECLINED;
|
|
Exit;
|
|
end;
|
|
|
|
{ The following line just prints a message to the errorlog }
|
|
ap_log_error(MODULE_NAME, //The file in which this function is called
|
|
40, //The line number on which this function is called
|
|
0, //The module_index of the module generating this message
|
|
APLOG_NOERRNO or APLOG_NOTICE, //The level of this error message
|
|
0, //The status code from the previous command
|
|
r^.server, //The server on which we are logging
|
|
'mod_hello: %s', //The format string
|
|
[PChar('Before content is output')]); //The arguments to use to fill out fmt.
|
|
|
|
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.inc }
|
|
onerow := '<HTML>' + LineEnding;
|
|
ap_rwrite(PChar(onerow), length(onerow), r);
|
|
onerow := '<HEAD>' + LineEnding;
|
|
ap_rwrite(PChar(onerow), length(onerow), r);
|
|
onerow := '<TITLE>Hello There</TITLE>' + LineEnding;
|
|
ap_rwrite(PChar(onerow), length(onerow), r);
|
|
onerow := '</HEAD>' + LineEnding;
|
|
ap_rwrite(PChar(onerow), length(onerow), r);
|
|
onerow := '<BODY BGCOLOR="#FFFFFF">' + LineEnding;
|
|
ap_rwrite(PChar(onerow), length(onerow), r);
|
|
onerow := '<H1>Hello world</H1>' + LineEnding;
|
|
ap_rwrite(PChar(onerow), length(onerow), r);
|
|
onerow := 'This is an Apache Module working with the binding from Free Pascal' + LineEnding;
|
|
ap_rwrite(PChar(onerow), length(onerow), r);
|
|
onerow := '</BODY></HTML>' + LineEnding;
|
|
ap_rwrite(PChar(onerow), length(onerow), 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;
|
|
|
|
{*******************************************************************
|
|
* Registers the hooks
|
|
*******************************************************************}
|
|
procedure RegisterHooks(p: Papr_pool_t); cdecl;
|
|
begin
|
|
ap_hook_handler(@DefaultHandler, nil, nil, APR_HOOK_MIDDLE);
|
|
end;
|
|
|
|
{*******************************************************************
|
|
* Library initialization code
|
|
*******************************************************************}
|
|
|
|
begin
|
|
FillChar(test_module, SizeOf(test_module),0);
|
|
|
|
STANDARD20_MODULE_STUFF(test_module);
|
|
|
|
with test_module do
|
|
begin
|
|
name := MODULE_NAME;
|
|
register_hooks := @RegisterHooks;
|
|
end;
|
|
end.
|