sub home {
  my $self = shift;
  my $html_template = $self->param('html_template');
  my $cgi = CGI->new;
  my $session = $cgi->param('session');
  my $empty;

  my $user_status;

  my ($session_id, $last_action_date, $last_action_time) = $session =~ /^(\d\d)-(\d{10})-(\d{8})$/;

  my $datetime = Class::Date->now();
  $datetime =~ tr/://d;
  my ($now_date, $now_hour, $now_min, $now_seconds) = $datetime =~  /^(\d{8}) (\d{2})(\d{2})(\d{2})$/;

  my $output;

  $html_template->process('home',
                          {
                           wrapper  => $self->wrapper(),
			session => $session,
			user_status => $user_status,
			session_id => $session_id,
		now_date => $now_date,
		now_hour => $now_hour,
		now_min => $now_min,
		now_seconds => $now_seconds,
		session_id => $session_id,
		last_action_date => $last_action_date,
		last_action_time => $last_action_time,
                          },
                          \$output) || die $html_template->error;

  return $output;
}