Devil Killer Is Here MiNi Shell
MiNi SheLL

Current Path : /proc/thread-self/root/usr/local/man/man3/
Linux boscustweb5006.eigbox.net 5.4.91 #1 SMP Wed Jan 20 18:10:28 EST 2021 x86_64
Current File : //proc/thread-self/root/usr/local/man/man3/SOAP::Transport::HTTP::Apache.3
.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  | will give a
.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.\"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "SOAP::Transport::HTTP::Apache 3"
.TH SOAP::Transport::HTTP::Apache 3 "2000-09-05" "perl v5.8.8" "User Contributed Perl Documentation"
.SH "NAME"
SOAP::Transport::HTTP::Apache \- SOAP mod_perl handler
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
Use this class to expose \s-1SOAP\s0 endpoints using Apache and mod_perl.
Here's an example of a class that would like to receive \s-1SOAP\s0
packets. Note that it implements a single interesting function,
handle_request, that takes there arguments: an array of headers,
a body, and an EnvelopeMaker for creating the response:
.PP
.Vb 2
\&    package Calculator;
\&    use strict;
.Ve
.PP
.Vb 3
\&    sub new {
\&        bless {}, shift;
\&    }
.Ve
.PP
.Vb 2
\&    sub handle_request {
\&        my ($self, $headers, $body, $envelopeMaker) = @_;
.Ve
.PP
.Vb 1
\&        $body->{extra_stuff} = "heres some extra stuff";
.Ve
.PP
.Vb 6
\&        foreach my $header (@$headers) {
\&            $header->{extra_stuff} = "heres some more extra stuff";
\&            $envelopeMaker->add_header(undef, undef, 0, 0, $header);
\&        }
\&        $envelopeMaker->set_body(undef, 'myresponse', 0, $body);
\&    }
.Ve
.PP
.Vb 1
\&    1;
.Ve
.PP
In order to translate \s-1HTTP\s0 requests into calls on your Calculator
class above, you'll need to write an Apache handler. This is where
you'll use the SOAP::Transport::HTTP::Apache class:
.PP
.Vb 3
\&    package ServerDemo;
\&    use strict;
\&    use SOAP::Transport::HTTP::Apache;
.Ve
.PP
.Vb 6
\&    sub handler {
\&        my $safe_classes = {
\&            Calculator => undef,
\&        };
\&      SOAP::Transport::HTTP::Apache->handler($safe_classes);
\&    }
.Ve
.PP
1;
.PP
As you can see, this class basically does it all \- parses the \s-1HTTP\s0
headers, reads the request, and sends a response. All you have to do
is specify the names of classes that are safe to dispatch to.
.PP
Of course, in order to tell Apache about your handler class above,
you'll need to modify httpd.conf. Here's a simple example that shows
how to set up an endpoint called \*(L"/soap\*(R" that maps to your ServerDemo
handler above:
.PP
.Vb 4
\&    <Location /soap>
\&        SetHandler perl-script
\&        PerlHandler ServerDemo
\&    </Location>
.Ve
.PP
(I leave it up to you to make sure ServerDemo is in
Perl's \f(CW@INC\fR path \- see Writing Apache Modules
with Perl and C by O'Reilly for help with mod_perl,
or just man mod_perl)
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This class encapsulates the details of hooking up to mod_perl,
and then calls SOAP::Transport::HTTP::Server to do the SOAP-specific
stuff. This way the Server class can be reused with any web server
configuration (including \s-1CGI\s0), by simply composing it with a different
front-end (for instance, SOAP::Transport::HTTP::CGI).
.Sh "handler(SafeClassHash, OptionalDispatcher)"
.IX Subsection "handler(SafeClassHash, OptionalDispatcher)"
This is the only method on the class, and you must pass a
hash reference whose keys contain the collection of classes
that may be invoked at this endpoint. If you specify class
FooBar in this list, for instance, and a client sends a \s-1SOAP\s0
request to http://yourserver/soap?class=FooBar, then the
SOAP::Transport::HTTP::Server class will eventually attempt
to load FooBar.pm, instatiate a FooBar, and call
its handle_request function (see SOAP::Transport::HTTP::Server
for more detail). If you don't include a class in this hash,
SOAP/Perl won't run it. I promise.
.PP
By the way, only the keys in this hash are important, the
values are ignored. 
.PP
Also, nothing is stopping you from messing around with the request
object yourself if you'd like to add some headers or whatever;
you can always call Apache\->\fIrequest()\fR to get the request object
inside your handle_request function. Just make sure you finish
what you're doing before you return to SOAP::Transport::HTTP::Server,
because at that point the response is marshaled and sent back.
.PP
See SOAP::Transport::HTTP::Server for a description of the
OptionalDispatcher argument.
.SH "DEPENDENCIES"
.IX Header "DEPENDENCIES"
SOAP::Transport::HTTP::Server
.SH "AUTHOR"
.IX Header "AUTHOR"
Keith Brown
Creat By MiNi SheLL
Email: devilkiller@gmail.com