#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use Date::Language;

my $url='http://www.ebay.de/itm/251271356062';
my $warn_time=60*5; # 5 minuten

my $lang = Date::Language->new('German');


my $site=get($url);

die "Herunterladen ist fehlgeschlagen!\n" unless($site);

# HTML wegwerfen...
# Schnell und Schmutzig
$site=~s/<[^>]+>/ /gs;

# Leezeichen normieren:
$site=~s/\s+/ /gs;

# Ein großteil der Seite ist nun müll,
# da Javascript/CSS und Co im normalen Text enthalten sind
# die interssanten Teile sind aber noch in Ordnung

# Das Datum heraus fischen
if(my ($day,$month,$year,$time) = $site=~/Restzeit:\s+.+?\s+\((\d+).\s+(\w+).\s+(\d+)\s+(\d+:\d+:\d+)\s+MESZ\)/)
{
  print "DATUM: $day $month $year $time\n";

  my $timestamp=$lang->str2time("$day $month $year $time");
  print "TIMESTAMP: $timestamp\n";

  my $time_left=$timestamp-time();

  if($time_left<$warn_time)
  { print "Die Auktion endet in $time_left Sekunden!\n"; }
  else
  { print "Noch viel Zeit\n"; }
}

# Das Aktuelle gebot holen
if(my ($gebot)=$site=~/Aktuelles Gebot:\s+EUR\s+(\d+,\d+)/)
{
  print "AKTUELLES GEBOT: $gebot\n";
}