Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

131 lines
3.6 KiB

  1. # ======================================================================
  2. #
  3. # Copyright (C) 2000-2001 Paul Kulchenko ([email protected])
  4. # SOAP::Lite is free software; you can redistribute it
  5. # and/or modify it under the same terms as Perl itself.
  6. #
  7. # $Id: Apache::SOAP.pm,v 0.51 2001/07/18 15:15:14 $
  8. #
  9. # ======================================================================
  10. package Apache::SOAP;
  11. use strict;
  12. use vars qw(@ISA $VERSION);
  13. use SOAP::Transport::HTTP;
  14. @ISA = qw(SOAP::Transport::HTTP::Apache);
  15. $VERSION = '0.51';
  16. my $server = __PACKAGE__->new;
  17. sub handler {
  18. $server->configure(@_);
  19. $server->SUPER::handler(@_);
  20. }
  21. # ======================================================================
  22. 1;
  23. __END__
  24. =head1 NAME
  25. Apache::SOAP - mod_perl-based SOAP server with minimum configuration
  26. =head1 SYNOPSIS
  27. =over 4
  28. =item httpd.conf (Location), directory-based access
  29. <Location /mod_soap>
  30. SetHandler perl-script
  31. PerlHandler Apache::SOAP
  32. PerlSetVar dispatch_to "/Your/Path/To/Deployed/Modules, Module::Name, Module::method"
  33. PerlSetVar options "compress_threshold => 10000"
  34. </Location>
  35. =item httpd.conf (Files), file-based access
  36. <FilesMatch "\.soap$">
  37. SetHandler perl-script
  38. PerlHandler Apache::SOAP
  39. PerlSetVar dispatch_to "/Your/Path/To/Deployed/Modules, Module::Name, Module::method"
  40. PerlSetVar options "compress_threshold => 10000"
  41. </FilesMatch>
  42. =item .htaccess, directory-based access
  43. SetHandler perl-script
  44. PerlHandler Apache::SOAP
  45. PerlSetVar dispatch_to "/Your/Path/To/Deployed/Modules, Module::Name, Module::method"
  46. PerlSetVar options "compress_threshold => 10000"
  47. =back
  48. =head1 DESCRIPTION
  49. This Apache Perl module provides the ability to add support for SOAP (Simple
  50. Object Access Protocol) protocol with easy configuration (either in .conf or
  51. in .htaccess file). This functionality should give you lightweight option
  52. for hosting SOAP services and greatly simplify configuration aspects. This
  53. module inherites functionality from SOAP::Transport::HTTP::Apache component
  54. of SOAP::Lite module.
  55. =head1 CONFIGURATION
  56. The module can be placed in <Location>, <Directory>, <Files>, <FilesMatch>
  57. directives in main server configuration areas or directly in .htaccess file.
  58. All parameters should be quoted and can be separated with commas or spaces
  59. for lists ("a, b, c") and with 'wide arrows' and commas for hash parameters
  60. ("key1 => value1, key2 => value2").
  61. All options that you can find in SOAP::Transport::HTTP::Apache component
  62. are available for configuration. Here is the description of most important
  63. ones.
  64. =over 4
  65. =item dispatch_to (LIST)
  66. Specifies path to directory that contains Perl modules you'd like to give
  67. access to, or just list of modules (for preloaded modules).
  68. PerlSetVar dispatch_to "/Your/Path/To/Deployed/Modules, Module::Name, Module::method"
  69. =item options (HASH)
  70. Specifies list of options for your module, for example threshold for
  71. compression. Future versions will support more options. See
  72. SOAP::Transport::HTTP documentation for other options.
  73. PerlSetVar options "compress_threshold => 10000"
  74. =back
  75. =head1 DEPENDENCIES
  76. SOAP::Lite
  77. mod_perl
  78. =head1 SEE ALSO
  79. SOAP::Transport::HTTP::Apache for implementation details,
  80. SOAP::Lite for general information, and
  81. F<examples/server/mod_soap.htaccess> for .htaccess example
  82. =head1 COPYRIGHT
  83. Copyright (C) 2000-2001 Paul Kulchenko. All rights reserved.
  84. This library is free software; you can redistribute it and/or modify
  85. it under the same terms as Perl itself.
  86. =head1 AUTHOR
  87. Paul Kulchenko (paulclinger@yahoo.com)
  88. =cut