package EqYear;

use base 'main';
use strict;
use warnings;
use Scaliger;

sub init{
    my $self = shift;
    $self->{STASH}{year} = do{
        my $d = [localtime];
        $d->[5] + 1900;
    };
    $self->{STASH}{comchecked} = 'checked';
}

sub control{
    my $self = shift;
    if($self->param('find') || $self->param('year')){
        my $year = $self->trim($self->param('year'));
        $self->{STASH}{year} = $year if $year;
        
        my $checked = $self->param('opts') ? $self->param('opts') : 'com'; 
            # com || jan || dec
            
        $self->{STASH}{$checked.'checked'} = 'checked';

        return $self->errorP(title => 'Jahr nicht formgemäß als Zahl', descr => 'Das Jahr bitte vierstellig angeben')
            unless $year =~ /^\d\d\d\d$/;

        if($year == 1582){
            return $self->errorP(title => 'Das Jahr 1582 ist einmalig', descr => 'Für das Jahr 1582 gibt es keine weitere übereinstimmende Jahre');
        }

        my $sca = Scaliger->new(date => sprintf("%s.%s.%s", 1, $checked eq 'dec' ? 12 : 1, $year )) or die $@;

        $self->{STASH}{leap} = $sca->leap;

        $self->{STASH}{years} = [];
        while($year--){
            next if $year == 1582;
            my $t = Scaliger->new(date => sprintf("%s.%s.%s", 1, $checked eq 'dec' ? 12 : 1, $year )) or die $@;

            if( $checked eq 'com' ){
                if($t->wd == $sca->wd && $t->leap eq $sca->leap){
                    push @{$self->{STASH}{years}}, {year => $year};
                }
            }
            else{
                if($t->wd == $sca->wd ){
                    push @{$self->{STASH}{years}}, {year => $year}; #$self->dd( [$sca, $t] );
                }
            }

            last if scalar @{$self->{STASH}{years}} > 30;
        }

        $self->{STASH}{res} = scalar @{$self->{STASH}{years}} ? 1 : 0;
    
    }
    elsif($self->param('src')){
        my $pkg = ref $self;
        $self->{CONTENT} = do{
            local @ARGV = $INC{"$pkg.pm"};
            local $/ = undef;
            <>;
        };
        $self->header(
            "Content-Type" => "text/plain; Charset=UTF-8"
        );
    }
    else{
        return $self->errorP(title => 'Unbekannte Parameter', descr => 'Unbekannte Paramter');
    }
}

1;#########################################################################
__DATA__
<script src="/jquery.min.js"></script>
<script src="/request.js"></script>

<p>Gesucht werden in der Vergangenheit liegende (maximal 30) Jahre, bei denen alle Tage deckungsgleich mit dem eingegebenen Jahr sind. Wobei  eingegrenzt werden kann, ob nur die Tage vo Januar bis Februar oder von März bis zum Rest des Jahres gleich sein sollen.  </p>

<form>
    <fieldset><legend><strong>Optionen:</strong></legend>
        <label>Ganzes Jahr: <input type="radio" name="opts" value="com" %comchecked%> </label>
        <label>Jan/Feb: <input type="radio" name="opts" value="jan" %janchecked%> </label>
        <label>März-Dez: <input type="radio" name="opts" value="dec" %decchecked%> </label>
    </fieldset>
    <fieldset><legend style="margin-left:1em"><strong><label for="year">Jahr eingeben und Enter:</label></strong></legend>
        <input size=65 id="year" name="year" value="%year%" style="margin-left:1em" type='text' autofocus>
        <button name="find" value="1">Gleichartige Jahre suchen</button>
        <span> <a href="%url%">Zurücksetzen</a> </span>
    </fieldset>
</form>

%if_res%

<p>Deckungsgleich mit dem eingegebenen Jahr sind die Jahre untenstehend:</p>

<ul>
%loop_years%
    <li> %year%  </li>
%endloop%
</ul>

<p>Schaltjahr: <strong>%leap%</strong></p>

%else%
%endif%

<script>
function subm(e){
    e.preventDefault();
    var param = $(e.target).serialize()+"&find=1";
    var xhr = new XMLHttpRequest();
    xhr.open('POST','%url%');
    xhr.responseType = "document";
    throbber(true);
    xhr.onload = function(){
        throbber(false);
        document.body = this.response.body;
        document.forms[0].addEventListener('submit',subm);
    };
    xhr.send(param);
}

document.forms[0].addEventListener('submit',subm);
</script>