Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (hermes.apache.org: domain of tomc@kendeco.com designates
 64.122.217.130 as permitted sender)
Subject: Fedora Core 6, SOAP::Lite and mod_perl -- does this work?
From: Tom Cross <tomc@kendeco.com>
To: modperl@perl.apache.org
Content-Type: text/plain
Date: Tue, 05 Dec 2006 14:34:15 -0600
Message-Id: <1165350855.3247.54.camel@meridian.kendeco.com>
Mime-Version: 1.0
Content-Transfer-Encoding: 7bit


According to some bugs in bugzilla.redhat.com, it looks like there is an
issue with mod_perl on fc5,6, rhel3, and rhel4.  I'm wondering if this
is the case, or if I'm doing something wrong.  Is this a mod_perl issue?
I tried the fedora mod_perl (2.0.2) and I built a 2.0.3 mod_perl package
and neither one worked.

Fresh install of Fedora Core 6.
Install mod_perl, perl-SOAP-Lite Fedora packages.

Setup SOAP::Lite according to documentation by adding this to Apache's
conf:

<Location /soap>
        SetHandler perl-script
        PerlHandler Apache::SOAP
        PerlSetVar dispatch_to "/home/soap, MIME::Lite"
        PerlSetVar options "compress_threshold => 10000"
</Location>

Attempt to connect to simple "Hello World" SOAP server in /home/soap/
and I receive this message in /var/log/httpd/error_log:


[Tue Dec 05 13:33:48 2006] [error] [client 204.107.148.116] Can't locate
object 
method "dir_config" via package "Apache2::RequestRec"
at /usr/lib/perl5/vendor_perl/5.8.8/SOAP/Transport/HTTP.pm line 653.\n


##############################################

Simple Server in /home/soap/Server.pm:

#!/usr/bin/perl -w

package Server;

sub testme ($$)
{
        my ($class, $teststring) = @_;

        return $teststring . " from the Server";
}

1;

###############################################

My test client:

#!/usr/bin/perl -w

use SOAP::Lite;

my $kendeco_soap = SOAP::Lite
        -> uri('urn:Server')
        -> proxy('http://kearney.kendeco.com/soap')
        -> on_fault(sub { my($soap, $res) = @_;
                die ref $res ? $res->faultstring :
$soap->transport->status, "\n";
        });
$kendeco_soap->transport->timeout(150);


$res = $kendeco_soap->testme ("This is a test");
$r = $res->result;

print "R: $r\n";

############################################################

Thanks for any/all feedback!!

-- 
Tom Cross           Voice: 320-253-6483 Ext 207      FAX: 320-253-6956
IS Manager                                    E-mail: tomc@kendeco.com
Kendeco Tool Crib                               http://www.kendeco.com