Return-Path: Delivered-To: apmail-openejb-commits-archive@www.apache.org Received: (qmail 20779 invoked from network); 23 Jan 2009 06:43:53 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (140.211.11.2) by minotaur.apache.org with SMTP; 23 Jan 2009 06:43:53 -0000 Received: (qmail 71307 invoked by uid 500); 23 Jan 2009 06:43:53 -0000 Delivered-To: apmail-openejb-commits-archive@openejb.apache.org Received: (qmail 71290 invoked by uid 500); 23 Jan 2009 06:43:53 -0000 Mailing-List: contact commits-help@openejb.apache.org; run by ezmlm Precedence: bulk List-Help: List-Unsubscribe: List-Post: List-Id: Reply-To: dev@openejb.apache.org Delivered-To: mailing list commits@openejb.apache.org Received: (qmail 71281 invoked by uid 99); 23 Jan 2009 06:43:53 -0000 Received: from athena.apache.org (HELO athena.apache.org) (140.211.11.136) by apache.org (qpsmtpd/0.29) with ESMTP; Thu, 22 Jan 2009 22:43:53 -0800 X-ASF-Spam-Status: No, hits=-2000.0 required=10.0 tests=ALL_TRUSTED X-Spam-Check-By: apache.org Received: from [140.211.11.4] (HELO eris.apache.org) (140.211.11.4) by apache.org (qpsmtpd/0.29) with ESMTP; Fri, 23 Jan 2009 06:43:45 +0000 Received: by eris.apache.org (Postfix, from userid 65534) id 8749C23888E6; Thu, 22 Jan 2009 22:43:25 -0800 (PST) Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Subject: svn commit: r736966 - /openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl Date: Fri, 23 Jan 2009 06:43:25 -0000 To: commits@openejb.apache.org From: dblevins@apache.org X-Mailer: svnmailer-1.0.8 Message-Id: <20090123064325.8749C23888E6@eris.apache.org> X-Virus-Checked: Checked by ClamAV on apache.org Author: dblevins Date: Thu Jan 22 22:43:25 2009 New Revision: 736966 URL: http://svn.apache.org/viewvc?rev=736966&view=rev Log: A perl SOAP::Lite web service client for Tomcat/OpenEJB/CXF Added: openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl Added: openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl URL: http://svn.apache.org/viewvc/openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl?rev=736966&view=auto ============================================================================== --- openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl (added) +++ openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl Thu Jan 22 22:43:25 2009 @@ -0,0 +1,18 @@ +#!/usr/bin/perl -w + +use SOAP::Lite; + +my $namespace = 'http://superbiz.org/wsdl'; + +my $service = SOAP::Lite-> uri($namespace) + ->proxy('http://localhost:8080/Calculator') + ->on_action (sub { return '' } ); + +my $method = SOAP::Data->name("ns1:multiply") + ->attr({'xmlns:ns1' => $namespace}); + +my @params = ( + SOAP::Data->name('arg0'=>3), + SOAP::Data->name('arg1'=>4)); + +print $service->call($method=>@params)->result;