Changeset 3531 for trunk/extlib/Apache/XMLRPC/Lite.pm

Timestamp:

03/12/09 09:11:52 (9 months ago)

Author:

fumiakiy

Message:

Merged sockfish to trunk. "svn merge -r3114:3527 http://code.sixapart.com/svn/movabletype/branches/sockfish/ ."

Files:

• trunk/extlib/Apache/XMLRPC/Lite.pm (modified) (7 diffs)

trunk/extlib/Apache/XMLRPC/Lite.pm

@@ -5 +5 @@
 # and/or modify it under the same terms as Perl itself.
 #
-# $Id: Lite.pm,v 1.3 2001/08/11 19:09:57 paulk Exp $
+# $Id: Lite.pm 249 2008-05-05 20:35:05Z kutterma $
 #
 # ======================================================================
@@ -16 +16 @@
 
 @ISA = qw(XMLRPC::Transport::HTTP::Apache);
-$VERSION = eval sprintf("%d.%s", q$Name: release-0_52-public $ =~ /-(\d+)_([\d_]+)/);
+#$VERSION = sprintf("%d.%s", map {s/_//g; $_} q$Name$ =~ /-(\d+)_([\d_]+)/);
+use version; $VERSION = qv('0.710.05');
 
 my $server = __PACKAGE__->new;
+
+sub server {
+    return $server;
+}
 
 sub handler {
@@ -68 +73 @@
 =head1 DESCRIPTION
 
-This Apache Perl module provides the ability to add support for XML-RPC 
-protocol with easy configuration (either in .conf or in .htaccess file). 
+This Apache Perl module provides the ability to add support for XML-RPC
+protocol with easy configuration (either in .conf or in .htaccess file).
 This functionality should give you lightweight option
 for hosting SOAP services and greatly simplify configuration aspects. This
 module inherites functionality from XMLRPC::Transport::HTTP::Apache component
 of XMLRPC::Lite module.
- 
+
 =head1 CONFIGURATION
 
@@ -80 +85 @@
 directives in main server configuration areas or directly in .htaccess file.
 
-All parameters should be quoted and can be separated with commas or spaces 
-for lists ("a, b, c") and with 'wide arrows' and commas for hash parameters 
+All parameters should be quoted and can be separated with commas or spaces
+for lists ("a, b, c") and with 'wide arrows' and commas for hash parameters
 ("key1 => value1, key2 => value2").
 
@@ -92 +97 @@
 =item dispatch_to (LIST)
 
-Specifies path to directory that contains Perl modules you'd like to give 
+Specifies path to directory that contains Perl modules you'd like to give
 access to, or just list of modules (for preloaded modules).
 
@@ -99 +104 @@
 =item options (HASH)
 
-Specifies list of options for your module, for example threshold for 
-compression. Future versions will support more options. See 
+Specifies list of options for your module, for example threshold for
+compression. Future versions will support more options. See
 XMLRPC::Transport::HTTP documentation for other options.
 
@@ -106 +111 @@
 
 =back
+
+=head1 METHODS/SUBROUTINES
+
+=head2 server
+
+ my $server = Apache::XMLRPC::Lite->server();
+
+Returns the server object.
+
+Useful if you need to manipulate the server object from your code.
+
+=head2 handle
+
+Request handler. Called by apache.
 
 =head1 DEPENDENCIES