#!/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