#!/usr/bin/perl
use warnings;
use strict;

use lib "/var/www/dspx/";
use Cookietest;

my $app = Cookietest->new();
$app->run();

##</code><code>##

package Cookiesuper;
use strict;

use lib '/var/www/dspx/';
use CGI::Carp qw(fatalsToBrowser);
use base 'CGI::Application';
use CGI::Application::Plugin::Session;

sub cgiapp_init {
   my $self = shift;

   $self->session_config(  DEFAULT_EXPIRY => '+4h',
                           COOKIE_PARAMS  => { -expires => '+4h', 
                                               -name => 'DSO_Cookietest' });
}

1;

##</code><code>##

package Cookietest;
use strict;
use base 'Cookiesuper';

sub setup {
   my $self = shift;
   $self->start_mode('s');
   $self->mode_param('rm');      
   $self->run_modes(
      's'   =>   'somesub',
      );
}

sub somesub {
   my $self = shift;
   
   $self->session->param('test' => 'dso');
   return;
}

1;