That's one way :) Another way would be to use Apache2::SOAP.

In my /etc/httpd/conf.d/perl.conf file:

LoadModule perl_module modules/mod_perl.so

PerlRequire "/etc/httpd/conf.d/startup.pl"

<Location /soap>
    SetHandler perl-script
    PerlResponseHandler Apache2::SOAP
    PerlSetVar dispatch_to "/var/www/html/soap"
    PerlSetVar options "compress_threshold => 10000"
</Location>
[download]

perl_startup.pl file (this includes the modules that you will be accessing - note that you will still have to do the "use MODULE" in the (service).pm files):

use ModPerl::Util (); #for CORE::GLOBAL::exit
use Apache2::Request;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::RequestUtil ();
use Apache2::ServerUtil ();
use Apache2::ServerRec ();
use Apache2::Connection ();
use Apache2::Log ();
use Apache::Session ();
use Apache::DBI;

use CGI ();
use CGI::Cookie ();

use APR::Table ();
use ModPerl::Registry ();
use Apache2::Const -compile => ':common';
use APR::Const -compile => ':common';

use DBI;
use XML::Handler::YAWriter;
use XML::Generator::DBI;

use File::Basename;

1;
[download]

Example soap service (/var/www/html/soap/Demo2.pm):

package Demo2;

use XML::Generator::DBI;
use XML::Handler::YAWriter;
use DBI;


 =begin WSDL

        _IN hi $string A foo
        _DOC This is a test soap web service that prints a list of the
+ current DBAs
        _RETURN $string Returns a string containing the current DBAs

 =end WSDL

sub hi {
        my $out_xml = "hi";
        my $ya = XML::Handler::YAWriter->new();

        #  Stuff

        return $out_xml;
}

1;
[download]

demo.pl: access the Demo2 web service (example soap client):

#!/usr/bin/perl

use strict;
use warnings;

use SOAP::Lite;

my $soap = SOAP::Lite->uri('urn:Demo2');
my $proxy = $soap->proxy("http://localhost/soap/");


my $obj = $proxy->hi();
print $obj->result . "\n";
[download]

This will make any calls to http://localhost/soap be handled by perl. Changing this to work for Apache on windows should be a simple matter :)

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.