#!/usr/bin/perl
#
# This code was forked from the LiveJournal project owned and operated
# by Live Journal, Inc. The code has been modified and expanded by
# Dreamwidth Studios, LLC. These files were originally licensed under
# the terms of the license supplied by Live Journal, Inc, which can
# currently be found at:
#
# http://code.livejournal.org/trac/livejournal/browser/trunk/LICENSE-LiveJournal.txt
#
# In accordance with the original license, this code and all its
# modifications are provided under the GNU General Public License.
# A copy of that license can be found in the LICENSE file included as
# part of this distribution.

use strict;

package LJ::S2;

sub YearPage {
    my ( $u, $remote, $opts ) = @_;

    my $p = Page( $u, $opts );
    $p->{'_type'} = "YearPage";
    $p->{'view'}  = "archive";

    my $user = $u->{'user'};

    if ( $u->should_block_robots ) {
        $p->{'head_content'} .= LJ::robot_meta_tags();
    }

    $p->{'head_content'} .=
          '<meta http-equiv="Content-Type" content="text/html; charset='
        . $opts->{'saycharset'}
        . "\" />\n";

    my $get = $opts->{'getargs'};

    my $count = LJ::S2::get_journal_day_counts($p);
    my @years = sort { $a <=> $b } keys %$count;
    my $year  = $get->{'year'};                      # old form was /users/<user>/calendar?year=1999

    # but the new form is purtier:  */archive/2001
    if ( !$year && $opts->{'pathextra'} =~ m!^/(\d\d\d\d)/?\b! ) {
        $year = $1;
    }
    else {
        my $curyear = $u->time_now->year;
        foreach (@years) {
            $year = $_
                if $_ <= $curyear;
        }

        # all entries are in the future, so fall back to the earliest year
        $year = $years[0]
            unless $year;

        # if still undefined, no entries exist - use the current year
        $year = $curyear
            unless $year;
    }

    $p->{'year'}  = $year;
    $p->{'years'} = [];

    my $displayed_index = 0;
    for my $i ( 0 .. $#years ) {
        my $year = $years[$i];
        push @{ $p->{'years'} },
            YearYear( $year, "$p->{'base_url'}/$year/", $year == $p->{'year'} );
        $displayed_index = $i if $year == $p->{year};
    }

    $p->{head_content} .= qq{<link rel="prev" href="$p->{years}->[$displayed_index-1]->{url}" />\n}
        if $displayed_index > 0;
    $p->{head_content} .= qq{<link rel="next" href="$p->{years}->[$displayed_index+1]->{url}" />\n}
        if $displayed_index < $#years;

    $p->{'months'} = [];

    for my $month ( 1 .. 12 ) {
        push @{ $p->{'months'} },
            YearMonth(
            $p,
            {
                'month' => $month,
                'year'  => $year,
            },
            S2::get_property_value( $opts->{ctx}, 'reg_firstdayofweek' ) eq "monday" ? 1 : 0
            );
    }

    return $p;
}

sub YearMonth {
    my ( $p, $calmon, $start_monday ) = @_;

    my ( $month, $year ) = ( $calmon->{'month'}, $calmon->{'year'} );
    $calmon->{'_type'} = 'YearMonth';
    $calmon->{'weeks'} = [];
    $calmon->{'url'}   = sprintf( "$p->{'_u'}->{'_journalbase'}/$year/%02d/", $month );

    my $count       = LJ::S2::get_journal_day_counts($p);
    my $has_entries = $count->{$year} && $count->{$year}->{$month} ? 1 : 0;
    $calmon->{'has_entries'} = $has_entries;

    my $week = undef;

    my $flush_week = sub {
        my $end_month = shift;
        return unless $week;
        push @{ $calmon->{'weeks'} }, $week;
        if ($end_month) {
            $week->{'post_empty'} =
                7 - $week->{'pre_empty'} - @{ $week->{'days'} };
        }
        $week = undef;
    };

    my $push_day = sub {
        my $d = shift;
        unless ($week) {
            my $leading = $d->{'date'}->{'_dayofweek'} - 1;
            if ($start_monday) {
                $leading = 6 if --$leading < 0;
            }
            $week = {
                '_type'      => 'YearWeek',
                'days'       => [],
                'pre_empty'  => $leading,
                'post_empty' => 0,
            };
        }
        push @{ $week->{'days'} }, $d;
        if ( $week->{'pre_empty'} + @{ $week->{'days'} } == 7 ) {
            $flush_week->();
            my $size = scalar @{ $calmon->{'weeks'} };
        }
    };

    my $day_of_week = LJ::day_of_week( $year, $month, 1 );

    my $daysinmonth = LJ::days_in_month( $month, $year );

    for my $day ( 1 .. $daysinmonth ) {

        # so we don't auto-vivify years/months
        my $daycount = $has_entries ? $count->{$year}->{$month}->{$day} : 0;
        my $d        = YearDay( $p->{'_u'}, $year, $month, $day, $daycount, $day_of_week + 1 );
        $push_day->($d);
        $day_of_week = ( $day_of_week + 1 ) % 7;
    }
    $flush_week->(1);    # end of month flag

    my $nowval = $year * 12 + $month;

    # determine the most recent month with posts that is older than
    # the current time $month/$year.  gives calendars the ability to
    # provide smart next/previous links.
    my $maxbefore;
    while ( my ( $iy, $h ) = each %$count ) {
        next if $iy > $year;
        while ( my $im = each %$h ) {
            next if $im >= $month;
            my $val = $iy * 12 + $im;
            if ( $val < $nowval && ( !$maxbefore || $val > $maxbefore ) ) {
                $maxbefore = $val;
                $calmon->{'prev_url'} =
                    $p->{'_u'}->{'_journalbase'} . sprintf( "/%04d/%02d/", $iy, $im );
                $calmon->{'prev_date'} = Date( $iy, $im, 0 );
            }
        }
    }

    # same, except inverse: next month after current time with posts
    my $minafter;
    while ( my ( $iy, $h ) = each %$count ) {
        next if $iy < $year;
        while ( my $im = each %$h ) {
            next if $im <= $month;
            my $val = $iy * 12 + $im;
            if ( $val > $nowval && ( !$minafter || $val < $minafter ) ) {
                $minafter = $val;
                $calmon->{'next_url'} =
                    $p->{'_u'}->{'_journalbase'} . sprintf( "/%04d/%02d/", $iy, $im );
                $calmon->{'next_date'} = Date( $iy, $im, 0 );
            }
        }
    }
    return $calmon;
}

sub YearYear {
    my ( $year, $url, $displayed ) = @_;
    return {
        '_type'     => "YearYear",
        'year'      => $year,
        'url'       => $url,
        'displayed' => $displayed
    };
}

sub YearDay {
    my ( $u, $year, $month, $day, $count, $dow ) = @_;
    my $d = {
        '_type'       => 'YearDay',
        'day'         => $day,
        'date'        => Date( $year, $month, $day, $dow ),
        'num_entries' => $count
    };
    if ($count) {
        $d->{'url'} = sprintf( "$u->{'_journalbase'}/$year/%02d/%02d/", $month, $day );
    }
    return $d;
}

1;