Commit c0e5e001 authored by Xavier Guimard's avatar Xavier Guimard

utf8 anywhere in conf

parent 23aa5e6e
......@@ -8,6 +8,7 @@
package Lemonldap::NG::Common::Conf;
use strict;
use utf8;
no strict 'refs';
use Lemonldap::NG::Common::Conf::Constants; #inherits
......
package Lemonldap::NG::Common::Conf::CDBI;
use strict;
use utf8;
require Storable;
use Lemonldap::NG::Common::Conf::_DBI;
......
package Lemonldap::NG::Common::Conf::Constants;
use strict;
use utf8;
use Exporter 'import';
use base qw(Exporter);
......
package Lemonldap::NG::Common::Conf::DBI;
use strict;
use utf8;
use Lemonldap::NG::Common::Conf::Serializer;
use Lemonldap::NG::Common::Conf::_DBI;
......
package Lemonldap::NG::Common::Conf::File;
use strict;
use utf8;
use Lemonldap::NG::Common::Conf::Constants; #inherits
use JSON::MaybeXS;
......
......@@ -6,6 +6,7 @@
package Lemonldap::NG::Common::Conf::LDAP;
use strict;
use utf8;
use Net::LDAP;
use Lemonldap::NG::Common::Conf::Constants; #inherits
use Lemonldap::NG::Common::Conf::Serializer;
......
package Lemonldap::NG::Common::Conf::MongoDB;
use 5.010;
use utf8;
use strict;
use MIME::Base64;
......
package Lemonldap::NG::Common::Conf::RDBI;
use strict;
use utf8;
use Lemonldap::NG::Common::Conf::Serializer;
use Lemonldap::NG::Common::Conf::_DBI;
......
......@@ -6,6 +6,7 @@
package Lemonldap::NG::Common::Conf::SAML::Metadata;
use strict;
use utf8;
use warnings;
use Crypt::OpenSSL::RSA;
use Crypt::OpenSSL::X509;
......
package Lemonldap::NG::Common::Conf::SOAP;
use strict;
use utf8;
use SOAP::Lite;
our $VERSION = '1.4.0';
......
package Lemonldap::NG::Common::Conf::_DBI;
use strict;
use utf8;
use DBI;
use Lemonldap::NG::Common::Conf::Constants; #inherits
......
......@@ -11,6 +11,7 @@
package Lemonldap::NG::Manager;
use 5.10.0;
use utf8;
use Mouse;
our $VERSION = '1.9.0';
use Lemonldap::NG::Common::Conf::Constants;
......
......@@ -181,7 +181,7 @@ qr/^(?:(?:\-+\s*BEGIN\s+PUBLIC\s+KEY\s*\-+\r?\n)?[a-zA-Z0-9\/\+\r\n]+={0,2}(?:\r
'test' => sub {
my $test =
grep( { $_ eq $_[0]; }
map( { $$_{'k'}; } @{ $_[2]{'select'}; } ) );
map( { $_->{'k'}; } @{ $_[2]{'select'}; } ) );
return $test
? 1
: ( 0, "Invalid value '$_[0]' for this select" );
......@@ -998,7 +998,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0-
'default' => 'ldap://localhost',
'test' => sub {
my $l = shift();
my (@s) = split( /[\s,]+/, $l, 0 );
my @s = split( /[\s,]+/, $l, 0 );
foreach my $s (@s) {
return 0, qq[Bad ldap uri "$s"]
unless $s =~
......
package Lemonldap::NG::Manager::Build;
use strict;
use utf8;
use Mouse;
use Lemonldap::NG::Manager::Build::Attributes;
use Lemonldap::NG::Manager::Build::Tree;
......
package Lemonldap::NG::Manager::Cli;
use strict;
use utf8;
use Mouse;
use 5.14.0;
use Data::Dumper;
......
......@@ -2,6 +2,7 @@ package Lemonldap::NG::Manager::Cli::Lib;
use JSON::MaybeXS;
use Mouse;
use utf8;
use Lemonldap::NG::Manager;
has iniFile => ( is => 'ro', isa => 'Str' );
......
......@@ -7,6 +7,7 @@
package Lemonldap::NG::Manager::Conf;
use 5.10.0;
use utf8;
use Mouse;
use Lemonldap::NG::Common::Conf::Constants;
use Lemonldap::NG::Common::PSGI::Constants;
......
package Lemonldap::NG::Manager::Conf::Tests;
use utf8;
use Lemonldap::NG::Common::Regexp;
use Lemonldap::NG::Handler::SharedConf;
......
......@@ -18,6 +18,8 @@ package Lemonldap::NG::Manager::ConfParser;
# containing `{ message => 'Explanation' }. A main message is stored in
# `message` property.
use strict;
use utf8;
use Mouse;
use Lemonldap::NG::Manager::Constants;
use Lemonldap::NG::Manager::Attributes;
......
package Lemonldap::NG::Manager::Lib;
use 5.10.0;
use utf8;
use Mouse;
use Lemonldap::NG::Common::Conf;
......
package Lemonldap::NG::Manager::Notifications;
use 5.10.0;
use utf8;
use Mouse;
use Lemonldap::NG::Common::Conf::Constants;
......
package Lemonldap::NG::Manager::Sessions;
use 5.10.0;
use utf8;
use Mouse;
use Lemonldap::NG::Common::Session;
......
......@@ -6,6 +6,7 @@
package Lemonldap::NG::Portal::Menu;
use strict;
use utf8;
use warnings;
use Lemonldap::NG::Portal::Simple;
use Lemonldap::NG::Portal::_LibAccess;
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment