package Super;

use warnings;
use strict;

use base 'CGI::Application';
use CGI::Application::Plugin::Redirect;
use CGI::Application::Plugin::Session;
use HTML::Template;


sub cgiapp_init {
   my $self = shift;
      
   (my $http_host  = $ENV{'HTTP_HOST'}) =~ s/(www.)([a-zA-Z0-9\-\.]+)/$2/;

   #--- Sessions & Cookies 
   $self->session_config(
                         COOKIE_PARAMS => { -name     => 'MY_SESSID',
                                            -expires  => '+8h',
                                            -path     => '/',
                                            -domain   => ".".$http_host,
                                          },
                         SEND_COOKIE   => 1,
                         );
}
1;