Script-Kiddies vor die 4. :-)

#!/usr/bin/perl


use Date::Manip;
use POSIX;


my @timers;


foreach $line (<STDIN>)
{
 if ($line =~ /^250.* 1:/)
 {
  chomp($line);
  ($id, $channel, $date, $begin, $end, $dummy)= split(':', $line);
  $enddate= $date;
  if ($end lt $begin)
  {
   $tmp= DateCalc(ParseDateString($date), ParseDateDelta('1d'));
   $enddate= UnixDate(ParseDateString($tmp), "%Y-%m-%d");
  }
  push(@timers, $date.' '.substr($begin, 0, 2).':'.substr($begin, 2, 2).','.$enddate.' '.substr($end, 0, 2).':'.substr($end, 2, 2));
 }
}


@sorttimers= sort (@timers);


#print "--- active timers\n";
#foreach $line (@sorttimers)
#{
# print $line."\n";
#}


my $i= 0;
while ($i < (@sorttimers - 1))
{
 ($begin1, $end1)= split(',', @sorttimers[$i]);
 ($begin2, $end2)= split(',', @sorttimers[$i + 1]);
 if ($begin2 lt $end1)
 {
  if ($end1 lt $end2)
  {
   @sorttimers[$i]= $begin1.','.$end2;
  }
  else
  {
   @sorttimers[$i]= $begin1.','.$end1;
  }
  splice (@sorttimers, $i + 1, 1);
 }
 else
 {
  $i++;
 }
}


#print "--- merged\n";
#foreach $line (@sorttimers)
#{
# print $line."\n";
#}


#print "--- gaps\n";
$i= 0;
my $lastend= strftime("%Y-%m-%d %H:%M", localtime);
my $duration;
while ($i < @sorttimers)
{
 ($begin, $end)= split(',', @sorttimers[$i]);
 $duration= DateCalc(ParseDateString($lastend), ParseDateString($begin));
 print $lastend.' - '.$begin.' ('.$duration.")\n";
 $lastend= $end;
 $i++;
}
print $lastend." - eternity\n";