parent
e2b72c3612
commit
62767481e4
@ -1,24 +0,0 @@ |
||||
#!/usr/bin/perl |
||||
|
||||
#============================================================================== |
||||
# |
||||
# Simple script to test LemonLDAP::NG SOAP configuration service |
||||
# |
||||
#============================================================================== |
||||
|
||||
use strict; |
||||
use SOAP::Lite; |
||||
use Data::Dumper; |
||||
|
||||
# Service |
||||
my $soap = SOAP::Lite->new( proxy => 'http://auth.example.com/config' ); |
||||
$soap->default_ns('urn:Lemonldap/NG/Common/CGI/SOAPService'); |
||||
|
||||
# Call SOAP methods |
||||
my $lastCfg = $soap->call('lastCfg')->result(); |
||||
print "Last configuration:\n" . Dumper $lastCfg; |
||||
|
||||
my $config = $soap->call('getConfig')->result(); |
||||
print "Configuration data:\n" . Dumper $config; |
||||
|
||||
exit; |
@ -1,26 +0,0 @@ |
||||
#!/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; |
@ -1,27 +0,0 @@ |
||||
#!/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/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; |
Loading…
Reference in new issue