File: soaptest.pl

package info (click to toggle)
lemonldap-ng 1.3.3-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 13,084 kB
  • ctags: 2,440
  • sloc: perl: 25,708; makefile: 622; sh: 176; php: 6; sql: 5
file content (28 lines) | stat: -rwxr-xr-x 741 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#!/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
my $soap =
  SOAP::Lite->new( proxy => 'http://auth.example.com/index.pl/sessions' );
$soap->default_ns('urn:Lemonldap/NG/Common/CGI/SOAPService');

# Call some SOAP methods
my $attributes = $soap->call( 'getAttributes', $session_id )->result();
print Dumper $attributes;

my $applications = $soap->call( 'getMenuApplications', $session_id )->result();
print Dumper $applications;

exit;