package Compta::Base::Handler::entry ;

use strict ;

use warnings ;

use utf8 ;

use Apache2::Const -compile => qw( OK REDIRECT ) ;

1 ;

sub handler {

    binmode(STDOUT, ":utf8") ;

    my $r = shift ;

    my $req = Apache2::Request->new( $r ) ;

    my $content ;

    #récupérer les arguments
    my (%args, @args) ;

    #recherche des paramètres de la requête
    @args = $req->param ;

    for ( @args ) {

        $args{ $_ } = Encode::decode_utf8( $req->param($_) ) ;

        #les double-quotes et les <> viennent interférer avec le html
        $args{ $_ } =~ tr/<>"/'/ ;

    }

    $content .= edit_entry( $r, \%args ) ;

    $r->no_cache(1) ;

    $r->content_type('text/html; charset=utf-8') ;

    print $content ;

    return Apache2::Const::OK ;

}

sub edit_entry {

    my ( $r, $args ) = @_ ;

    warn "Before : " . Data::Dumper::Dumper($args) ;

    $args->{_token_id} ||= join "", map +(0..9,"a".."z","A".."Z")[rand(10+26*2)], 1..32 ;

    warn "After : " . Data::Dumper::Dumper($args) ;

    #more code...
}