Possibility to set ping interval in portal (#658)

lemonldap-ng-portal/example/skins/bootstrap/menu.tpl

@@ -198,9 +198,11 @@
 
 </div>
 
+<TMPL_IF NAME="PING">
 <!-- Keep session alive -->
 <script type="text/javascript">
-  setTimeout('ping();',60000);
+  setTimeout('ping();',pingInterval);
 </script>
+</TMPL_IF>
 
 <TMPL_INCLUDE NAME="footer.tpl">

lemonldap-ng-portal/example/skins/common/js/portal.js

@@ -223,7 +223,7 @@ function ping() {
 				location.reload(true);
 			}
 			else {
-				setTimeout('ping();', 60000);
+				setTimeout('ping();', pingInterval);
 			}
 		}
 	});

lemonldap-ng-portal/example/skins/common/script.tpl

@@ -30,5 +30,6 @@
     var appslistorder="<TMPL_VAR NAME="APPSLIST_ORDER">";
     var scriptname="<TMPL_VAR NAME="SCRIPT_NAME">";
     var activeTimer="<TMPL_VAR NAME="ACTIVE_TIMER">";
+    var pingInterval=parseInt("<TMPL_VAR NAME="PING">");
  //]]></script>
 

lemonldap-ng-portal/example/skins/impact/menu.tpl

@@ -192,10 +192,12 @@
     </div>
   </div>
 
+<TMPL_IF NAME="PING">
 <!-- Keep session alive -->
 <script type="text/javascript">
-	setTimeout('ping();',60000);
+  setTimeout('ping();',pingInterval);
 </script>
+</TMPL_IF>
 
 <TMPL_INCLUDE NAME="footer.tpl">
 

lemonldap-ng-portal/example/skins/pastel/menu.tpl

@@ -193,9 +193,11 @@
 
 </div>
 
+<TMPL_IF NAME="PING">
 <!-- Keep session alive -->
 <script type="text/javascript">
-  setTimeout('ping();',60000);
+  setTimeout('ping();',pingInterval);
 </script>
+</TMPL_IF>
 
 <TMPL_INCLUDE NAME="footer.tpl">

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Display.pm

@@ -9,7 +9,7 @@ use strict;
 use Lemonldap::NG::Portal::Simple;
 use utf8;
 
-our $VERSION = '1.3.0';
+our $VERSION = '1.4.0';
 
 ## @method array display()
 # Call portal process and set template parameters
@@ -112,6 +112,7 @@ sub display {
                 APPSLIST_DESC => $self->{menuAppslistDesc},  # For old templates
                 SCRIPT_NAME   => $ENV{SCRIPT_NAME},
                 APPSLIST_ORDER => $self->{sessionInfo}->{'appsListOrder'},
+                PING           => $self->{portalPingInterval},
             );
 
         }

lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm

@@ -69,7 +69,7 @@ use Digest::MD5;
 #inherits Apache::Session
 #link Lemonldap::NG::Common::Apache::Session::SOAP protected globalStorage
 
-our $VERSION = '1.3.2';
+our $VERSION = '1.4.0';
 
 use base qw(Lemonldap::NG::Common::CGI Exporter);
 our @ISA;
@@ -569,6 +569,8 @@ sub setDefaultValues {
     $self->{authChoiceParam}    ||= "lmAuth";
     $self->{hiddenAttributes} = "_password"
       unless defined $self->{hiddenAttributes};
+    $self->{portalPingInterval} = 60000
+      unless defined $self->{portalPingInterval};
 
     # Set default userDB and passwordDB to DBI if authentication is DBI
     if ( $self->{authentication} =~ /DBI/i ) {
@@ -2456,6 +2458,7 @@ sub store {
     # Main session
     my $h = $self->getApacheSession( $self->{id} )
       or return PE_APACHESESSIONERROR;
+
     # Compute unsecure cookie value if needed
     if ( $self->{securedCookie} == 3 ) {
         $self->{sessionInfo}->{_httpSession} =
@@ -2512,8 +2515,8 @@ sub buildCookie {
     if ( $self->{securedCookie} >= 2 ) {
         push @{ $self->{cookie} },
           $self->cookie(
-            -name  => $self->{cookieName} . "http",
-            -value => $self->{sessionInfo}->{_httpSession},
+            -name     => $self->{cookieName} . "http",
+            -value    => $self->{sessionInfo}->{_httpSession},
             -domain   => $self->{domain},
             -path     => "/",
             -secure   => 0,