/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

  1. Library fileupload;
  2. {$mode objfpc}{$H+}
  3. Uses
  4. {$ifdef unix}
  5. cthreads,
  6. {$endif}
  7. httpd,fpApache, webmodule;
  8. Const
  9. { The following constant is used to export the module record. It must
  10. always match the name in the LoadModule statement in the apache
  11. configuration file(s). It is case sensitive !}
  12. ModuleName='mod_fileupload';
  13. { The following constant is used to determine whether the module will
  14. handle a request. It should match the name in the SetHandler statement
  15. in the apache configuration file(s). It is not case sensitive. }
  16. HandlerName=ModuleName;
  17. Var
  18. DefaultModule : module; {$ifdef unix} public name ModuleName;{$endif unix}
  19. Exports defaultmodule name ModuleName;
  20. {$R *.res}
  21. begin
  22. Application.ModuleName:=ModuleName;
  23. Application.HandlerName:=HandlerName;
  24. Application.SetModuleRecord(DefaultModule);
  25. Application.Initialize;
  26. end.