Fix Perl dependencies (see RT#129960)

lemonldap-ng-portal/Makefile.PL

@@ -27,6 +27,7 @@ WriteMakefile(
             'Net::OpenID::Consumer' => 0,
             'Net::OpenID::Server'   => 0,
             'SOAP::Lite'            => 0,
+            'Text::Unidecode'       => 0,
             'Unicode::String'       => 0,
             'Web::ID'               => 0,
         },
@@ -55,6 +56,9 @@ WriteMakefile(
         'MIME::Entity'    => 0,
         'SOAP::Lite'      => 0,
         'String::Random'  => 0,
+        'Text::Unidecode' => 0,
+        'XML::LibXML'     => 0,
+        'XML::Simple'     => 0,
     },
     PREREQ_PM => {
         'Clone'                  => 0,

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-Logout-20.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-Logout-30.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-XSS-on-logout.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-declared-app-userattr.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-declared-app.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-declared-apps.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-default.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-gateway.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-proxied.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-with-choice-and-cancel.t

@@ -16,6 +16,9 @@ my $debug     = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/31-Auth-and-issuer-CAS-with-choice.t

@@ -16,6 +16,9 @@ my $debug     = 'error';
 my ( $issuer, $sp, $res );
 my %handlerOR = ( issuer => [], sp => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 # Redefine LWP methods for tests
 LWP::Protocol::PSGI->register(
     sub {

lemonldap-ng-portal/t/32-CAS-10.t

@@ -14,6 +14,9 @@ my $debug = 'error';
 my ( $issuer, $res );
 my %handlerOR = ( issuer => [] );
 
+eval { require XML::Simple };
+plan skip_all => "Missing dependencies: $@" if ($@);
+
 ok( $issuer = issuer(), 'Issuer portal' );
 count(1);
 switch ('issuer');

lemonldap-ng-portal/t/37-CAS-App-to-SAML-IdP-POST-with-WAYF.t

@@ -58,9 +58,9 @@ LWP::Protocol::PSGI->register(
 );
 
 SKIP: {
-    eval "use Lasso";
+    eval "use Lasso;use XML::Simple";
     if ($@) {
-        skip 'Lasso not found', $maintests;
+        skip 'Lasso or XML::Simple not found', $maintests;
     }
 
     # Initialization

lemonldap-ng-portal/t/37-CAS-App-to-SAML-IdP-POST.t

@@ -58,9 +58,9 @@ LWP::Protocol::PSGI->register(
 );
 
 SKIP: {
-    eval "use Lasso";
+    eval "use Lasso;use XML::Simple";
     if ($@) {
-        skip 'Lasso not found', $maintests;
+        skip 'Lasso or XML::Simple not found', $maintests;
     }
 
     # Initialization

lemonldap-ng-portal/t/37-SAML-SP-POST-to-CAS-server-with-Choice.t

@@ -58,9 +58,9 @@ LWP::Protocol::PSGI->register(
 );
 
 SKIP: {
-    eval "use Lasso";
+    eval "use Lasso;use XML::Simple";
     if ($@) {
-        skip 'Lasso not found', $maintests;
+        skip 'Lasso or XML::Simple not found', $maintests;
     }
 
     # Initialization

lemonldap-ng-portal/t/37-SAML-SP-POST-to-CAS-server.t

@@ -58,9 +58,9 @@ LWP::Protocol::PSGI->register(
 );
 
 SKIP: {
-    eval "use Lasso";
+    eval "use Lasso;use XML::Simple";
     if ($@) {
-        skip 'Lasso not found', $maintests;
+        skip 'Lasso or XML::Simple not found', $maintests;
     }
 
     # Initialization

lemonldap-ng-portal/t/42-Register-Demo-with-captcha.t

@@ -15,7 +15,7 @@ my $mailSend = 0;
 
 SKIP: {
     eval
-      'require Email::Sender::Simple;use GD::SecurityImage;use Image::Magick;';
+      'require Email::Sender::Simple;use GD::SecurityImage;use Image::Magick;use Text::Unidecode';
     if ($@) {
         skip 'Missing dependencies', $maintests;
     }

lemonldap-ng-portal/t/42-Register-Demo-with-token.t

@@ -13,7 +13,7 @@ my $maintests = 12;
 my ( $res, $user, $pwd );
 
 SKIP: {
-    eval 'require Email::Sender::Simple';
+    eval 'require Email::Sender::Simple;use Text::Unidecode';
     if ($@) {
         skip 'Missing dependencies', $maintests;
     }

lemonldap-ng-portal/t/42-Register-Demo.t

@@ -13,7 +13,7 @@ my $maintests = 9;
 my ( $res, $user, $pwd );
 
 SKIP: {
-    eval 'require Email::Sender::Simple';
+    eval 'require Email::Sender::Simple; use Text::Unidecode';
     if ($@) {
         skip 'Missing dependencies', $maintests;
     }

lemonldap-ng-portal/t/42-Register-Security.t

@@ -13,7 +13,7 @@ my $maintests = 5;
 my ( $res, $user, $pwd );
 
 SKIP: {
-    eval 'require Email::Sender::Simple';
+    eval 'require Email::Sender::Simple;use Text::Unidecode';
     if ($@) {
         skip 'Missing dependencies', $maintests;
     }

lemonldap-ng-portal/t/70-2F-TOTP-with-TTL-and-XML.t

@@ -7,7 +7,11 @@ my $maintests = 20;
 my $file      = '20190616_dwho_Tm90aWZpY2F0aW9uX1NG.json';
 
 SKIP: {
-    eval { require Convert::Base32 };
+    eval {
+        require Convert::Base32;
+        require XML::LibXML;
+        require XML::LibXSLT;
+    };
     if ($@) {
         skip 'Convert::Base32 is missing', $maintests;
     }