#!/usr/bin/perl

use strict;
use warnings;

# Parser einbinden
my $osmolt_file = $ARGV[0];
my $result_file = $ARGV[1];

my $count_lines  = 0;
my $count_ctimes = 0;
ReadData();

# Filter anlegen
sub ReadData {

        #Filterdatei oeffnen    
        open(my $fh,  "<", $osmolt_file) or die( "$osmolt_file: $!" );
        open(my $out, ">", $result_file) or die ("Can't open html output file: ".$result_file);
        my $count = 0;
        my $desc  = "";

        #fuer jede Zeile
        while(my $zeile = <$fh>) {

                chomp $zeile;
                # Newlines loeschen
                $zeile =~ s/^\s+//;     # fuehrende Leerzeichen entfernen
                $zeile =~ s/\s+$//;     # nachfolgende Leerzeichen entfernen
                
                next if( /^#/ );   # Kommentare ueberspringen   
                next if( /^s*$/ ); # Leerzeilen ueberspringen
                
                if ($count != 0) {
                        #Zeile auftrennen       
                        my($point,$title,$attributes,$icon,$icon_size,$iconOffset) = split(/\t/, $zeile, 7 );
                
                        print $point." - ".$attributes." * ";
                        $count_lines++;
                        print $attributes;
                 
                        if (length $attributes > 0 ) {
                                $desc="<i>Es liegen Daten vor !!!!</i>";
                        }
                        else {
                                $desc="<i>keine Leerungszeiten vorliegend!</i>";
                        }
                        print $out join("\t", $point, $title, $desc, $icon, $icon_size, $iconOffset)."\n";              
                }
                else {              
                        # einfache Datenweitergabe der Kopfzeile
                        print $out $zeile."\n";
                }               
                # Anzahl der eingelesenen Zeilen
                $count++;

        }# end-while

        close($fh)  or die $!;
        close($out) or die $!;

} # while