#!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use WWW::Mechanize::FormFiller;
use URI::URL;
use Date::Calc qw(:all);

my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
my $day = 0;
my $month = 0;
my $year = 0;


($year,$month,$day) = &Today();
#($year, $month, $yesterday) = &Today();
$day = "0".$day if($day < 10);
$month = "0".$month if($month < 10);
my ($year2,$month2,$yesterday) = Add_Delta_Days($year,$month,$day, -1);
$yesterday = "0".$yesterday if($yesterday < 10);

print "$day.$month.$year\n";
print "$yesterday.$month.$year\n";

$agent->env_proxy();

  $agent->get('[URL=http://www.xxx-yyy.de']http://www.xxx-yyy.de'[/URL]);
    $agent->form(1) if $agent->forms and scalar@{$agent->forms};
  $agent->form_number(1);
  $formfiller->add_filler( 'usrusr' => Fixed => 'vvv' );
  $formfiller->add_filler( 'usrpwd' => Fixed => 'nnnnn' );
  $formfiller->fill_form($agent->current_form);
  $agent->click('usrannounce');
  $agent->follow(qr((?-xism:ERWEITERTES)));
  $agent->follow(qr((?-xism:Suchmaske)));
  $agent->form_number(2);
  $formfiller->add_filler( 'snNr' => Fixed => '' );
  $formfiller->add_filler( 'jahr' => Fixed => 'ALL' );
  $formfiller->add_filler( 'colliNr' => Fixed => '' );
  $formfiller->add_filler( 'bordNr' => Fixed => '' );
  $formfiller->add_filler( 'datVonwdat' => Fixed => "$yesterday" );
  $formfiller->add_filler( 'datBiswdat' => Fixed => "$day" );
  $formfiller->add_filler( 'datArt' => Fixed => 'sdgdat' );
  $formfiller->add_filler( 'status' => Fixed => 'all' );
  $formfiller->add_filler( 'stati' => Fixed => '' );
  $formfiller->add_filler( 'statSel' => Fixed => 'pos' );
  $formfiller->add_filler( 'quitt' => Fixed => 'all' );
  $formfiller->add_filler( 'absNme' => Fixed => '' );
  $formfiller->add_filler( 'refNr' => Fixed => '' );
  $formfiller->add_filler( 'kdNr' => Fixed => '' );
  $formfiller->add_filler( 'verid' => Fixed => 'ALL' );
  $formfiller->add_filler( 'empfNme' => Fixed => '' );
  $formfiller->add_filler( 'empfLand' => Fixed => '' );
  $formfiller->add_filler( 'empfPlz' => Fixed => '' );
  $formfiller->add_filler( 'empfOrt' => Fixed => '' );
  $formfiller->add_filler( 'pagesize' => Fixed => '100' );
  $formfiller->add_filler( 'sort' => Fixed => 'sorted' );
  $formfiller->add_filler( '' => Fixed => '' );
  $formfiller->fill_form($agent->current_form);
  $agent->click('search');
  #$agent->form_number(2);
  $agent->follow(qr((?-xism:\bemail\b)));
  $agent->form_number(1);
  $agent->click('usrlogout');