package igaro;
use 5.6.0;
use strict;
use warnings;

our $VERSION = '1.00';

sub new {
  my $class = shift;
  my %params = @_;
  
  my $self = bless {
      uri => undef,
      dbh => undef,
      form => undef,
      cookies => undef,
      data => {},
      action => $params{settings}{defaultfunction},
      settings => delete $params{settings},
      language => undef,
      date => undef,
      cache => {}
      
  } => $class;
  
  $self->{data}{template}='main';

  return $self;
}

sub exec {
    my $self = shift;
    
    $self->{data} = {};

    use igaro::core::dbh::connection;
    $self->{dbh} = igaro::core::dbh::connection->new(type=>$self->{settings}{database}{type}, name=>$self->{settings}{database}{name}, password=>$self->{settings}{database}{password}, username=>$self->{settings}{database}{username}, connect=>$self->{settings}{database}{connect} ) if undefined $self->{dbh};
    
    use igaro::core::language::cache;
    $self->{language} = igaro::core::language::cache->new if undefined $self->{language};
    
    use igaro::core::date::now;
    $self->{date} = igaro::core::date::now->new();

    use igaro::core::uri::env;
    $self->{uri} = igaro::core::uri::env->new();
    $self->{action} = $self->{uri}->{i} if $self->{uri}->{i};
 
    use igaro::core::form::env;
    $self->{form} = igaro::core::form::env->new();

    use igaro::core::cookies::env;
    $self->{cookies} = igaro::core::cookies::env->new();
    
    use igaro::core::usergroups::cache;
    $self->{cache}{usergroups} = igaro::core::usergroups::cache->new(dbh=>$self->{dbh}->get) if undefined $self->{cache}{usergroups};

    use igaro::core::session::load;
    $self->{session} => igaro::core::session::load->new(cookie=>$self->{cookies}->get('session'), dbh=>$self->{dbh}->get);


}


1;