implemented redirects for unauthenticated requests (session timeouts)

lib/admin/Controller/Root.pm

@@ -40,6 +40,9 @@ sub auto : Private {
 
     if (!$c->user_exists) {
         $c->log->debug('***Root::auto User not found, forwarding to /');
+        $c->session->{unauth_uri} = $c->request->method eq 'GET'
+                                    ? $c->request->uri
+                                    : $c->request->headers->referer;
         $c->response->redirect($c->uri_for('/'));
         return;
     }

lib/admin/Controller/billing.pm

@@ -386,10 +386,14 @@ sub search_fees : Local {
     my %exact;
 
     if($c->request->params->{use_session}) {
-        %filter = %{ $c->session->{search_filter} };
-        %exact = %{ $c->session->{exact_filter} };
-        $c->stash->{feeerr} = $c->session->{feeerr};
-        delete $c->session->{feeerr};
+        %filter = %{ $c->session->{search_filter} }
+            if defined $c->session->{search_filter};
+        %exact = %{ $c->session->{exact_filter} }
+            if defined $c->session->{exact_filter};
+        if(defined $c->session->{feeerr}) {
+            $c->stash->{feeerr} = $c->session->{feeerr};
+            delete $c->session->{feeerr};
+        }
     } else {
         foreach my $sf (qw(destination zone zone_detail)) {
             if((    defined $c->request->params->{'search_'.$sf}

lib/admin/Controller/customer.pm

@@ -43,7 +43,8 @@ sub search : Local {
     $offset = 0 if $offset !~ /^\d+$/;
 
     if($c->request->params->{use_session}) {
-        $filter = $c->session->{search_filter};
+        $filter = $c->session->{search_filter}
+            if defined $c->session->{search_filter};
     } else {
         $filter = $c->request->params->{search_string} || '';
         $c->session->{search_filter} = $filter;

lib/admin/Controller/login.pm

@@ -31,6 +31,12 @@ sub index : Private {
     if ($username && $password) {
         if($c->model('Provisioning')->login($c, $username, $password)) {
             $c->log->debug('***Login::index login successfull');
+            if($c->session->{unauth_uri}) {
+                $c->log->debug('***Login::index redirecting user to '. $c->session->{unauth_uri});
+                $c->response->redirect($c->session->{unauth_uri});
+                delete $c->session->{unauth_uri};
+                return;
+            }
         }
     } else {
         $c->session->{prov_error} = 'Client.Syntax.LoginMissingPass' unless length $password;

lib/admin/Controller/number.pm

@@ -32,8 +32,10 @@ sub index : Private {
     my %exact;     
 
     if($c->request->params->{use_session}) {
-        %filter = %{ $c->session->{search_filter} };
-        %exact = %{ $c->session->{exact_filter} };
+        %filter = %{ $c->session->{search_filter} }
+            if defined $c->session->{search_filter};
+        %exact = %{ $c->session->{exact_filter} }
+            if defined $c->session->{exact_filter};
     } else {
         foreach my $sf (qw(cc ac sn_prefix)) {
             if(   defined $c->request->params->{'search_'.$sf}

lib/admin/Controller/subscriber.pm

@@ -43,8 +43,10 @@ sub search : Local {
     my %exact;
 
     if($c->request->params->{use_session}) {
-        %filter = %{ $c->session->{search_filter} };
-        %exact = %{ $c->session->{exact_filter} };
+        %filter = %{ $c->session->{search_filter} }
+            if defined $c->session->{search_filter};
+        %exact = %{ $c->session->{exact_filter} }
+            if defined $c->session->{exact_filter};
     } else {
         foreach my $sf (qw(username domain number uuid)) {
             if((    defined $c->request->params->{'search_'.$sf}