Warn if cookie name has changed + little things

modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/Apache/Session.pm

@@ -17,8 +17,8 @@ our $VERSION = 0.3;
 sub _load {
     my $backend = shift;
     unless ( $backend->can('populate') ) {
-        eval "require $backend"
-          or die $@;
+        eval "require $backend";
+        die $@ if($@);
     }
 }
 

modules/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/_Struct.pm

@@ -2031,10 +2031,22 @@ sub globalTests {
             eval { tied(%h)->delete; };
             return ( -1, "Unable to delete session ($@)" ) if ($@);
             my $gc = $Lemonldap::NG::Handler::CGI::globalStorage;
-            return ( -1, 'All sessions may be lost' )
-              if ( $conf->{globalStorage} ne $gc );
+            return ( -1,
+'All sessions may be lost and you <b>must</b> restart all your Apache servers'
+            ) if ( $conf->{globalStorage} ne $gc );
             return 1;
 	},
+        cookieNameChanged => sub {
+            return (
+                1,
+                (
+                    $Lemonldap::NG::Handler::CGI::cookieName ne
+                      $conf->{cookieName}
+                    ? 'Cookie name has changed, you <b>must</b> restart all your Apache servers'
+                    : ()
+                )
+            );
+        },
     };
 }
 

modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_SOAP.pm

@@ -225,8 +225,9 @@ sub get_key_from_all_sessions {
     no strict 'refs';
     return $self->{globalStorage}
       ->get_key_from_all_sessions( $self->{globalStorageOptions}, @_ );
-    return &{"$tmp\::get_key_from_all_sessions"}( $self->{globalStorage},
-        $self->{globalStorageOptions}, @_ );
+
+    #return &{"$tmp\::get_key_from_all_sessions"}( $self->{globalStorage},
+    #    $self->{globalStorageOptions}, @_ );
 }
 
 =begin WSDL