package ebl::reporting;

use strict;
use warnings;
use IO::File;
#use Time::localtime;
require Time::localtime; 

sub open
{
  my $class=shift;
  my $log_file=shift;

  # Referenz auf STDOUT
  my $fh=\*STDOUT;

  # wenn object und kein File => neuer Name = alter Name
  if(ref $class && !$log_file)
  {
    $log_file=$class->{file};
    $class->{fh}->close();
  }

  # versuchen Fh zu öffnen
  if($log_file) {
    my $ofh=IO::File->new();
    my $mode='>';
    $mode='>>' if( ref $class );
    if($ofh->open($log_file,$mode) ) {
      $fh=$ofh;
    } else {
      $fh->print("ERROR open $log_file ($!)\nwrite to STDOUT\n");
    }
  }

  # objektwerte neu setzen wenn objekt
  if( ref $class ) {
    $class->{fh}=$fh;
    $class->{file}=$log_file;
    return $class;
  }

  # neues Objekt
  return bless({ fh=>$fh, file=>$log_file, on=>1 },$class);
}