#!/usr/bin/perl

use strict;
use warnings;

# Parser einbinden
my ($desc,$count_lines)=ReadData($ARGV[0],$ARGV[1]);

# Filter anlegen
sub ReadData
{
  my $osmolt_file=shift;
  my $result_file=shift;
  my $desc = '';
  my $count=0;

  #Filterdatei oeffnen
  open( my $in, '<', $osmolt_file ) || die( "Can't open $osmolt_file: $!" );
  open( my $out, '>', $result_file) || die( "Can't open $result_file: $!" ) ;

  # einfache Datenweitergabe der Kopfzeile
  print $out <$in>;


  #fuer jede Zeile
  while( my $line=<$in> )
  {
    chomp($line);             # Newlines loeschen
    $line=~s/^\s+//;          # fuehrende Leerzeichen entfernen
    $line=~s/\s+$//;          # nachfolgende Leerzeichen entfernen
    next if( $line=~/^#/ );   # Kommentare ueberspringen
    next if( $line=~/^s*$/ ); # Leerzeilen ueberspringen

    #Zeile auftrennen
    my($point,$title,$attributes,$icon,$icon_size,$iconOffset) = split( /\t/, $line, 7 );
    print "$point - $attributes * \n";
    print "$attributes\n";

    if ($attributes ne '')
    {
      $desc="<i>Es liegen Daten vor !!!!</i>";
    } else {
      $desc="<i>keine Leerungszeiten vorliegend!</i>";
    }

    print $out "$point\t$title\t$desc\t$icon\t$icon_size\t$iconOffset\n";
    $count++;
  }# end-while

  close($in);
  close($out);

  return($desc,$count);
}