Commit fddd6504 authored by Clément OUDOT's avatar Clément OUDOT

Test script for SOAP error method (#LEMONLDAP-817)

git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/branches/lemonldap-ng_version_1_4-bugfixes@3730 1dbb9719-a921-0410-b57f-c3a383c2c641
parent 0a6bf208
......@@ -185,6 +185,7 @@ example/skins/pastel/register.tpl
example/skins/pastel/standardform.tpl
example/skins/pastel/yubikeyform.tpl
example/soapconfigtest.pl
example/soaperrortest.pl
example/soaptest.pl
lib/Lemonldap/NG/Portal.pm
lib/Lemonldap/NG/Portal/_Browser.pm
......
#!/usr/bin/perl
#==============================================================================
#
# Simple script to test LemonLDAP::NG SOAP error method
#
#==============================================================================
use strict;
use SOAP::Lite;
use Data::Dumper;
my $error_code = 15;
# Service
my $soap =
SOAP::Lite->new( proxy => 'http://auth.example.com/index.pl' );
$soap->default_ns('urn:Lemonldap/NG/Common/CGI/SOAPService');
# Call error SOAP method
my $error_fr = $soap->call( 'error', $error_code, 'fr' )->result();
print Dumper $error_fr;
my $error_en = $soap->call( 'error', $error_code, 'en' )->result();
print Dumper $error_en;
exit;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment