package aggregator;

use warnings "all";
use strict;

use events();
use comments();
use calendar();
use project();
use cache();

use base 'Exporter';
our @EXPORT_OK   = qw(get_cache configure_cache put_cache get_list check_params);

sub get_list {
    my $config  = shift;
    my $request = shift;

    my $params = $request->{params}->{checked};
    my $debug  = $config->{system}->{debug};

    #customize prefiltered request parameters
    $request->{params}->{original}->{date} = $request->{params}->{checked}->{date};
    if ( $params->{event_id} ne '' ) {
        $request->{params}->{original}->{template} = 'event_details.html';
    } else {
        $request->{params}->{original}->{template} = 'event_list.html';
    }
    $request->{params}->{checked} = events::check_params( $config, $request->{params}->{original} );

    my $content = '';
    my $results = events::get( $config, $request );
    events::render( $content, $config, $request, $results );

    #set url to embed as last loaded url in javascript
    my $date = $params->{date} || '';
    $date = 'heute' if ( $params->{date} eq 'today' );
    $date = $results->[0]->{day} if ( $params->{event_id} ne '' );
    my $url = '';

    #$config->{controllers}->{events}.'/'.$date.'/';
    if ( $params->{from_date} ne '' && $params->{till_date} ne '' ) {
        $url = $config->{controllers}->{events} . '/' . $params->{from_date} . '/' . $params->{till_date};
    } else {
        $url = $config->{controllers}->{events} . '/' . $params->{from_date} . '/' . $params->{till_date};
    }

    #count most projects
    my $used_projects = {};
    for my $result (@$results) {
        my $project = $result->{project_title} || '';
        $used_projects->{$project}++;
    }
    my @used_projects = reverse sort { $used_projects->{$a} <=> $used_projects->{$b} } ( keys %$used_projects );
    my $most_used_project = $used_projects[0];

    #use Data::Dumper;print STDERR Dumper(\@used_projects);

    return {
        day            => $results->[0]->{day},
        start_datetime => $results->[0]->{start_datetime},
        event_id       => $results->[0]->{event_id},
        program        => $results->[0]->{program},
        project_title  => $most_used_project,
        series_name    => $results->[0]->{series_name},
        title          => $results->[0]->{title},
        content        => $content,
        results        => $results,
        url            => $url,
    };
}

sub get_menu {
    my $config  = shift;
    my $request = shift;
    my $date    = shift;
    my $results = shift;

    my $params = $request->{params}->{checked};

    #load details only on demand
    if ( $params->{event_id} ne '' ) {
        $request->{params}->{original}->{template} = 'event_menu.html';
        $request->{params}->{original}->{event_id} = undef;
        $request->{params}->{original}->{date}     = $date;
        $request->{params}->{checked} = events::check_params( $config, $request->{params}->{original} );
        $results = events::get( $config, $request );
    } else {
        $request->{params}->{checked}->{template} = template::check($config, 'event_menu.html');
    }

    #events menu
    my $output = '';
    events::render( $output, $config, $request, $results );

    return { content => $output };
}

sub get_calendar {
    my $config  = shift;
    my $request = shift;
    my $date    = shift;

    my $params = $request->{params}->{checked};
    my $debug  = $config->{system}->{debug};

    $request->{params}->{original}->{template} = 'calendar.html';
    $request->{params}->{original}->{date} = $date if ( defined $date );
    $request->{params}->{checked} = calendar::check_params( $config, $request->{params}->{original} );
    $params = $request->{params}->{checked};

    #set query string for caching
    my $options = [];
    push @$options, 'date=' . $params->{date}           if $params->{date} ne '';
    push @$options, 'from_date=' . $params->{from_date} if $params->{from_date} ne '';
    push @$options, 'till_date=' . $params->{till_date} if $params->{till_date} ne '';
    $ENV{QUERY_STRING} = '' . join( "&", @$options );

    my $content = '';
    calendar::get_cached_or_render( $content, $config, $request );

    return { content => $content };
}

sub get_newest_comments {
    my $config  = shift;
    my $request = shift;

    my $params = {
        template => 'comments_newest.html',
        limit    => 10,
        type     => 'list',
        show_max => 3
    };
    $request = {
        url    => $ENV{QUERY_STRING},
        params => {
            original => $params,
            checked  => comments::check_params( $config, $params ),
        },
        config     => $config,
        connection => $request->{connection}
    };
    my $content = '';
    comments::get_cached_or_render( $content, $config, $request );
    return { content => $content };
}

