package LSRfm::Application::Home;

use strict;
use warnings;
use base qw(LSRfm::Base);

use Apache::Reload;
use CGI;
use CGI qw/:standard/;
use CGI::Cookie;

sub setup {
  my $self = shift;
  $self->start_mode('home');
  $self->run_modes([qw/home/]);
}

sub home {
  my $self = shift;
  my $html_template = $self->param('html_template');

    my $cookie1 = new CGI::Cookie(-name=>'LSRfm',-value=>{ fudge => 'cake' });
#    $cookie2 = new CGI::Cookie(-name=>'preferences',
#                               -value=>{ font => Helvetica,
#                                         size => 12 }
#                               );
    print header(-cookie=>[$cookie1]);
#use comma
    # fetch existing cookies
#    %cookies = fetch CGI::Cookie;
#    $id = $cookies{'ID'}->value;

    # create cookies returned from an external source
#    %cookies = parse CGI::Cookie($ENV{COOKIE});

  my $output;

  $html_template->process('home',
                          {
                           wrapper  => $self->wrapper(),
                          },
                          \$output) || die $html_template->error;

  return $output;
}

1;