package JuliGreg;

# Calculate between Julian/Gregorian Calendar
# Rolf Rost, 6.5.2014

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

sub browse{
    my $self = shift;
    my $d = Scaliger->new;
    $self->{STASH}{julidate} = $d->julidate;    
    $self->{STASH}{gregdate} = $d->gregdate;    
}

sub control{
    my $self = shift;
    
    my $julidate = $self->trim($self->param('julidate'));
    my $gregdate = $self->trim($self->param('gregdate'));
    
    $self->{STASH}{julidate} = $self->ents($julidate);    
    $self->{STASH}{gregdate} = $self->ents($gregdate);  
    
    
    if($self->param('juli2greg')){
        my $d = Scaliger->new( julidate => $julidate ) or return $self->errorP( title => "Eingabefehler", descr => "$@");        
        $self->{STASH}{gregdate} = $d->gregdate;    
    }
    elsif($self->param('greg2juli')){
        my $d = Scaliger->new( gregdate => $gregdate ) or return $self->errorP( title => "Eingabefehler", descr => "$@");        
        $self->{STASH}{julidate} = $d->julidate;    
    }
    elsif($self->param('src')){
        $self->header("Content-Type" => "text/plain; Charset=UTF-8");
        my $pkg = __PACKAGE__;
        local @ARGV = $INC{"$pkg.pm"}; 
        local $/ = undef;
        $self->{CONTENT} = <>;
    }
    else{
        $self->errorP(title => "Fehler im Request", descr => "unbekannter Parameter");
    }
}

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

<form>
    <fieldset style="padding:1em"><legend><strong>Datum <label for="JK">Julianischer K.</label> links, <label for="GK">Gregorianischer K.</label> rechts</strong></legend>
        <input name="julidate" value="%julidate%" title="Julianischer Kalender" id="JK">

        <button name="juli2greg" value="1">Juli. zu Greg. &gt;&gt;</button>
        <button name="greg2juli" value="1">&lt;&lt; Greg. zu Juli.</button>

        <input name="gregdate" value="%gregdate%" title="Gregorianischer Kalender" id="GK">
    </fieldset>
</form>

<p><a class="paginator" href="%url%" title="Heutiges Datum setzen">Heutiges Datum setzen</a>, Tipp: Teste den <a class="paginator" href="%url%?julidate=1.3.200;juli2greg=1">1.3.200</a>, da stimmen die Kalender überein (bis zum <a class="paginator" href="%url%?julidate=28.2.300;juli2greg=1">28.2.300</a>).</p>

<p>Mit meinem neuen Perl-Modul <code>Scaliger.pm</code> ist der Code extrem überschaubar: <a href="%url%?src=1" title="Code">Perl Code im Browser ausgeben</a> </p>


<script>
function subm(e){
    e.preventDefault();
    var foc = document.querySelector(":focus");
    var url = e.target.href;
    if( ! url ){
        q = foc.name.match(/^j/) ? '&juli2greg=1' : '&greg2juli=1';
        url = "%url%?" + $(e.target).serialize() + q;
    }
    var xhr = new XMLHttpRequest();
    xhr.open("GET",url);
    xhr.responseType = "document";
    throbber(true);
    xhr.onload = function(){
        throbber(false);
        document.body = this.response.body;
        enas();
    };
    xhr.send();
}

function enas(){
    document.forms[0].addEventListener("submit",subm);
    var links = document.getElementsByClassName('paginator');
    for( var i = 0; i < links.length; i++){
        if( links[i].href ){ links[i].addEventListener('click',subm); }
    }
}
enas();
</script>