Remove old scripts

environments/ppa-mbqj77/deployments/1
Xavier Guimard 7 years ago
parent e2b72c3612
commit 62767481e4
  1. 24
      lemonldap-ng-portal/example/soapconfigtest.pl
  2. 26
      lemonldap-ng-portal/example/soaperrortest.pl
  3. 27
      lemonldap-ng-portal/example/soaptest.pl

@ -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…
Cancel
Save