2010-09-27 16:18:48 +02:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
|
|
|
#==============================================================================
|
|
|
|
#
|
|
|
|
# Simple script to test LemonLDAP::NG SOAP services
|
|
|
|
#
|
|
|
|
#==============================================================================
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use SOAP::Lite;
|
|
|
|
use Data::Dumper;
|
|
|
|
|
|
|
|
# Session ID (first parameter)
|
|
|
|
my $session_id = shift @ARGV;
|
|
|
|
|
|
|
|
# Service
|
2017-02-15 07:41:50 +01:00
|
|
|
my $soap = SOAP::Lite->new( proxy => 'http://auth.example.com/sessions' );
|
2010-09-27 16:18:48 +02:00
|
|
|
$soap->default_ns('urn:Lemonldap/NG/Common/CGI/SOAPService');
|
|
|
|
|
|
|
|
# Call some SOAP methods
|
2010-09-29 08:28:15 +02:00
|
|
|
my $attributes = $soap->call( 'getAttributes', $session_id )->result();
|
2010-09-27 16:18:48 +02:00
|
|
|
print Dumper $attributes;
|
|
|
|
|
2010-09-29 08:28:15 +02:00
|
|
|
my $applications = $soap->call( 'getMenuApplications', $session_id )->result();
|
2010-09-27 16:18:48 +02:00
|
|
|
print Dumper $applications;
|
|
|
|
|
|
|
|
exit;
|