#!/usr/bin/perl
use strict;
use warnings;

use Getopt::Long;
use Win32::Service;
use 5.010;
use POSIX;
use EBL::ebl_monitoring;                           # Sonderfunktionen für EBL-Einsatz
use EBL::ebl_reporting;                            # Reportingfunktion
use File::Copy qw(copy);

# main-parameters
my %config=(
  "logstatus"=>1,                                  # soll Protokoll geschrieben werden
  "shellstatus"=>1,                                # zusätzliche Protokollausgabe Shell
  "active"=>0,                                     # damit wird die Funktion (Kopiervorgang und Server stop / start scharf geschaltet)
  "logfilename"=>'DWG2AIMS.log',                   # Dateiname für die Scriptausführung
  "folder_source"=>'',                             # Quelle der DWG-Dateien
);

# Reportsteuerung
my $log=EBL::ebl_reporting->open($config{logfile_name});
$log->log($config{logstatus});
$log->shell($config{shellstatus});

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);
}