#!/usr/bin/perl

# Parser einbinden
my $osmolt_file = $ARGV[0];
my $result_file = "newfile.txt";
InitFilter();

# Filter anlegen
sub InitFilter
{
	#Filterdatei oeffnen
	open( FH, $osmolt_file ) or die( "$osmolt_file: $!" );
    open ($out, ">", $result_file) || die ("Can't open html output file: ".$result_file) ;
	my $count = 0;
	
	#fuer jede Zeile
	while( <FH> )
	{
		chomp;				# Newlines loeschen
		s/^\s+//;			# fuehrende Leerzeichen entfernen
		s/\s+$//;			# nachfolgende Leerzeichen entfernen
		next if( /^#/ );	# Kommentare ueberspringen
		next if( /^s*$/ );	# Leerzeilen ueberspringen

		#Zeile auftrennen
		my($point,$title,$collection_times,$icon,$icon_size,$iconOffset) = split( /\t/, $_, 7 );

		if (length $desc > 0 )
		{
		  my $code = "<table width=\"100\" border=\"0\" cellpadding=\"0\" cellspacing=\"1\">";

		  $icon="postbox_collection.png";
		  CreateCollectionTimeTable();
		  $collection_times=$code;
		}  
				
		print $out $point."\t".$title."\t".$collection_times."\t".$icon."\t".$icon_size."\t".$iconOffset."\n";
		#Anzahl der eingelesenen Zeilen
		$count++;
		
	}

	close( FH );
	close $out;
		
	print $count." Zeilen bearbeitet";	
}	

#erstellen der Tabelle mit den Leerungszeiten
sub CreateCollectionTimeTable
{

my(@days) = split( /;/, $collection_times );

foreach $day (@days){
		$_ = $day;
		s/^\s+//;			# fuehrende Leerzeichen entfernen
		s/\s+$//;			# nachfolgende Leerzeichen entfernen
        my($dayname,$daytime) = split( / /, $_ );

		$code .= "<tr><td>".$dayname."</td><td>".$daytime."</td></tr>";
	
		print "|".$dayname."| - |".$daytime."|\n";
         
		$code .= "</tr>";
  		
}

#Tabellen-Abschluss
$code .= "</table>";

print "------------------------\n";
print $code."\n";
}