sub get_cache {
    my $config  = shift;
    my $request = shift;

    my $params = $request->{params}->{checked};
    my $debug  = $config->{system}->{debug};

    if ( $config->{cache}->{use_cache} == 1 ) {
        configure_cache($config);
        my $cache = cache::load( $config, $params );
        return $cache;
    }
    return {};
}

sub configure_cache {
    my $config = shift;

    cache::init();
    my $controllers = $config->{controllers};

    my $date_pattern = cache::get_date_pattern();

    #    cache::add_map(''                            ,'programm/index.html');
    cache::add_map( 'date=today',            'programm/' . $controllers->{events} . '/today.html' );
    cache::add_map( 'date=' . $date_pattern, 'programm/' . $controllers->{events} . '/$1-$2-$3.html' );
    cache::add_map( 'from_date=' . $date_pattern . '&till_date=' . $date_pattern,
        'programm/' . $controllers->{events} . '/$1-$2-$3_$4-$5-$6.html' );
    cache::add_map( 'event_id=(\d+)', 'programm/' . $controllers->{event} . '/$1.html' );
}

sub put_cache {
    my $config  = shift;
    my $request = shift;
    my $cache   = shift;

    #write to cache
    if ( $config->{cache}->{use_cache} == 1 ) {
        cache::save($cache);
    }
}

sub check_params {
    my $config = shift;
    my $params = shift;

    #get start and stop from projects
    my $range      = project::get_date_range($config);
    my $start_date = $range->{start_date};
    my $end_date   = $range->{end_date};

    #filter for date
    my $date = time::check_date( $params->{date} );

    #print STDERR $date."\n";
    if ( $date eq '' ) {
        $date = time::time_to_date( time() );
    }
    #
    if ( $date eq 'today' ) {
        $date = time::get_event_date($config);
    }

    #    $date    =$config->{date}->{start_date}        if ($date lt $config->{date}->{start_date});
    #    $date    =$config->{date}->{end_date}        if ($date gt $config->{date}->{end_date});
    $date = $start_date if $date lt $start_date;
    $date = $end_date   if $date gt $end_date;

    #filter for date
    #    my $date=time::check_date($params->{date});
    my $time = time::check_time( $params->{time} );
    if ( ( defined $params->{today} ) && ( $params->{today} eq '1' ) ) {
        $date = time::time_to_date( time() );
        $params->{date} = $date;
    }

    my $from_date = time::check_date( $params->{from_date} );
    my $till_date = time::check_date( $params->{till_date} );

    my $previous_series = $params->{previous_series} || '';
    if ( ($previous_series) && ( $previous_series =~ /(\d+)/ ) ) {
        $params->{event_id} = events::get_previous_event_of_series(
            undef, $config,
            {
                event_id          => $1,
                exclude_projects  => 1,
                exclude_locations => 1,
            }
        );
    }

    my $next_series = $params->{next_series} || '';
    if ( ($next_series) && ( $next_series =~ /(\d+)/ ) ) {
        $params->{event_id} = events::get_next_event_of_series(
            undef, $config,
            {
                event_id          => $1,
                exclude_projects  => 1,
                exclude_locations => 1,
            }
        );
    }

    my $event_id = $params->{event_id} || '';
    unless ( $event_id eq '' ) {
        if ( $event_id =~ /(\d+)/ ) {
            $event_id = $1;
        } else {
            log::error( $config, "invalid event_id" );
        }
    }

    my $debug = $params->{debug} || '';
    if ( $debug =~ /([a-z\_\,]+)/ ) {
        $debug = $1;
    }

    #set query string for caching
    if ( ( !exists $ENV{QUERY_STRING} ) || ( $ENV{QUERY_STRING} eq '' ) ) {
        my $options = [];
        push @$options, 'date=' . $date           if $date ne '';
        push @$options, 'from_date=' . $from_date if $from_date ne '';
        push @$options, 'till_date=' . $till_date if $till_date ne '';
        push @$options, 'event_id=' . $event_id   if $event_id ne '';
        $ENV{QUERY_STRING} = '' . join( "&", @$options );
    }

    return {
        date      => $date,
        time      => $time,
        from_date => $from_date,
        till_date => $till_date,
        event_id  => $event_id,

        #        project  => $project,
        debug => $debug,
    };
}

#do not delete last line!
1;