PageRenderTime 11ms CodeModel.GetById 10ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 0ms

/packages/fcl-web/examples/fptemplate/fileupload/apache/fileupload.lpr

https://github.com/slibre/freepascal
Unknown | 37 lines | 26 code | 11 blank | 0 comment | 0 complexity | 7eb1c95f1d83a72f30eead072b4bfc60 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 1Library fileupload;
 2
 3{$mode objfpc}{$H+}
 4
 5Uses
 6{$ifdef unix}
 7  cthreads,
 8{$endif}
 9  httpd,fpApache, webmodule;
10
11Const
12
13{ The following constant is used to export the module record. It must 
14  always match the name in the LoadModule statement in the apache
15  configuration file(s). It is case sensitive !}
16  ModuleName='mod_fileupload';
17
18{ The following constant is used to determine whether the module will
19  handle a request. It should match the name in the SetHandler statement
20  in the apache configuration file(s). It is not case sensitive. }
21
22  HandlerName=ModuleName;
23
24Var
25  DefaultModule : module; {$ifdef unix} public name ModuleName;{$endif unix}
26
27Exports defaultmodule name ModuleName;
28
29{$R *.res}
30
31begin
32  Application.ModuleName:=ModuleName;
33  Application.HandlerName:=HandlerName;
34  Application.SetModuleRecord(DefaultModule);
35  Application.Initialize;
36end.
37