#!/usr/bin/perl

  # index.pl
  use CGI;
  use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
  use CGI::Session;

  $session = CGI::Session->load();
  $q = new CGI;

  if($session->is_expired)
  {
      print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
      print "Your has session expired. Please login again.";
 print "<br/><a href='login.pl>Login</a>";
  }
  elsif($session->is_empty)
  {
      print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
      print "You have not logged in";
      print "<a href='login.pl'> Pagina di Login</a>";
  }
  else
  {
      print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
      print "<h2>Welcome";
      print "<a href='login.pl?action=logout'>Logout";
  }